--- a/DeviceWorkstation.st Thu Mar 24 09:59:57 2011 +0100
+++ b/DeviceWorkstation.st Thu Mar 24 13:43:06 2011 +0100
@@ -2929,10 +2929,10 @@
self supportsIconMasks ifFalse:[^ nil].
- aMask depth ~~ 1 ifTrue:[
- ^ aMask asMonochromeFormOn:self
- ].
- ^ aMask
+ aMask depth == 1 ifTrue:[
+ ^ aMask onDevice:self.
+ ].
+ ^ aMask asMonochromeFormOn:self
"Created: / 30-10-2007 / 16:38:37 / cg"
!
@@ -8095,11 +8095,11 @@
!DeviceWorkstation class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.558 2011-02-09 13:03:53 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.559 2011-03-24 12:43:06 stefan Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.558 2011-02-09 13:03:53 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.559 2011-03-24 12:43:06 stefan Exp $'
! !
DeviceWorkstation initialize!