EnterFieldGroup.st
changeset 59 450ce95a72a4
parent 38 4b9b70b2cc87
child 69 2b72a20e61c2
--- a/EnterFieldGroup.st	Tue Aug 30 00:54:47 1994 +0200
+++ b/EnterFieldGroup.st	Mon Oct 10 04:03:47 1994 +0100
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1992 by Claus Gittinger
               All Rights Reserved
 
-$Header: /cvs/stx/stx/libwidg/EnterFieldGroup.st,v 1.5 1994-08-07 13:21:19 claus Exp $
+$Header: /cvs/stx/stx/libwidg/EnterFieldGroup.st,v 1.6 1994-10-10 03:00:56 claus Exp $
 '!
 
 !EnterFieldGroup class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libwidg/EnterFieldGroup.st,v 1.5 1994-08-07 13:21:19 claus Exp $
+$Header: /cvs/stx/stx/libwidg/EnterFieldGroup.st,v 1.6 1994-10-10 03:00:56 claus Exp $
 "
 !
 
@@ -139,6 +139,18 @@
     ^ true
 !
 
+mappedView:aView
+    "no interrest in this one ..."
+
+    aView mapped
+!
+
+configureX:x y:y width:w height:h view:v
+    "no interrest in this one ..."
+
+    v configureX:x y:y width:w height:h
+!
+
 keyPress:key x:x y:y view:aView
     "key-press in a field"