--- a/DeviceWorkstation.st Mon Feb 24 22:04:01 1997 +0100
+++ b/DeviceWorkstation.st Mon Feb 24 22:10:28 1997 +0100
@@ -11,22 +11,22 @@
"
HostGraphicsDevice subclass:#DeviceWorkstation
- instanceVariableNames:'visualType monitorType depth ncells bitsPerRGB bitsRed
- bitsGreen bitsBlue redMask greenMask blueMask redShift greenShift
- blueShift hasColors hasGreyscales width height widthMM heightMM
- resolutionHor resolutionVer idToViewMapping knownViews knownIds
- knownBitmaps knownBitmapIds dispatching dispatchProcess ctrlDown
- shiftDown metaDown altDown motionEventCompression lastId lastView
- keyboardMap rootView isSlow activeKeyboardGrab activePointerGrab
- buttonTranslation multiClickTimeDelta altModifiers metaModifiers
- ctrlModifiers shiftModifiers supportsDeepIcons preferredIconSize
- ditherColors fixColors numFixRed numFixGreen numFixBlue
- copyBuffer lastCopyBuffer blackColor whiteColor'
- classVariableNames:'ButtonTranslation MultiClickTimeDelta DeviceErrorSignal
- ErrorPrinting DefaultScreen AllScreens ExitOnLastClose
- CurrentScreenQuerySignal LastActiveScreen LastActiveProcess'
- poolDictionaries:''
- category:'Interface-Graphics'
+ instanceVariableNames:'visualType monitorType depth ncells bitsPerRGB bitsRed bitsGreen
+ bitsBlue redMask greenMask blueMask redShift greenShift blueShift
+ hasColors hasGreyscales width height widthMM heightMM
+ resolutionHor resolutionVer idToViewMapping knownViews knownIds
+ knownBitmaps knownBitmapIds dispatching dispatchProcess ctrlDown
+ shiftDown metaDown altDown motionEventCompression lastId lastView
+ keyboardMap rootView isSlow activeKeyboardGrab activePointerGrab
+ buttonTranslation multiClickTimeDelta altModifiers metaModifiers
+ ctrlModifiers shiftModifiers supportsDeepIcons preferredIconSize
+ ditherColors fixColors numFixRed numFixGreen numFixBlue
+ copyBuffer lastCopyBuffer blackColor whiteColor'
+ classVariableNames:'ButtonTranslation MultiClickTimeDelta DeviceErrorSignal
+ ErrorPrinting DefaultScreen AllScreens ExitOnLastClose
+ CurrentScreenQuerySignal LastActiveScreen LastActiveProcess'
+ poolDictionaries:''
+ category:'Interface-Graphics'
!
!DeviceWorkstation class methodsFor:'documentation'!
@@ -3681,6 +3681,9 @@
blackColor := Color black on:self.
whiteColor := Color white on:self.
+ Color getPrimaryColorsOn:self.
+
+ "Modified: 24.2.1997 / 22:07:50 / cg"
!
initializeFor:aDisplayOrNilForAny
@@ -5086,6 +5089,6 @@
!DeviceWorkstation class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.176 1997-02-13 23:56:47 ca Exp $'
+ ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.177 1997-02-24 21:10:28 cg Exp $'
! !
DeviceWorkstation initialize!