hg/stx-libview: comparison WGroup.st

equal deleted inserted replaced

-:e391d80efdb5
+:e456e5040a57
 Processor isNil ifTrue:[^ nil]. "/ only during very early init phase
 activeProcess := Processor activeProcess.
 " caching the last value ..."
 activeProcess == LastActiveProcess ifTrue:[
-LastActiveGroup process == LastActiveProcess ifTrue:[
+	LastActiveGroup process == LastActiveProcess ifTrue:[
-^ LastActiveGroup
+	    ^ LastActiveGroup
-]
+	]
 ].
 wg := WindowGroupQuerySignal raise.
 wg isNil ifTrue:[
-"/ mhmh - noone willing to answer that question ...
+	"/ mhmh - noone willing to answer that question ...
-"/ (how can this happen ?)
+	"/ (how can this happen ?)
-groups := self scheduledWindowGroups
+	groups := self scheduledWindowGroups
-select:[:wg | wg process == activeProcess].
+		    select:[:wg | wg process == activeProcess].
-groups size == 1 ifTrue:[
+	groups size == 1 ifTrue:[
-wg := groups anElement
+	    wg := groups anElement
-] ifFalse:[
+	] ifFalse:[
-wg := groups detect:[:wg | wg isModal] ifNone:nil.
+	    wg := groups detect:[:wg | wg isModal] ifNone:nil.
-wg isNil ifTrue:[
+	    wg isNil ifTrue:[
-wg := groups anElement
+		wg := groups anElement
-]
+	    ]
-].
+	].
 ].
 wg notNil ifTrue:[
-LastActiveProcess := activeProcess.
+	LastActiveProcess := activeProcess.
-LastActiveGroup := wg.
+	LastActiveGroup := wg.
 ].
 ^ wg
 "
 WindowGroup activeGroup
 "return the device, we receive our events from"
 |dev|
 topViews notNil ifTrue:[
-topViews do:[:v |
+	topViews do:[:v |
-|app|
+	    |app|
-(app := v application) notNil ifTrue:[
+	    (app := v application) notNil ifTrue:[
-"/
+		"/
-"/ ok, it has an application;
+		"/ ok, it has an application;
-"/ ask it for preferences.
+		"/ ask it for preferences.
-"/
+		"/
-(dev := app graphicsDevice) notNil ifTrue:[
+		(dev := app graphicsDevice) notNil ifTrue:[
-^ dev
+		    ^ dev
-]
+		]
-].
+	    ].
-(dev := v graphicsDevice) notNil ifTrue:[
+	    (dev := v graphicsDevice) notNil ifTrue:[
-^ dev
+		^ dev
-]
+	    ]
-]
+	]
 ].
 views notNil ifTrue:[
-views do:[:v |
+	views do:[:v |
-(dev := v graphicsDevice) notNil ifTrue:[
+	    (dev := v graphicsDevice) notNil ifTrue:[
-^ dev
+		^ dev
-]
+	    ]
-]
+	]
 ].
 "/ ask the previousGroup; I could be a popUp-views group,
 "/ which has already closed its views (and is performing its action)
 previousGroup notNil ifTrue:[
-^ previousGroup graphicsDevice
+	^ previousGroup graphicsDevice
 ].
 ^ nil
 "Modified: / 9.7.1998 / 18:18:08 / cg"
 !
 process
 "return the windowGroups process"
 myProcess isNil ifTrue:[
-previousGroup notNil ifTrue:[
+	previousGroup notNil ifTrue:[
-^ previousGroup process
+	    ^ previousGroup process
-]
+	]
 ].
 ^ myProcess
 "Modified: / 17.8.1998 / 10:21:29 / cg"
 !
 "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
