--- a/TextView.st Fri Nov 09 18:50:16 2001 +0100
+++ b/TextView.st Mon Nov 12 13:47:27 2001 +0100
@@ -1439,25 +1439,25 @@
|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 )
+ ('Search...' search Find)
+ ('Goto...' gotoLine GotoLine)
+ ('-' nil )
+ ('Font...' changeFont )
+ ('-' nil )
+ ('Save As...' save SaveAs)
+ ('Print' doPrint Print)
+ ).
m := PopUpMenu itemList:items resources:resources.
self hasSelectionForCopy ifFalse:[
- m disable:#copySelection.
+ m disable:#copySelection.
].
^ m
- "Modified: / 21.5.1998 / 15:44:37 / cg"
+ "Modified: / 12.11.2001 / 13:43:56 / cg"
!
find
@@ -3232,5 +3232,5 @@
!TextView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.174 2001-11-09 13:28:17 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.175 2001-11-12 12:47:27 cg Exp $'
! !