equal
deleted
inserted
replaced
1028 |
1028 |
1029 editMenu |
1029 editMenu |
1030 "return my popUpMenu" |
1030 "return my popUpMenu" |
1031 |
1031 |
1032 <resource: #keyboard (#Copy #Find #GotoLine #SaveAs #Print)> |
1032 <resource: #keyboard (#Copy #Find #GotoLine #SaveAs #Print)> |
1033 <resource: #menu> |
1033 <resource: #programMenu> |
1034 |
1034 |
1035 |labels selectors m| |
1035 |labels selectors m| |
1036 |
1036 |
1037 labels := #( |
1037 labels := #( |
1038 'copy' |
1038 'copy' |
1076 self hasSelection ifFalse:[ |
1076 self hasSelection ifFalse:[ |
1077 m disable:#copySelection. |
1077 m disable:#copySelection. |
1078 ]. |
1078 ]. |
1079 ^ m |
1079 ^ m |
1080 |
1080 |
1081 "Modified: 7.3.1997 / 11:10:17 / cg" |
1081 "Modified: 3.7.1997 / 13:54:09 / cg" |
1082 ! |
1082 ! |
1083 |
1083 |
1084 gotoLine |
1084 gotoLine |
1085 "show a box to enter lineNumber for positioning" |
1085 "show a box to enter lineNumber for positioning" |
1086 |
1086 |
2484 ! ! |
2484 ! ! |
2485 |
2485 |
2486 !TextView class methodsFor:'documentation'! |
2486 !TextView class methodsFor:'documentation'! |
2487 |
2487 |
2488 version |
2488 version |
2489 ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.97 1997-06-28 19:58:53 cg Exp $' |
2489 ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.98 1997-07-03 12:29:11 cg Exp $' |
2490 ! ! |
2490 ! ! |