equal
deleted
inserted
replaced
30 |
30 |
31 TextView comment:' |
31 TextView comment:' |
32 COPYRIGHT (c) 1989 by Claus Gittinger |
32 COPYRIGHT (c) 1989 by Claus Gittinger |
33 All Rights Reserved |
33 All Rights Reserved |
34 |
34 |
35 $Header: /cvs/stx/stx/libwidg/TextView.st,v 1.7 1994-08-07 13:23:28 claus Exp $ |
35 $Header: /cvs/stx/stx/libwidg/TextView.st,v 1.8 1994-08-11 23:48:09 claus Exp $ |
36 '! |
36 '! |
37 |
37 |
38 !TextView class methodsFor:'documentation'! |
38 !TextView class methodsFor:'documentation'! |
39 |
39 |
40 copyright |
40 copyright |
51 " |
51 " |
52 ! |
52 ! |
53 |
53 |
54 version |
54 version |
55 " |
55 " |
56 $Header: /cvs/stx/stx/libwidg/TextView.st,v 1.7 1994-08-07 13:23:28 claus Exp $ |
56 $Header: /cvs/stx/stx/libwidg/TextView.st,v 1.8 1994-08-11 23:48:09 claus Exp $ |
57 " |
57 " |
58 ! |
58 ! |
59 |
59 |
60 documentation |
60 documentation |
61 " |
61 " |
192 |
192 |
193 initEvents |
193 initEvents |
194 super initEvents. |
194 super initEvents. |
195 self enableButtonEvents. |
195 self enableButtonEvents. |
196 self enableButtonMotionEvents |
196 self enableButtonMotionEvents |
197 ! |
|
198 |
|
199 realize |
|
200 super realize. |
|
201 selectionFgColor := selectionFgColor on:device. |
|
202 selectionBgColor := selectionBgColor on:device. |
|
203 ! |
197 ! |
204 |
198 |
205 initializeMiddleButtonMenu |
199 initializeMiddleButtonMenu |
206 |labels| |
200 |labels| |
207 |
201 |
1201 ] |
1195 ] |
1202 ! ! |
1196 ! ! |
1203 |
1197 |
1204 !TextView methodsFor:'event processing'! |
1198 !TextView methodsFor:'event processing'! |
1205 |
1199 |
|
1200 mapped |
|
1201 super mapped. |
|
1202 selectionFgColor := selectionFgColor on:device. |
|
1203 selectionBgColor := selectionBgColor on:device. |
|
1204 ! |
|
1205 |
1206 keyPress:key x:x y:y |
1206 keyPress:key x:x y:y |
1207 "handle some keyboard input (there is not much to be done here)" |
1207 "handle some keyboard input (there is not much to be done here)" |
1208 |
1208 |
1209 (key == #Find) ifTrue:[self search. ^self]. |
1209 (key == #Find) ifTrue:[self search. ^self]. |
1210 (key == #Copy) ifTrue:[self copySelection. ^self]. |
1210 (key == #Copy) ifTrue:[self copySelection. ^self]. |