equal
deleted
inserted
replaced
1243 "if the image was saved with an active menu, hide it" |
1243 "if the image was saved with an active menu, hide it" |
1244 |
1244 |
1245 |m| |
1245 |m| |
1246 |
1246 |
1247 activeMenuNumber notNil ifTrue:[ |
1247 activeMenuNumber notNil ifTrue:[ |
1248 (m := menus at:activeMenuNumber) notNil ifTrue:[ |
1248 (m := menus at:activeMenuNumber) notNil ifTrue:[ |
1249 m unrealize. |
1249 m unmap. |
1250 ]. |
1250 ]. |
1251 activeMenuNumber := nil. |
1251 activeMenuNumber := nil. |
1252 ]. |
1252 ]. |
1253 super recreate. |
1253 super recreate. |
1254 self setMenuOrigins |
1254 self setMenuOrigins |
|
1255 |
|
1256 "Modified: 3.5.1996 / 23:48:55 / stefan" |
1255 ! |
1257 ! |
1256 |
1258 |
1257 superView:aView |
1259 superView:aView |
1258 "when my superView changes, all of my menus must change as well" |
1260 "when my superView changes, all of my menus must change as well" |
1259 |
1261 |
1499 ! ! |
1501 ! ! |
1500 |
1502 |
1501 !PullDownMenu class methodsFor:'documentation'! |
1503 !PullDownMenu class methodsFor:'documentation'! |
1502 |
1504 |
1503 version |
1505 version |
1504 ^ '$Header: /cvs/stx/stx/libwidg/PullDownMenu.st,v 1.50 1996-04-30 13:59:23 cg Exp $' |
1506 ^ '$Header: /cvs/stx/stx/libwidg/PullDownMenu.st,v 1.51 1996-05-03 23:11:52 stefan Exp $' |
1505 ! ! |
1507 ! ! |