diff --git a/src/Bloc/BlParallelUniverse.class.st b/src/Bloc/BlParallelUniverse.class.st index b3194d783..2cd48c561 100644 --- a/src/Bloc/BlParallelUniverse.class.st +++ b/src/Bloc/BlParallelUniverse.class.st @@ -65,20 +65,7 @@ BlParallelUniverse >> attachSpace: aSpace [ self defer: [ self attachSpaceSynchronously: aSpace ]. - aSpace host isRunning - ifFalse: [ - (BlParallelUniverseHostStartRequestSignal new - universeId: self id; - spaceId: aSpace id; - host: aSpace host class) emit. - - self startUniverse. - - (BlParallelUniverseHostStartedSignal new - universeId: self id; - spaceId: aSpace id; - host: aSpace host class; - isRunning: aSpace host isRunning) emit ] + aSpace host isRunning ifFalse: [ self startUniverse ] ] { #category : #'private - spaces' } @@ -95,34 +82,14 @@ BlParallelUniverse >> attachSpaceSynchronously: aSpace [ "First of all we need to add space to the space manager" spaceManager addSpace: aSpace. - (BlParallelUniverseSpaceAddedSignal new - universeId: self id; - spaceId: aSpace id) emit. - "then create and show it in a host space" aSpace host createHostSpaceFor: aSpace. - (BlParallelUniverseHostSpaceCreatedSignal new - universeId: self id; - spaceId: aSpace id) emit. - aSpace hostSpace show. - (BlParallelUniverseHostSpaceShownSignal new - universeId: self id; - spaceId: aSpace id) emit. - self assert: [ aSpace hasHostSpace ] - description: [ 'Space must have a host space!' ]. - - (BlParallelUniverseSpaceRootAssignedSignal new - universeId: self id; - spaceId: aSpace id) emit. - - (BlParallelUniverseSpaceDispatchAddedToSceneSignal new - universeId: self id; - spaceId: aSpace id) emit + description: [ 'Space must have a host space!' ] ] { #category : #'api - spaces' } @@ -203,8 +170,6 @@ BlParallelUniverse >> defer: aValuable [ "Enqueue a valuable from any process to be executed in the UI process at the beginning of the next pulse. It is useful to update the UI states." - (BlParallelUniverseDeferredActionAddedSignal new universeId: self id) emit. - deferredActions nextPut: aValuable ] @@ -328,27 +293,9 @@ BlParallelUniverse >> initialize [ BlParallelUniverse >> openSpace: aSpace [ "It should be possible to add a space from the other thread" - (BlParallelUniverseOpenSpaceRequestSignal new - universeId: self id; - spaceId: aSpace id; - isRunning: aSpace host isRunning) emit. - self defer: [ self openSpaceSynchronously: aSpace ]. - aSpace host isRunning - ifFalse: [ - (BlParallelUniverseHostStartRequestSignal new - universeId: self id; - spaceId: aSpace id; - host: aSpace host class) emit. - - self startUniverse. - - (BlParallelUniverseHostStartedSignal new - universeId: self id; - spaceId: aSpace id; - host: aSpace host class; - isRunning: aSpace host isRunning) emit ] + aSpace host isRunning ifFalse: [ self startUniverse ] ] { #category : #'private - spaces' } @@ -363,23 +310,11 @@ BlParallelUniverse >> openSpaceSynchronously: aSpace [ "First of all we need to add space to the space manager" spaceManager addSpace: aSpace. - (BlParallelUniverseSpaceAddedSignal new - universeId: self id; - spaceId: aSpace id) emit. - "then create and show it in a host space" aSpace host createHostSpaceFor: aSpace. - (BlParallelUniverseHostSpaceCreatedSignal new - universeId: self id; - spaceId: aSpace id) emit. - aSpace hostSpace show. - (BlParallelUniverseHostSpaceShownSignal new - universeId: self id; - spaceId: aSpace id) emit. - "Note: we should send shown event after everything else is done, because theoretically, that only space could be closed as a reaction to the event" aSpace dispatchEvent: @@ -390,15 +325,7 @@ BlParallelUniverse >> openSpaceSynchronously: aSpace [ "Notify root element that it is now visible to the user" aSpace becomeVisible. - (BlParallelUniverseSpaceRootAssignedSignal new - universeId: self id; - spaceId: aSpace id) emit. - - aSpace dispatchAddedToSceneGraph. - - (BlParallelUniverseSpaceDispatchAddedToSceneSignal new - universeId: self id; - spaceId: aSpace id) emit + aSpace dispatchAddedToSceneGraph ] { #category : #'api - ui process' } @@ -429,6 +356,7 @@ BlParallelUniverse >> pulseSynchronously [ do: [ :e | (BlParallelUniverseErrorDuringPulse new signaledError: e; + universeId: self id; yourself) emit. e pass ] ] @@ -465,16 +393,7 @@ BlParallelUniverse >> stopUniverse [ BlParallelUniverse >> tryToRunDeferredActions [ | nextInQueue | - (BlParallelUniverseTryToRunDeferredActionsSignal new - universeId: self id; - yourself) emit. - - [ (nextInQueue := deferredActions nextOrNil) isNotNil ] whileTrue: [ - - (BlParallelUniverseRunDeferredActionSignal new - universeId: self id; - yourself) emit. - + [ (nextInQueue := deferredActions nextOrNil) isNotNil ] whileTrue: [ nextInQueue value ] ] diff --git a/src/Bloc/BlParallelUniverseDeferredActionAddedSignal.class.st b/src/Bloc/BlParallelUniverseDeferredActionAddedSignal.class.st deleted file mode 100644 index e699598d5..000000000 --- a/src/Bloc/BlParallelUniverseDeferredActionAddedSignal.class.st +++ /dev/null @@ -1,24 +0,0 @@ -" -I am sent when a there was a deferred action added to the universe using `defer:` - -" -Class { - #name : #BlParallelUniverseDeferredActionAddedSignal, - #superclass : #BlParallelUniverseSignal, - #category : #'Bloc-Universe - Parallel' -} - -{ #category : #accessing } -BlParallelUniverseDeferredActionAddedSignal class >> isRepeatable [ - ^ true -] - -{ #category : #accessing } -BlParallelUniverseDeferredActionAddedSignal class >> label [ - ^ 'Add deferred action' -] - -{ #category : #accessing } -BlParallelUniverseDeferredActionAddedSignal class >> nextSignals [ - ^ { BlParallelUniverseHostStartRequestSignal . BlParallelUniverseTryToRunDeferredActionsSignal } -] diff --git a/src/Bloc/BlParallelUniverseErrorDuringPulse.class.st b/src/Bloc/BlParallelUniverseErrorDuringPulse.class.st index 4ff82a1db..ca228dd9e 100644 --- a/src/Bloc/BlParallelUniverseErrorDuringPulse.class.st +++ b/src/Bloc/BlParallelUniverseErrorDuringPulse.class.st @@ -4,8 +4,9 @@ I include in myself the signaledError. " Class { #name : #BlParallelUniverseErrorDuringPulse, - #superclass : #BlParallelUniverseSignal, + #superclass : #BeaconSignal, #instVars : [ + 'universeId', 'signaledError' ], #category : #'Bloc-Universe - Parallel' @@ -22,3 +23,13 @@ BlParallelUniverseErrorDuringPulse >> signaledError: anObject [ signaledError := anObject ] + +{ #category : #accessing } +BlParallelUniverseErrorDuringPulse >> universeId [ + ^ universeId +] + +{ #category : #accessing } +BlParallelUniverseErrorDuringPulse >> universeId: aNumber [ + universeId := aNumber +] diff --git a/src/Bloc/BlParallelUniverseHostSpaceCreatedSignal.class.st b/src/Bloc/BlParallelUniverseHostSpaceCreatedSignal.class.st deleted file mode 100644 index 8917d7052..000000000 --- a/src/Bloc/BlParallelUniverseHostSpaceCreatedSignal.class.st +++ /dev/null @@ -1,19 +0,0 @@ -" -Is sent after a host space was created and assigned to the space - -" -Class { - #name : #BlParallelUniverseHostSpaceCreatedSignal, - #superclass : #BlParallelUniverseSpaceSignal, - #category : #'Bloc-Universe - Parallel' -} - -{ #category : #accessing } -BlParallelUniverseHostSpaceCreatedSignal class >> label [ - ^ 'Create space host' -] - -{ #category : #accessing } -BlParallelUniverseHostSpaceCreatedSignal class >> nextSignals [ - ^ { BlParallelUniverseHostSpaceShownSignal } -] diff --git a/src/Bloc/BlParallelUniverseHostSpaceShownSignal.class.st b/src/Bloc/BlParallelUniverseHostSpaceShownSignal.class.st deleted file mode 100644 index 5b3597dcb..000000000 --- a/src/Bloc/BlParallelUniverseHostSpaceShownSignal.class.st +++ /dev/null @@ -1,19 +0,0 @@ -" -Is sent after a host space is shown - -" -Class { - #name : #BlParallelUniverseHostSpaceShownSignal, - #superclass : #BlParallelUniverseSpaceSignal, - #category : #'Bloc-Universe - Parallel' -} - -{ #category : #accessing } -BlParallelUniverseHostSpaceShownSignal class >> label [ - ^ 'Show space host' -] - -{ #category : #accessing } -BlParallelUniverseHostSpaceShownSignal class >> nextSignals [ - ^ { BlParallelUniverseSpaceRootAssignedSignal } -] diff --git a/src/Bloc/BlParallelUniverseHostStartRequestSignal.class.st b/src/Bloc/BlParallelUniverseHostStartRequestSignal.class.st deleted file mode 100644 index 6b4daef18..000000000 --- a/src/Bloc/BlParallelUniverseHostStartRequestSignal.class.st +++ /dev/null @@ -1,34 +0,0 @@ -" -I am sent when a universe requests a host to start - -" -Class { - #name : #BlParallelUniverseHostStartRequestSignal, - #superclass : #BlParallelUniverseSpaceSignal, - #instVars : [ - 'host' - ], - #category : #'Bloc-Universe - Parallel' -} - -{ #category : #accessing } -BlParallelUniverseHostStartRequestSignal class >> label [ - ^ 'Request host start' -] - -{ #category : #accessing } -BlParallelUniverseHostStartRequestSignal class >> nextSignals [ - ^ { BlParallelUniverseHostStartedSignal } -] - -{ #category : #accessing } -BlParallelUniverseHostStartRequestSignal >> host [ - - - ^ host -] - -{ #category : #accessing } -BlParallelUniverseHostStartRequestSignal >> host: aBlHostClass [ - host := aBlHostClass -] diff --git a/src/Bloc/BlParallelUniverseHostStartedSignal.class.st b/src/Bloc/BlParallelUniverseHostStartedSignal.class.st deleted file mode 100644 index fb74c37e4..000000000 --- a/src/Bloc/BlParallelUniverseHostStartedSignal.class.st +++ /dev/null @@ -1,45 +0,0 @@ -" -I am sent when a universe started a host - -" -Class { - #name : #BlParallelUniverseHostStartedSignal, - #superclass : #BlParallelUniverseSpaceSignal, - #instVars : [ - 'host', - 'isRunning' - ], - #category : #'Bloc-Universe - Parallel' -} - -{ #category : #accessing } -BlParallelUniverseHostStartedSignal class >> label [ - ^ 'Start host' -] - -{ #category : #accessing } -BlParallelUniverseHostStartedSignal class >> nextSignals [ - ^ { BlParallelUniverseTryToRunDeferredActionsSignal } -] - -{ #category : #accessing } -BlParallelUniverseHostStartedSignal >> host [ - - - ^ host -] - -{ #category : #accessing } -BlParallelUniverseHostStartedSignal >> host: aBlHostClass [ - host := aBlHostClass -] - -{ #category : #accessing } -BlParallelUniverseHostStartedSignal >> isRunning [ - ^ isRunning -] - -{ #category : #accessing } -BlParallelUniverseHostStartedSignal >> isRunning: anObject [ - isRunning := anObject -] diff --git a/src/Bloc/BlParallelUniverseOpenSpaceRequestSignal.class.st b/src/Bloc/BlParallelUniverseOpenSpaceRequestSignal.class.st deleted file mode 100644 index 6956ce8cb..000000000 --- a/src/Bloc/BlParallelUniverseOpenSpaceRequestSignal.class.st +++ /dev/null @@ -1,32 +0,0 @@ -" -Is signalled when someone requests a universe to open a space. - -" -Class { - #name : #BlParallelUniverseOpenSpaceRequestSignal, - #superclass : #BlParallelUniverseSpaceSignal, - #instVars : [ - 'isRunning' - ], - #category : #'Bloc-Universe - Parallel' -} - -{ #category : #accessing } -BlParallelUniverseOpenSpaceRequestSignal class >> label [ - ^ 'Request open space' -] - -{ #category : #accessing } -BlParallelUniverseOpenSpaceRequestSignal class >> nextSignals [ - ^ { BlParallelUniverseDeferredActionAddedSignal } -] - -{ #category : #accessing } -BlParallelUniverseOpenSpaceRequestSignal >> isRunning [ - ^ isRunning -] - -{ #category : #accessing } -BlParallelUniverseOpenSpaceRequestSignal >> isRunning: anObject [ - isRunning := anObject -] diff --git a/src/Bloc/BlParallelUniverseRunDeferredActionSignal.class.st b/src/Bloc/BlParallelUniverseRunDeferredActionSignal.class.st deleted file mode 100644 index 106148585..000000000 --- a/src/Bloc/BlParallelUniverseRunDeferredActionSignal.class.st +++ /dev/null @@ -1,24 +0,0 @@ -" -Is sent when a universe performed a deferred action - -" -Class { - #name : #BlParallelUniverseRunDeferredActionSignal, - #superclass : #BlParallelUniverseSignal, - #category : #'Bloc-Universe - Parallel' -} - -{ #category : #accessing } -BlParallelUniverseRunDeferredActionSignal class >> isRepeatable [ - ^ true -] - -{ #category : #accessing } -BlParallelUniverseRunDeferredActionSignal class >> label [ - ^ 'Run deferred action' -] - -{ #category : #accessing } -BlParallelUniverseRunDeferredActionSignal class >> nextSignals [ - ^ { BlParallelUniverseRunDeferredActionSignal . BlParallelUniverseSpaceAddedSignal } -] diff --git a/src/Bloc/BlParallelUniverseSignal.class.st b/src/Bloc/BlParallelUniverseSignal.class.st deleted file mode 100644 index d1af00756..000000000 --- a/src/Bloc/BlParallelUniverseSignal.class.st +++ /dev/null @@ -1,41 +0,0 @@ -Class { - #name : #BlParallelUniverseSignal, - #superclass : #BeaconSignal, - #instVars : [ - 'universeId' - ], - #category : #'Bloc-Universe - Parallel' -} - -{ #category : #testing } -BlParallelUniverseSignal class >> isAbstract [ - ^ self = BlParallelUniverseSignal -] - -{ #category : #accessing } -BlParallelUniverseSignal class >> isRepeatable [ - "Return true if this signal is expected to be emitted regularly" - - ^ false -] - -{ #category : #accessing } -BlParallelUniverseSignal class >> label [ - ^ self subclassResponsibility -] - -{ #category : #accessing } -BlParallelUniverseSignal class >> nextSignals [ - "Return a collection of possible signals after this one" - ^ #() -] - -{ #category : #accessing } -BlParallelUniverseSignal >> universeId [ - ^ universeId -] - -{ #category : #accessing } -BlParallelUniverseSignal >> universeId: aNumber [ - universeId := aNumber -] diff --git a/src/Bloc/BlParallelUniverseSpaceAddedSignal.class.st b/src/Bloc/BlParallelUniverseSpaceAddedSignal.class.st deleted file mode 100644 index b4e323c36..000000000 --- a/src/Bloc/BlParallelUniverseSpaceAddedSignal.class.st +++ /dev/null @@ -1,19 +0,0 @@ -" -Is sent when a space was added to the space manager in a universe - -" -Class { - #name : #BlParallelUniverseSpaceAddedSignal, - #superclass : #BlParallelUniverseSpaceSignal, - #category : #'Bloc-Universe - Parallel' -} - -{ #category : #accessing } -BlParallelUniverseSpaceAddedSignal class >> label [ - ^ 'Add space' -] - -{ #category : #accessing } -BlParallelUniverseSpaceAddedSignal class >> nextSignals [ - ^ { BlParallelUniverseHostSpaceCreatedSignal } -] diff --git a/src/Bloc/BlParallelUniverseSpaceDispatchAddedToSceneSignal.class.st b/src/Bloc/BlParallelUniverseSpaceDispatchAddedToSceneSignal.class.st deleted file mode 100644 index b3f1ea694..000000000 --- a/src/Bloc/BlParallelUniverseSpaceDispatchAddedToSceneSignal.class.st +++ /dev/null @@ -1,14 +0,0 @@ -" -Is sent after we let children know that they were added to the scene graph - -" -Class { - #name : #BlParallelUniverseSpaceDispatchAddedToSceneSignal, - #superclass : #BlParallelUniverseSpaceSignal, - #category : #'Bloc-Universe - Parallel' -} - -{ #category : #accessing } -BlParallelUniverseSpaceDispatchAddedToSceneSignal class >> label [ - ^ 'Dispatch added to scene graph' -] diff --git a/src/Bloc/BlParallelUniverseSpaceRootAssignedSignal.class.st b/src/Bloc/BlParallelUniverseSpaceRootAssignedSignal.class.st deleted file mode 100644 index 3e283ef4f..000000000 --- a/src/Bloc/BlParallelUniverseSpaceRootAssignedSignal.class.st +++ /dev/null @@ -1,19 +0,0 @@ -" -Is sent after a space is attached to the root - -" -Class { - #name : #BlParallelUniverseSpaceRootAssignedSignal, - #superclass : #BlParallelUniverseSpaceSignal, - #category : #'Bloc-Universe - Parallel' -} - -{ #category : #accessing } -BlParallelUniverseSpaceRootAssignedSignal class >> label [ - ^ 'Assign space to root element' -] - -{ #category : #accessing } -BlParallelUniverseSpaceRootAssignedSignal class >> nextSignals [ - ^ { BlParallelUniverseSpaceDispatchAddedToSceneSignal } -] diff --git a/src/Bloc/BlParallelUniverseSpaceSignal.class.st b/src/Bloc/BlParallelUniverseSpaceSignal.class.st deleted file mode 100644 index 0a1f00f0f..000000000 --- a/src/Bloc/BlParallelUniverseSpaceSignal.class.st +++ /dev/null @@ -1,25 +0,0 @@ -Class { - #name : #BlParallelUniverseSpaceSignal, - #superclass : #BlParallelUniverseSignal, - #instVars : [ - 'spaceId' - ], - #category : #'Bloc-Universe - Parallel' -} - -{ #category : #testing } -BlParallelUniverseSpaceSignal class >> isAbstract [ - ^ self = BlParallelUniverseSpaceSignal -] - -{ #category : #accessing } -BlParallelUniverseSpaceSignal >> spaceId [ - - - ^ spaceId -] - -{ #category : #accessing } -BlParallelUniverseSpaceSignal >> spaceId: aNumber [ - spaceId := aNumber -] diff --git a/src/Bloc/BlParallelUniverseTryToRunDeferredActionsSignal.class.st b/src/Bloc/BlParallelUniverseTryToRunDeferredActionsSignal.class.st deleted file mode 100644 index 2bc3931d6..000000000 --- a/src/Bloc/BlParallelUniverseTryToRunDeferredActionsSignal.class.st +++ /dev/null @@ -1,24 +0,0 @@ -" -Is sent when a universe tries to run deferred actions - -" -Class { - #name : #BlParallelUniverseTryToRunDeferredActionsSignal, - #superclass : #BlParallelUniverseSignal, - #category : #'Bloc-Universe - Parallel' -} - -{ #category : #accessing } -BlParallelUniverseTryToRunDeferredActionsSignal class >> isRepeatable [ - ^ true -] - -{ #category : #accessing } -BlParallelUniverseTryToRunDeferredActionsSignal class >> label [ - ^ 'Try to run deferred actions' -] - -{ #category : #accessing } -BlParallelUniverseTryToRunDeferredActionsSignal class >> nextSignals [ - ^ { BlParallelUniverseRunDeferredActionSignal } -] diff --git a/src/Bloc/BlSpaceFrameDrawingPhase.class.st b/src/Bloc/BlSpaceFrameDrawingPhase.class.st index dd0af8acf..a0b7e1cd4 100644 --- a/src/Bloc/BlSpaceFrameDrawingPhase.class.st +++ b/src/Bloc/BlSpaceFrameDrawingPhase.class.st @@ -16,7 +16,8 @@ BlSpaceFrameDrawingPhase >> name [ { #category : #actions } BlSpaceFrameDrawingPhase >> runOn: aSpace [ + aSpace dispatchTimeEvent: BlSpaceRenderEndEvent - during: [ :theSpace | BlSpaceRenderSignal for: theSpace block: [ theSpace render ] ] + during: [ :theSpace | theSpace render ] ] diff --git a/src/Bloc/BlSpaceRenderSignal.class.st b/src/Bloc/BlSpaceRenderSignal.class.st deleted file mode 100644 index 52c7a158e..000000000 --- a/src/Bloc/BlSpaceRenderSignal.class.st +++ /dev/null @@ -1,127 +0,0 @@ -" -BlSpaceRenderSignal is used to record the start and end times of space rendering. These can then be analysed and spaces that are slow, and thus are significantly impacting the frame rate, identified. - - -Public API and Key Messages - -- message one -- message two -- (for bonus points) how to create instances. - - One simple example is simply gorgeous. - -Internal Representation and Key Implementation Points. - - Instance Variables - space: - - - Implementation Points - -" -Class { - #name : #BlSpaceRenderSignal, - #superclass : #BeaconSignal, - #instVars : [ - 'space', - 'action' - ], - #classVars : [ - 'Ignore' - ], - #category : #'Bloc-Space - Support' -} - -{ #category : #filtering } -BlSpaceRenderSignal class >> dontIgnore [ - - Ignore := false. -] - -{ #category : #'instance creation' } -BlSpaceRenderSignal class >> endSpace: aSpace [ - - ^self new - space: aSpace; - action: #end; - emit -] - -{ #category : #'instance creation' } -BlSpaceRenderSignal class >> for: aSpace block: aBlock [ - - Ignore == false ifFalse: - [ ^aBlock value ]. - self startSpace: aSpace. - aBlock value. - self endSpace: aSpace. -] - -{ #category : #filtering } -BlSpaceRenderSignal class >> ignore [ - "Don't emit the signal" - - Ignore := true. -] - -{ #category : #'instance creation' } -BlSpaceRenderSignal class >> startSpace: aSpace [ - - ^self new - space: aSpace; - action: #start; - emit -] - -{ #category : #accessing } -BlSpaceRenderSignal >> action [ - ^ action -] - -{ #category : #accessing } -BlSpaceRenderSignal >> action: anObject [ - action := anObject -] - -{ #category : #'ston persistence' } -BlSpaceRenderSignal >> asDictionary [ - - | spaceSton | - - spaceSton := String streamContents: [ :stream | - stream - print: space identityHash; - << '-'; - print: space ]. - ^super asDictionary - at: #space put: spaceSton; - at: #action put: action; - yourself. -] - -{ #category : #printing } -BlSpaceRenderSignal >> printOneLineContentsOn: stream [ - - stream - print: action; - << ': '; - print: space. - -] - -{ #category : #accessing } -BlSpaceRenderSignal >> space [ - ^ space -] - -{ #category : #accessing } -BlSpaceRenderSignal >> space: anObject [ - space := anObject -] - -{ #category : #accessing } -BlSpaceRenderSignal >> target [ - "Answer the object that is the target of this signal" - - ^space -] diff --git a/src/Bloc/BlTaskAtErrorSignal.class.st b/src/Bloc/BlTaskAtErrorSignal.class.st deleted file mode 100644 index 789343dc5..000000000 --- a/src/Bloc/BlTaskAtErrorSignal.class.st +++ /dev/null @@ -1,56 +0,0 @@ -" -BlTaskAtErrorSignal is used when BlTaskAtQueue encounters an error during execution. - -- If the error occurs while evaluating a task the task is set. -- In all cases a message and the exception is set. - -## Internal Representation and Key Implementation Points. - -### Instance Variables - - exception: the exception encountered during execution - message: a message about where the error was encountered - task: the task being evaluated when the error was encountered - - -" -Class { - #name : #BlTaskAtErrorSignal, - #superclass : #BeaconSignal, - #instVars : [ - 'exception', - 'message', - 'task' - ], - #category : #'Bloc-Space - Tasks' -} - -{ #category : #accessing } -BlTaskAtErrorSignal >> exception [ - ^ exception -] - -{ #category : #accessing } -BlTaskAtErrorSignal >> exception: anObject [ - exception := anObject -] - -{ #category : #accessing } -BlTaskAtErrorSignal >> message [ - ^ message -] - -{ #category : #accessing } -BlTaskAtErrorSignal >> message: anObject [ - message := anObject -] - -{ #category : #accessing } -BlTaskAtErrorSignal >> task [ - ^ task -] - -{ #category : #accessing } -BlTaskAtErrorSignal >> task: anObject [ - task := anObject -] diff --git a/src/BlocHost-OSWindow/BlOSWindowCreatedSignal.class.st b/src/BlocHost-OSWindow/BlOSWindowCreatedSignal.class.st deleted file mode 100644 index f8a2eab91..000000000 --- a/src/BlocHost-OSWindow/BlOSWindowCreatedSignal.class.st +++ /dev/null @@ -1,18 +0,0 @@ -Class { - #name : #BlOSWindowCreatedSignal, - #superclass : #BeaconSignal, - #instVars : [ - 'window' - ], - #category : #'BlocHost-OSWindow-Signal' -} - -{ #category : #accessing } -BlOSWindowCreatedSignal >> window [ - ^ window -] - -{ #category : #accessing } -BlOSWindowCreatedSignal >> window: anObject [ - window := anObject -] diff --git a/src/BlocHost-OSWindow/BlOSWindowDestroyedSignal.class.st b/src/BlocHost-OSWindow/BlOSWindowDestroyedSignal.class.st deleted file mode 100644 index 8e1036fbc..000000000 --- a/src/BlocHost-OSWindow/BlOSWindowDestroyedSignal.class.st +++ /dev/null @@ -1,18 +0,0 @@ -Class { - #name : #BlOSWindowDestroyedSignal, - #superclass : #BeaconSignal, - #instVars : [ - 'window' - ], - #category : #'BlocHost-OSWindow-Signal' -} - -{ #category : #accessing } -BlOSWindowDestroyedSignal >> window [ - ^ window -] - -{ #category : #accessing } -BlOSWindowDestroyedSignal >> window: anObject [ - window := anObject -] diff --git a/src/BlocHost-OSWindow/BlOSWindowHostSpace.class.st b/src/BlocHost-OSWindow/BlOSWindowHostSpace.class.st index a5d48a6b3..2684d3407 100644 --- a/src/BlocHost-OSWindow/BlOSWindowHostSpace.class.st +++ b/src/BlocHost-OSWindow/BlOSWindowHostSpace.class.st @@ -27,11 +27,8 @@ BlOSWindowHostSpace >> center [ { #category : #'host space - displaying' } BlOSWindowHostSpace >> close [ - - self isValid - ifTrue: [ window destroy ]. - - (BlOSWindowDestroyedSignal new window: window) emit. + + self isValid ifTrue: [ window destroy ]. window := nil ] @@ -104,9 +101,7 @@ BlOSWindowHostSpace >> initializeWithAttributes: initialAttributes [ eventHandler: ((BlOSWindowEventHandler window: self) keyboardKeyTable: keyboardKeyTable). window startTextInput. - window newBlocRenderer. - - (BlOSWindowCreatedSignal new window: window) emit + window newBlocRenderer ] { #category : #'window - properties' }