equal
deleted
inserted
replaced
32 |
32 |
33 PullDownMenu comment:' |
33 PullDownMenu comment:' |
34 COPYRIGHT (c) 1989 by Claus Gittinger |
34 COPYRIGHT (c) 1989 by Claus Gittinger |
35 All Rights Reserved |
35 All Rights Reserved |
36 |
36 |
37 $Header: /cvs/stx/stx/libwidg/PullDownMenu.st,v 1.23 1995-09-07 12:45:45 claus Exp $ |
37 $Header: /cvs/stx/stx/libwidg/PullDownMenu.st,v 1.24 1995-09-15 23:51:41 claus Exp $ |
38 '! |
38 '! |
39 |
39 |
40 !PullDownMenu class methodsFor:'documentation'! |
40 !PullDownMenu class methodsFor:'documentation'! |
41 |
41 |
42 copyright |
42 copyright |
53 " |
53 " |
54 ! |
54 ! |
55 |
55 |
56 version |
56 version |
57 " |
57 " |
58 $Header: /cvs/stx/stx/libwidg/PullDownMenu.st,v 1.23 1995-09-07 12:45:45 claus Exp $ |
58 $Header: /cvs/stx/stx/libwidg/PullDownMenu.st,v 1.24 1995-09-15 23:51:41 claus Exp $ |
59 " |
59 " |
60 ! |
60 ! |
61 |
61 |
62 documentation |
62 documentation |
63 " |
63 " |
1147 ]. |
1147 ]. |
1148 self hideActiveMenu |
1148 self hideActiveMenu |
1149 ] |
1149 ] |
1150 ! |
1150 ! |
1151 |
1151 |
1152 buttonMotion:button x:x y:y |
1152 buttonMotion:state x:x y:y |
1153 |titleIndex activeMenu activeLeft activeTop| |
1153 |titleIndex activeMenu activeLeft activeTop| |
|
1154 |
|
1155 state == 0 ifTrue:[^ self]. |
1154 |
1156 |
1155 activeMenuNumber notNil ifTrue:[ |
1157 activeMenuNumber notNil ifTrue:[ |
1156 activeMenu := menus at:activeMenuNumber. |
1158 activeMenu := menus at:activeMenuNumber. |
1157 ]. |
1159 ]. |
1158 |
1160 |
1175 activeLeft := activeMenu left. |
1177 activeLeft := activeMenu left. |
1176 (x between:activeLeft and:(activeMenu right)) ifTrue:[ |
1178 (x between:activeLeft and:(activeMenu right)) ifTrue:[ |
1177 activeTop := activeMenu top. |
1179 activeTop := activeMenu top. |
1178 (y between:activeTop and:(activeMenu bottom)) ifTrue:[ |
1180 (y between:activeTop and:(activeMenu bottom)) ifTrue:[ |
1179 "moving around in menu" |
1181 "moving around in menu" |
1180 activeMenu buttonMotion:button |
1182 activeMenu buttonMotion:state |
1181 x:(x - activeLeft) |
1183 x:(x - activeLeft) |
1182 y:(y - activeTop). |
1184 y:(y - activeTop). |
1183 ^ self |
1185 ^ self |
1184 ] |
1186 ] |
1185 ]. |
1187 ]. |