Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Basic management of variants in one place + Result view #123

Merged
merged 15 commits into from
Oct 11, 2023
Merged

Basic management of variants in one place + Result view #123

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
15 commits
Select commit Hold shift + click to select a range
9ace940
Block which opens all methods containing variants
JoeAtHPI Aug 17, 2023
2492f86
Adds SBVariantProxy s in Exploriants and utilities in other classes f…
JoeAtHPI Aug 24, 2023
845cdc3
Make Exploriants Singleton
JoeAtHPI Aug 24, 2023
3448fca
Adds comment to Exploriants visualize & right blockFor call on Editor
JoeAtHPI Aug 31, 2023
273b1b1
adds containedMethod as variable to VariantProxy for consistent changes
JoeAtHPI Aug 31, 2023
bf7f05b
Adjusts delete actiong for watches
JoeAtHPI Aug 31, 2023
b181a73
Inactive variants, tabview in exploriants
JoeAtHPI Sep 11, 2023
550261a
Adds apply permutation, adds regenerate
JoeAtHPI Sep 12, 2023
5176c2e
Can now reapply modify expression in exploriant watches
JoeAtHPI Sep 12, 2023
f74b2b5
Adds extra check before assuming compiledMethod of SBStBasicMethod is…
JoeAtHPI Sep 12, 2023
6107a8b
Exploriants as tab view
JoeAtHPI Sep 18, 2023
1c409aa
Cleanup
JoeAtHPI Sep 18, 2023
07fccfc
Fixes recursion in SbStBasicMethod >> =
JoeAtHPI Sep 18, 2023
f187729
Removes individual = for SBStBasicMethod
JoeAtHPI Sep 21, 2023
381f337
recategorisation
JoeAtHPI Oct 11, 2023
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
5 changes: 5 additions & 0 deletions packages/Sandblocks-Babylonian/SBActiveVariantPermutation.class.st
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,5 @@
Class {
#name : #SBActiveVariantPermutation,
#superclass : #ProcessLocalVariable,
#category : #'Sandblocks-Babylonian'
}
50 changes: 35 additions & 15 deletions packages/Sandblocks-Babylonian/SBExample.class.st
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -17,12 +17,6 @@ Class {
#category : #'Sandblocks-Babylonian'
}

{ #category : #'as yet unclassified' }
SBExample class >> getAllInMethod: aBlock [

^ aBlock body childSandblocks select: #isExample
]

{ #category : #'as yet unclassified' }
SBExample class >> instanceSuggestion [

Expand All @@ -46,6 +40,12 @@ SBExample class >> matches: aMessage [
and: [#('example:args:label:' 'example:args:label:assert:') includes: aMessage selector]]
]

{ #category : #constants }
SBExample class >> matchingSelectors [

^ #(#self:args:label: #self:args:label:assert: #example:args:label: #example:args:label:assert:)
]

{ #category : #'as yet unclassified' }
SBExample class >> newFor: aMessage [

Expand Down Expand Up @@ -368,15 +368,8 @@ SBExample >> providesExecutionEnvironment [
{ #category : #'as yet unclassified' }
SBExample >> run [

self containingArtefact valid ifFalse: [^ self].
processRunning ifTrue: [^ self].
currentProcess ifNotNil: #terminate.

errorDecorator ifNotNil: #detach.
errorDecorator := nil.
returnValue clear.
self runSetup.
self sendStartNotification.
"self collectTypeInfo."

processRunning := true.
currentProcess := [
Expand All @@ -394,7 +387,9 @@ SBExample >> run [
returnValue reportValue: returned.
returnValue updateDisplay.
self sendFinishNotification]
] forkAt: Processor userBackgroundPriority
] forkAt: Processor userBackgroundPriority.

^ currentProcess
]

{ #category : #'as yet unclassified' }
Expand All @@ -405,6 +400,31 @@ SBExample >> runOnlyThis [
self startRunning
]

{ #category : #'as yet unclassified' }
SBExample >> runSetup [

self containingArtefact valid ifFalse: [^ self].
processRunning ifTrue: [^ self].
currentProcess ifNotNil: #terminate.

errorDecorator ifNotNil: #detach.
errorDecorator := nil.
returnValue clear.
]

{ #category : #'as yet unclassified' }
SBExample >> runSynchronouslyIgnoreReturn [

| returned |
self sendStartNotification.

SBExecutionEnvironment value: self.
[returned := self evaluate] on: Error do: [:e | self scheduleLastError: e].
self scheduleLastError: nil.

self sendFinishNotification.
]

{ #category : #'as yet unclassified' }
SBExample >> scheduleLastError: anError [

Expand Down
29 changes: 27 additions & 2 deletions packages/Sandblocks-Babylonian/SBExampleValueDisplay.class.st
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -13,6 +13,14 @@ Class {
#category : #'Sandblocks-Babylonian'
}

{ #category : #actions }
SBExampleValueDisplay >> clear [

display clear.

hadValue := false
]

{ #category : #accessing }
SBExampleValueDisplay >> exampleFinished: anExample [

Expand All @@ -27,7 +35,6 @@ SBExampleValueDisplay >> exampleFinished: anExample [
SBExampleValueDisplay >> exampleStarting: anExample [

display exampleStarting: anExample.
display noValue.

statusLabel contents: '...'.
hadValue := false.
Expand Down Expand Up @@ -73,7 +80,7 @@ SBExampleValueDisplay >> layoutCommands [
]

{ #category : #naming }
SBExampleValueDisplay >> name: aString [
SBExampleValueDisplay >> name: aString [

label contents: aString
]
Expand All @@ -85,3 +92,21 @@ SBExampleValueDisplay >> reportValue: anObject name: aString [
label contents: aString.
hadValue := true
]

{ #category : #'event handling' }
SBExampleValueDisplay >> reportValues: aCollectionOfObjects name: aString [

display reportValues: aCollectionOfObjects.
label contents: aString.
hadValue := true
]

{ #category : #actions }
SBExampleValueDisplay >> updateDisplay [

display updateDisplay.

statusLabel contents: (hadValue
ifTrue: ['']
ifFalse: ['- Not reached -'])
]
Loading
Loading