"{ Encoding: utf8 }"

"

 COPYRIGHT (c) 1990 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.

"

"{ Package: 'stx:libview' }"

"{ NameSpace: Smalltalk }"

StandardSystemView subclass:#ModalBox

	instanceVariableNames:'shadowView exclusiveKeyboard escapeIsCancel

		closeOnOutsideButtonPress'

	classVariableNames:'UseTransientViews DefaultExtent'

	poolDictionaries:''

	category:'Views-Basic'

!

!ModalBox class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 1990 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.

"

!

documentation

"

    this class implements modal boxes; ModalBoxes are different from

    others, in that they take control over the current topview, until

    all processing is done (i.e. the currently active topview and all of

    its subviews will not handle user events while the box is active).

    ModalBoxes are either implemented as transient windows

    (if UseTransientViews := true) or as override redirect views.

    Some window managers have problems with either; so you may want to

    change the default setting from your display.rc file.

    [see also:]

	StandardSystemView

	DialogBox

	( introduction to view programming :html: programming/viewintro.html )

    [author:]

	Claus Gittinger

"

! !

!ModalBox class methodsFor:'initialization'!

initialize

    UseTransientViews := true.

    "

     UseTransientViews := false

    "

    "Modified: 24.7.1997 / 15:18:59 / cg"

! !

!ModalBox class methodsFor:'defaults'!

defaultExtent

    "this defines the defaultExtent for instances of me;

     the value returned here is usually not correct for concrete subclasses,

     so you better redefine this method.

     The value returned here is usually ignored, and

     the value from preferredExtent taken instead."

    DefaultExtent notNil ifTrue:[

	^ DefaultExtent

    ].

    ^ (Screen current pixelPerMillimeter * (60 @ 20)) rounded

    "Modified: / 27.7.1998 / 20:15:15 / cg"

!

defaultLabel

    "return the boxes default window title."

    ^ 'PopUp'

    "Created: 23.4.1996 / 17:14:21 / cg"

!

updateStyleCache

    "extract values from the styleSheet and cache them in class variables"

    <resource: #style (#'modalBox.defaultExtent')>

    DefaultExtent := StyleSheet at:'modalBox.defaultExtent' default:nil.

    "

     self updateStyleCache

    "

    "Modified: 31.8.1995 / 03:01:14 / claus"

    "Created: 15.8.1997 / 01:40:53 / cg"

    "Modified: 20.10.1997 / 15:07:37 / cg"

!

useTransientViews:aBoolean

    "change the way modalBoxes are created on the Display.

     If the argument is true, transient views are used;

     otherwise override redirect views are used.

     Depending on your windowmanager, either one may have problems.

     You may want to change the setting

     from your display.rc or d_xxx.rc file.

     This is now obsolete - transient views work and are always used."

    UseTransientViews := aBoolean.

    "

     ModalBox useTransientViews:false

     ModalBox useTransientViews:true

    "

    "Modified: 28.2.1997 / 22:27:46 / cg"

! !

!ModalBox methodsFor:'accessing'!

escapeIsCancel

    "return the escapeIsCancel setting - defaults to true for modalMox here."

    ^ escapeIsCancel

!

exclusiveKeyboard:aBoolean

    "set/clear exclusive locking of the keyboard;

     If set, the box will take total control over the

     keyboard, not allowing input to other views/boxes

     while active.

     DANGER:

	only use this for very very urgent boxes, since

	no interaction with ANY view on the screen is possible then."

    exclusiveKeyboard := aBoolean

    "Modified: 12.5.1996 / 21:55:09 / cg"

!

windowTitle

    ^ super label

    "Created: / 26-08-2018 / 17:03:56 / Claus Gittinger"

!

windowTitle:windowTitleString

    "set the boxes window title string"

    super label:windowTitleString.

    "Created: / 26-08-2018 / 17:01:23 / Claus Gittinger"

! !

