All Rights Reserved

       classVariableNames:'UseTransientViews'

	      All Rights Reserved

$Header: /cvs/stx/stx/libview/ModalBox.st,v 1.12 1994-10-10 02:32:40 claus Exp $

	      All Rights Reserved

$Header: /cvs/stx/stx/libview/ModalBox.st,v 1.12 1994-10-10 02:32:40 claus Exp $

    UseTransient := false.

    label := ' '.

    UseTransient ifFalse:[

	(StyleSheet at:#popupShadow default:false) ifTrue:[

	    shadowView := (ShadowView on:device) for:self

	]

initEvents

    self enableEvent:#visibilityChange

!

	borderWidth := 0.

	self level:2

reinitialize

   super reinitialize.

   self unrealize.

!

	shadowView destroy.

	shadowView := nil

    shadowView notNil ifTrue:[

	self saveUnder:true

    ^ UseTransient not

	device ungrabKeyboard.

	ActiveGrab := nil.

	device grabKeyboardIn:drawableId.

    "set origin to aPoint, but make sure, that the box is fully visible 

     by shifting it into the visible screen area if nescessary.

     This prevents invisible modalBoxes (which you could never close)."

     displaced from the mouse pointer. 

     Usually redefined in subclasses to have the most convenient

     ok-button appear under the pointer."

    "default for modalboxes is to come up modal at the pointer position"

    ^ self showAtPointer

openModal:aBlock

     the current active windowgroups cursors to the busy-stop cursor, show

    |mainGroup mainView useTransient|

    useTransient := UseTransient.

    "

     show a stop-cursor in the current group

    "

    mainGroup := WindowGroup activeGroup.

    mainGroup notNil ifTrue:[

	mainGroup := mainGroup mainGroup.

	mainGroup notNil ifTrue:[

	    mainGroup showCursor:(Cursor stop).

	]

    ].

    mainGroup isNil ifTrue:[

	useTransient := false

    ].

    useTransient ifTrue:[

	mainGroup topViews notNil ifTrue:[

	    mainView := mainGroup topViews first.

	].

	mainView isNil ifTrue:[

	    useTransient := false.

	]

    ].

    useTransient ifTrue:[

	shadowView := nil.

    ] ifFalse:[

	shadowView notNil ifTrue:[shadowView realize].

    mainGroup notNil ifTrue:[

	"

	 flush pending key & mouse events.

	 this avoids pre-characters 

	 to be put into the view ...

	"

"/        mainGroup sensor flushUserEvents.

    ].

    useTransient ifTrue:[

	device setTransient:drawableId for:(mainView id).

    ].

    super openModal:aBlock.

    mainGroup notNil ifTrue:[

	"

	 flush any key & mouse events which arrived

	 while the box was open (avoids stray input).

	"

	mainGroup sensor flushUserEvents.

    ].

    "make myself visible (at the last or default position) and take control"

    self makeFullyVisible.

    "

     |b|

     b := InfoBox title:'hello'.

     b show.

    "

    "

     |b|

     b := InfoBox title:'hello'.

     b showAt:(0 @ 0).

     b showAt:(400 @ 400).

    "

!

showAt:aPoint center:center

    "make myself visible at aPoint. center specifies

     if the view should show up centered around aPoint."

    self showAt:aPoint centerX:center centerY:center

    "

     |b|

     b := InfoBox title:'hello'.

     b showAt:(100 @ 100) center:true.

     b showAt:(100 @ 100) center:false.

    "

!

showAt:aPoint centerX:centerX centerY:centerY

    "make myself visible at aPoint. centerX/centerY specify

     if the view should show up centered around aPoint.

     Fix position to make box fully visible"

    |dx dy|

    self fixSize.

    centerX ifTrue:[

	dx := self width // 2.

    ] ifFalse:[

	dx := 0

    ].

    centerY ifTrue:[

	dy := self height // 2.

    ] ifFalse:[

	dy := 0

    ].

    self origin:(aPoint - (dx @ dy)).

    self makeFullyVisible.

    self openModal

    "

     |b|

     b := InfoBox title:'hello'.

     b showAt:(100 @ 100).

     b showAt:(100 @ 100) centerX:true centerY:false.

    "

    self showAt:(device center) center:true

    "

     |b|

     b := InfoBox title:'hello'.

     b showAtCenter.

    "

!

showCenteredIn:aView

    "make myself visible at the screen center."

    |top|

    top := aView topView.

    top raise.

    self showAt:(top center + (aView originRelativeTo:top)) center:true

    "

     |b|

     b := InfoBox title:'hello'.

     b showCenteredIn:Transcript.

    "

    "

     |b|

     b := InfoBox title:'hello'.

     b showAtPointer.

    "

	intersects: (aView origin corner: aView corner)) 

	"

	 try to the right of the untouchable view

	"

	newX := (aView origin x + aView width).

	newX + width > device width ifTrue:[

	    newX := device width - width

	].

	pos x:newX.

	((Rectangle origin:pos extent:self extent) 

	    intersects: (aView origin corner: aView corner)) 

	ifTrue:[

	    "

	     try to the left of the untouchable view

	    "

	    newX := aView origin x - width.

	    "

	     should look for vertical possibilities too ...

	    "

	    pos x:newX.

	]

	"

	 this is a kludge for IRIS which does not provide backingstore:

	 when we hide a modalbox (such as a searchbox) which covered

	 a scrollbar, the scrollbars bitblt-method will copy from the

	 not-yet redrawn area - effectively clearing the scroller.

	 We need a short delay here, since at this sime, the expose event has

	 not yet arrived.

	"

	(Delay forSeconds:0.1) wait.

	p processExposeEvents   

     evaluated then. The action will not be evaluated if

     the box is closed by the user pressing a button."

    "the implementation is simple: just fork of a process

     to hide me."

	(Delay forSeconds:seconds) wait.

	self shown ifTrue:[

	    self hide. 

	    anAction notNil ifTrue:[anAction value]

	]

visibilityChange:how

    "raise when covered - this should not be needed, since we

     have been created as override-redirect window (which should

     stay on top - but some window managers (fvwm) seem to ignore

     this ..."

    "code below is not good, since it will lead to

     oscillating raises when two modalBoxes are going to cover

     each other - see coveredBy:-handling ..."

"/    how ~~ #fullyVisible ifTrue:[

"/        self raise

"/    ]

!

coveredBy:aView

    "the receiver has been covered by another view.

     If the other view is a non-modal one, raise"

    |mainGroup topViews|

    "

     if the other view is not a modal- (or shadow-, or popup-) -view,