menu item strings
authorClaus Gittinger <cg@exept.de>
Tue, 02 Oct 2001 19:53:58 +0200
changeset 2420 2feaeecc1e43
parent 2419 2ae3350454bc
child 2421 bccbb97e8ab6
menu item strings
TextView.st
--- a/TextView.st	Tue Oct 02 19:43:11 2001 +0200
+++ b/TextView.st	Tue Oct 02 19:53:58 2001 +0200
@@ -1439,21 +1439,21 @@
     |items m|
 
     items := #(
-                        ('Copy'        copySelection  Copy)
-                        ('-'           nil            )
-                        ('Font ...'    changeFont     )
-                        ('-'           nil            )
-                        ('Search ...'  search         Find)
-                        ('Goto ...'    gotoLine       GotoLine)
-                        ('-'           nil            )
-                        ('Save as ...' save           SaveAs)
-                        ('Print'       doPrint        Print)
-                ).
+			('Copy'        copySelection  Copy)
+			('-'           nil            )
+			('Font...'     changeFont     )
+			('-'           nil            )
+			('Search...'   search         Find)
+			('Goto...'     gotoLine       GotoLine)
+			('-'           nil            )
+			('Save As...'  save           SaveAs)
+			('Print'       doPrint        Print)
+		).
 
     m := PopUpMenu itemList:items resources:resources.
 
     self hasSelectionForCopy ifFalse:[
-        m disable:#copySelection.
+	m disable:#copySelection.
     ].
     ^ m
 
@@ -3224,5 +3224,5 @@
 !TextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.169 2001-10-02 17:43:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.170 2001-10-02 17:53:58 cg Exp $'
 ! !