!ModalBox methodsFor:'event handling'!

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,

     bring myself to the front again.

    "

    aView isPopUpView ifFalse:[

	"

	 if I have a mainGroup,

	 only raise if it's one of my maingroup-views

	"

	windowGroup notNil ifTrue:[

	    mainGroup := windowGroup mainGroup.

	    mainGroup notNil ifTrue:[

		topViews := mainGroup topViews.

		topViews notNil ifTrue:[

		    topViews do:[:eachTopView |

			aView == eachTopView ifTrue:[

			    self raise.

			    ^ self

			]

		    ]

		].

		^ self

	    ]

	].

	self raise

    ]

    "Modified (format): / 13-02-2017 / 20:27:00 / cg"

!

terminate

    "this is the close from a windowmanager

     (only if UseTransientViews == true)"

    "

     if I am a dialog, make the receiver invisible and leave control.

     But, do not destroy the underlying view resources, to allow for

     another open/show to occur later.

     if I have been opened modeLess, perform the normal destroy operation.

    "

    (windowGroup isNil or:[windowGroup isModal]) ifTrue:[

	self hide

    ] ifFalse:[

	super terminate

    ]

!

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 ..."

    "the 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

"/    ]

     super visibilityChange:how.

!

xxxpointerEnter:state x:x y:y

    "mhmh: this seems to be a special X kludge;

     without the following, we will not regain input focus after

     pointer is reentered."

"/

"/ experimental: disabled; bad behavior with some windowManagers,

"/ if enter/leave events are processed late.

"/

    self getKeyboardFocus.

    super pointerEnter:state x:x y:y

    "Created: / 8.12.1997 / 19:18:45 / cg"

    "Modified: / 8.12.1997 / 19:19:39 / cg"

! !

!ModalBox methodsFor:'initialization & release'!

addToCurrentProject

    "ignored here"

    ^ self

!

create

    super create.

    shadowView notNil ifTrue:[

	self saveUnder:true

    ]

!

destroy

    "destroy the view.

     redefined to also destroy my shadow, if there is one,

     and to release the global keyboard grab (if there is one)"

    shadowView notNil ifTrue:[

	shadowView destroy.

	shadowView := nil

    ].

    exclusiveKeyboard ifTrue:[

	self forceUngrabKeyboard

    ].

    super destroy.

    "Modified: 12.5.1996 / 21:56:10 / cg"

!

initEvents

    "initialize event handling; redefined to enable visibility changes"

    super initEvents.

    self enableEvent:#visibilityChange.

    escapeIsCancel := true.

    "Modified: 12.5.1996 / 21:56:31 / cg"

!

initStyle

    "setup viewStyle specifics"

    |style|

    super initStyle.

    style := styleSheet name.

    ((style ~~ #normal) and:[style ~~ #mswindows]) ifTrue:[

	self borderWidth:0.

	UseTransientViews ifFalse:[

	    self level:2

	]

    ]

    "Modified: 22.1.1997 / 11:57:35 / cg"

!

initialize

    <modifier: #super> "must be called if redefined"

    |form resizeButton moveButton|

    super initialize.

    "/ self beDialogView.

    self beToolDialog.

    exclusiveKeyboard := false.

"/    label := ' '.

"/    label := 'Popup'.

    UseTransientViews ifFalse:[

	(PopUpView shadowsOnDevice:device) ifTrue:[

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

	].

	form := Form width:8 height:8

		     fromArray:#[2r00000000

				 2r00000000

				 2r00000000

				 2r00000001

				 2r00000011

				 2r00000111

				 2r00001111

				 2r00011111

				]

		     onDevice:device.

	resizeButton := Button label:form in:self.

	resizeButton origin:1.0 @ 1.0 corner:1.0@1.0.

	resizeButton activeForegroundColor:(resizeButton foregroundColor).

	resizeButton activeBackgroundColor:(resizeButton backgroundColor).

	resizeButton enteredBackgroundColor:(resizeButton backgroundColor).

	resizeButton leftInset:-8; topInset:-8.

	resizeButton releaseAction:[].

	resizeButton pressAction:[resizeButton turnOff; redraw. self doResize].

	resizeButton borderWidth:0.

	resizeButton activeLevel:0; passiveLevel:0.

	resizeButton cursor:(Cursor corner).

	form := Form width:8 height:8

		     fromArray:#[2r11111000

				 2r11110000

				 2r11100000

				 2r11000000

				 2r10000000

				 2r00000000

				 2r00000000

				 2r00000000

				]

		     onDevice:device.

	moveButton := Button label:form in:self.

	moveButton origin:0.0 @ 0.0 corner:0.0@0.0.

	moveButton activeForegroundColor:(moveButton foregroundColor).

	moveButton activeBackgroundColor:(moveButton backgroundColor).

	moveButton enteredBackgroundColor:(moveButton backgroundColor).

	moveButton rightInset:-8; bottomInset:-8.

	moveButton releaseAction:[].

	moveButton pressAction:[moveButton turnOff; redraw. self doMove].

	moveButton borderWidth:0.

	moveButton activeLevel:0; passiveLevel:0.

	moveButton cursor:(Cursor origin)

    ].

    "Modified (format): / 08-02-2017 / 00:26:36 / cg"

