--- a/TextView.st Fri Aug 12 01:47:09 1994 +0200
+++ b/TextView.st Fri Aug 12 01:48:09 1994 +0200
@@ -32,7 +32,7 @@
COPYRIGHT (c) 1989 by Claus Gittinger
All Rights Reserved
-$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.7 1994-08-07 13:23:28 claus Exp $
+$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.8 1994-08-11 23:48:09 claus Exp $
'!
!TextView class methodsFor:'documentation'!
@@ -53,7 +53,7 @@
version
"
-$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.7 1994-08-07 13:23:28 claus Exp $
+$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.8 1994-08-11 23:48:09 claus Exp $
"
!
@@ -196,12 +196,6 @@
self enableButtonMotionEvents
!
-realize
- super realize.
- selectionFgColor := selectionFgColor on:device.
- selectionBgColor := selectionBgColor on:device.
-!
-
initializeMiddleButtonMenu
|labels|
@@ -1203,6 +1197,12 @@
!TextView methodsFor:'event processing'!
+mapped
+ super mapped.
+ selectionFgColor := selectionFgColor on:device.
+ selectionBgColor := selectionBgColor on:device.
+!
+
keyPress:key x:x y:y
"handle some keyboard input (there is not much to be done here)"