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.
comment
authorClaus Gittinger <cg@exept.de>
Wed, 21 Dec 2005 12:40:35 +0100
changeset 3224 9dd0891a2ff4
parent 3223 8cb04c4decd2
child 3225 b213aa3a487d
comment
ButtonController.st file | annotate | diff | comparison | revisions
CodeView.st file | annotate | diff | comparison | revisions
FileSelectionList.st file | annotate | diff | comparison | revisions
PopUpList.st file | annotate | diff | comparison | revisions 
--- a/ButtonController.st	Wed Dec 21 11:32:22 2005 +0100
+++ b/ButtonController.st	Wed Dec 21 12:40:35 2005 +0100
@@ -556,6 +556,8 @@
     "trigger on Return and space, if I am the focusView of my group
      (i.e. if I got an explicit focus)"
 
+    <resource: #keyboard (#Return)>
+
     view hasFocus ifTrue:[
         ((key == Character space)
         or:[key == #Return]) ifTrue:[
@@ -788,5 +790,5 @@
 !ButtonController class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ButtonController.st,v 1.68 2004-04-07 08:32:20 werner Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ButtonController.st,v 1.69 2005-12-21 11:40:28 cg Exp $'
 ! !
--- a/CodeView.st	Wed Dec 21 11:32:22 2005 +0100
+++ b/CodeView.st	Wed Dec 21 12:40:35 2005 +0100
@@ -166,8 +166,8 @@
 keyPress:key x:x y:y
     "catch keyboard shortcuts"
 
-    <resource: #keyboard (#Explain #Help 
-			  #CommentSelection #UncommentSelection)>
+    <resource: #keyboard (#Format #Explain #Help 
+                          #CommentSelection #UncommentSelection)>
 
     (key == #Format)  ifTrue:[^ self format].
     (key == #Explain) ifTrue:[^ self explain].
@@ -320,5 +320,5 @@
 !CodeView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/CodeView.st,v 1.55 2005-02-25 11:57:54 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/CodeView.st,v 1.56 2005-12-21 11:40:22 cg Exp $'
 ! !
--- a/FileSelectionList.st	Wed Dec 21 11:32:22 2005 +0100
+++ b/FileSelectionList.st	Wed Dec 21 12:40:35 2005 +0100
@@ -742,6 +742,10 @@
 !
 
 keyPress:key x:x y:y
+    "handle cursor-left and cursor-right keys"
+
+    <resource: #keyboard (#CursorLeft #CursorRight)>
+
     key == #CursorLeft ifTrue:[
         self changeToParentDirectory.
         ^ self
@@ -1079,5 +1083,5 @@
 !FileSelectionList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/FileSelectionList.st,v 1.53 2004-02-26 12:19:59 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/FileSelectionList.st,v 1.54 2005-12-21 11:40:35 cg Exp $'
 ! !
--- a/PopUpList.st	Wed Dec 21 11:32:22 2005 +0100
+++ b/PopUpList.st	Wed Dec 21 12:40:35 2005 +0100
@@ -835,6 +835,8 @@
 !PopUpList methodsFor:'event handling'!
 
 keyPress:key x:x y:y
+    "pull menu on Return and space"
+
     <resource: #keyboard (#Return)>
 
     (key == Character space or:[key == #Return])ifTrue:[
@@ -1151,5 +1153,5 @@
 !PopUpList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/PopUpList.st,v 1.78 2002-08-12 11:04:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/PopUpList.st,v 1.79 2005-12-21 11:40:09 cg Exp $'
 ! !
hg/stx-libwidg