Launcher.st
changeset 382 894cc35095fc
parent 379 b7adadee426a
child 397 799d6b395675
--- a/Launcher.st	Wed Feb 21 01:45:41 1996 +0100
+++ b/Launcher.st	Wed Feb 21 13:12:11 1996 +0100
@@ -2179,15 +2179,17 @@
     |fileName|
 
     fileName := Dialog
-		    requestFileName:'save image in:'
-		    default:(defaultName , '.tiff')
-		    ok:'save'
-		    abort:'abort'
-		    pattern:'*.tiff'.
+                    requestFileName:(resources string:'save image in:')
+                    default:(defaultName , '.tiff')
+                    ok:(resources string:'save')
+                    abort:(resources string:'cancel')
+                    pattern:'*.tiff'.
 
     fileName notNil ifTrue:[
-	anImage saveOn:fileName
+        anImage saveOn:fileName
     ].
+
+    "Modified: 21.2.1996 / 13:09:28 / cg"
 ! !
 
 !NewLauncher methodsFor:'queries'!
@@ -2201,5 +2203,5 @@
 !NewLauncher class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.84 1996-02-20 23:07:17 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.85 1996-02-21 12:12:11 cg Exp $'
 ! !