equal
deleted
inserted
replaced
2927 Typically, this means conversion to a monochrome mask - |
2927 Typically, this means conversion to a monochrome mask - |
2928 future versions may add alpha channel masks, if I support them ..." |
2928 future versions may add alpha channel masks, if I support them ..." |
2929 |
2929 |
2930 self supportsIconMasks ifFalse:[^ nil]. |
2930 self supportsIconMasks ifFalse:[^ nil]. |
2931 |
2931 |
2932 aMask depth ~~ 1 ifTrue:[ |
2932 aMask depth == 1 ifTrue:[ |
2933 ^ aMask asMonochromeFormOn:self |
2933 ^ aMask onDevice:self. |
2934 ]. |
2934 ]. |
2935 ^ aMask |
2935 ^ aMask asMonochromeFormOn:self |
2936 |
2936 |
2937 "Created: / 30-10-2007 / 16:38:37 / cg" |
2937 "Created: / 30-10-2007 / 16:38:37 / cg" |
2938 ! |
2938 ! |
2939 |
2939 |
2940 createBitmapFromArray:anArray width:w height:h |
2940 createBitmapFromArray:anArray width:w height:h |
8093 ! ! |
8093 ! ! |
8094 |
8094 |
8095 !DeviceWorkstation class methodsFor:'documentation'! |
8095 !DeviceWorkstation class methodsFor:'documentation'! |
8096 |
8096 |
8097 version |
8097 version |
8098 ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.558 2011-02-09 13:03:53 cg Exp $' |
8098 ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.559 2011-03-24 12:43:06 stefan Exp $' |
8099 ! |
8099 ! |
8100 |
8100 |
8101 version_CVS |
8101 version_CVS |
8102 ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.558 2011-02-09 13:03:53 cg Exp $' |
8102 ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.559 2011-03-24 12:43:06 stefan Exp $' |
8103 ! ! |
8103 ! ! |
8104 |
8104 |
8105 DeviceWorkstation initialize! |
8105 DeviceWorkstation initialize! |