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.
resources
authorClaus Gittinger <cg@exept.de>
Thu, 07 Mar 1996 13:38:02 +0100
changeset 490 08e8adfb783c
parent 489 5816aa12fec8
child 491 7b376aaa06d5
resources
DialogBox.st file | annotate | diff | comparison | revisions
EditField.st file | annotate | diff | comparison | revisions
EnterBox2.st file | annotate | diff | comparison | revisions
OptBox.st file | annotate | diff | comparison | revisions
OptionBox.st file | annotate | diff | comparison | revisions
SelListV.st file | annotate | diff | comparison | revisions
SelectionInListView.st file | annotate | diff | comparison | revisions 
--- a/DialogBox.st	Thu Mar 07 13:24:44 1996 +0100
+++ b/DialogBox.st	Thu Mar 07 13:38:02 1996 +0100
@@ -3712,17 +3712,19 @@
 keyPress:aKey x:x y:y
     "return-key dublicates ok-function if acceptReturnAsOK is true"
 
+    <resource: #keyboard (#Return)>
+
     (aKey == #Return) ifTrue:[
-	(okButton notNil and:[okButton isReturnButton]) ifTrue:[
-	    ^ self okPressed
-	].
-	(abortButton notNil and:[abortButton isReturnButton]) ifTrue:[
-	    ^ self abortPressed
-	].
+        (okButton notNil and:[okButton isReturnButton]) ifTrue:[
+            ^ self okPressed
+        ].
+        (abortButton notNil and:[abortButton isReturnButton]) ifTrue:[
+            ^ self abortPressed
+        ].
     ].
     super keyPress:aKey x:x y:y
 
-    "Modified: 27.1.1996 / 14:23:16 / cg"
+    "Modified: 7.3.1996 / 13:15:09 / cg"
 !
 
 lastFieldLeft
@@ -3763,5 +3765,5 @@
 !DialogBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.52 1996-03-05 00:41:39 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.53 1996-03-07 12:35:23 cg Exp $'
 ! !
--- a/EditField.st	Thu Mar 07 13:24:44 1996 +0100
+++ b/EditField.st	Thu Mar 07 13:38:02 1996 +0100
@@ -1233,7 +1233,8 @@
     "if keyHandler is defined, pass input; otherwise check for leave
      keys"
 
-    <resource: #keyboard (#DeleteLine #EndOfText)>
+    <resource: #keyboard (#Tab #Return #Find #FindNext #FindPrev
+                          #DeleteLine #GotoLine #EndOfLine #EndOfText)>
 
     |leave xCol newOffset newWidth s|
 
@@ -1316,7 +1317,7 @@
 
     self resizeOrScroll.
 
-    "Modified: 6.3.1996 / 15:21:49 / cg"
+    "Modified: 7.3.1996 / 13:16:20 / cg"
 !
 
 resizeOrScroll
@@ -1606,5 +1607,5 @@
 !EditField class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/EditField.st,v 1.50 1996-03-06 15:21:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EditField.st,v 1.51 1996-03-07 12:36:07 cg Exp $'
 ! !
--- a/EnterBox2.st	Thu Mar 07 13:24:44 1996 +0100
+++ b/EnterBox2.st	Thu Mar 07 13:38:02 1996 +0100
@@ -69,7 +69,7 @@
 !
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/EnterBox2.st,v 1.14 1996-02-11 09:54:43 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EnterBox2.st,v 1.15 1996-03-07 12:36:37 cg Exp $'
 ! !
 
 !EnterBox2 methodsFor:'accessing'!
@@ -138,10 +138,14 @@
 keyPress:aKey x:x y:y
     "return-key dublicates ok-function if acceptReturnAsOK is true"
 
