equal
deleted
inserted
replaced
1257 subMenuAt:indexOrName put:aPopUpMenu |
1257 subMenuAt:indexOrName put:aPopUpMenu |
1258 "define a submenu" |
1258 "define a submenu" |
1259 |
1259 |
1260 |i newSubMenus| |
1260 |i newSubMenus| |
1261 |
1261 |
|
1262 aPopUpMenu device:device. |
|
1263 |
1262 i := self indexOf:indexOrName. |
1264 i := self indexOf:indexOrName. |
1263 i == 0 ifTrue:[^ nil]. |
1265 i == 0 ifTrue:[^ nil]. |
1264 |
1266 |
1265 subMenus size < i ifTrue:[ |
1267 subMenus size < i ifTrue:[ |
1266 newSubMenus := Array new:(list size max:i). |
1268 newSubMenus := Array new:(list size max:i). |
1278 |
1280 |
1279 (receiver notNil and:[aPopUpMenu receiver isNil]) ifTrue:[ |
1281 (receiver notNil and:[aPopUpMenu receiver isNil]) ifTrue:[ |
1280 aPopUpMenu receiver:receiver |
1282 aPopUpMenu receiver:receiver |
1281 ]. |
1283 ]. |
1282 |
1284 |
1283 "Modified: 8.3.1996 / 14:42:51 / cg" |
1285 "Modified: 17.1.1997 / 01:03:55 / cg" |
1284 ! |
1286 ! |
1285 |
1287 |
1286 subMenuShown |
1288 subMenuShown |
1287 "return the currently visible submenu - or nil if there is none" |
1289 "return the currently visible submenu - or nil if there is none" |
1288 |
1290 |
2570 ! ! |
2572 ! ! |
2571 |
2573 |
2572 !MenuView class methodsFor:'documentation'! |
2574 !MenuView class methodsFor:'documentation'! |
2573 |
2575 |
2574 version |
2576 version |
2575 ^ '$Header: /cvs/stx/stx/libwidg/MenuView.st,v 1.95 1997-01-14 00:41:47 cg Exp $' |
2577 ^ '$Header: /cvs/stx/stx/libwidg/MenuView.st,v 1.96 1997-01-17 00:04:44 cg Exp $' |
2576 ! ! |
2578 ! ! |