Mercurial Mercurial > hg > stx-libwidg / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
checkin from browser
authorClaus Gittinger <cg@exept.de>
Thu, 23 Nov 1995 11:37:10 +0100
changeset 199 b560339667cf
parent 198 c0f39f9440a7
child 200 aa3e56929a5a
checkin from browser
EFGroup.st file | annotate | diff | comparison | revisions
EnterFieldGroup.st file | annotate | diff | comparison | revisions 
--- a/EFGroup.st	Thu Nov 23 03:28:44 1995 +0100
+++ b/EFGroup.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/Attic/EFGroup.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/Attic/EFGroup.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
-! !
--- 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
-! !
hg/stx-libwidg