equal
deleted
inserted
replaced
740 "Created: 4.3.1996 / 17:39:58 / cg" |
740 "Created: 4.3.1996 / 17:39:58 / cg" |
741 "Modified: 5.3.1996 / 02:38:06 / cg" |
741 "Modified: 5.3.1996 / 02:38:06 / cg" |
742 ! |
742 ! |
743 |
743 |
744 keyPress:key x:x y:y |
744 keyPress:key x:x y:y |
|
745 "handle cursor-left and cursor-right keys" |
|
746 |
|
747 <resource: #keyboard (#CursorLeft #CursorRight)> |
|
748 |
745 key == #CursorLeft ifTrue:[ |
749 key == #CursorLeft ifTrue:[ |
746 self changeToParentDirectory. |
750 self changeToParentDirectory. |
747 ^ self |
751 ^ self |
748 ]. |
752 ]. |
749 (key == #CursorRight) ifTrue:[ |
753 (key == #CursorRight) ifTrue:[ |
1077 ! ! |
1081 ! ! |
1078 |
1082 |
1079 !FileSelectionList class methodsFor:'documentation'! |
1083 !FileSelectionList class methodsFor:'documentation'! |
1080 |
1084 |
1081 version |
1085 version |
1082 ^ '$Header: /cvs/stx/stx/libwidg/FileSelectionList.st,v 1.53 2004-02-26 12:19:59 cg Exp $' |
1086 ^ '$Header: /cvs/stx/stx/libwidg/FileSelectionList.st,v 1.54 2005-12-21 11:40:35 cg Exp $' |
1083 ! ! |
1087 ! ! |