--- a/DialogBox.st Thu Dec 09 21:11:28 1999 +0100
+++ b/DialogBox.st Thu Dec 09 23:50:49 1999 +0100
@@ -2266,7 +2266,93 @@
!
-request:aString displayAt:aPoint centered:centered action:resultAction initialAnswer:initial okLabel:okLabel cancelLabel:cancelLabel title:titleString onCancel:cancelValue list:listToSelectFrom
+request:aString displayAt:aPoint centered:centered action:resultAction
+initialAnswer:initial okLabel:okLabel cancelLabel:cancelLabel title:titleString
+onCancel:cancelValue list:listToSelectFrom
+ "launch a Dialog, which allows user to enter a string.
+ The dialogs window is titled titleString, or the default (if nil).
+ If aPoint is nonNil, the box is shown there, optionally centered around it.
+ If it is nil, it is shown at the current pointer position or at the
+ screen center (if centered is true).
+ The ok-button is labelled okLabel (or the default, ifNil),
+ the cancel-button is labelled cancelLabel (or the default, ifNil).
+ Return the string or the value of cancelValue (if cancel was pressed)"
+
+ ^ self
+ request:aString
+ displayAt:aPoint
+ centered:centered
+ action:resultAction
+ initialAnswer:initial
+ okLabel:okLabel
+ cancelLabel:cancelLabel
+ title:titleString
+ onCancel:cancelValue
+ list:listToSelectFrom
+ initialSelection:nil
+
+ "
+ centered around 200@200:
+
+ Dialog
+ request:'enter a string:'
+ displayAt:200@200
+ centered:true
+ action:[:result | result printNewline]
+ initialAnswer:'the default'
+ okLabel:'yes'
+ cancelLabel:'no'
+ title:'foo'
+ onCancel:#foo
+
+ under mouse pointer:
+
+ Dialog
+ request:'enter a string:'
+ displayAt:nil
+ centered:false
+ action:[:result | result printNewline]
+ initialAnswer:'the default'
+ okLabel:'yes'
+ cancelLabel:'no'
+ title:'foo'
+ onCancel:#foo
+
+ centered on the screen:
+
+ Dialog
+ request:'enter a string:'
+ displayAt:nil
+ centered:true
+ action:[:result | result printNewline]
+ initialAnswer:'the default'
+ okLabel:'yes'
+ cancelLabel:'no'
+ title:'foo'
+ onCancel:#foo
+
+ with a list:
+
+ Dialog
+ request:'enter a string:'
+ displayAt:nil
+ centered:true
+ action:[:result | result printNewline]
+ initialAnswer:'the default'
+ okLabel:'yes'
+ cancelLabel:'no'
+ title:'foo'
+ onCancel:#foo
+ list:#(foo bar baz)
+ "
+
+ "Created: / 29.5.1996 / 14:35:04 / cg"
+ "Modified: / 5.5.1999 / 10:50:22 / cg"
+!
+
+request:aString displayAt:aPoint centered:centered action:resultAction
+initialAnswer:initial okLabel:okLabel cancelLabel:cancelLabel title:titleString
+onCancel:cancelValue list:listToSelectFrom initialSelection:anInterval
"launch a Dialog, which allows user to enter a string.
The dialogs window is titled titleString, or the default (if nil).
If aPoint is nonNil, the box is shown there, optionally centered around it.
@@ -2285,6 +2371,9 @@
box list:listToSelectFrom.
].
box initialText:initial printString.
+ anInterval notNil ifTrue:[
+ box selectFrom:anInterval start to:anInterval stop.
+ ].
box abortAction:[:val | box destroy. ^ cancelValue value].
okLabel notNil ifTrue:[
box okText:okLabel.
@@ -2487,6 +2576,33 @@
"Modified: 29.5.1996 / 14:30:05 / cg"
!
+request:aString initialAnswer:initial initialSelection:anInterval
+ "launch a Dialog, which allows user to enter something.
+ Return the entered string (may be empty string) or nil (if cancel was pressed)"
+
+ ^ self
+ request:aString
+ displayAt:nil
+ centered:false
+ action:nil
+ initialAnswer:initial
+ okLabel:nil
+ cancelLabel:nil
+ title:nil
+ onCancel:''
+ list:nil
+ initialSelection:anInterval
+
+ "
+ Dialog
+ request:'enter a string:'
+ initialAnswer:'the default'
+ initialSelection:(1 to:3)
+ "
+
+ "Modified: 29.5.1996 / 14:30:05 / cg"
+!
+
request:aString initialAnswer:initial list:aList
"launch a Dialog, which allows user to enter something,
or select from a list of values.
@@ -6092,6 +6208,6 @@
!DialogBox class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.138 1999-12-09 20:11:28 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.139 1999-12-09 22:50:49 cg Exp $'
! !
DialogBox initialize!