hg/stx-libview: comparison WindowGroup.st

equal deleted inserted replaced

-:358644786358
+:a0002dc34d0a
 "wait-for and process events.
 Stay in this loop while there are still any views to dispatch for,
 and aBlock evaluates to true.
 Some signals are caught & handled:
-	LeaveSignal forces an exit from the eventLoop;
+LeaveSignal forces an exit from the eventLoop;
-	AbortSignal brings us back into the loop, processing the next event;
+AbortSignal brings us back into the loop, processing the next event;
-	ActivityNotifications send a #showActivity: if nonModal,
+ActivityNotifications send a #showActivity: if nonModal,
-	otherwise they are ignored."
+otherwise they are ignored."
 |thisProcess sigs mainSema prevSema|
 thisProcess := Processor activeProcess.
 sigs := SignalSet
-		with:AbortSignal
+with:AbortSignal
-		with:LeaveSignal
+with:LeaveSignal
-		with:(self class activityNotificationSignal).
+with:(self class activityNotificationSignal).
 [
-	|p g s mainGroup mySema waitSema groupForSema|
+|p g s mainGroup mySema waitSema groupForSema|
-	waitSema := mySema := mySensor eventSemaphore.
+waitSema := mySema := mySensor eventSemaphore.
-	isModal ifTrue:[
+isModal ifTrue:[
-	    mainGroup := self mainGroup.
+mainGroup := self mainGroup.
-	    mainGroup == self ifTrue:[
+mainGroup == self ifTrue:[
-		mainGroup := nil
+mainGroup := nil
-	    ].
+].
-	] ifFalse:[
+] ifFalse:[
-	    mainGroup := previousGroup
+mainGroup := previousGroup
-	].
+].
-	mainGroup notNil ifTrue:[
+mainGroup notNil ifTrue:[
-	    mainSema := mainGroup sensor eventSemaphore.
+mainSema := mainGroup sensor eventSemaphore.
-	    waitSema := SemaphoreSet with:mySema with:mainSema.
+waitSema := SemaphoreSet with:mySema with:mainSema.
-	    "/ must also care for all other groups in between
+"/ must also care for all other groups in between
-	    "/ (in case its a modal dialog opened from a modal dialog)
+"/ (in case its a modal dialog opened from a modal dialog)
-	    g := previousGroup.
+g := previousGroup.
-	    g ~~ mainGroup ifTrue:[
+g ~~ mainGroup ifTrue:[
-		groupForSema := IdentityDictionary new.
+groupForSema := IdentityDictionary new.
-		[g ~~ mainGroup] whileTrue:[
+[g ~~ mainGroup] whileTrue:[
-		    s := g sensor eventSemaphore.
+s := g sensor eventSemaphore.
-		    waitSema add:s.
+waitSema add:s.
-		    groupForSema at:s put:g.
+groupForSema at:s put:g.
-		    g := g previousGroup.
+g := g previousGroup.
-		]
+]
-	    ].
+].
-	].
+].
-	[aBlock value] whileTrue:[
+[aBlock value] whileTrue:[
-	    LastActiveGroup := self.
+LastActiveGroup := self.
-	    LastActiveProcess := thisProcess.
+LastActiveProcess := thisProcess.
-	    (views isNil and:[topViews isNil]) ifTrue:[
+(views isNil and:[topViews isNil]) ifTrue:[
-		myProcess notNil ifTrue:[
+myProcess notNil ifTrue:[
-		    p := myProcess.
+p := myProcess.
-		    myProcess := nil.
+myProcess := nil.
-		    p terminate.
+p terminate.
-		    "not reached - there is no life after death"
+"not reached - there is no life after death"
-		].
+].
-		"
+"
-		 this is the end of a modal loop
+this is the end of a modal loop
-		 (not having a private process ...)
+(not having a private process ...)
-		"
+"
-		^ self
+^ self
-	    ].
+].
-	    sigs handle:[:ex |
+sigs handle:[:ex |
-		|theSig|
+|theSig|
-		(theSig := ex signal) == AbortSignal ifTrue:[
+(theSig := ex signal) == AbortSignal ifTrue:[
-		    "/
+"/
-		    "/ on abort, stay in loop
+"/ on abort, stay in loop
-		    "/
+"/
-		    ex return
+ex return
-		].
+].
-		theSig == LeaveSignal ifTrue:[
+theSig == LeaveSignal ifTrue:[
-		    "/
+"/
-		    "/ on leave, exit the event loop
+"/ on leave, exit the event loop
-		    "/
+"/
-		    ^ self
+^ self
-		].
+].
-		"/ ActivityNotification
+"/ ActivityNotification
-		"/
+"/
-		"/ if I am a modal-group, let it be handled
+"/ if I am a modal-group, let it be handled
-		"/ by the outer main-groups handler
+"/ by the outer main-groups handler
-		"/ otherwise show the activityMessage and continue.
+"/ otherwise show the activityMessage and continue.
-		"/
+"/
-		isModal ifTrue:[
+isModal ifTrue:[
-		    ex reject
+ex reject
-		    "never reached"
+"never reached"
-		].
+].
-		self showActivity:(ex errorString).
+self showActivity:(ex errorString).
-		ex proceed.
+ex proceed.
-	    ] do:[
+] do:[
-		|dev gotSema mainView|
+|dev gotSema mainView|
-		"/ Flush device output before going to sleep.
+"/ Flush device output before going to sleep.
-		"/ This may produce more events to arrive.
+"/ This may produce more events to arrive.
-		"/ Q: is this still needed (see suspendAction) ?
+"/ Q: is this still needed (see suspendAction) ?
 "/                dev := self graphicsDevice.
 "/                dev notNil ifTrue:[dev flush].
-		"/ now, wait for an event to arrive
+(mainGroup notNil or:[mySensor hasEvents not]) ifTrue:[
-		thisProcess setStateTo:#eventWait if:#active.
+"/ now, wait for an event to arrive
-		waitSema isNil ifTrue:[
+thisProcess setStateTo:#eventWait if:#active.
-		    "/ oops - how can this happen ....
+waitSema isNil ifTrue:[
-		    ^ self.
+"/ oops - how can this happen ....
-		].
+^ self.
-		gotSema := waitSema wait.
+].
-		LastActiveGroup := self.
+gotSema := waitSema wait.
-		LastActiveProcess := thisProcess.
+] ifFalse:[
+gotSema := mySema
-		"/ some bad guy ;-) could have closed all down
+].
-		"/ in the meanwhile ...
+LastActiveGroup := self.
+LastActiveProcess := thisProcess.
-		mySensor notNil ifTrue:[
-		    gotSema == mySema ifTrue:[
+"/ some bad guy ;-) could have closed all down
-			"/
+"/ in the meanwhile ...
-			"/ an event for me
-			"/
+mySensor notNil ifTrue:[
-			self processEventsWithModalGroup:nil
+gotSema == mySema ifTrue:[
-		    ] ifFalse:[
+"/
-			groupForSema notNil ifTrue:[
+"/ an event for me
-			    g := groupForSema at:gotSema ifAbsent:nil.
+"/
-			    g := g ? mainGroup.
+self processEventsWithModalGroup:nil
-			] ifFalse:[
+] ifFalse:[
-			    g := mainGroup
+groupForSema notNil ifTrue:[
-			].
+g := groupForSema at:gotSema ifAbsent:nil.
+g := g ? mainGroup.
-			"/
+] ifFalse:[
-			"/ an event for my mainGroup
+g := mainGroup
-			"/
+].
-			g topViews notNil ifTrue:[
-			    mainView := g topViews first
+"/
-			].
+"/ an event for my mainGroup
-			mainView notNil ifTrue:[
+"/
-			    "/
+g topViews notNil ifTrue:[
-			    "/ if anything happened to the mainGroup
+mainView := g topViews first
-			    "/ bring my own topView back to the front
+].
-			    "/ This keeps modalBoxes visible
+mainView notNil ifTrue:[
-			    "/
+"/
-			    (g sensor hasConfigureEventFor:mainView) ifTrue:[
+"/ if anything happened to the mainGroup
-				topViews size > 0 ifTrue:[
+"/ bring my own topView back to the front
-				    topViews first raiseDeiconified
+"/ This keeps modalBoxes visible
-				]
+"/
-			    ]
+(g sensor hasConfigureEventFor:mainView) ifTrue:[
-			].
+topViews size > 0 ifTrue:[
-			"
+topViews first raiseDeiconified
-			 if modal, also check for redraw events in my maingroup
+]
-			 (we arrive here after we woke up on maingroup sensor eventSemaphore)
+]
-			"
+].
-			g processEventsWithModalGroup:self.
+"
-		    ]
+if modal, also check for redraw events in my maingroup
-		]
+(we arrive here after we woke up on maingroup sensor eventSemaphore)
-	    ].
+"
-	].
+g processEventsWithModalGroup:self.
+]
+]
+].
+].
 ] valueNowOrOnUnwindDo:[
-	"/
+"/
-	"/ perform any cleanupActions
+"/ perform any cleanupActions
-	"/
+"/
-	cleanupActions notNil ifTrue:[cleanupActions value]
+cleanupActions notNil ifTrue:[cleanupActions value]
 ]
 "Modified: / 14.12.1995 / 11:12:24 / stefan"
