"

 COPYRIGHT (c) 1989 by Claus Gittinger

	      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

 other person.  No title to or ownership of the software is

 hereby transferred.

"

TopView subclass:#PopUpView

       classVariableNames:'DefaultShadow DefaultLevel DefaultBorderWidth

			   DefaultBorderColor'

       poolDictionaries:''

       category:'Views-Basic'

!

PopUpView comment:'

COPYRIGHT (c) 1989 by Claus Gittinger

	      All Rights Reserved

'!

!PopUpView class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 1989 by Claus Gittinger

	      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

 other person.  No title to or ownership of the software is

 hereby transferred.

"

!

version

"

"

!

documentation

"

    this class implements an abstract superclass for all views which bypass the 

    window manager and pop up on top of the screen. A typical example is

    a PopUpMenu. PopUpView itself is abstract, providing basic mechanisms.

    They are not decorated by window managers.

    styleSheet parameters:

	popupShadow         <Boolean>           if true, popupViews show a shadow below

	popupLevel          <nil | Integer>     3D level

	popupBorderWidth    <nil | Integer>     borderWidth

"

! !

!PopUpView class methodsFor:'defaults'!

defaultExtent

    ^ (Display width // 3) @ (Display height // 3)

!

updateStyleCache

    ShadowView isNil ifTrue:[

	DefaultShadow := false

    ] ifFalse:[

	DefaultShadow := StyleSheet at:'popupShadow' default:false.

    ].

    DefaultLevel := StyleSheet at:'popupLevel'.

    DefaultBorderWidth := StyleSheet at:'popupBorderWidth'.

    DefaultBorderColor := StyleSheet colorAt:'popupBorderColor'.

!

shadows:aBoolean

    "turn on/off shadows under popUpViews. 

     On slow displays, turning them off makes menus appear a bit snappier.

     The default is set via the styleSheet and changes when the viewStyle

     is changed."

    DefaultShadow := aBoolean

!

shadows

    "return the shadows-flag. False means: turned off."

    ^ DefaultShadow

! !

!PopUpView methodsFor:'initialize / release'!

initialize

    super initialize.

    haveControl := false.

    type := #popup 

!

initStyle

    super initStyle.

    styleSheet is3D == true ifTrue:[

	borderWidth := 0.

	level := 2

    ] ifFalse:[

	borderWidth := 1.

	level := 0

    ].

    DefaultBorderColor notNil ifTrue:[

	self borderColor:(DefaultBorderColor on:device).

    ].

    DefaultBorderWidth notNil ifTrue:[

	borderWidth := DefaultBorderWidth.

    ].

"/    DefaultEdgeStyle notNil ifTrue:[

"/        edgeStyle := DefaultEdgeStyle.

"/    ].

    DefaultLevel notNil ifTrue:[

	self level:DefaultLevel.

    ].

    DefaultShadow ifTrue:[

	shadowView := (ShadowView onDevice:device) for:self.

    ].

!

destroy

    haveControl := false.

    super destroy.

    shadowView notNil ifTrue:[shadowView destroy. shadowView := nil]

!

create

    super create.

    shadowView isNil ifTrue:[

	self saveUnder:true

    ]

! !

!PopUpView methodsFor:'dispatching'!

modalLoop

    haveControl := true.

    "this is a kludge - we do not have multiple processes, therefore

     we start another dispatch loop, which exits when control is lost"

    device dispatchFor:nil while:[haveControl]

! !

!PopUpView methodsFor:'private'!

takeControl

^ self.

    haveControl := true.

    "this is a kludge - we do not have multiple processes, therefore

     we start another dispatch loop, which exits when control is lost"

    device dispatchFor:drawableId while:[haveControl]

!

leaveControl

    haveControl := false

!

regainControl

    device grabPointerInView:self 

! !

!PopUpView methodsFor:'activation'!

show

    "realize the view at its last position"

    self fixSize.

    self openModal:[true] "realize     "

!

showAt:aPoint resizing:aBoolean

    "realize the view at aPoint"

    aBoolean ifTrue:[

	self fixSize.

    ].

    self origin:aPoint.

    self makeFullyVisible.

    self openModal:[true] "realize     "

!

showAt:aPoint

    "realize the view at aPoint"

    self showAt:aPoint resizing:true 

!

showCenteredIn:aView

    "make myself visible at the screen center."

    |top|

    top := aView topView.

    top raise.

    self showAt:(top origin 

		 + (aView originRelativeTo:top) 

		 + (aView extent // 2)

		 - (self extent // 2))

!

showAtPointer

    "realize the view at the current pointer position"

    self showAt:(device pointerPosition) resizing:true

!

hide

    "hide the view, leave its modal event loop"

    windowGroup notNil ifTrue:[

	windowGroup removeView:self.

	windowGroup := nil.

    ].

    self unrealize.

! !

!PopUpView methodsFor:'realize / unrealize'!

mapped

    "wait till visible for grabbing. If the grab fails,

     try again and unrealize myself if that fails too."

    super mapped.

	(device grabPointerInView:self) ifFalse:[

	    "wait a little bit and try again"

	    (Delay forSeconds:0.1) wait.

	    (device grabPointerInView:self) ifFalse:[

		"give up"

		'could not grab pointer' errorPrintNL.

		self unrealize

	    ]

	]

    ]

!

realize

    shadowView notNil ifTrue:[shadowView realize].

    self raise.

    haveControl := true.

    super realize.

!

unrealize

    haveControl := false.

    device activePointerGrab == self ifTrue:[

	device ungrabPointer.

    ].

    super unrealize.

    shadowView notNil ifTrue:[shadowView unrealize].

! !

!PopUpView methodsFor:'accessing'!

noShadow

    "turn off the shadow"

    shadowView := nil

!

    ^ true

! !