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.
ask view for keyboardMap.
authorClaus Gittinger <cg@exept.de>
Tue, 09 Jun 1998 14:31:53 +0200
changeset 2141 ed587c556c11
parent 2140 21ad63e0c739
child 2142 200b8ac20fa5
ask view for keyboardMap.
SWSensor.st file | annotate | diff | comparison | revisions
SynchronousWindowSensor.st file | annotate | diff | comparison | revisions
WSensor.st file | annotate | diff | comparison | revisions
WindowSensor.st file | annotate | diff | comparison | revisions 
--- a/SWSensor.st	Tue Jun 09 14:30:59 1998 +0200
+++ b/SWSensor.st	Tue Jun 09 14:31:53 1998 +0200
@@ -248,7 +248,7 @@
 
     self key:untranslatedKey state:true. 
 
-    xlatedKey := aView graphicsDevice translateKey:untranslatedKey.
+    xlatedKey := aView graphicsDevice translateKey:untranslatedKey forView:aView.
     xlatedKey notNil ifTrue:[
         aView
             dispatchEvent:#keyPress:x:y:
@@ -271,7 +271,7 @@
 
     self key:untranslatedKey state:false. 
 
-    xlatedKey := aView graphicsDevice translateKey:untranslatedKey.
+    xlatedKey := aView graphicsDevice translateKey:untranslatedKey forView:aView.
     xlatedKey notNil ifTrue:[
         aView
             dispatchEvent:#keyRelease:x:y:
@@ -424,5 +424,5 @@
 !SynchronousWindowSensor class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Attic/SWSensor.st,v 1.16 1998-05-20 23:56:59 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Attic/SWSensor.st,v 1.17 1998-06-09 12:31:37 cg Exp $'
 ! !
--- a/SynchronousWindowSensor.st	Tue Jun 09 14:30:59 1998 +0200
+++ b/SynchronousWindowSensor.st	Tue Jun 09 14:31:53 1998 +0200
@@ -248,7 +248,7 @@
 
     self key:untranslatedKey state:true. 
 
-    xlatedKey := aView graphicsDevice translateKey:untranslatedKey.
+    xlatedKey := aView graphicsDevice translateKey:untranslatedKey forView:aView.
     xlatedKey notNil ifTrue:[
         aView
             dispatchEvent:#keyPress:x:y:
@@ -271,7 +271,7 @@
 
     self key:untranslatedKey state:false. 
 
-    xlatedKey := aView graphicsDevice translateKey:untranslatedKey.
+    xlatedKey := aView graphicsDevice translateKey:untranslatedKey forView:aView.
     xlatedKey notNil ifTrue:[
         aView
             dispatchEvent:#keyRelease:x:y:
@@ -424,5 +424,5 @@
 !SynchronousWindowSensor class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/SynchronousWindowSensor.st,v 1.16 1998-05-20 23:56:59 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/SynchronousWindowSensor.st,v 1.17 1998-06-09 12:31:37 cg Exp $'
 ! !
--- a/WSensor.st	Tue Jun 09 14:30:59 1998 +0200
+++ b/WSensor.st	Tue Jun 09 14:31:53 1998 +0200
@@ -1029,7 +1029,7 @@
     ].
 
     translateKeyboardEvents ifTrue:[
-        xlatedKey := aView graphicsDevice translateKey:key.
+        xlatedKey := aView graphicsDevice translateKey:key forView:aView.
     ] ifFalse:[
         xlatedKey := key.
     ].
@@ -1138,7 +1138,7 @@
         ^ self
     ].
     translateKeyboardEvents ifTrue:[
-        xlatedKey := aView graphicsDevice translateKey:key.
+        xlatedKey := aView graphicsDevice translateKey:key forView:aView.
     ] ifFalse:[
         xlatedKey := key.
     ].
@@ -2538,6 +2538,6 @@
 !WindowSensor class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Attic/WSensor.st,v 1.123 1998-06-06 19:19:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Attic/WSensor.st,v 1.124 1998-06-09 12:31:53 cg Exp $'
 ! !
 WindowSensor initialize!
--- a/WindowSensor.st	Tue Jun 09 14:30:59 1998 +0200
+++ b/WindowSensor.st	Tue Jun 09 14:31:53 1998 +0200
@@ -1029,7 +1029,7 @@
     ].
 
     translateKeyboardEvents ifTrue:[
-        xlatedKey := aView graphicsDevice translateKey:key.
+        xlatedKey := aView graphicsDevice translateKey:key forView:aView.
     ] ifFalse:[
         xlatedKey := key.
     ].
@@ -1138,7 +1138,7 @@
         ^ self
     ].
     translateKeyboardEvents ifTrue:[
-        xlatedKey := aView graphicsDevice translateKey:key.
+        xlatedKey := aView graphicsDevice translateKey:key forView:aView.
     ] ifFalse:[
         xlatedKey := key.
     ].
@@ -2538,6 +2538,6 @@
 !WindowSensor class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/WindowSensor.st,v 1.123 1998-06-06 19:19:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/WindowSensor.st,v 1.124 1998-06-09 12:31:53 cg Exp $'
 ! !
 WindowSensor initialize!
hg/stx-libview