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.
dont enable/disable fields
authorClaus Gittinger <cg@exept.de>
Tue, 30 Apr 1996 09:40:01 +0200
changeset 596 bbcca426b401
parent 595 31cdbedb303d
child 597 fb42c94a042e
dont enable/disable fields
EFGroup.st file | annotate | diff | comparison | revisions
EnterFieldGroup.st file | annotate | diff | comparison | revisions 
--- a/EFGroup.st	Mon Apr 29 09:57:45 1996 +0200
+++ b/EFGroup.st	Tue Apr 30 09:40:01 1996 +0200
@@ -478,7 +478,7 @@
 
     aField delegate:self.
     aField hideCursor.
-    aField disable.
+"/    aField disable.
 
     "set the fields enableAction to disable active field"
 
@@ -554,7 +554,7 @@
         self makeActive:aField
     ]
 
-    "Modified: 27.4.1996 / 17:21:09 / cg"
+    "Modified: 30.4.1996 / 09:24:37 / cg"
 ! !
 
 !EnterFieldGroup methodsFor:'event forwarding'!
@@ -665,18 +665,20 @@
     currentField == aField ifTrue:[^ self].
 
     currentField notNil ifTrue:[
-	currentField disable.
-	currentField hideCursor.
-	currentField hasKeyboardFocus:false.
+"/        currentField disable.
+        currentField hideCursor.
+        currentField hasKeyboardFocus:false.
     ].
     currentField := aField.
-    currentField enable.
+"/    currentField enable.
     currentField showCursor.
     currentField hasKeyboardFocus:true.
+
+    "Modified: 30.4.1996 / 09:24:16 / cg"
 ! !
 
 !EnterFieldGroup class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Attic/EFGroup.st,v 1.22 1996-04-27 17:55:59 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Attic/EFGroup.st,v 1.23 1996-04-30 07:40:01 cg Exp $'
 ! !
--- a/EnterFieldGroup.st	Mon Apr 29 09:57:45 1996 +0200
+++ b/EnterFieldGroup.st	Tue Apr 30 09:40:01 1996 +0200
@@ -478,7 +478,7 @@
 
     aField delegate:self.
     aField hideCursor.
-    aField disable.
+"/    aField disable.
 
     "set the fields enableAction to disable active field"
 
@@ -554,7 +554,7 @@
         self makeActive:aField
     ]
 
-    "Modified: 27.4.1996 / 17:21:09 / cg"
+    "Modified: 30.4.1996 / 09:24:37 / cg"
 ! !
 
 !EnterFieldGroup methodsFor:'event forwarding'!
@@ -665,18 +665,20 @@
     currentField == aField ifTrue:[^ self].
 
     currentField notNil ifTrue:[
-	currentField disable.
-	currentField hideCursor.
-	currentField hasKeyboardFocus:false.
+"/        currentField disable.
+        currentField hideCursor.
+        currentField hasKeyboardFocus:false.
     ].
     currentField := aField.
-    currentField enable.
+"/    currentField enable.
     currentField showCursor.
     currentField hasKeyboardFocus:true.
+
+    "Modified: 30.4.1996 / 09:24:16 / cg"
 ! !
 
 !EnterFieldGroup class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/EnterFieldGroup.st,v 1.22 1996-04-27 17:55:59 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EnterFieldGroup.st,v 1.23 1996-04-30 07:40:01 cg Exp $'
 ! !
hg/stx-libwidg