--- a/DeviceWorkstation.st Thu Jul 24 14:01:04 2014 +0200
+++ b/DeviceWorkstation.st Fri Jul 25 23:25:22 2014 +0200
@@ -3521,9 +3521,9 @@
colorScaledRed:red scaledGreen:green scaledBlue:blue
visualType == #TrueColor ifTrue:[
- ^ (((red bitShift:-8) bitShift:redShift)
- bitOr:((green bitShift:-8) bitShift:greenShift))
- bitOr:((blue bitShift:-8) bitShift:blueShift)
+ ^ (((red asInteger bitShift:-8) bitShift:redShift)
+ bitOr:((green asInteger bitShift:-8) bitShift:greenShift))
+ bitOr:((blue asInteger bitShift:-8) bitShift:blueShift)
].
self subclassResponsibility:'only supported for trueColor displays'
@@ -8373,11 +8373,11 @@
!DeviceWorkstation class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.619 2014-07-08 23:11:15 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.620 2014-07-25 21:25:22 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.619 2014-07-08 23:11:15 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.620 2014-07-25 21:25:22 cg Exp $'
! !