equal
deleted
inserted
replaced
1261 |
1261 |
1262 (menuView respondsTo:(aMessage selector)) ifTrue:[ |
1262 (menuView respondsTo:(aMessage selector)) ifTrue:[ |
1263 ^ aMessage sendTo:menuView |
1263 ^ aMessage sendTo:menuView |
1264 ]. |
1264 ]. |
1265 ^ super doesNotUnderstand:aMessage |
1265 ^ super doesNotUnderstand:aMessage |
|
1266 ! |
|
1267 |
|
1268 regainControl |
|
1269 device ungrabPointer. |
|
1270 device ungrabKeyboard. |
|
1271 device grabPointerInView:self. |
|
1272 device grabKeyboardInView:self. |
|
1273 |
|
1274 "Modified: 20.11.1997 / 00:32:32 / cg" |
1266 ! ! |
1275 ! ! |
1267 |
1276 |
1268 !PopUpMenu methodsFor:'private accessing'! |
1277 !PopUpMenu methodsFor:'private accessing'! |
1269 |
1278 |
1270 menu:aMenuView |
1279 menu:aMenuView |
1326 ! ! |
1335 ! ! |
1327 |
1336 |
1328 !PopUpMenu class methodsFor:'documentation'! |
1337 !PopUpMenu class methodsFor:'documentation'! |
1329 |
1338 |
1330 version |
1339 version |
1331 ^ '$Header: /cvs/stx/stx/libwidg/PopUpMenu.st,v 1.68 1997-11-20 18:02:23 cg Exp $' |
1340 ^ '$Header: /cvs/stx/stx/libwidg/PopUpMenu.st,v 1.69 1997-11-20 18:32:27 cg Exp $' |
1332 ! ! |
1341 ! ! |