hg/stx-libview: comparison TopView.st

equal deleted inserted replaced

-:014212ef8765
+:4c3aa29fff39
 "
 COPYRIGHT (c) 1995 by Claus Gittinger
-	      All Rights Reserved
+All Rights Reserved
 This software is furnished under a license and may be used
 only in accordance with the terms of that license and with the
 inclusion of the above copyright notice.   This software may not
 be provided or otherwise made available to, or used by, any
 hereby transferred.
 "
 "{ Package: 'stx:libview' }"
 View subclass:#TopView
-	instanceVariableNames:'type iconified keyboardProcessor'
+instanceVariableNames:'type iconified keyboardProcessor'
-	classVariableNames:'TakeFocusWhenMapped ForceModalBoxesToOpenAtCenter
+classVariableNames:'TakeFocusWhenMapped ForceModalBoxesToOpenAtCenter
-		ForceModalBoxesToOpenAtPointer MasterSlaveMask WindowTypeMask
+ForceModalBoxesToOpenAtPointer MasterSlaveMask WindowTypeMask
-		TypeMaster TypeSlave TypePartner TypeDialog TypePopUp
+TypeMaster TypeSlave TypePartner TypeDialog TypePopUp
-		TypeUndecorated TypeToolWindow TypeToolDialog MDIClientMask
+TypeUndecorated TypeToolWindow TypeToolDialog MDIClientMask
-		MDIClient TypeScreenDialog CurrentWindowMoved
+MDIClient TypeScreenDialog CurrentWindowMoveStart
-		CurrentWindowMoveStart CurrentWindowMoveState'
+CurrentWindowMoveState CurrentWindowBeingMoved'
-	poolDictionaries:''
+poolDictionaries:''
-	category:'Views-Basic'
+category:'Views-Basic'
 !
 !TopView class methodsFor:'documentation'!
 copyright
 "
 COPYRIGHT (c) 1995 by Claus Gittinger
-	      All Rights Reserved
+All Rights Reserved
 This software is furnished under a license and may be used
 only in accordance with the terms of that license and with the
 inclusion of the above copyright notice.   This software may not
 be provided or otherwise made available to, or used by, any
 Do not get confused by the name TopView - your applications
 topViews are typically instances of StandardSystemView.
 [instance variables:]
-	type            <Integer>       encodes master/slave relationship:
+type            <Integer>       encodes master/slave relationship:
-					    #normal, #master, #slave or #partner
+#normal, #master, #slave or #partner
-					for modeless views
+for modeless views
-					(the #master-, #slave- or #partner-type links multiple views
+(the #master-, #slave- or #partner-type links multiple views
-					 into a windowManagers windowGroup -> for de-iconification)
+into a windowManagers windowGroup -> for de-iconification)
-					encodes window type:
+encodes window type:
-					    #normal, #dialog, #popup, #undecorated
+#normal, #dialog, #popup, #undecorated
 [see also:]
-	StandardSystemView PopUpView DialogBox
+StandardSystemView PopUpView DialogBox
-	( introduction to view programming :html: programming/viewintro.html )
+( introduction to view programming :html: programming/viewintro.html )
 [author:]
-	Claus Gittinger
+Claus Gittinger
 "
 !
 examples
 "
 The bahavior is controlled by ST/X, and controlled by the open vs. openModeless vs. openModal message.
 Modeless:
 regular style:
-							    [exBegin]
+[exBegin]
-	|v|
+|v|
-	v := TopView new.
+v := TopView new.
-	v extent:200@200.
+v extent:200@200.
-	v open
+v open
-							    [exEnd]
+[exEnd]
 dialog:
-							    [exBegin]
+[exBegin]
-	|v|
+|v|
-	v := TopView new.
+v := TopView new.
-	v beDialogView.
+v beDialogView.
-	v extent:200@200.
+v extent:200@200.
-	v open
+v open
-	Delay waitForSeconds:10. v destroy.
+Delay waitForSeconds:10. v destroy.
-							    [exEnd]
+[exEnd]
 popUp (always on top):
