diff -r fdbccd5f5d7d -r 7e13db2802df TextView.st
--- 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!