equal
deleted
inserted
replaced
1114 ]. |
1114 ]. |
1115 ! |
1115 ! |
1116 |
1116 |
1117 buttonPress:button x:x y:y |
1117 buttonPress:button x:x y:y |
1118 hideOnRelease := true. |
1118 hideOnRelease := true. |
|
1119 |
1119 ((x >= 0) and:[x < width]) ifTrue:[ |
1120 ((x >= 0) and:[x < width]) ifTrue:[ |
1120 ((y >= 0) and:[y < height]) ifTrue:[ |
1121 ((y >= 0) and:[y < height]) ifTrue:[ |
1121 menuView buttonPress:button x:x y:y. |
1122 menuView buttonPress:button x:x y:y. |
1122 ^ self |
1123 ^ self |
1123 ] |
1124 ] |
1124 ]. |
1125 ]. |
1125 |
1126 |
1126 "Modified: 8.3.1996 / 14:03:34 / cg" |
1127 "Modified: 22.1.1997 / 17:38:14 / cg" |
1127 ! |
1128 ! |
1128 |
1129 |
1129 buttonRelease:button x:x y:y |
1130 buttonRelease:button x:x y:y |
1130 |now| |
1131 |now| |
1131 |
1132 |
1298 ! ! |
1299 ! ! |
1299 |
1300 |
1300 !PopUpMenu class methodsFor:'documentation'! |
1301 !PopUpMenu class methodsFor:'documentation'! |
1301 |
1302 |
1302 version |
1303 version |
1303 ^ '$Header: /cvs/stx/stx/libwidg/PopUpMenu.st,v 1.59 1997-01-21 14:48:13 cg Exp $' |
1304 ^ '$Header: /cvs/stx/stx/libwidg/PopUpMenu.st,v 1.60 1997-01-22 17:21:36 cg Exp $' |
1304 ! ! |
1305 ! ! |