-							    [exBegin]
+[exBegin]
-	|v|
+|v|
-	v := TopView new.
+v := TopView new.
-	v bePopUpView.
+v bePopUpView.
-	v extent:200@200.
+v extent:200@200.
-	v open.
+v open.
-	Delay waitForSeconds:10. v destroy.
+Delay waitForSeconds:10. v destroy.
-							    [exEnd]
+[exEnd]
 undecorated (looks loke popUp, but is not always on top):
-							    [exBegin]
+[exBegin]
-	|v|
+|v|
-	v := TopView new.
+v := TopView new.
-	v beUndecorated.
+v beUndecorated.
-	v extent:200@200.
+v extent:200@200.
-	v open.
+v open.
-	Delay waitForSeconds:10. v destroy.
+Delay waitForSeconds:10. v destroy.
-							    [exEnd]
+[exEnd]
 toolwindow (looks loke normal, but has smaller windowTitle-area on win32):
-							    [exBegin]
+[exBegin]
-	|v|
+|v|
-	v := TopView new.
+v := TopView new.
-	v beToolWindow.
+v beToolWindow.
-	v extent:200@200.
+v extent:200@200.
-	v open.
+v open.
-	Delay waitForSeconds:10. v destroy.
+Delay waitForSeconds:10. v destroy.
-							    [exEnd]
+[exEnd]
 toolwindow dialog (looks loke normal, but has smaller windowTitle-area on win32):
-							    [exBegin]
+[exBegin]
-	|v|
+|v|
-	v := TopView new.
+v := TopView new.
-	v beToolDialog.
+v beToolDialog.
-	v extent:200@200.
+v extent:200@200.
-	v open.
+v open.
-	Delay waitForSeconds:10. v destroy.
+Delay waitForSeconds:10. v destroy.
-							    [exEnd]
+[exEnd]
 Modal:
 regular style:
-							    [exBegin]
+[exBegin]
-	|v|
+|v|
-	v := TopView new.
+v := TopView new.
-	v extent:200@200.
+v extent:200@200.
-	v openModal
+v openModal
-							    [exEnd]
+[exEnd]
 dialog:
-							    [exBegin]
+[exBegin]
-	|v|
+|v|
-	v := TopView new.
+v := TopView new.
-	v beDialogView.
+v beDialogView.
-	v extent:200@200.
+v extent:200@200.
-	v openModal
+v openModal
-							    [exEnd]
+[exEnd]
 popUp (always on top):
-							    [exBegin]
+[exBegin]
-	|v|
+|v|
-	v := TopView new.
+v := TopView new.
-	v bePopUpView.
+v bePopUpView.
-	v extent:200@200.
+v extent:200@200.
-	v openModal
+v openModal
-							    [exEnd]
+[exEnd]
 undecorated (looks loke popUp, but is not always on top):
-							    [exBegin]
+[exBegin]
-	|v|
+|v|
-	v := TopView new.
+v := TopView new.
-	v beUndecorated.
+v beUndecorated.
-	v extent:200@200.
+v extent:200@200.
-	v openModal
+v openModal
-							    [exEnd]
+[exEnd]
 "
