equal
deleted
inserted
replaced
6335 ]. |
6335 ]. |
6336 |
6336 |
6337 "/ |
6337 "/ |
6338 "/ startup the menu - this returns a selector |
6338 "/ startup the menu - this returns a selector |
6339 "/ |
6339 "/ |
6340 actionSelector := menu startUp. |
6340 actionSelector := self startUpMenu:menu. |
6341 |
6341 |
6342 "/ before doing anything else, redraw expose area from |
6342 "/ before doing anything else, redraw expose area from |
6343 "/ the menu (in case the action changes my state) |
6343 "/ the menu (in case the action changes my state) |
6344 (wg := self windowGroup) notNil ifTrue:[ |
6344 (wg := self windowGroup) notNil ifTrue:[ |
6345 wg processExposeEvents. |
6345 wg processExposeEvents. |
6419 spec := aMenuOrMenuSpec. |
6419 spec := aMenuOrMenuSpec. |
6420 ]. |
6420 ]. |
6421 "/ spec receiver:self. -- now done in findGuiResources ... |
6421 "/ spec receiver:self. -- now done in findGuiResources ... |
6422 spec findGuiResourcesIn:self. |
6422 spec findGuiResourcesIn:self. |
6423 ^ spec. |
6423 ^ spec. |
|
6424 ! |
|
6425 |
|
6426 startUpMenu:aMenu |
|
6427 aMenu originator:self. |
|
6428 ^ aMenu startUp |
6424 ! ! |
6429 ! ! |
6425 |
6430 |
6426 !SimpleView methodsFor:'private'! |
6431 !SimpleView methodsFor:'private'! |
6427 |
6432 |
6428 componentsContainingX:x y:y do:aBlock |
6433 componentsContainingX:x y:y do:aBlock |
9337 ! ! |
9342 ! ! |
9338 |
9343 |
9339 !SimpleView class methodsFor:'documentation'! |
9344 !SimpleView class methodsFor:'documentation'! |
9340 |
9345 |
9341 version |
9346 version |
9342 ^ '$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.456 2002-10-17 11:26:01 cg Exp $' |
9347 ^ '$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.457 2002-10-26 15:47:00 ca Exp $' |
9343 ! ! |
9348 ! ! |
9344 |
9349 |
9345 SimpleView initialize! |
9350 SimpleView initialize! |