9 other person. No title to or ownership of the software is |
9 other person. No title to or ownership of the software is |
10 hereby transferred. |
10 hereby transferred. |
11 " |
11 " |
12 |
12 |
13 ButtonController subclass:#PopUpListController |
13 ButtonController subclass:#PopUpListController |
14 instanceVariableNames:'' |
14 instanceVariableNames:'' |
15 classVariableNames:'' |
15 classVariableNames:'' |
16 poolDictionaries:'' |
16 poolDictionaries:'' |
17 category:'Interface-Support-Controllers' |
17 category:'Interface-Support-Controllers' |
18 ! |
18 ! |
19 |
19 |
20 !PopUpListController class methodsFor:'documentation'! |
20 !PopUpListController class methodsFor:'documentation'! |
21 |
21 |
22 copyright |
22 copyright |
52 "/ view menu shown ifTrue:[ |
52 "/ view menu shown ifTrue:[ |
53 "/ self halt:'not yet implemented'. |
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 == 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 |
73 |
74 "Created: 9.12.1995 / 23:06:09 / cg" |
74 "Created: 9.12.1995 / 23:06:09 / cg" |
|
75 "Modified: 9.2.1996 / 23:12:39 / cg" |
75 ! ! |
76 ! ! |
76 |
77 |
77 !PopUpListController class methodsFor:'documentation'! |
78 !PopUpListController class methodsFor:'documentation'! |
78 |
79 |
79 version |
80 version |
80 ^ '$Header: /cvs/stx/stx/libwidg/PopUpListController.st,v 1.7 1996-01-31 01:52:58 cg Exp $' |
81 ^ '$Header: /cvs/stx/stx/libwidg/PopUpListController.st,v 1.8 1996-02-09 22:13:19 cg Exp $' |
81 ! ! |
82 ! ! |