-"Modified: / 4.8.1998 / 18:17:59 / cg"
+"Modified: / 5.2.1999 / 22:32:07 / cg"
 !
 leaveEventLoop
 "immediately leave the event loop, returning way back.
 This can be used to leave (and closedown) a modal group.
 LastEventQuerySignal handle:[:ex |
 ex proceedWith:event
 ] do:[
 (preEventHook notNil
 and:[preEventHook processEvent:event]) ifFalse:[
-event isDamage ifTrue:[
+"/
-"/
+"/ if the view is no longer shown (iconified or closed),
-"/ if the view is no longer shown (iconified or closed),
+"/ this is a leftover event and ignored.
-"/ this is a leftover event and ignored.
+"/
-"/
+"/ could this ever be a non-damage ?
-view shown ifTrue:[
+"/
-LastActiveGroup := self.
+(view shown or:[event isDamage not]) ifTrue:[
-LastActiveProcess := thisProcess.
-view
-dispatchEvent:(event type)
-arguments:(event arguments)
-withFocusOn:nil
-delegate:true
-"/                            ] ifFalse:[
-"/                                ('WGROUP: damage for ' , view displayString , ' ignored') infoPrintCR.
-]
-] ifFalse:[
-"
-mhmh - could we possibly arrive here ?
-"
 LastActiveGroup := self.
 LastActiveProcess := thisProcess.
-"/ event sendEventWithFocusOn:nil.
 view
 dispatchEvent:(event type)
 arguments:(event arguments)
 withFocusOn:nil
 delegate:true
-]
+].
 ]
 ].
 postEventHook notNil ifTrue:[
 postEventHook processEvent:event
 ]
 ]
 ]
 ]
 "Created: / 3.12.1998 / 14:01:39 / cg"
-"Modified: / 3.12.1998 / 13:42:10 / cg"
+"Modified: / 5.2.1999 / 22:26:44 / cg"
 !
 processRealExposeEvents
 "process only expose events from the damage queue
 (for any of my views).
 ! !
 !WindowGroup class methodsFor:'documentation'!
 version
-^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.148 1999-02-04 23:14:52 cg Exp $'
+^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.149 1999-02-08 14:24:11 cg Exp $'
 ! !
 WindowGroup initialize!

changeset 2440	a0002dc34d0a
parent 2438	618503d1c7f6
child 2444	6b4c26e1949c