equal
deleted
inserted
replaced
1515 needResize := true |
1515 needResize := true |
1516 ] |
1516 ] |
1517 ]. |
1517 ]. |
1518 |
1518 |
1519 subMenus at:i put:aPopUpMenu. |
1519 subMenus at:i put:aPopUpMenu. |
1520 aPopUpMenu notNil ifTrue:[ |
1520 (aPopUpMenu notNil and:[aPopUpMenu isBlock not]) ifTrue:[ |
1521 aPopUpMenu isBlock ifFalse:[ |
1521 aPopUpMenu device:self graphicsDevice. |
1522 aPopUpMenu device:self graphicsDevice. |
1522 (receiver notNil and:[aPopUpMenu receiver isNil]) ifTrue:[ |
1523 (receiver notNil and:[aPopUpMenu receiver isNil]) ifTrue:[ |
1523 aPopUpMenu receiver:receiver |
1524 aPopUpMenu receiver:receiver |
1524 ] |
1525 ] |
|
1526 ]. |
|
1527 ]. |
1525 ]. |
1528 |
1526 |
1529 "Modified: 17.1.1997 / 01:03:55 / cg" |
1527 "Modified: 17.1.1997 / 01:03:55 / cg" |
1530 ! |
1528 ! |
1531 |
1529 |
3002 ! ! |
3000 ! ! |
3003 |
3001 |
3004 !MenuView class methodsFor:'documentation'! |
3002 !MenuView class methodsFor:'documentation'! |
3005 |
3003 |
3006 version |
3004 version |
3007 ^ '$Header: /cvs/stx/stx/libwidg/MenuView.st,v 1.184 2014-02-18 14:56:00 stefan Exp $' |
3005 ^ '$Header: /cvs/stx/stx/libwidg/MenuView.st,v 1.185 2014-06-04 12:38:35 cg Exp $' |
3008 ! |
3006 ! |
3009 |
3007 |
3010 version_CVS |
3008 version_CVS |
3011 ^ '$Header: /cvs/stx/stx/libwidg/MenuView.st,v 1.184 2014-02-18 14:56:00 stefan Exp $' |
3009 ^ '$Header: /cvs/stx/stx/libwidg/MenuView.st,v 1.185 2014-06-04 12:38:35 cg Exp $' |
3012 ! ! |
3010 ! ! |
3013 |
3011 |