+! !
+!TopView class methodsFor:'accessing'!
+currentWindowBeingMoved
+"the current window move operation
+(only used with modeless popup windows; i.e. windows without decoration,
+which want to be moved by click-motion on the background)"
+^ CurrentWindowBeingMoved
+"Created: / 03-03-2011 / 19:20:34 / cg"
 ! !
 !TopView class methodsFor:'class initialization'!
 initialize
 |display|
 display := Screen current.
 display isNil ifTrue:[
-	^ 600 @ 400
+^ 600 @ 400
 ].
 ^ display defaultExtentForTopViews
 !
 forceModalBoxesToOpenAtCenter
 beDialogView
 "make me a Dialog Window; that is one which raises above all other ST/X views"
 "/ the nonInteger handling code is for backward compatibility only.
 type isInteger ifTrue:[
-	type := (type bitClear:WindowTypeMask) bitOr:TypeDialog.
+type := (type bitClear:WindowTypeMask) bitOr:TypeDialog.
-	^ self.
+^ self.
 ].
 type := #dialog
 !
 beIndependent
 attribute (this is the default).
 However, the view remains in the current windowGroup"
 "/ the nonInteger handling code is for backward compatibility only.
 type isInteger ifTrue:[
-	type := type bitClear:MasterSlaveMask.
+type := type bitClear:MasterSlaveMask.
-	^ self.
+^ self.
 ].
 type := nil
 !
 beMDIClientView
 and also de/iconify together with their master(s).
 (i.e. they follow their master(s))."
 "/ the nonInteger handling code is for backward compatibility only.
 type isInteger ifTrue:[
-	type := (type bitClear:MasterSlaveMask) bitOr:TypeMaster.
+type := (type bitClear:MasterSlaveMask) bitOr:TypeMaster.
-	^ self.
+^ self.
 ].
 type := #master
 "
 see example in TopView>>beSlave
 "make this a partner-view. Each partner-view will automatically
 close other partner views (within the same windowGroup) when closed."
 "/ the nonInteger handling code is for backward compatibility only.
 type isInteger ifTrue:[
-	type := (type bitClear:MasterSlaveMask) bitOr:TypePartner.
+type := (type bitClear:MasterSlaveMask) bitOr:TypePartner.
-	^ self.
+^ self.
 ].
 type := #partner
 "
 create two topViews within the same group:
 !
 bePopUpView
 "/ the nonInteger handling code is for backward compatibility only.
 type isInteger ifTrue:[
-	type := (type bitClear:WindowTypeMask) bitOr:TypePopUp.
+type := (type bitClear:WindowTypeMask) bitOr:TypePopUp.
-	^ self.
+^ self.
 ].
 type := #popup
 !
 bePopUpViewNotModal
 "make me a Screen-Dialog Window; that is one which raises above ALL other windows
 (not only st/x ones)"
 "/ the nonInteger handling code is for backward compatibility only.
 type isInteger ifTrue:[
-	type := (type bitClear:WindowTypeMask) bitOr:TypeScreenDialog.
+type := (type bitClear:WindowTypeMask) bitOr:TypeScreenDialog.
-	^ self.
+^ self.
 ].
 type := #dialog
 !
 beSlave
 whenever any master of the windowgroup is closed.
 See also: #bePartner"
 "/ the nonInteger handling code is for backward compatibility only.
 type isInteger ifTrue:[
-	type := (type bitClear:MasterSlaveMask) bitOr:TypeSlave.
+type := (type bitClear:MasterSlaveMask) bitOr:TypeSlave.
-	^ self.
+^ self.
 ].
 type := #slave
 "
 create two topViews within the same group:
 !
 beToolDialog
 "/ the nonInteger handling code is for backward compatibility only.
 type isInteger ifTrue:[
-	type := (type bitClear:WindowTypeMask) bitOr:TypeToolDialog.
+type := (type bitClear:WindowTypeMask) bitOr:TypeToolDialog.
-	^ self.
+^ self.
 ].
 type := #dialog
 !
 beToolWindow
 "/ the nonInteger handling code is for backward compatibility only.
 type isInteger ifTrue:[
-	type := (type bitClear:WindowTypeMask) bitOr:TypeToolWindow.
+type := (type bitClear:WindowTypeMask) bitOr:TypeToolWindow.
-	^ self.
+^ self.
 ].
 type := nil
 !
 beUndecorated
 "make me an undecorated Window"
 "/ the nonInteger handling code is for backward compatibility only.
 type isInteger ifTrue:[
-	type := (type bitClear:WindowTypeMask) bitOr:TypeUndecorated.
+type := (type bitClear:WindowTypeMask) bitOr:TypeUndecorated.
-	^ self.
+^ self.
 ].
 type := nil
 !
 focusSequence:aCollectionOfSubcomponents
 "define the sequence for stepping through my components."
 windowGroup isNil ifTrue:[
-	windowGroup := self windowGroupClass new.
+windowGroup := self windowGroupClass new.
 ].
 windowGroup focusSequence:aCollectionOfSubcomponents.
 "Created: 6.3.1996 / 15:37:11 / cg"
 "Modified: 30.4.1996 / 15:41:40 / cg"
 addTrayIcon:anImageOrForm toolTipMessage:toolTipMessage
 "WIN32 only: add a tray icon for myself;
 may then receive tray*-events in the future."
 self device
