equal
deleted
inserted
replaced
3519 ^ self colorScaledRed:r scaledGreen:g scaledBlue:b |
3519 ^ self colorScaledRed:r scaledGreen:g scaledBlue:b |
3520 ! |
3520 ! |
3521 |
3521 |
3522 colorScaledRed:red scaledGreen:green scaledBlue:blue |
3522 colorScaledRed:red scaledGreen:green scaledBlue:blue |
3523 visualType == #TrueColor ifTrue:[ |
3523 visualType == #TrueColor ifTrue:[ |
3524 ^ (((red bitShift:-8) bitShift:redShift) |
3524 ^ (((red asInteger bitShift:-8) bitShift:redShift) |
3525 bitOr:((green bitShift:-8) bitShift:greenShift)) |
3525 bitOr:((green asInteger bitShift:-8) bitShift:greenShift)) |
3526 bitOr:((blue bitShift:-8) bitShift:blueShift) |
3526 bitOr:((blue asInteger bitShift:-8) bitShift:blueShift) |
3527 ]. |
3527 ]. |
3528 self subclassResponsibility:'only supported for trueColor displays' |
3528 self subclassResponsibility:'only supported for trueColor displays' |
3529 |
3529 |
3530 "Modified: / 03-02-2014 / 11:30:23 / cg" |
3530 "Modified: / 03-02-2014 / 11:30:23 / cg" |
3531 ! |
3531 ! |
8371 ! ! |
8371 ! ! |
8372 |
8372 |
8373 !DeviceWorkstation class methodsFor:'documentation'! |
8373 !DeviceWorkstation class methodsFor:'documentation'! |
8374 |
8374 |
8375 version |
8375 version |
8376 ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.619 2014-07-08 23:11:15 cg Exp $' |
8376 ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.620 2014-07-25 21:25:22 cg Exp $' |
8377 ! |
8377 ! |
8378 |
8378 |
8379 version_CVS |
8379 version_CVS |
8380 ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.619 2014-07-08 23:11:15 cg Exp $' |
8380 ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.620 2014-07-25 21:25:22 cg Exp $' |
8381 ! ! |
8381 ! ! |
8382 |
8382 |
8383 |
8383 |
8384 DeviceWorkstation initialize! |
8384 DeviceWorkstation initialize! |