hg/stx-libwidg: comparison DialogBox.st

equal deleted inserted replaced

-:bd04131f84c8
+:574be1981be0
 !DialogBox class methodsFor:'common dialogs'!
 information:aString
 "launch a Dialog to tell user something"
-(InfoBox title:aString) showAtPointer
+(InfoBox title:aString) showAtPointer; destroy
 "
 Dialog information:'help'
 "
+"Modified: 29.5.1996 / 15:23:03 / cg"
 !
 warn:aString
 "launch a Dialog to warn user"
-(WarningBox title:aString) showAtPointer
+(WarningBox title:aString) showAtPointer; destroy
 "
 Dialog warn:'some warning message'
 Dialog warn:('some text with italic emphasis' asText
 Dialog warn:('some text with color emphasis' asText
 emphasizeFrom:6 to:10 with:(#color->Color blue);
 emphasizeFrom:16 to:20 with:(#color->Color red))
 "
-"Modified: 12.5.1996 / 16:11:48 / cg"
+"Modified: 29.5.1996 / 15:23:14 / cg"
 ! !
 !DialogBox class methodsFor:'confirmation dialogs'!
 confirm:aString
 |box answer|
 box := YesNoBox title:aString.
 box yesAction:[answer := true] noAction:[answer := false].
 what == false ifTrue:[
-	box okButton isReturnButton:false.
+box okButton isReturnButton:false.
-	box acceptReturnAsOK:false.
+box acceptReturnAsOK:false.
-	box noButton beReturnButton.
+box noButton beReturnButton.
 ].
 box showAtPointer.
 box yesAction:nil noAction:nil.
+box destroy.
 ^ answer
 "
 Dialog confirm:'really ?' initialAnswer:false
 Transcript showCR:(
-	Dialog confirm:'are you certain ?' initialAnswer:false
+Dialog confirm:'are you certain ?' initialAnswer:false
 )
 Transcript showCR:(
-	Dialog confirm:'are you certain ?' initialAnswer:true
+Dialog confirm:'are you certain ?' initialAnswer:true
 )
 "
-"Modified: 27.1.1996 / 14:24:39 / cg"
+"Modified: 29.5.1996 / 15:23:42 / cg"
 !
 confirm:aString title:title yesLabel:yesText noLabel:noText
 "launch a Dialog, which allows user to enter yes or no.
 return true for yes, false for no.
 title notNil ifTrue:[
 box label:title
 ].
 box showAtPointer.
 box yesAction:nil noAction:nil.
+box destroy.
 ^ answer
 "
 Dialog
 confirm:'really ?'
 yesLabel:'oh well'
 noLabel:'nope'
 "
 "Created: 21.2.1996 / 01:10:14 / cg"
-"Modified: 8.3.1996 / 21:15:56 / cg"
+"Modified: 29.5.1996 / 15:23:59 / cg"
 !
 confirm:aString yesLabel:yesText noLabel:noText
 "launch a Dialog, which allows user to enter yes or no.
 return true for yes, false for no.
 |box answer|
 box := OptionBox title:aString numberOfOptions:3.
 box buttonTitles:(self classResources array:
-			#('cancel'
+#('cancel'
-			  'no'
+'no'
-			  'yes')
+'yes')
-		     )
+)
-	     actions:(Array with:[answer := nil]
+actions:(Array with:[answer := nil]
-			    with:[answer := false]
+with:[answer := false]
-			    with:[answer := true]
+with:[answer := true]
-		     ).
+).
 box showAtPointer.
 box actions:nil.
+box destroy.
 ^ answer
 "
 Dialog confirmWithCancel:'really ?'
 Transcript showCR:(
-	Dialog confirmWithCancel:'really ?'
+Dialog confirmWithCancel:'really ?'
 )
 "
-"Modified: 27.1.1996 / 14:25:49 / cg"
+"Modified: 29.5.1996 / 15:24:06 / cg"
 ! !
 !DialogBox class methodsFor:'defaults'!
 defaultLabel
 fileBox := FileSelectionBox
 title:title
 okText:'ok'
 abortText:'cancel'
-action:[:fileName | ^ fileName].
+action:[:fileName | fileBox destroy. ^ fileName].
 fileBox initialText:aFileName.
 fileBox selectingDirectory:true.
 fileBox showAtPointer.
+fileBox destroy.
 ^ failBlock value
 "
 Dialog
 requestDirectoryName:'which directory ?'
 default:'/etc'
 ifFail:'none'
 "
 "Created: 19.4.1996 / 14:31:04 / cg"
-"Modified: 19.4.1996 / 14:31:26 / cg"
+"Modified: 29.5.1996 / 15:24:30 / cg"
 !
 requestFileName
 "launch a Dialog, which allows the user to enter a filename.
 Return the pathname string consisting of the full pathname of the filename,
 "launch a Dialog, which allows user to enter a filename.
 The files presented initially are those in aDirectoryPath, or the
 current directory (if a nil path is given).
 The box will show okText in its okButton, abortText in the abortButton.
 The matchPattern is set to pattern initially.
-Return the string or nil if cancel was pressed."
+Return the string, or nil if cancel was pressed."
 |box|
 box := FileSelectionBox
 title:titleString
 okText:okText
 abortText:abortText
-action:[:fileName | ^fileName].
+action:[:fileName | box destroy. ^ fileName].
 aDirectoryPath notNil ifTrue:[box directory:aDirectoryPath].
 box pattern:pattern.
 box initialText:defaultName.
 box showAtPointer.
 box action:nil.
+box destroy.
 ^ nil
 "
 Dialog
 requestFileName:'enter a fileName:'
 default:''
 ok:'yeah'
 abort:'oh, no'
 pattern:'rc*'
 fromDirectory:'/etc'
 "
-"Modified: 19.4.1996 / 14:07:32 / cg"
+"Modified: 29.5.1996 / 15:25:40 / cg"
 !
 requestFileName:titleString default:defaultName version:versionSymbol
 "launch a Dialog, which allows user to enter a filename.
 The box will not allow pressing 'ok' without an entered string.
 name asFilename exists ifFalse:[
 (self confirm:(ClassResources string:'''%1'' does not exist yet.\\Continue anyway ?' with:box fileName) withCRs)
 ifFalse:[^ ''].
 ].
 ].
+box destroy.
 ^ name
 ].
 box showAtPointer.
 box action:nil.
+box destroy.
 ^ failBlock value
 "
 Dialog
 requestFileName:'enter a fileName:'
 version:#mustBeNew
 ifFail:['none']
 fromDirectory:'/etc'
 "
-"Modified: 19.4.1996 / 14:25:15 / cg"
+"Modified: 29.5.1996 / 15:25:57 / cg"
 !
 requestFileName:titleString ifFail:cancelBlock
 "launch a Dialog, which allows user to enter a filename.
 Return the pathname string consisting of the full pathname of the filename,
 |box|
 box := EnterBox title:aString.
 box initialText:initial.
-box abortAction:[:val | ^ cancelValue value].
+box abortAction:[:val | box destroy. ^ cancelValue value].
 okLabel notNil ifTrue:[
 box okText:okLabel.
 ].
 cancelLabel notNil ifTrue:[
 box abortText:cancelLabel
 ].
 resultAction isNil ifTrue:[
-box action:[:val | ^ val]
+box action:[:val | box destroy. ^ val]
 ] ifFalse:[
-box action:[:val | ^ resultAction value:val]
+box action:[:val | box destroy. ^ resultAction value:val]
 ].
 titleString notNil ifTrue:[
 box label:titleString
 ].
 box showAtCenter
 ] ifFalse:[
 box showAtPointer
 ]
 ].
+box destroy.
 ^ cancelValue value.
 "
 centered around 200@200:
 title:'foo'
 onCancel:#foo
 "
 "Created: 29.5.1996 / 14:35:04 / cg"
-"Modified: 29.5.1996 / 14:37:13 / cg"
+"Modified: 29.5.1996 / 15:26:34 / cg"
 !
 request:aString displayAt:aPoint centered:centered action:resultAction initialAnswer:initial onCancel:cancelValue
 "launch a Dialog, which allows user to enter a string.
 If aPoint is nonNil, the box is shown there, optionally centered.
 listView notNil ifTrue:[box stickAtBottomWithVariableHeight:listView].
 panel notNil ifTrue:[box stickAtBottomWithFixHeight:panel].
 box showAtPointer.
+box destroy.
 box accepted ifTrue:[
 (answer := listView selection) notNil ifTrue:[
 ^ listValues at:answer
 ]
 ].
 )
 "
-"Modified: 19.4.1996 / 19:02:39 / cg"
+"Modified: 29.5.1996 / 15:27:22 / cg"
 !
 choose:aString fromList:list values:listValues lines:maxLines cancel:cancelBlock
 "launch a Dialog showing the message and list.
 The user can select an item and click ok; in this case, the corresponding value
 |box answer idx|
 box := OptionBox title:aString numberOfOptions:buttonLabels size.
 box buttonTitles:(self classResources array:buttonLabels)
-	     actions:(values collect:[:val | [answer := val]]).
+actions:(values collect:[:val | [answer := val]]).
 answer := default.
 box buttons last isReturnButton:false.
 idx := values indexOf:default.
 idx ~~ 0 ifTrue:[box defaultButtonIndex:idx].
 box showAtPointer.
+box destroy.
 box actions:nil.
 ^ answer
 "no good style (default button is not the rightmost one)
 Dialog
-	choose:'choose any'
+choose:'choose any'
-	labels:#('one' 'two' 'three' 'four')
+labels:#('one' 'two' 'three' 'four')
-	values:#(1 2 3 4)
+values:#(1 2 3 4)
-	default:2
+default:2
 Dialog
-	choose:'choose any'
+choose:'choose any'
-	labels:#('cancel' 'foo' 'bar' 'baz')
+labels:#('cancel' 'foo' 'bar' 'baz')
-	values:#(nil foo bar baz)
+values:#(nil foo bar baz)
-	default:#baz
+default:#baz
 Dialog
-	choose:'choose any'
+choose:'choose any'
-	labels:#('one' 'two' 'three' 'four')
+labels:#('one' 'two' 'three' 'four')
-	values:#(1 2 3 4)
+values:#(1 2 3 4)
-	default:nil
+default:nil
 "
-"Modified: 27.1.1996 / 13:48:17 / cg"
+"Modified: 29.5.1996 / 15:27:32 / cg"
 ! !
 !DialogBox methodsFor:'accessing'!
 abortText:aString
 ! !
 !DialogBox class methodsFor:'documentation'!
 version
-^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.78 1996-05-29 13:16:23 cg Exp $'
+^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.79 1996-05-29 13:28:01 cg Exp $'
 ! !
 DialogBox initialize!

changeset 719	574be1981be0
parent 718	bd04131f84c8
child 735	2552463a8f34