+		"/ now, wait for an event to arrive
-thisProcess setStateTo:#eventWait if:#active.
+		thisProcess setStateTo:#eventWait if:#active.
-waitSema isNil ifTrue:[
+		waitSema isNil ifTrue:[
-"/ oops - how can this happen ....
+		    "/ oops - how can this happen ....
-^ self.
+		    ^ self.
-].
+		].
-gotSema := waitSema wait.
+		gotSema := waitSema wait.
-LastActiveGroup := self.
+		LastActiveGroup := self.
-LastActiveProcess := thisProcess.
+		LastActiveProcess := thisProcess.
-"/ some bad guy ;-) could have closed all down
+		"/ some bad guy ;-) could have closed all down
-"/ in the meanwhile ...
+		"/ in the meanwhile ...
-mySensor notNil ifTrue:[
+		mySensor notNil ifTrue:[
-gotSema == mySema ifTrue:[
+		    gotSema == mySema ifTrue:[
-"/
+			"/
-"/ an event for me
+			"/ an event for me
-"/
+			"/
-self processEventsWithModalGroup:nil
+			self processEventsWithModalGroup:nil
-] ifFalse:[
+		    ] ifFalse:[
-groupForSema notNil ifTrue:[
+			groupForSema notNil ifTrue:[
-g := groupForSema at:gotSema ifAbsent:nil.
+			    g := groupForSema at:gotSema ifAbsent:nil.
-g := g ? mainGroup.
+			    g := g ? mainGroup.
-] ifFalse:[
+			] ifFalse:[
-g := mainGroup
+			    g := mainGroup
-].
+			].
-"/
+			"/
-"/ an event for my mainGroup
+			"/ an event for my mainGroup
-"/
+			"/
-g topViews notNil ifTrue:[
+			g topViews notNil ifTrue:[
-mainView := g topViews first
+			    mainView := g topViews first
-].
+			].
-mainView notNil ifTrue:[
+			mainView notNil ifTrue:[
-"/
+			    "/
-"/ if anything happened to the mainGroup
+			    "/ if anything happened to the mainGroup
-"/ bring my own topView back to the front
+			    "/ bring my own topView back to the front
-"/ This keeps modalBoxes visible
+			    "/ This keeps modalBoxes visible
-"/
+			    "/
-(g sensor hasConfigureEventFor:mainView) ifTrue:[
+			    (g sensor hasConfigureEventFor:mainView) ifTrue:[
-topViews size > 0 ifTrue:[
+				topViews size > 0 ifTrue:[
-topViews first raiseDeiconified
+				    topViews first raiseDeiconified
-]
+				]
-]
+			    ]
-].
+			].
-"
+			"
-if modal, also check for redraw events in my maingroup
+			 if modal, also check for redraw events in my maingroup
-(we arrive here after we woke up on maingroup sensor eventSemaphore)
+			 (we arrive here after we woke up on maingroup sensor eventSemaphore)
-"
+			"
-g processEventsWithModalGroup:self.
+			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"
 !
 self processExposeEvents.
 [mySensor notNil
 and:[(event := mySensor nextEvent) notNil]] whileTrue:[
-ignore := false.
+	ignore := false.
-focus := focusView.
+	focus := focusView.
-modalDelegate := false.
+	modalDelegate := false.
-modalGroup notNil ifTrue:[
+	modalGroup notNil ifTrue:[
-"/ an incoming event for a masterView,
+	    "/ an incoming event for a masterView,
-"/ while being blocked by some other modalView.
+	    "/ while being blocked by some other modalView.
-modalTops := modalGroup topViews.
+	    modalTops := modalGroup topViews.
-modalTops size > 0 ifTrue:[
+	    modalTops size > 0 ifTrue:[
-modalTop := modalTops first.
+		modalTop := modalTops first.
-].
+	    ].
-event isKeyEvent ifTrue:[
+	    event isKeyEvent ifTrue:[
-"/ forward keyboard events to my modal
+		"/ forward keyboard events to my modal
-"/ groups first topView ...
+		"/ groups first topView ...
-modalTop notNil ifTrue:[
+		modalTop notNil ifTrue:[
-focus := modalTop.
+		    focus := modalTop.
-modalDelegate := true.
+		    modalDelegate := true.
-]
+		]
-] ifFalse:[
+	    ] ifFalse:[
-event isFocusEvent ifTrue:[
+		event isFocusEvent ifTrue:[
-event isFocusInEvent ifTrue:[
+		    event isFocusInEvent ifTrue:[
-"/ focusIn is forwarded to the modalGroup
+			"/ focusIn is forwarded to the modalGroup
-"/ (since keyboard is forwarded)
+			"/ (since keyboard is forwarded)
-event view:modalTop.
+			event view:modalTop.
-focus := modalTop.
+			focus := modalTop.
-] ifFalse:[
+		    ] ifFalse:[
-"/ focusOut goes to both the modal and
+			"/ focusOut goes to both the modal and
-"/ the blocked main-group
+			"/ the blocked main-group
-"/ (actually, only the very first focusOut
+			"/ (actually, only the very first focusOut
-"/  is needed in the mainGroup (to turn off the cursor)
+			"/  is needed in the mainGroup (to turn off the cursor)
-"/  all others are only needed in the modalGroup)
+			"/  all others are only needed in the modalGroup)
 "/                            syntheticEvent := event copy.
 "/                            syntheticEvent view:modalTop.
 "/                            LastEventQuerySignal handle:[:ex |
 "/                                ex proceedWith:syntheticEvent
 "/                            ] do:[
 "/                                syntheticEvent sendEventWithFocusOn:nil.
 "/                            ].
-event view:modalTop.
+			event view:modalTop.
-].
+		    ].
-modalDelegate := true.
+		    modalDelegate := true.
-] ifFalse:[
+		] ifFalse:[
-event isPointerLeaveEvent ifTrue:[
+		    event isPointerLeaveEvent ifTrue:[
-] ifFalse:[
+		    ] ifFalse:[
-event isUserEvent ifTrue:[
+			event isUserEvent ifTrue:[
-ignore := true
+			    ignore := true
-]
+			]
-]
+		    ]
-]
+		]
-]
+	    ]
-].
+	].
-ignore ifFalse:[
+	ignore ifFalse:[
-(views notNil or:[topViews notNil]) ifTrue:[
+	    (views notNil or:[topViews notNil]) ifTrue:[
-LastEventQuerySignal handle:[:ex |
+		LastEventQuerySignal handle:[:ex |
-ex proceedWith:event
+		    ex proceedWith:event
-] do:[
+		] do:[
-(preEventHook  notNil
+		    (preEventHook  notNil
-and:[preEventHook processEvent:event]) ifTrue:[
+		    and:[preEventHook processEvent:event]) ifTrue:[
-ignore := true.
+			ignore := true.
-].
+		    ].
-ignore ifFalse:[
+		    ignore ifFalse:[
-evView := event view.
+			evView := event view.
-event isKeyPressEvent ifTrue:[
+			event isKeyPressEvent ifTrue:[
-key := event key.
+			    key := event key.
-key == #Escape ifTrue:[
+			    key == #Escape ifTrue:[
-modalDelegate ifTrue:[
+				modalDelegate ifTrue:[
-modalTop hideRequest
+				    modalTop hideRequest
-] ifFalse:[
+				] ifFalse:[
-isModal ifTrue:[
+				    isModal ifTrue:[
-topViews first hideRequest
+					topViews first hideRequest
-]
+				    ]
-]
+				]
-]
+			    ]
-] ifFalse:[
+			] ifFalse:[
-"/
+			    "/
-"/ keep track of which view has the pointer
+			    "/ keep track of which view has the pointer
-"/
+			    "/
-event isPointerEnterEvent ifTrue:[
+			    event isPointerEnterEvent ifTrue:[
-pointerView := evView
+				pointerView := evView
-] ifFalse:[
+			    ] ifFalse:[
-event isPointerLeaveEvent ifTrue:[
+				event isPointerLeaveEvent ifTrue:[
-pointerView := nil
+				    pointerView := nil
-]
+				]
-]
+			    ]
-].
+			].
-"/
+			"/
-"/  buttonPress events turn off explicit focus, and revert
+			"/  buttonPress events turn off explicit focus, and revert
-"/  to implicit focus control
+			"/  to implicit focus control
-"/
+			"/
-(focusView notNil
+			(focusView notNil
-and:[event isButtonPressEvent]) ifTrue:[
+			and:[event isButtonPressEvent]) ifTrue:[
-self focusView:nil
+			    self focusView:nil
-].
+			].
-LastActiveGroup := self.
+			LastActiveGroup := self.
-LastActiveProcess := Processor activeProcess.
+			LastActiveProcess := Processor activeProcess.
-"
+			"
-if there is no view information in the event,
+			 if there is no view information in the event,
-it must have been sent directly to the sensor.
+			 it must have been sent directly to the sensor.
-Send it to the first topView.
+			 Send it to the first topView.
-"
+			"
-evType := event type.
+			evType := event type.
-evArgs := event arguments.
+			evArgs := event arguments.
-evView isNil ifTrue:[
+			evView isNil ifTrue:[
-(firstTop := topViews first) notNil ifTrue:[
+			    (firstTop := topViews first) notNil ifTrue:[
-firstTop perform:evType withArguments:evArgs
+				firstTop perform:evType withArguments:evArgs
-]
+			    ]
-] ifFalse:[
+			] ifFalse:[
-evView
+			    evView
-dispatchEvent:evType
+				dispatchEvent:evType
-arguments:evArgs
+				arguments:evArgs
-withFocusOn:focus
+				withFocusOn:focus
-delegate:true
+				delegate:true
-]
+			]
-].
+		    ].
-postEventHook notNil ifTrue:[
+		    postEventHook notNil ifTrue:[
-postEventHook processEvent:event
+			postEventHook processEvent:event
-].
+		    ].
-]
+		]
-]
+	    ]
-].
+	].
 ]
 "Created: / 5.3.1997 / 11:33:11 / cg"
 "Modified: / 4.8.1998 / 18:18:55 / cg"
 !
 |event view rect x y w h sensor thisProcess|
 (sensor := mySensor) isNil ifTrue:[^ self].
 (sensor damageCount ~~ 0) ifTrue:[
-thisProcess := Processor activeProcess.
+	thisProcess := Processor activeProcess.
-[(event := sensor nextDamage) notNil] whileTrue:[
+	[(event := sensor nextDamage) notNil] whileTrue:[
-LastActiveGroup := self.
+	    LastActiveGroup := self.
-LastActiveProcess := thisProcess.
+	    LastActiveProcess := thisProcess.
-(views notNil or:[topViews notNil]) ifTrue:[
+	    (views notNil or:[topViews notNil]) ifTrue:[
-LastEventQuerySignal handle:[:ex |
+		LastEventQuerySignal handle:[:ex |
-ex proceedWith:event
+		    ex proceedWith:event
-] do:[
+		] do:[
-(preEventHook notNil
+		    (preEventHook notNil
-and:[preEventHook processEvent:event]) ifFalse:[
+		    and:[preEventHook processEvent:event]) ifFalse:[
-view := event view.
+			view := event view.
-event isDamage ifTrue:[
+			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.
-"/
+			    "/
-view shown ifTrue:[
+			    view shown ifTrue:[
-LastActiveGroup := self.
+				LastActiveGroup := self.
-LastActiveProcess := thisProcess.
+				LastActiveProcess := thisProcess.
-view
+				view
-dispatchEvent:(event type)
+				    dispatchEvent:(event type)
-arguments:(event arguments)
+				    arguments:(event arguments)
-withFocusOn:nil
+				    withFocusOn:nil
-delegate:true
+				    delegate:true
 "/                            ] ifFalse:[
 "/                                ('WGROUP: damage for ' , view displayString , ' ignored') infoPrintCR.
-]
+			    ]
-] ifFalse:[
+			] ifFalse:[
-"
+			    "
-mhmh - could we possibly arrive here ?
+			     mhmh - could we possibly arrive here ?
-"
+			    "
-LastActiveGroup := self.
+			    LastActiveGroup := self.
-LastActiveProcess := thisProcess.
+			    LastActiveProcess := thisProcess.
-"/ event sendEventWithFocusOn:nil.
+			    "/ event sendEventWithFocusOn:nil.
-view
+			    view
-dispatchEvent:(event type)
+				dispatchEvent:(event type)
-arguments:(event arguments)
+				arguments:(event arguments)
-withFocusOn:nil
+				withFocusOn:nil
-delegate:true
+				delegate:true
-]
+			]
-].
+		    ].
-postEventHook notNil ifTrue:[
+		    postEventHook notNil ifTrue:[
-postEventHook processEvent:event
+			postEventHook processEvent:event
-]
+		    ]
-]
+		]
-]
+	    ]
-]
+	]
 ]
 "Modified: / 17.6.1998 / 09:09:48 / cg"
 !
 sensor damageCount == 0 ifTrue:[^ self].
 thisProcess := Processor activeProcess.
 [true] whileTrue:[
-LastActiveGroup := self.
+	LastActiveGroup := self.
-LastActiveProcess := thisProcess.
+	LastActiveProcess := thisProcess.
-"/ event := aView nextDamage.
+	"/ event := aView nextDamage.
-event := sensor nextExposeEventFor:someViewOrNil.
+	event := sensor nextExposeEventFor:someViewOrNil.
-event isNil ifTrue:[^ self].
+	event isNil ifTrue:[^ self].
-(views notNil or:[topViews notNil]) ifTrue:[
+	(views notNil or:[topViews notNil]) ifTrue:[
-LastEventQuerySignal handle:[:ex |
+	    LastEventQuerySignal handle:[:ex |
-ex proceedWith:event
+		ex proceedWith:event
-] do:[
+	    ] do:[
-(preEventHook notNil
+		(preEventHook notNil
-and:[preEventHook processEvent:event]) ifFalse:[
+		and:[preEventHook processEvent:event]) ifFalse:[
-view := event view.
+		    view := event view.
-"/
+		    "/
-"/ 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.
-"/
+		    "/
-view shown ifTrue:[
+		    view shown ifTrue:[
-rect := event rectangle.
+			rect := event rectangle.
-x := rect left.
+			x := rect left.
-y := rect top.
+			y := rect top.
-w := rect width.
+			w := rect width.
-h := rect height.
+			h := rect height.
-LastActiveGroup := self.
+			LastActiveGroup := self.
-LastActiveProcess := thisProcess.
+			LastActiveProcess := thisProcess.
-view transformation notNil ifTrue:[
+			view transformation notNil ifTrue:[
-view deviceExposeX:x y:y width:w height:h
+			    view deviceExposeX:x y:y width:w height:h
-] ifFalse:[
+			] ifFalse:[
-view exposeX:x y:y width:w height:h
+			    view exposeX:x y:y width:w height:h
-]
+			]
-]
+		    ]
-].
+		].
-postEventHook notNil ifTrue:[
+		postEventHook notNil ifTrue:[
-postEventHook processEvent:event
+		    postEventHook processEvent:event
-]
+		]
-]
+	    ]
-]
+	]
 ]
 "Created: / 2.7.1997 / 14:32:19 / cg"
 "Modified: / 5.4.1998 / 11:35:43 / cg"
 !
 |sequence|
 "/ a fix focusSequence ...
 focusSequence notNil ifTrue:[^ focusSequence].
+topViews isNil ifTrue:[
+	"/ mhmh - a topView-less windowGroup ...
+	^ nil.
+].
 topViews do:[:top |
 	sequence := top focusSequence.
 	sequence notNil ifTrue:[^ sequence].
 ].
 !
 focusToView:aViewOrNil
 "give focus to aViewOrNil - if its in my focusSequence"
-|seq|
+|seq doAssignFocusView|
 focusView == aViewOrNil ifFalse:[
-(seq := self focusSequence) notNil ifTrue:[
+	doAssignFocusView := false.
-(seq includes:aViewOrNil) ifTrue:[
+	topViews isNil ifTrue:[
-self focusView:aViewOrNil.
+	    "/ mhmh - a topview-less windowGroup
-]
+	    doAssignFocusView := true.
-]
+	] ifFalse:[
+	    (seq := self focusSequence) notNil ifTrue:[
+		doAssignFocusView := (seq includes:aViewOrNil).
+	    ]
+	].
+	doAssignFocusView ifTrue:[
+	    self focusView:aViewOrNil.
+	]
 ]
 "Created: / 18.9.1998 / 16:28:27 / cg"
 !
 restoreCursors
 "restore the original cursors in all of my views"
 self allViewsDo:[:aView |
-|c dev id cid|
+	|c dev id cid|
-dev := aView graphicsDevice.
+	dev := aView graphicsDevice.
-dev notNil ifTrue:[
+	dev notNil ifTrue:[
-(id := aView id) notNil ifTrue:[
+	    (id := aView id) notNil ifTrue:[
-c := aView cursor onDevice:dev.
+		c := aView cursor onDevice:dev.
-(cid := c id) notNil ifTrue:[
+		(cid := c id) notNil ifTrue:[
-dev setCursor:cid in:id.
+		    dev setCursor:cid in:id.
-]
+		]
-]
+	    ]
-]
+	]
 ].
 "Modified: / 22.4.1998 / 14:28:22 / cg"
 !
 |c cId vId dev|
 c := aCursor.
 self allViewsDo:[:aView |
-dev := aView graphicsDevice.
+	dev := aView graphicsDevice.
-dev notNil ifTrue:[
+	dev notNil ifTrue:[
-c := c onDevice:dev.
+	    c := c onDevice:dev.
-(cId := c id) notNil ifTrue:[
+	    (cId := c id) notNil ifTrue:[
-(vId := aView id) notNil ifTrue:[
+	       (vId := aView id) notNil ifTrue:[
-dev setCursor:cId in:vId.
+		    dev setCursor:cId in:vId.
-]
+		]
-]
+	    ]
-]
+	]
 ].
 "Modified: / 22.4.1998 / 14:26:45 / cg"
 !
 |oldCursors dev deviceCursor action|
 dev := self graphicsDevice.
 dev isNil ifTrue:[
-^ aBlock value
+	^ aBlock value
 ].
 deviceCursor := aCursor onDevice:dev.
 "
 get mapping of view->cursor for all of my subviews
 "
 oldCursors := IdentityDictionary new.
 self allViewsDo:[:aView |
-|old|
+	|old|
-old := aView cursor.
+	old := aView cursor.
-old ~~ aCursor ifTrue:[
+	old ~~ aCursor ifTrue:[
-oldCursors at:aView put:old.
+	    oldCursors at:aView put:old.
-aView cursor:deviceCursor now:false
+	    aView cursor:deviceCursor now:false
-]
+	]
 ].
 oldCursors size == 0 ifTrue:[
-action := aBlock
+	action := aBlock
 ] ifFalse:[
-action := [
+	action := [
-|rslt|
+		    |rslt|
-"/
+		    "/
-"/ here sync looks better; flush leads to almost invisible cursors when accepting.
+		    "/ here sync looks better; flush leads to almost invisible cursors when accepting.
-"/ I dont really know why (maybe unix does not context-switch to the Xserver
+		    "/ I dont really know why (maybe unix does not context-switch to the Xserver
-"/ early enough after the requests have been sent ?)
+		    "/ early enough after the requests have been sent ?)
-"/
+		    "/
-dev sync.
+		    dev sync.
-rslt := aBlock valueNowOrOnUnwindDo:[
+		    rslt := aBlock valueNowOrOnUnwindDo:[
-"
+			"
-restore cursors from the mapping
+			 restore cursors from the mapping
-"
+			"
-oldCursors keysAndValuesDo:[:view :cursor |
+			oldCursors keysAndValuesDo:[:view :cursor |
-view cursor:cursor now:false.
+			    view cursor:cursor now:false.
-].
+			].
-dev flush
+			dev flush
-].
+		    ].
-rslt
+		    rslt
-]
+		  ]
 ].
 "/    (self isModal and:[previousGroup notNil]) ifTrue:[
 "/        "/ pass the work to my parentGroup
 "/        ^ previousGroup withCursor:aCursor do:action
 ! !
 !WindowGroup class methodsFor:'documentation'!
 version
-^ '$Header: /cvs/stx/stx/libview/Attic/WGroup.st,v 1.144 1998-09-18 15:12:34 cg Exp $'
+^ '$Header: /cvs/stx/stx/libview/Attic/WGroup.st,v 1.145 1998-09-24 10:02:31 cg Exp $'
 ! !
 WindowGroup initialize!

changeset 2363	e456e5040a57
parent 2353	e04098201f7c
child 2407	bff2063d865a