Mercurial Mercurial > hg > stx-libview / 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:25:36 +0100
changeset 509 3e4d2800717a
parent 508 aca91231a0de
child 510 c0c7a04317a9
resources
Controll.st file | annotate | diff | comparison | revisions
Controller.st file | annotate | diff | comparison | revisions
DevWorkst.st file | annotate | diff | comparison | revisions
DeviceWorkstation.st file | annotate | diff | comparison | revisions 
--- a/Controll.st	Wed Mar 06 18:20:04 1996 +0100
+++ b/Controll.st	Thu Mar 07 13:25:36 1996 +0100
@@ -366,6 +366,8 @@
     "key was pressed in my view; nothing done here,
      except for Tab keys."
 
+    <resource: #keyboard (#Tab #FocusNext #FocusPrevious)>
+
     |windowGroup|
 
     windowGroup := view windowGroup.
@@ -391,7 +393,7 @@
 
     ^ self
 
-    "Modified: 6.3.1996 / 15:14:41 / cg"
+    "Modified: 7.3.1996 / 13:14:49 / cg"
 !
 
 keyRelease:key x:x y:y
@@ -476,5 +478,5 @@
 !Controller class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Attic/Controll.st,v 1.32 1996-03-06 15:03:20 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Attic/Controll.st,v 1.33 1996-03-07 12:25:03 cg Exp $'
 ! !
--- a/Controller.st	Wed Mar 06 18:20:04 1996 +0100
+++ b/Controller.st	Thu Mar 07 13:25:36 1996 +0100
@@ -366,6 +366,8 @@
     "key was pressed in my view; nothing done here,
      except for Tab keys."
 
+    <resource: #keyboard (#Tab #FocusNext #FocusPrevious)>
+
     |windowGroup|
 
     windowGroup := view windowGroup.
@@ -391,7 +393,7 @@
 
     ^ self
 
-    "Modified: 6.3.1996 / 15:14:41 / cg"
+    "Modified: 7.3.1996 / 13:14:49 / cg"
 !
 
 keyRelease:key x:x y:y
@@ -476,5 +478,5 @@
 !Controller class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Controller.st,v 1.32 1996-03-06 15:03:20 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Controller.st,v 1.33 1996-03-07 12:25:03 cg Exp $'
 ! !
--- a/DevWorkst.st	Wed Mar 06 18:20:04 1996 +0100
+++ b/DevWorkst.st	Thu Mar 07 13:25:36 1996 +0100
@@ -1955,6 +1955,8 @@
 keyPress:untranslatedKey x:x y:y view:aView
     "forward a key-press event for some view"
 
+    <resource: #keyboard (#Escape)>
+
     |xlatedKey sensor|
 
     "/
@@ -1984,7 +1986,7 @@
         ]
     ]
 
-    "Modified: 1.3.1996 / 13:16:57 / cg"
+    "Modified: 7.3.1996 / 13:15:01 / cg"
 !
 
 keyRelease:untranslatedKey x:x y:y view:aView
@@ -3984,6 +3986,6 @@
 !DeviceWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Attic/DevWorkst.st,v 1.76 1996-03-06 15:40:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Attic/DevWorkst.st,v 1.77 1996-03-07 12:25:36 cg Exp $'
 ! !
 DeviceWorkstation initialize!
--- a/DeviceWorkstation.st	Wed Mar 06 18:20:04 1996 +0100
+++ b/DeviceWorkstation.st	Thu Mar 07 13:25:36 1996 +0100
@@ -1955,6 +1955,8 @@
 keyPress:untranslatedKey x:x y:y view:aView
     "forward a key-press event for some view"
 
+    <resource: #keyboard (#Escape)>
+
     |xlatedKey sensor|
 
     "/
@@ -1984,7 +1986,7 @@
         ]
     ]
 
-    "Modified: 1.3.1996 / 13:16:57 / cg"
+    "Modified: 7.3.1996 / 13:15:01 / cg"
 !
 
 keyRelease:untranslatedKey x:x y:y view:aView
@@ -3984,6 +3986,6 @@
 !DeviceWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.76 1996-03-06 15:40:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.77 1996-03-07 12:25:36 cg Exp $'
 ! !
 DeviceWorkstation initialize!
hg/stx-libview