--- 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 $'
! !