!

isPopUpView

    "return true, if I want to come up without decoration

     and popUp to top immediately."

    ^ self windowStyle == #popUp

    "Modified: / 24-07-1997 / 15:20:14 / cg"

    "Modified: / 01-04-2020 / 10:25:11 / Stefan Vogel"

!

realize

    super realize.

    self assignInitialKeyboardFocus.

    "Modified: / 3.5.1996 / 23:48:04 / stefan"

    "Modified: / 20.5.1999 / 18:17:34 / cg"

!

reinitialize

    "if I have already been reinited - return"

    self drawableId notNil ifTrue:[

	^ self

    ].

    "physically create the view & subviews"

    self recreate.

"/   super reinitialize.

"/   self unmap.

    "Modified: / 3.5.1996 / 23:48:04 / stefan"

    "Modified: / 6.5.1999 / 09:38:06 / cg"

!

resize

    "resize myself to make everything visible"

    |newExtent maxExtent|

    newExtent := self preferredExtent.

    newExtent := newExtent min:(device extent).

    maxExtent := self maxExtent.

    maxExtent notNil ifTrue:[

	newExtent := newExtent min:maxExtent.

    ].

    newExtent ~= self extent ifTrue:[

	(shown and:[shadowView notNil]) ifTrue:[

	    shadowView unmap.

	    self extent:newExtent.

	    shadowView realize.

	    self raise

	] ifFalse:[

	    self extent:newExtent.

	].

    ].

    "Modified: / 21-01-2011 / 13:50:11 / cg"

!

resizeUnderPointer

    "resize myself to make everything visible, AND possibly change the origin

     to have the mouse pointer stay within my bounds.

     This is used for self-resizing enterBoxes, to avoid moving

     the box away from the cursor."

    |newExtent newWidth newHeight newLeft newRight newTop newBottom delta screenWidth|

    newExtent := self preferredExtent.

    newExtent = self extent ifTrue:[^ self].

    shown ifTrue:[

	"/ new code (after 15.3.2017)

	newWidth := newExtent x.

	newHeight := newExtent y.

	newLeft := left.

	newTop := top.

	newRight := left + newWidth.

	newBottom := top + newHeight.

	newRight > device usableWidth ifTrue:[

	    newLeft := device usableWidth - newWidth.

	    newLeft < 0 ifTrue:[

		newLeft := 0.

		newRight := newWidth := device usableWidth.

	    ].

	].

	newBottom > device usableHeight ifTrue:[

	    newTop := device usableHeight - newHeight.

	    newTop < 0 ifTrue:[

		newTop := 0.

		newBottom := newHeight := device usableHeight.

	    ].

	].

	newExtent := newWidth @ newHeight.

"/ old code (before 15.3.2017).

"/        delta := width - newExtent x.

"/        newLeft := left + delta.

"/        (((newLeft @ top) extent:newExtent) containsPoint:device pointerPosition