-	 addTrayIconFor:self
+addTrayIconFor:self
-	 icon:anImageOrForm iconMask:nil
+icon:anImageOrForm iconMask:nil
-	 toolTipMessage:toolTipMessage
+toolTipMessage:toolTipMessage
 "
 |v icon|
 v := StandardSystemView new.
 keyPress:key x:x y:y
 "notice: this ought to be moved into the upcoming
 StandardSystemViewController."
 <resource: #keyboard ( #Tab
-			   #FocusNext #FocusPrevious
+#FocusNext #FocusPrevious
-			   #CursorDown #CursorUp ) >
+#CursorDown #CursorUp ) >
 windowGroup notNil ifTrue:[
-	key == #Tab ifTrue:[
+key == #Tab ifTrue:[
-	    self sensor shiftDown ifTrue:[
+self sensor shiftDown ifTrue:[
-		windowGroup focusPrevious
+windowGroup focusPrevious
-	    ] ifFalse:[
+] ifFalse:[
-		windowGroup focusNext
+windowGroup focusNext
-	    ].
+].
-	    ^ self.
+^ self.
-	].
+].
-	(key == #FocusNext or:[key == #CursorDown]) ifTrue:[
+(key == #FocusNext or:[key == #CursorDown]) ifTrue:[
-	    windowGroup focusNext.
+windowGroup focusNext.
-	    ^ self.
+^ self.
-	].
+].
-	(key == #FocusPrevious or:[key == #CursorUp])  ifTrue:[
+(key == #FocusPrevious or:[key == #CursorUp])  ifTrue:[
-	    windowGroup focusPrevious.
+windowGroup focusPrevious.
-	    ^ self.
+^ self.
-	].
+].
 ].
 super keyPress:key x:x y:y
 "Created: / 01-02-1996 / 22:08:30 / cg"
 ^ self
 "Created: / 31-10-2007 / 01:25:33 / cg"
 "Modified: / 05-11-2007 / 12:11:17 / cg"
