--- a/TextView.st Tue Feb 25 15:41:51 2003 +0100
+++ b/TextView.st Tue Feb 25 15:43:24 2003 +0100
@@ -1652,27 +1652,52 @@
"save contents into a file
- ask user for filename using a fileSelectionBox."
- |fileBox|
-
- fileBox := FileSaveBox
- title:(resources string:'Save contents in:')
- okText:(resources string:'Save')
- abortText:(resources string:'Cancel')
- action:[:fileName | self saveAs:fileName].
- fileBox appendAction:[:fileName | self appendTo:fileName].
- directoryForFileDialog notNil ifTrue:[
- fileBox directory:directoryForFileDialog
- ].
- defaultFileNameForFileDialog notNil ifTrue:[
- fileBox initialText:defaultFileNameForFileDialog asString
- ].
- fileBox showAtPointer.
-
- directoryForFileDialog := fileBox directory. "/ remember for next time
-
- fileBox destroy.
-
- "Modified: 16.4.1997 / 20:49:26 / cg"
+ Dialog
+ requestSaveFileName:(resources string:'Save contents in:')
+ default:defaultFileNameForFileDialog
+ fromDirectory:directoryForFileDialog
+ action:[:fileName | self saveAs:fileName]
+ appendAction:[:fileName | self appendTo:fileName]
+
+"/ |fileBox fileName|
+"/
+"/true ifTrue:[
+"/ fileName := FileDialog
+"/ requestFileName:(resources string:'Save contents in:')
+"/ default:(defaultFileNameForFileDialog ifNotNil:[defaultFileNameForFileDialog asString])
+"/ ok:(resources string:'Save')
+"/ abort:nil
+"/ version:nil
+"/ ifFail:nil
+"/ pattern:nil
+"/ fromDirectory:directoryForFileDialog
+"/ whenBoxCreatedEvaluate:[:dialog | dialog appendButtonVisibleHolder value:true].
+"/
+"/ fileName size > 0 ifTrue:[
+"/self halt.
+"/ self saveAs:fileName.
+"/ ].
+"/ ^ self.
+"/].
+"/ fileBox := FileSaveBox
+"/ title:(resources string:'Save contents in:')
+"/ okText:(resources string:'Save')
+"/ abortText:(resources string:'Cancel')
+"/ action:[:fileName | self saveAs:fileName].
+"/ fileBox appendAction:[:fileName | self appendTo:fileName].
+"/ directoryForFileDialog notNil ifTrue:[
+"/ fileBox directory:directoryForFileDialog
+"/ ].
+"/ defaultFileNameForFileDialog notNil ifTrue:[
+"/ fileBox initialText:defaultFileNameForFileDialog asString
+"/ ].
+"/ fileBox showAtPointer.
+"/
+"/ directoryForFileDialog := fileBox directory. "/ remember for next time
+"/
+"/ fileBox destroy.
+"/
+"/ "Modified: 16.4.1997 / 20:49:26 / cg"
!
saveAs:fileName
@@ -3591,7 +3616,7 @@
!TextView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.192 2003-02-25 12:13:58 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.193 2003-02-25 14:43:24 cg Exp $'
! !
TextView initialize!