--- a/EnterFieldGroup.st Thu Nov 23 03:28:44 1995 +0100
+++ b/EnterFieldGroup.st Thu Nov 23 11:37:10 1995 +0100
@@ -11,8 +11,7 @@
"
Object subclass:#EnterFieldGroup
- instanceVariableNames:'fields currentField leaveAction
- wrap'
+ instanceVariableNames:'fields currentField leaveAction wrap'
classVariableNames:''
poolDictionaries:''
category:'Interface-Support'
@@ -34,10 +33,6 @@
"
!
-version
- ^ '$Header: /cvs/stx/stx/libwidg/EnterFieldGroup.st,v 1.13 1995-11-11 16:19:33 cg Exp $'
-!
-
documentation
"
EnterFieldGroup controls the interaction between EnterFields
@@ -309,6 +304,10 @@
Transcript showCr:'value2: ' , value2.
Transcript showCr:'value3: ' , value3.
"
+!
+
+version
+ ^ '$Header: /cvs/stx/stx/libwidg/EnterFieldGroup.st,v 1.14 1995-11-23 10:37:10 cg Exp $'
! !
!EnterFieldGroup class methodsFor:'instance creation'!
@@ -317,6 +316,23 @@
^ self basicNew wrap:false
! !
+!EnterFieldGroup methodsFor:'accessing'!
+
+leaveAction:aBlock
+ "set the action to perform when the last field is left.
+ Usually, this is to accept the values of all fields and perform
+ some additional processing (such as closing a dialog)."
+
+ leaveAction := aBlock
+!
+
+wrap:aBoolean
+ "specifies if leaveing the last field via non-Return
+ should wrap back to the first, or leave the group"
+
+ wrap := aBoolean
+! !
+
!EnterFieldGroup methodsFor:'adding / removing'!
add:aField
@@ -396,21 +412,68 @@
]
! !
-!EnterFieldGroup methodsFor:'accessing'!
+!EnterFieldGroup methodsFor:'event forwarding'!
+
+buttonPress:button x:x y:y view:aView
+ "clicking on a field activates it and forwards the click to it"
+
+ self makeActive:aView.
+ aView buttonPress:button x:x y:y
+!
+
+buttonShiftPress:button x:x y:y view:aView
+ "clicking on a field activates it and forwards the click to it"
-wrap:aBoolean
- "specifies if leaveing the last field via non-Return
- should wrap back to the first, or leave the group"
+ self makeActive:aView.
+ aView buttonShiftPress:button x:x y:y
+!
+
+handlesButtonPress:button inView:aView
+ "query from event processor: am I interrested in button-events ?
+ yes I am (to activate the clicked-on field)."
- wrap := aBoolean
+ ^ true
+!
+
+handlesButtonShiftPress:button inView:aView
+ "query from event processor: am I interrested in button-events ?
+ yes I am (to activate the clicked-on field)."
+
+ ^ true
!
-leaveAction:aBlock
- "set the action to perform when the last field is left.
- Usually, this is to accept the values of all fields and perform
- some additional processing (such as closing a dialog)."
+handlesKeyPress:key inView:aView
+ "query from event processor: am I interrested in key-events ?
+ yes I am (to forward it to the active field)."
+
+ ^ true
+!
+
+handlesKeyRelease:key inView:aView
+ "query from event processor: am I interrested in key-events ?
+ yes I am (to forward it to the active field)."
+
+ ^ true
+!
- leaveAction := aBlock
+keyPress:key x:x y:y view:aView
+ "key-press in any field - forward the key to the active field
+ (with -1/-1 as coordinate to indicate that the key was pressed
+ outside. However, this info is not used by any view currently)"
+
+ currentField notNil ifTrue:[
+ currentField keyPress:key x:-1 y:-1
+ ]
+!
+
+keyRelease:key x:x y:y view:aView
+ "key-release in any field - forward the key to the active field.
+ (with -1/-1 as coordinate to indicate that the key was pressed
+ outside. However, this info is not used by any view currently)"
+
+ currentField notNil ifTrue:[
+ currentField keyRelease:key x:-1 y:-1
+ ]
! !
!EnterFieldGroup methodsFor:'misc'!
@@ -439,66 +502,3 @@
currentField hasKeyboardFocus:true.
! !
-!EnterFieldGroup methodsFor:'event forwarding'!
-
-handlesKeyPress:key inView:aView
- "query from event processor: am I interrested in key-events ?
- yes I am (to forward it to the active field)."
-
- ^ true
-!
-
-handlesKeyRelease:key inView:aView
- "query from event processor: am I interrested in key-events ?
- yes I am (to forward it to the active field)."
-
- ^ true
-!
-
-handlesButtonPress:button inView:aView
- "query from event processor: am I interrested in button-events ?
- yes I am (to activate the clicked-on field)."
-
- ^ true
-!
-
-handlesButtonShiftPress:button inView:aView
- "query from event processor: am I interrested in button-events ?
- yes I am (to activate the clicked-on field)."
-
- ^ true
-!
-
-keyPress:key x:x y:y view:aView
- "key-press in any field - forward the key to the active field
- (with -1/-1 as coordinate to indicate that the key was pressed
- outside. However, this info is not used by any view currently)"
-
- currentField notNil ifTrue:[
- currentField keyPress:key x:-1 y:-1
- ]
-!
-
-keyRelease:key x:x y:y view:aView
- "key-release in any field - forward the key to the active field.
- (with -1/-1 as coordinate to indicate that the key was pressed
- outside. However, this info is not used by any view currently)"
-
- currentField notNil ifTrue:[
- currentField keyRelease:key x:-1 y:-1
- ]
-!
-
-buttonPress:button x:x y:y view:aView
- "clicking on a field activates it and forwards the click to it"
-
- self makeActive:aView.
- aView buttonPress:button x:x y:y
-!
-
-buttonShiftPress:button x:x y:y view:aView
- "clicking on a field activates it and forwards the click to it"
-
- self makeActive:aView.
- aView buttonShiftPress:button x:x y:y
-! !