*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Thu, 30 Oct 2008 12:27:03 +0100
changeset 2424 12831cc181ba
parent 2423 0c5ac1daf0e4
child 2425 22db8982a5c9
*** empty log message ***
ImageEditor.st
--- a/ImageEditor.st	Sun Oct 26 21:05:43 2008 +0100
+++ b/ImageEditor.st	Thu Oct 30 12:27:03 2008 +0100
@@ -2142,7 +2142,6 @@
             itemValue: do3DProjection
             translateLabel: true
           )
-
          (MenuItem
             label: 'Flip'
             translateLabel: true
@@ -2260,12 +2259,11 @@
             itemValue: doInsertTextFromUser
             translateLabel: true
           )
+
          )
         nil
         nil
       )
-
-    "Modified: / 11-11-2007 / 12:19:32 / cg"
 !
 
 menuFile
@@ -5206,7 +5204,8 @@
 doInsertTextFromUser
     |text tempForm tempImage maskImage font w h|
 
-    text := Dialog request:'Text to be inserted:'.
+    text := Dialog request:'Text to be inserted (placed as bitmap into clipboard for paste):'.
+    text isEmptyOrNil ifTrue:[^ self ].
 
     font := Font family:'arial' size:20.
     font := font onDevice:Screen current.