#FEATURE by cg
class: DialogBox class
added: #requestFileName:whenBoxCreatedEvaluate:
comment/format in:
#requestFileName
#requestFileName:default:ok:abort:
changed:
#requestFileName:
#requestFileName:default:
#requestFileName:default:ifFail:
#requestFileName:default:ok:abort:pattern:
#requestFileName:default:ok:abort:pattern:fromDirectory:
#requestFileName:default:pattern:
#requestFileName:default:pattern:fromDirectory:
#requestFileName:default:version:
#requestFileName:default:version:ifFail:
#requestFileName:default:version:ifFail:fromDirectory:
#requestFileName:ifFail:
#requestFileNameForSave:
#requestFileNameForSave:default:
--- a/DialogBox.st Fri Feb 14 17:00:53 2020 +0100
+++ b/DialogBox.st Wed Feb 19 21:11:04 2020 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
"
COPYRIGHT (c) 1994 by Claus Gittinger
All Rights Reserved
@@ -2509,8 +2511,7 @@
Return the pathname string consisting of the full pathname of the filename,
or an empty string (if cancel was pressed)."
- ^ self
- requestFileName:'filename:'
+ ^ self requestFileName:'filename:'
"
Dialog requestFileName
@@ -2526,8 +2527,14 @@
or an empty string (if cancel was pressed)."
^ self
- requestFileName:titleString
- default:'file.ext'
+ requestFileName:titleString
+ default:'file.ext'
+ version:nil
+ ifFail:''
+ pattern:nil
+ fromDirectory:nil
+ forSave:false
+ whenBoxCreatedEvaluate:nil
"
Dialog requestFileName:'enter a fileName:'
@@ -2549,6 +2556,10 @@
default:defaultName
version:nil
ifFail:''
+ pattern:nil
+ fromDirectory:nil
+ forSave:false
+ whenBoxCreatedEvaluate:nil
"
Dialog requestFileName:'Enter a fileName:' default:''
@@ -2596,6 +2607,9 @@
default:defaultName
version:nil
ifFail:cancelBlockOrValue
+ pattern:nil
+ fromDirectory:nil
+ whenBoxCreatedEvaluate:nil
"
Dialog requestFileName:'enter a fileName:' default:''
@@ -2632,8 +2646,11 @@
^ self
requestFileName:titleString
default:defaultName
- ok:okText abort:abortText
+ ok:okText
+ abort:abortText
pattern:'*'
+ fromDirectory:nil
+ whenBoxCreatedEvaluate:nil
"
Dialog
@@ -2652,20 +2669,21 @@
Return the string or nil if cancel was pressed."
^ self
- requestFileName:titleString
- default:defaultName
- ok:okText
- abort:abortText
- pattern:pattern
- fromDirectory:nil
-
- "
- Dialog
- requestFileName:'enter a fileName:'
- default:''
- ok:'yeah'
- abort:'oh, no'
- pattern:'*.st'
+ requestFileName:titleString
+ default:defaultName
+ ok:okText
+ abort:abortText
+ pattern:pattern
+ fromDirectory:nil
+ whenBoxCreatedEvaluate:nil
+
+ "
+ Dialog
+ requestFileName:'enter a fileName:'
+ default:''
+ ok:'yeah'
+ abort:'oh, no'
+ pattern:'*.st'
"
"Modified: 20.2.1997 / 18:13:13 / cg"
@@ -2686,6 +2704,7 @@
abort:abortText
pattern:pattern
fromDirectory:aDirectoryPathOrNil
+ forSave:false
whenBoxCreatedEvaluate:nil
!
@@ -2928,6 +2947,8 @@
abort:(resources string:'Cancel')
pattern:pattern
fromDirectory:nil
+ forSave:false
+ whenBoxCreatedEvaluate:nil
"
Dialog
@@ -2963,6 +2984,8 @@
abort:(resources string:'Cancel')
pattern:pattern
fromDirectory:aDirectory
+ forSave:false
+ whenBoxCreatedEvaluate:nil
"
Dialog
@@ -2987,31 +3010,34 @@
Return the pathname string or the empty string if cancel was pressed.
The version argument allows validation of the files existance;
it may be any of:
- #mustBeNew - fail (return empty string) if the file exists
- #new - confirm if the file exists
- #mustBeOld - fail if the file does not exist
- #old - confirm if the file does not exist
- #any (other) - no validation
+ #mustBeNew - fail (return empty string) if the file exists
+ #new - confirm if the file exists
+ #mustBeOld - fail if the file does not exist
+ #old - confirm if the file does not exist
+ #any (other) - no validation
"
^ self
- requestFileName:titleString
- default:defaultName
- version:versionSymbol
- ifFail:''
+ requestFileName:titleString
+ default:defaultName
+ version:versionSymbol
+ ifFail:''
+ pattern:nil
+ fromDirectory:nil
+ whenBoxCreatedEvaluate:nil
"
Dialog requestFileName:'enter a fileName:'
- default:''
- version:nil
+ default:''
+ version:nil
Dialog requestFileName:'enter a fileName:'
- default:''
- version:#mustBeNew
+ default:''
+ version:#mustBeNew
Dialog requestFileName:'enter a fileName:'
- default:''
- version:#new
+ default:''
+ version:#new
"
"Modified: 19.4.1996 / 13:53:58 / cg"
@@ -3023,33 +3049,35 @@
Return the string or the value of failBlock if cancel was pressed.
The version argument allows validation of the files existance;
it may be any of:
- #mustBeNew - fail (return empty string) if the file exists
- #new - confirm if the file exists
- #mustBeOld - fail if the file does not exist
- #old - confirm if the file does not exist
- #any (other) - no validation
+ #mustBeNew - fail (return empty string) if the file exists
+ #new - confirm if the file exists
+ #mustBeOld - fail if the file does not exist
+ #old - confirm if the file does not exist
+ #any (other) - no validation
"
^ self
- requestFileName:titleString
- default:defaultName
- version:versionSymbol
- ifFail:failBlock
- fromDirectory:nil
-
- "
- Dialog
- requestFileName:'enter a fileName:'
- default:''
- version:nil
- ifFail:['none']
- "
- "
- Dialog
- requestFileName:'enter a fileName:'
- default:''
- version:#old
- ifFail:['none']
+ requestFileName:titleString
+ default:defaultName
+ version:versionSymbol
+ ifFail:failBlock
+ pattern:nil
+ fromDirectory:nil
+ whenBoxCreatedEvaluate:nil
+
+ "
+ Dialog
+ requestFileName:'enter a fileName:'
+ default:''
+ version:nil
+ ifFail:['none']
+ "
+ "
+ Dialog
+ requestFileName:'enter a fileName:'
+ default:''
+ version:#old
+ ifFail:['none']
"
"Modified: 19.4.1996 / 14:26:36 / cg"
@@ -3074,6 +3102,7 @@
ifFail:failBlock
pattern:nil
fromDirectory:aDirectoryPath
+ whenBoxCreatedEvaluate:nil
"
Dialog
@@ -3333,6 +3362,10 @@
default:'file.ext'
version:nil
ifFail:cancelBlockOrValue
+ pattern:nil
+ fromDirectory:nil
+ forSave:false
+ whenBoxCreatedEvaluate:nil
"
Dialog requestFileName:'enter a fileName:' ifFail:['foo']
@@ -3391,6 +3424,30 @@
"
!
+requestFileName:titleString whenBoxCreatedEvaluate:aBlockOrNil
+ "launch a Dialog, which allows user to enter a filename.
+ Return the pathname string consisting of the full pathname of the filename,
+ or an empty string (if cancel was pressed)."
+
+ ^ self
+ requestFileName:titleString
+ default:'file.ext'
+ version:nil
+ ifFail:''
+ pattern:nil
+ fromDirectory:nil
+ forSave:false
+ whenBoxCreatedEvaluate:aBlockOrNil
+
+ "
+ Dialog requestFileName:'enter a fileName:'
+ Dialog requestFileName:'enter a fileName:'
+ "
+
+ "Created: 27.1.1996 / 13:24:35 / cg"
+ "Modified: 19.4.1996 / 13:53:17 / cg"
+!
+
requestFileNameForImageSave:title image:anImage default:defaultName pattern:patternOrNil
"launch a Dialog, which allows user to enter a filename for a bitmap image save operation.
Return the pathname string consisting of the full pathname of the filename,
@@ -3462,8 +3519,14 @@
or an empty string (if cancel was pressed)."
^ self
- requestFileNameForSave:titleString
+ requestFileName:titleString
default:'file.ext'
+ version:nil
+ ifFail:''
+ pattern:nil
+ fromDirectory:nil
+ forSave:true
+ whenBoxCreatedEvaluate:nil
"
Dialog requestFileName:'enter a fileName:'
@@ -3480,10 +3543,14 @@
or an empty string (if cancel was pressed)."
^ self
- requestFileNameForSave:titleString
+ requestFileName:titleString
default:defaultName
version:nil
ifFail:''
+ pattern:nil
+ fromDirectory:nil
+ forSave:true
+ whenBoxCreatedEvaluate:nil
"
Dialog requestFileName:'enter a fileName:' default:''