+    <resource: #keyboard (#Return)>
+
     acceptReturnAsOK ifTrue:[
-	(aKey == #Return) ifTrue:[^ self ok2Pressed]
+        (aKey == #Return) ifTrue:[^ self ok2Pressed]
     ].
     super keyPress:aKey x:x y:y
+
+    "Modified: 7.3.1996 / 13:16:37 / cg"
 !
 
 ok2Pressed
--- a/OptBox.st	Thu Mar 07 13:24:44 1996 +0100
+++ b/OptBox.st	Thu Mar 07 13:38:02 1996 +0100
@@ -252,18 +252,22 @@
 keyPress:aKey x:x y:y
     "return-key dublicates ok-function if acceptReturnAsOK is true"
 
+    <resource: #keyboard (#Return)>
+
     |action|
 
     defaultButtonIndex notNil ifTrue:[
-	(aKey == #Return) ifTrue:[
-	    self hide.
-	    action := actions at:defaultButtonIndex.
-	    action notNil ifTrue:[
-		action value
-	    ]
-	]
+        (aKey == #Return) ifTrue:[
+            self hide.
+            action := actions at:defaultButtonIndex.
+            action notNil ifTrue:[
+                action value
+            ]
+        ]
     ].
     super keyPress:aKey x:x y:y
+
+    "Modified: 7.3.1996 / 13:17:36 / cg"
 ! !
 
 !OptionBox methodsFor:'initializing'!
@@ -383,5 +387,5 @@
 !OptionBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Attic/OptBox.st,v 1.27 1996-02-21 00:03:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Attic/OptBox.st,v 1.28 1996-03-07 12:37:19 cg Exp $'
 ! !
--- a/OptionBox.st	Thu Mar 07 13:24:44 1996 +0100
+++ b/OptionBox.st	Thu Mar 07 13:38:02 1996 +0100
@@ -252,18 +252,22 @@
 keyPress:aKey x:x y:y
     "return-key dublicates ok-function if acceptReturnAsOK is true"
 
+    <resource: #keyboard (#Return)>
+
     |action|
 
     defaultButtonIndex notNil ifTrue:[
-	(aKey == #Return) ifTrue:[
-	    self hide.
-	    action := actions at:defaultButtonIndex.
-	    action notNil ifTrue:[
-		action value
-	    ]
-	]
+        (aKey == #Return) ifTrue:[
+            self hide.
+            action := actions at:defaultButtonIndex.
+            action notNil ifTrue:[
+                action value
+            ]
+        ]
     ].
     super keyPress:aKey x:x y:y
+
+    "Modified: 7.3.1996 / 13:17:36 / cg"
 ! !
 
 !OptionBox methodsFor:'initializing'!
@@ -383,5 +387,5 @@
 !OptionBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/OptionBox.st,v 1.27 1996-02-21 00:03:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/OptionBox.st,v 1.28 1996-03-07 12:37:19 cg Exp $'
 ! !
--- a/SelListV.st	Thu Mar 07 13:24:44 1996 +0100
+++ b/SelListV.st	Thu Mar 07 13:38:02 1996 +0100
@@ -1708,7 +1708,8 @@
 keyPress:key x:x y:y
     "handle keyboard input"
 
-    <resource: #keyboard ( #BeginOfText #EndOfText ) >
+    <resource: #keyboard ( #CursorUp #CursorDown #BeginOfText #EndOfText
+                           #Return ) >
 
     |index       
      searchIndex "{Class: SmallInteger}"
@@ -1820,7 +1821,7 @@
     ].
     ^ super keyPress:key x:x y:y
 
-    "Modified: 7.2.1996 / 19:20:18 / cg"
+    "Modified: 7.3.1996 / 13:18:46 / cg"
 !
 
 sizeChanged:how
@@ -2699,5 +2700,5 @@
 !SelectionInListView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Attic/SelListV.st,v 1.60 1996-03-01 18:52:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Attic/SelListV.st,v 1.61 1996-03-07 12:38:02 cg Exp $'
 ! !
--- a/SelectionInListView.st	Thu Mar 07 13:24:44 1996 +0100
+++ b/SelectionInListView.st	Thu Mar 07 13:38:02 1996 +0100
@@ -1708,7 +1708,8 @@
 keyPress:key x:x y:y
     "handle keyboard input"
 
-    <resource: #keyboard ( #BeginOfText #EndOfText ) >
+    <resource: #keyboard ( #CursorUp #CursorDown #BeginOfText #EndOfText
+                           #Return ) >
 
     |index       
      searchIndex "{Class: SmallInteger}"
@@ -1820,7 +1821,7 @@
     ].
     ^ super keyPress:key x:x y:y
 
-    "Modified: 7.2.1996 / 19:20:18 / cg"
+    "Modified: 7.3.1996 / 13:18:46 / cg"
 !
 
 sizeChanged:how
@@ -2699,5 +2700,5 @@
 !SelectionInListView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/SelectionInListView.st,v 1.60 1996-03-01 18:52:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/SelectionInListView.st,v 1.61 1996-03-07 12:38:02 cg Exp $'
 ! !
hg/stx-libwidg