--- a/AbstractLauncherApplication.st Wed Oct 27 11:40:55 2010 +0200
+++ b/AbstractLauncherApplication.st Wed Oct 27 11:41:11 2010 +0200
@@ -714,46 +714,47 @@
|fileName|
fileName := Dialog
- requestFileName:(resources string:'Save hardcopy image in:')
- default:(defaultName , '.tiff')
- ok:(resources string:'Save')
- abort:(resources string:'Cancel')
- pattern:'*.tiff'
- fromDirectory:nil
- whenBoxCreatedEvaluate:[:box |
- |editButton msPaintButton|
- "/ UserPreferences current useNewFileDialog ifFalse:[
- editButton := Button label:(resources string:'Edit').
- editButton
- action:[
- box hide; destroy.
- ImageEditor openOnImage:anImage.
- ].
- box addButton:editButton.
- "/ ]
- (OperatingSystem isMSWINDOWSlike
- and:[ true "OperatingSystem canExecuteCommand:'C:\Windows\system32\mspaint.exe'" ]) ifTrue:[
- msPaintButton := Button label:(resources string:'MS-Paint').
- msPaintButton
- action:[
- |tempFile|
-
- tempFile := Filename newTemporary withSuffix:'bmp'.
- box hide; destroy.
- anImage saveOn:tempFile.
- OperatingSystem
- openApplicationForDocument:tempFile operation:#edit.
- ].
- box addButton:msPaintButton.
- ].
- "/ ]
- ].
+ requestFileName:(resources string:'Save hardcopy image in:')
+ default:(defaultName , '.tiff')
+ ok:(resources string:'Save')
+ abort:(resources string:'Cancel')
+ pattern:'*.tiff'
+ fromDirectory:nil
+ forSave:true
+ whenBoxCreatedEvaluate:[:box |
+ |editButton msPaintButton|
+ "/ UserPreferences current useNewFileDialog ifFalse:[
+ editButton := Button label:(resources string:'Edit').
+ editButton
+ action:[
+ box hide; destroy.
+ ImageEditor openOnImage:anImage.
+ ].
+ box addButton:editButton.
+ "/ ]
+ (OperatingSystem isMSWINDOWSlike
+ and:[ true "OperatingSystem canExecuteCommand:'C:\Windows\system32\mspaint.exe'" ]) ifTrue:[
+ msPaintButton := Button label:(resources string:'MS-Paint').
+ msPaintButton
+ action:[
+ |tempFile|
+
+ tempFile := Filename newTemporary withSuffix:'bmp'.
+ box hide; destroy.
+ anImage saveOn:tempFile.
+ OperatingSystem
+ openApplicationForDocument:tempFile operation:#edit.
+ ].
+ box addButton:msPaintButton.
+ ].
+ "/ ]
+ ].
fileName notNil ifTrue:[
- anImage saveOn:fileName
- ].
-
- "Modified: / 21.2.1996 / 13:09:28 / cg"
- "Created: / 29.1.1998 / 23:20:36 / cg"
+ anImage saveOn:fileName
+ ].
+
+ "Created: / 29-01-1998 / 23:20:36 / cg"
+ "Modified: / 27-10-2010 / 11:22:12 / cg"
!
showDocumentation:aRelativeDocFilePath
@@ -6748,9 +6749,9 @@
!AbstractLauncherApplication class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.393 2010-07-23 09:49:40 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.394 2010-10-27 09:41:11 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.393 2010-07-23 09:49:40 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.394 2010-10-27 09:41:11 cg Exp $'
! !