--- 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.