--- a/EditTextView.st	Thu Jul 14 12:11:53 2011 +0200
+++ b/EditTextView.st	Thu Jul 14 12:13:32 2011 +0200
@@ -5591,7 +5591,6 @@
                     ('Paste Previous...'   pasteOrReplaceFromHistory PasteFromHistory )
                     ('Join Lines'       joinLines                    Join )
                     ('Wrap Lines'       wrapLines                    Wrap )
-                    ('Toggle Case'      convertSelectionToLowercaseOrUppercaseOrUppercaseFirst   ConvertSelectionToLowercaseOrUppercaseOrUppercaseFirst)
                     ('-'                                        )
                     ('Learn Macro'      learnMode:                   LearnKeyboardMacro)
                     ('Execute Macro'    executeLearnedKeyboardMacro  ExecuteKeyboardMacro )
@@ -5645,6 +5644,7 @@
 
     toolItems := #(
                     ('Indent'                      indent                     )
+                    ('Toggle Case'      convertSelectionToLowercaseOrUppercaseOrUppercaseFirst   ConvertSelectionToLowercaseOrUppercaseOrUppercaseFirst)
                     ('Sort'                        sort                       )
                     ('-'                                                      )
                     ('Google Spell'                googleSpellingSuggestion   )
@@ -5766,7 +5766,7 @@
     ].
     ^ m.
 
-    "Modified (format): / 14-07-2011 / 12:00:28 / cg"
+    "Modified: / 14-07-2011 / 12:13:14 / cg"
 !
 
 getTextSelectionFromHistory
@@ -7987,9 +7987,9 @@
 !EditTextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.515 2011-07-14 10:11:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.516 2011-07-14 10:13:32 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.515 2011-07-14 10:11:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.516 2011-07-14 10:13:32 cg Exp $'
 ! !