#REFACTORING by cg
authorClaus Gittinger <cg@exept.de>
Wed, 20 Feb 2019 10:29:13 +0100
changeset 6534 e89344f07a33
parent 6533 9e80c2b5ba63
child 6535 3debd1835b49
#REFACTORING by cg class: DialogBox class changed: #requestFileNameForImageSave:image:default:pattern: removed the libtool prerequisite
DialogBox.st
--- a/DialogBox.st	Wed Feb 20 10:24:03 2019 +0100
+++ b/DialogBox.st	Wed Feb 20 10:29:13 2019 +0100
@@ -3392,16 +3392,18 @@
         fromDirectory:nil
         forSave:true
         whenBoxCreatedEvaluate:[:box |
-            |editButton paintButton copyButton|
+            |imageEditor editButton paintButton copyButton|
             "/ UserPreferences current useNewFileDialog ifFalse:[
-                editButton := Button label:(resources string:'Edit').
-                editButton
-                    action:[
-                        box hide; destroy.
-                        ImageEditor openOnImage:anImage.
-                    ].
-                box addButton:editButton.
-
+                (imageEditor := Smalltalk at:#ImageEditor) notNil ifTrue:[
+                    editButton := Button label:(resources string:'Edit').
+                    editButton
+                        action:[
+                            box hide; destroy.
+                            imageEditor openOnImage:anImage.
+                        ].
+                    box addButton:editButton.
+                ].
+                
                 paintButton := Button label:(resources string:'OS Editor').
                 paintButton
                     action:[
@@ -3433,6 +3435,8 @@
         default:'screen.png' 
         pattern:'*.png' 
     "
+
+    "Modified: / 20-02-2019 / 10:28:13 / Claus Gittinger"
 !
 
 requestFileNameForSave:titleString