--- a/ModalBox.st Tue Apr 23 13:40:48 1996 +0200
+++ b/ModalBox.st Tue Apr 23 17:16:31 1996 +0200
@@ -68,6 +68,14 @@
"Modified: 22.4.1996 / 23:37:06 / cg"
!
+defaultLabel
+ "return the boxes default window title."
+
+ ^ 'PopUp'
+
+ "Created: 23.4.1996 / 17:14:21 / cg"
+!
+
useTransientViews:aBoolean
"change the way modalBoxes are created on the Display.
If the argument is true, transient views are used; otherwise
@@ -222,62 +230,63 @@
type := #dialog.
exclusiveKeyboard := false.
- label := ' '.
+"/ label := ' '.
- label := 'Popup'.
+"/ label := 'Popup'.
UseTransientViews ifFalse:[
- PopUpView shadows ifTrue:[
- shadowView := (ShadowView onDevice:device) for:self
- ].
+ PopUpView shadows ifTrue:[
+ shadowView := (ShadowView onDevice:device) for:self
+ ].
- form := Form width:8 height:8
- fromArray:#[2r00000000
- 2r00000000
- 2r00000000
- 2r00000001
- 2r00000011
- 2r00000111
- 2r00001111
- 2r00011111
- ]
- on:device.
- resizeButton := Button form: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 onLevel:0; offLevel:0.
- resizeButton cursor:(Cursor corner).
+ form := Form width:8 height:8
+ fromArray:#[2r00000000
+ 2r00000000
+ 2r00000000
+ 2r00000001
+ 2r00000011
+ 2r00000111
+ 2r00001111
+ 2r00011111
+ ]
+ on:device.
+ resizeButton := Button form: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 onLevel:0; offLevel:0.
+ resizeButton cursor:(Cursor corner).
- form := Form width:8 height:8
- fromArray:#[2r11111000
- 2r11110000
- 2r11100000
- 2r11000000
- 2r10000000
- 2r00000000
- 2r00000000
- 2r00000000
- ]
- on:device.
- moveButton := Button form: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 onLevel:0; offLevel:0.
- moveButton cursor:(Cursor origin)
+ form := Form width:8 height:8
+ fromArray:#[2r11111000
+ 2r11110000
+ 2r11100000
+ 2r11000000
+ 2r10000000
+ 2r00000000
+ 2r00000000
+ 2r00000000
+ ]
+ on:device.
+ moveButton := Button form: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 onLevel:0; offLevel:0.
+ moveButton cursor:(Cursor origin)
].
+ "Modified: 23.4.1996 / 17:15:37 / cg"
!
isPopUpView
@@ -759,6 +768,6 @@
!ModalBox class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview/ModalBox.st,v 1.38 1996-04-22 21:41:34 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview/ModalBox.st,v 1.39 1996-04-23 15:16:31 cg Exp $'
! !
ModalBox initialize!