equal
deleted
inserted
replaced
955 |
955 |
956 toMono := toDeep := false. |
956 toMono := toDeep := false. |
957 |
957 |
958 d := icon depth. |
958 d := icon depth. |
959 device supportsDeepIcons ifFalse:[ |
959 device supportsDeepIcons ifFalse:[ |
960 d ~~ 1 ifTrue:[ |
960 (d ~~ 1 or:[icon isImage]) ifTrue:[ |
961 " |
961 " |
962 dither to monochrome |
962 dither to monochrome |
963 " |
963 " |
964 toMono := true. |
964 toMono := true. |
965 ] |
965 ] |
999 deviceIcon := deviceIcon on:device |
999 deviceIcon := deviceIcon on:device |
1000 ]. |
1000 ]. |
1001 ^ deviceIcon |
1001 ^ deviceIcon |
1002 |
1002 |
1003 "Created: 10.6.1996 / 19:41:31 / cg" |
1003 "Created: 10.6.1996 / 19:41:31 / cg" |
1004 "Modified: 10.6.1996 / 21:36:28 / cg" |
1004 "Modified: 10.6.1996 / 22:17:34 / cg" |
1005 ! |
1005 ! |
1006 |
1006 |
1007 setWindowGroupFromApplication |
1007 setWindowGroupFromApplication |
1008 "get the applications topView and set my windowGroup to its wg." |
1008 "get the applications topView and set my windowGroup to its wg." |
1009 |
1009 |
1207 ! ! |
1207 ! ! |
1208 |
1208 |
1209 !StandardSystemView class methodsFor:'documentation'! |
1209 !StandardSystemView class methodsFor:'documentation'! |
1210 |
1210 |
1211 version |
1211 version |
1212 ^ '$Header: /cvs/stx/stx/libview/Attic/StdSysV.st,v 1.55 1996-06-10 19:37:40 cg Exp $' |
1212 ^ '$Header: /cvs/stx/stx/libview/Attic/StdSysV.st,v 1.56 1996-06-10 20:17:54 cg Exp $' |
1213 ! ! |
1213 ! ! |