equal
deleted
inserted
replaced
355 |
355 |
356 ^Icon |
356 ^Icon |
357 constantNamed:#'ToolApplicationModel menuIcon' |
357 constantNamed:#'ToolApplicationModel menuIcon' |
358 ifAbsentPut: |
358 ifAbsentPut: |
359 [ |
359 [ |
360 |menuIcon| |
360 |menuIcon myDevice| |
361 menuIcon := Icon stxIcon. |
361 menuIcon := Icon stxIcon. |
362 menuIcon magnifiedBy: MenuPanel defaultFont height/menuIcon height |
362 myDevice := Screen current. |
|
363 menuIcon magnifiedBy: (MenuPanel defaultFont heightOn:myDevice)/menuIcon height |
363 ] |
364 ] |
364 |
365 |
365 "Modified: / 24.8.1998 / 21:34:33 / cg" |
366 "Modified: / 24.8.1998 / 21:34:33 / cg" |
366 ! ! |
367 ! ! |
367 |
368 |
1177 ! ! |
1178 ! ! |
1178 |
1179 |
1179 !ToolApplicationModel class methodsFor:'documentation'! |
1180 !ToolApplicationModel class methodsFor:'documentation'! |
1180 |
1181 |
1181 version |
1182 version |
1182 ^ '$Header: /cvs/stx/stx/libview2/ToolApplicationModel.st,v 1.87 1999-04-12 11:19:11 cg Exp $' |
1183 ^ '$Header: /cvs/stx/stx/libview2/ToolApplicationModel.st,v 1.88 1999-05-06 18:53:16 cg Exp $' |
1183 ! ! |
1184 ! ! |