EditTextView.st
changeset 3406 c5efa51e7929
parent 3402 d6545009a22b
child 3409 d650e3ae9085
--- a/EditTextView.st	Wed Oct 11 21:51:43 2006 +0200
+++ b/EditTextView.st	Wed Oct 11 21:53:43 2006 +0200
@@ -4816,10 +4816,18 @@
                     ('Learn Macro \c'     learnMode:                  LearnKeyboardMacro)
                     ('Execute Macro'    executeLearnedKeyboardMacro ExecuteKeyboardMacro )
                     ('-'                                        )
-                    ('Special Characters...'    specialCharacters       )
+                ).
+    CharacterSetView notNil ifTrue:[
+        miscItems := miscItems ,
+                    #(
+                        ('Special Characters...'    specialCharacters       )
+                    ).
+    ].
+    miscItems := miscItems ,
+                #(
                     ('Font...'                  changeFont              )
 "/                    ('Encoding...'      changeEncoding          )
-            ).
+                ).
 
     translateItems := #(
                     ('English -> German'      (babelFishTranslate: 'en_de')   )
@@ -4939,7 +4947,7 @@
     ].
     ^ m.
 
-    "Modified: / 13.11.2001 / 10:39:16 / cg"
+    "Modified: / 11-10-2006 / 21:24:19 / cg"
 !
 
 getTextSelectionFromHistory
@@ -6639,5 +6647,5 @@
 !EditTextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.400 2006-10-09 08:41:15 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.401 2006-10-11 19:53:43 cg Exp $'
 ! !