class: FileDialog
comment/format in:
#startApplicationFor:default:ok:abort:ifFail:pattern:fromDirectory:whenBoxCreatedEvaluate:asLoadDialog:viewFiles:multipleSelect:
#startFilename
#startFilename:
changed: #filenameHolder
pre initialize the filename holder
(filename field was empty, for example: in a fileOut-as dialog from browser)
--- a/FileDialog.st Tue Jun 25 10:20:42 2013 +0200
+++ b/FileDialog.st Tue Jun 25 10:23:43 2013 +0200
@@ -613,7 +613,7 @@
initialDefaultFileName := initialDefaultFileNameArg.
initialDefaultFileName notNil ifTrue:[
- initialDefaultFileName := initialDefaultFileName asFilename
+ initialDefaultFileName := initialDefaultFileName asFilename.
].
okText := okTextArg.
@@ -1277,8 +1277,6 @@
!
startFilename
- "return the value of the instance variable 'startFilename' (automatically generated)"
-
startFilename isNil ifTrue:[
startFilename := Filename currentDirectory asAbsoluteFilename.
].
@@ -1286,8 +1284,6 @@
!
startFilename:something
- "set the value of the instance variable 'startFilename' (automatically generated)"
-
startFilename := something.
! !
@@ -1474,7 +1470,7 @@
holder := builder bindingAt:#filenameHolder.
holder isNil ifTrue:[
- holder := ValueHolder new.
+ holder := startFilename asValue.
holder addDependent:self.
builder aspectAt:#filenameHolder put:holder.
].
@@ -2071,11 +2067,11 @@
!FileDialog class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/FileDialog.st,v 1.122 2013-06-14 09:17:39 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/FileDialog.st,v 1.123 2013-06-25 08:23:43 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/FileDialog.st,v 1.122 2013-06-14 09:17:39 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/FileDialog.st,v 1.123 2013-06-25 08:23:43 cg Exp $'
!
version_HG
@@ -2084,6 +2080,6 @@
!
version_SVN
- ^ '$Id: FileDialog.st,v 1.122 2013-06-14 09:17:39 cg Exp $'
+ ^ '$Id: FileDialog.st,v 1.123 2013-06-25 08:23:43 cg Exp $'
! !