--- a/ModalBox.st Thu Feb 01 20:48:22 1996 +0100
+++ b/ModalBox.st Thu Feb 01 20:49:49 1996 +0100
@@ -461,6 +461,13 @@
].
!
+hideRequest
+ "hide request from windowGroup (i.e. via Escape key).
+ Can be redefined in subclasses which dont like this"
+
+ self hide
+!
+
mapped
"wait till visible for grabbing"
@@ -508,46 +515,46 @@
"
mainGroup := WindowGroup activeGroup.
mainGroup notNil ifTrue:[
- mainGroup := mainGroup mainGroup.
- mainGroup notNil ifTrue:[
- mainGroup showCursor:(Cursor stop).
- ]
+ mainGroup := mainGroup mainGroup.
+ mainGroup notNil ifTrue:[
+ mainGroup showCursor:(Cursor stop).
+ ]
].
mainGroup isNil ifTrue:[
- useTransient := false
+ useTransient := false
].
useTransient ifTrue:[
- mainGroup topViews notNil ifTrue:[
- mainView := mainGroup topViews first.
- ].
- mainView isNil ifTrue:[
- useTransient := false.
- ]
+ mainGroup topViews notNil ifTrue:[
+ mainView := mainGroup topViews first.
+ ].
+ mainView isNil ifTrue:[
+ useTransient := false.
+ ]
].
useTransient ifTrue:[
- shadowView := nil.
+ shadowView := nil.
] ifFalse:[
- shadowView notNil ifTrue:[shadowView realize].
+ shadowView notNil ifTrue:[shadowView realize].
].
self raise.
useTransient ifTrue:[
- device setTransient:drawableId for:(mainView id).
+ device setTransient:drawableId for:(mainView id).
].
[
- super openModal:aBlock inGroup:mainGroup.
+ super openModal:aBlock inGroup:mainGroup.
] valueNowOrOnUnwindDo:[
- "
- restore cursors in the main group
- "
- mainGroup notNil ifTrue:[
- mainGroup restoreCursors.
- mainGroup sensor flushUserEvents.
- ]
+ "
+ restore cursors in the main group
+ "
+ mainGroup notNil ifTrue:[
+ mainGroup restoreCursors.
+ mainGroup sensor flushUserEvents.
+ ]
].
"/ mainGroup notNil ifTrue:[
@@ -740,6 +747,6 @@
!ModalBox class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview/ModalBox.st,v 1.34 1996-01-17 12:02:48 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview/ModalBox.st,v 1.35 1996-02-01 19:49:49 cg Exp $'
! !
ModalBox initialize!