equal
deleted
inserted
replaced
485 "/ not needed: |
485 "/ not needed: |
486 "/ aMenu origin:((left + (self titleLenUpTo:index)) |
486 "/ aMenu origin:((left + (self titleLenUpTo:index)) |
487 "/ @ |
487 "/ @ |
488 "/ (height + aMenu borderWidth)). |
488 "/ (height + aMenu borderWidth)). |
489 aMenu superView:(self superView). |
489 aMenu superView:(self superView). |
490 aMenu hiddenOnRealize:true. |
490 aMenu beInvisible. |
491 menus at:index put:aMenu. |
491 menus at:index put:aMenu. |
492 aMenu masterView:self. |
492 aMenu masterView:self. |
493 ! |
493 ! |
494 |
494 |
495 labels |
495 labels |
947 |
947 |
948 |m| |
948 |m| |
949 |
949 |
950 activeMenuNumber notNil ifTrue:[ |
950 activeMenuNumber notNil ifTrue:[ |
951 (m := menus at:activeMenuNumber) notNil ifTrue:[ |
951 (m := menus at:activeMenuNumber) notNil ifTrue:[ |
952 m hiddenOnRealize:true. |
952 m beInvisible. |
953 m unrealize. |
|
954 ]. |
953 ]. |
955 self unHighlightActiveTitle. |
954 self unHighlightActiveTitle. |
956 activeMenuNumber := nil |
955 activeMenuNumber := nil |
957 ]. |
956 ]. |
958 aBoolean ifTrue:[ |
957 aBoolean ifTrue:[ |
1305 ! ! |
1304 ! ! |
1306 |
1305 |
1307 !PullDownMenu class methodsFor:'documentation'! |
1306 !PullDownMenu class methodsFor:'documentation'! |
1308 |
1307 |
1309 version |
1308 version |
1310 ^ '$Header: /cvs/stx/stx/libwidg/PullDownMenu.st,v 1.31 1996-01-16 02:04:32 cg Exp $' |
1309 ^ '$Header: /cvs/stx/stx/libwidg/PullDownMenu.st,v 1.32 1996-01-17 11:18:40 cg Exp $' |
1311 ! ! |
1310 ! ! |