+! !
+!TopView methodsFor:'event handling-window move'!
+doWindowMove
+"a window move operation
+(only used with modeless popup windows; i.e. windows without decoration,
+which want to be moved by click-motion on the background)"
+|delta|
+CurrentWindowBeingMoved == self ifTrue:[
+delta := device pointerPosition - CurrentWindowMoveStart.
+(CurrentWindowMoveState notNil
+or:[ delta r > 5 ]) ifTrue:[
+CurrentWindowMoveState := #inMove.
+CurrentWindowMoveStart := device pointerPosition.
+self origin:(self origin + delta).
+].
+].
+"Created: / 03-03-2011 / 19:13:08 / cg"
+!
+endWindowMove
+"a window move operation
+(only used with modeless popup windows; i.e. windows without decoration,
+which want to be moved by click-motion on the background)"
+CurrentWindowBeingMoved := nil.
+"Created: / 03-03-2011 / 19:17:24 / cg"
+!
+startWindowMove
+"a window move operation
+(only used with modeless popup windows; i.e. windows without decoration,
+which want to be moved by click-motion on the background)"
+CurrentWindowBeingMoved := self.
+CurrentWindowMoveStart := device pointerPosition.
+CurrentWindowMoveState := nil.
+"Created: / 03-03-2011 / 19:09:39 / cg"
 ! !
 !TopView methodsFor:'help'!
 flyByHelpDependsOnPositionIn:aView
 "/        ]
 "/    ].
 (windowGroup notNil
 and:[(componentWithInitialFocus := windowGroup defaultKeyboardConsumer) notNil]) ifTrue:[
-	windowGroup focusView:componentWithInitialFocus byTab:true "false".
+windowGroup focusView:componentWithInitialFocus byTab:true "false".
 ] ifFalse:[
-	self assignKeyboardFocusToFirstInputField.
+self assignKeyboardFocusToFirstInputField.
 ].
 !
 assignKeyboardFocusToFirstInputField
 "assign the keyboard focus to the first first keyboardConsumer.
 see (or redefine) preferFirstInputFieldWhenAssigningInitialFocus)"
 |firstInputField firstConsumer firstCursorConsumer consumer|
 self allSubViewsDo:[:v |
-	(firstInputField isNil and:[v isInputField]) ifTrue:[
+(firstInputField isNil and:[v isInputField]) ifTrue:[
-	    firstInputField := v
+firstInputField := v
-	].
+].
-	(firstConsumer isNil and:[v isKeyboardConsumer]) ifTrue:[
+(firstConsumer isNil and:[v isKeyboardConsumer]) ifTrue:[
-	    firstConsumer := v
+firstConsumer := v
-	].
+].
-	(firstCursorConsumer isNil and:[v isCursorKeyConsumer]) ifTrue:[
+(firstCursorConsumer isNil and:[v isCursorKeyConsumer]) ifTrue:[
-	    firstCursorConsumer := v
+firstCursorConsumer := v
-	].
+].
 ].
 self preferFirstInputFieldWhenAssigningInitialFocus ifTrue:[
-	consumer := firstInputField.
+consumer := firstInputField.
 ].
 consumer := (consumer ? firstConsumer ? firstCursorConsumer).
 consumer notNil ifTrue:[
-	device platformName = 'WIN32' ifTrue:[
+device platformName = 'WIN32' ifTrue:[
-	    self windowGroup focusView:consumer byTab:true.
+self windowGroup focusView:consumer byTab:true.
-	] ifFalse:[
+] ifFalse:[
-	    consumer requestFocus.
+consumer requestFocus.
-	    "/ consumer requestFocus. - could be denied; but we force it here
+"/ consumer requestFocus. - could be denied; but we force it here
-	    windowGroup focusView:consumer byTab:false.
+windowGroup focusView:consumer byTab:false.
-	].
+].
 ].
 "Modified: / 29-08-2006 / 14:32:30 / cg"
 !
 postRealize
 super postRealize.
 keyboardProcessor isNil ifTrue:[
-	keyboardProcessor := KeyboardProcessor new.
+keyboardProcessor := KeyboardProcessor new.
 ].
 device realizedTopViewHookFor:self
 !
 realize
 self isMarkedAsUnmappedModalBox ifTrue:[
-	"/ must clear this flag
+"/ must clear this flag
-	"/ - otherwise realize thinks it is already realized.
+"/ - otherwise realize thinks it is already realized.
-	realized := false.
+realized := false.
-	self unmarkAsUnmappedModalBox.
+self unmarkAsUnmappedModalBox.
 ].
 super realize.
 !
 release
 keyboardProcessor notNil ifTrue:[
-	keyboardProcessor release.
+keyboardProcessor release.
-	keyboardProcessor := nil.
+keyboardProcessor := nil.
 ].
 super release
 ! !
 !TopView methodsFor:'misc'!
 raiseDeiconified
 "deiconify & bring to front"
 self isCollapsed ifTrue:[
 "/        self unmap.
-	self realize.
+self realize.
 ].
 self raise
 "
 Transcript topView raiseDeiconified
 Can be used to synchronize multiple-window applications,
 and (especially) to wait until an application session is finished
 when invoking commands with the rDoit mechanism"
 [drawableId isNil] whileFalse:[
-	Delay waitForSeconds:0.1.
+Delay waitForSeconds:0.1.
 ].
 "asynchronous:
 EditTextView open
 withCursor:aCursor do:aBlock
 "evaluate aBlock while showing aCursor in all my views.
 Return the value as returned by aBlock."
 windowGroup notNil ifTrue:[
-	^ windowGroup withCursor:aCursor do:aBlock
+^ windowGroup withCursor:aCursor do:aBlock
 ].
 ^ super withCursor:aCursor do:aBlock
 ! !
 !TopView methodsFor:'queries'!
 isDialogView
 "return true if this is a dialog view"
 type isInteger ifTrue:[
-	^ (type bitAnd:WindowTypeMask) == TypeDialog
+^ (type bitAnd:WindowTypeMask) == TypeDialog
 ].
 "/ the nonInteger handling code is for backward compatibility only.
 ^ type == #dialog
 !
 isMaster
 "return true, if this is a masterView"
 type isInteger ifTrue:[
-	^ (type bitAnd:MasterSlaveMask) == TypeMaster
+^ (type bitAnd:MasterSlaveMask) == TypeMaster
 ].
 "/ the nonInteger handling code is for backward compatibility only.
 ^ type == #master
 !
 isPartner
 "return true, if this is a partnerView"
 type isInteger ifTrue:[
-	^ (type bitAnd:MasterSlaveMask) == TypePartner
+^ (type bitAnd:MasterSlaveMask) == TypePartner
 ].
 "/ the nonInteger handling code is for backward compatibility only.
 ^ type == #partner
 !
 isSlave
 "return true, if this is a slaveView"
 type isInteger ifTrue:[
-	^ (type bitAnd:MasterSlaveMask) == TypeSlave
+^ (type bitAnd:MasterSlaveMask) == TypeSlave
 ].
 "/ the nonInteger handling code is for backward compatibility only.
 ^ type == #slave
 !
 however many subclasses redefine this to compute the actual value
 depending on the sizes of the contents or subcomponents."
 "/ If I have an explicit preferredExtent..
 explicitExtent notNil ifTrue:[
-	^ explicitExtent
+^ explicitExtent
 ].
 "/ If I have a cached preferredExtent value..
 preferredExtent notNil ifTrue:[
-	^ preferredExtent
+^ preferredExtent
 ].
 ^ self class defaultExtent
 "Modified: 19.7.1996 / 20:45:41 / cg"
 !
 This is used by the device as a decoration hint."
 |t|
 type isInteger ifTrue:[
-	t := type bitAnd:WindowTypeMask.
+t := type bitAnd:WindowTypeMask.
-	t == TypeUndecorated ifTrue:[^ #undecorated].
+t == TypeUndecorated ifTrue:[^ #undecorated].
-	t == TypeDialog ifTrue:[^ #dialog].
+t == TypeDialog ifTrue:[^ #dialog].
-	t == TypePopUp ifTrue:[^ #popUp].
+t == TypePopUp ifTrue:[^ #popUp].
-	t == TypeToolWindow ifTrue:[^ #toolWindow].
+t == TypeToolWindow ifTrue:[^ #toolWindow].
-	t == TypeToolDialog ifTrue:[^ #toolDialog].
+t == TypeToolDialog ifTrue:[^ #toolDialog].
-	^ #normal
+^ #normal
 ].
 "/ the nonInteger handling code is for backward compatibility only.
 ^ super windowStyle
 ! !
 openModal
 "added bell to wake up user"
 (self beepWhenOpening) ifTrue:[
-	self beep.
+self beep.
 ].
 super openModal
 "
 self warn:'hello'
 "/ by sending a closerequest always and letting popUps
 "/ respond by hiding ???
 (windowGroup notNil
 and:[ windowGroup isModal ]) ifTrue:[
-	masterGroup := windowGroup previousGroup.
+masterGroup := windowGroup previousGroup.
-	myApplication := self application.
+myApplication := self application.
-	(myApplication notNil
+(myApplication notNil
-	and:[ masterGroup isNil or:[myApplication ~= masterGroup application]]) ifTrue:[
+and:[ masterGroup isNil or:[myApplication ~= masterGroup application]]) ifTrue:[
-	    AbortOperationRequest handle:[:ex |
+AbortOperationRequest handle:[:ex |
-		"/ in case the close is cought by the application
+"/ in case the close is cought by the application
-		^ self.
+^ self.
-	    ] do:[
+] do:[
-		myApplication closeRequest.
+myApplication closeRequest.
-		"/ if myApp called closeDownViews, it wants me to hide.
+"/ if myApp called closeDownViews, it wants me to hide.
-		"/ otherwise, it has redefined closeRequest to return without closeDownViews.
+"/ otherwise, it has redefined closeRequest to return without closeDownViews.
-		realized ifTrue:[
+realized ifTrue:[
-		    "/ closeDownViews was not called - app wants me to remain open
+"/ closeDownViews was not called - app wants me to remain open
-		    ^ self
+^ self
-		].
+].
-	    ].
+].
-	].
+].
 ].
 super hide.
 !
 map
 "make the view visible on the screen.
 For topViews, the windowManager will choose (or ask for) the
 views position on the screen.
 Notice:
-	Actually, this method is only valid for topViews;
+Actually, this method is only valid for topViews;
-	however, it is defined here to allow things like 'Button new realize'"
+however, it is defined here to allow things like 'Button new realize'"
 self mapAt:(self origin) iconified:false
 !
 mapIconified
 "make the view visible but iconified.
 In contrast to map, which does it non-iconified"
 realized ifFalse:[
-	"
+"
-	 now, make the view visible
+now, make the view visible
-	"
+"
-	realized := true.
+realized := true.
-	device
+device
-	    mapView:self id:drawableId iconified:true
+mapView:self id:drawableId iconified:true
-	    atX:left y:top width:width height:height
+atX:left y:top width:width height:height
-	    minExtent:(self minExtent) maxExtent:(self maxExtent)
+minExtent:(self minExtent) maxExtent:(self maxExtent)
 ]
 "Modified: 25.2.1997 / 22:44:33 / cg"
 "Created: 24.7.1997 / 12:48:21 / cg"
 !
 |otherId|
 drawableId isNil ifTrue:[self create].
 anotherView isNil ifTrue:[
-	otherId := drawableId.
+otherId := drawableId.
 ] ifFalse:[
-	anotherView create.
+anotherView create.
-	otherId := anotherView id.
+otherId := anotherView id.
 ].
 device setTransient:drawableId for:otherId.
 self origin:aPosition.
 self open
 "set origin & extent and open.
 The given extent overrides the receivers preferredExtent.
 Added for ST-80 compatibility"
 self
-	origin:aBoundaryRectangle origin;
+origin:aBoundaryRectangle origin;
-	extent:aBoundaryRectangle extent;
+extent:aBoundaryRectangle extent;
-	sizeFixed:true.
+sizeFixed:true.
 self open
 "Modified: 12.2.1997 / 11:58:21 / cg"
 !
 masterSlaveMessage:aSelector inGroup:aWindowGroup
 "send aSelector to partners and/or slaves.
 This is a private helper for destroy / mapped / unmapped"
 aWindowGroup notNil ifTrue:[
-	"/
+"/
-	"/ if I am a master or partner, send to all slaves
+"/ if I am a master or partner, send to all slaves
-	"/
+"/
-	(self isMaster or:[self isPartner]) ifTrue:[
+(self isMaster or:[self isPartner]) ifTrue:[
-	    aWindowGroup slavesDo:[:v | v perform:aSelector].
+aWindowGroup slavesDo:[:v | v perform:aSelector].
-	].
+].
-	"/
+"/
-	"/ if I am a partner, send to all partners
+"/ if I am a partner, send to all partners
-	"/
+"/
-	self isPartner ifTrue:[
+self isPartner ifTrue:[
-	    aWindowGroup partnersDo:[:v | v ~~ self ifTrue:[v perform:aSelector]].
+aWindowGroup partnersDo:[:v | v ~~ self ifTrue:[v perform:aSelector]].
-	].
+].
 ].
 !
 unmapped
 "the recevier was unmapped (i.e. iconified);
 look for partners and slaves."
 |r|
 (windowGroup notNil and:[windowGroup isModal]) ifTrue:[
-	"keep the realized flag true (to avoid exiting the modal event loop).
+"keep the realized flag true (to avoid exiting the modal event loop).
-	 Consider this a kludge."
+Consider this a kludge."
-	self markAsUnmappedModalBox.
+self markAsUnmappedModalBox.
-	r := realized.
+r := realized.
 ] ifFalse:[
-	self unmarkAsUnmappedModalBox.
+self unmarkAsUnmappedModalBox.
-	r := realized := false.
+r := realized := false.
 ].
 super unmapped.
 realized := r.
 "/
 ! !
 !TopView class methodsFor:'documentation'!
 version
-^ '$Header: /cvs/stx/stx/libview/TopView.st,v 1.137 2011-03-03 18:17:42 cg Exp $'
+^ '$Header: /cvs/stx/stx/libview/TopView.st,v 1.138 2011-03-03 18:22:14 cg Exp $'
 !
 version_CVS
-^ '$Header: /cvs/stx/stx/libview/TopView.st,v 1.137 2011-03-03 18:17:42 cg Exp $'
+^ '$Header: /cvs/stx/stx/libview/TopView.st,v 1.138 2011-03-03 18:22:14 cg Exp $'
 ! !
 TopView initialize!

changeset 5720	4c3aa29fff39
parent 5719	014212ef8765
child 5721	c183558179c4