46 (i.e. if I got an explicit focus)" |
46 (i.e. if I got an explicit focus)" |
47 |
47 |
48 <resource: #keyboard (#CursorUp #CursorDown)> |
48 <resource: #keyboard (#CursorUp #CursorDown)> |
49 |
49 |
50 view hasFocus ifTrue:[ |
50 view hasFocus ifTrue:[ |
51 (key == #Return) ifTrue:[ |
51 (key == #Return) ifTrue:[ |
52 view menu shown ifTrue:[ |
52 view menu shown ifTrue:[ |
53 self halt. |
53 self halt:'not yet implemented'. |
54 ^ self. |
54 ^ self. |
55 ]. |
55 ]. |
56 ]. |
56 ]. |
57 (key == #CursorUp or:[key == #CursorDown]) ifTrue:[ |
57 (key == #CursorUp or:[key == #CursorDown]) ifTrue:[ |
58 view menu shown ifTrue:[ |
58 view menu shown ifTrue:[ |
59 key == #CursorUp ifTrue:[view menu selectNext] |
59 key == #CursorUp ifTrue:[view menu selectNext] |
60 ifFalse:[view menu selectPrevious]. |
60 ifFalse:[view menu selectPrevious]. |
61 ^ self. |
61 ^ self. |
62 ]. |
62 ]. |
63 ]. |
63 ]. |
64 (key == #Return or:[key == Character space]) ifTrue:[ |
64 (key == #Return or:[key == Character space]) ifTrue:[ |
65 view menu exclusivePointer:false. |
65 view menu exclusivePointer:false. |
66 view menu hideOnRelease:true. |
66 view menu hideOnRelease:true. |
67 view popMenu. |
67 view popMenu. |
68 view menu exclusivePointer:true. |
68 view menu exclusivePointer:true. |
69 ^ self. |
69 ^ self. |
70 ] |
70 ] |
71 ]. |
71 ]. |
72 view keyPress:key x:x y:y |
72 view keyPress:key x:x y:y |
|
73 |
|
74 "Created: 9.12.1995 / 23:06:09 / cg" |
73 ! ! |
75 ! ! |
74 |
76 |
75 !PopUpListController class methodsFor:'documentation'! |
77 !PopUpListController class methodsFor:'documentation'! |
76 |
78 |
77 version |
79 version |
78 ^ '$Header: /cvs/stx/stx/libwidg/PopUpListController.st,v 1.5 1995-11-23 17:46:33 cg Exp $' |
80 ^ '$Header: /cvs/stx/stx/libwidg/PopUpListController.st,v 1.6 1995-12-09 22:11:01 cg Exp $' |
79 ! ! |
81 ! ! |