--- a/DeviceWorkstation.st Wed Aug 28 23:53:04 2019 +0200
+++ b/DeviceWorkstation.st Fri Aug 30 10:46:41 2019 +0200
@@ -14,40 +14,40 @@
"{ NameSpace: Smalltalk }"
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 lastId lastView knownViews
- dispatching dispatchProcess exitOnLastClose ctrlDown leftCtrlDown
- rightCtrlDown shiftDown leftShiftDown rightShiftDown metaDown
- altDown superDown motionEventCompression keyboardMap rootView
- isSlow activeKeyboardGrab activePointerGrab buttonTranslation
- multiClickTimeDelta altModifiers metaModifiers ctrlModifiers
- shiftModifiers superModifiers buttonModifiers supportsDeepIcons
- preferredIconSize ditherColors fixColors numFixRed numFixGreen
- numFixBlue fixGrayColors copyBuffer blackColor whiteColor
- focusMode activeView clipBoardEncoding maxClipBoardSize focusView
- focusWindowGroup deviceErrorSignal deviceIOErrorSignal
- mayOpenDebugger suppressDebugger eventSema
- buttonLongPressedHandlerProcess buttonPressTimeForMenu
- aboutToOpenModalWindowHooks aboutToOpenNonModalWindowHooks'
- classVariableNames:'AllScreens ButtonTranslation CopyBufferHistory
- CopyBufferHistorySize CurrentScreenQuerySignal
- DefaultButtonPressTimeForMenu DefaultScreen DeviceErrorSignal
- DeviceIOErrorSignal DeviceIOTimeoutErrorSignal
- DeviceOpenErrorSignal DrawingOnClosedDeviceSignal ErrorPrinting
- ExitOnLastClose LastActiveProcess LastActiveScreen
- MultiClickTimeDelta WindowsRightButtonBehavior'
- 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 lastId lastView knownViews
+ dispatching dispatchProcess exitOnLastClose ctrlDown leftCtrlDown
+ rightCtrlDown shiftDown leftShiftDown rightShiftDown metaDown
+ altDown superDown motionEventCompression keyboardMap rootView
+ isSlow activeKeyboardGrab activePointerGrab buttonTranslation
+ multiClickTimeDelta altModifiers metaModifiers ctrlModifiers
+ shiftModifiers superModifiers buttonModifiers supportsDeepIcons
+ preferredIconSize ditherColors fixColors numFixRed numFixGreen
+ numFixBlue fixGrayColors copyBuffer blackColor whiteColor
+ focusMode activeView clipBoardEncoding maxClipBoardSize focusView
+ focusWindowGroup deviceErrorSignal deviceIOErrorSignal
+ mayOpenDebugger suppressDebugger eventSema
+ buttonLongPressedHandlerProcess buttonPressTimeForMenu
+ aboutToOpenModalWindowHooks aboutToOpenNonModalWindowHooks'
+ classVariableNames:'AllScreens ButtonTranslation CopyBufferHistory
+ CopyBufferHistorySize CurrentScreenQuerySignal
+ DefaultButtonPressTimeForMenu DefaultScreen DeviceErrorSignal
+ DeviceIOErrorSignal DeviceIOTimeoutErrorSignal
+ DeviceOpenErrorSignal DrawingOnClosedDeviceSignal ErrorPrinting
+ ExitOnLastClose LastActiveProcess LastActiveScreen
+ MultiClickTimeDelta WindowsRightButtonBehavior'
+ poolDictionaries:''
+ category:'Interface-Graphics'
!
Object subclass:#DeviceFontMetrics
- instanceVariableNames:'encoding ascent descent maxAscent maxDescent minWidth maxWidth
- averageWidth minCode maxCode direction'
- classVariableNames:''
- poolDictionaries:''
- privateIn:DeviceWorkstation
+ instanceVariableNames:'encoding ascent descent maxAscent maxDescent minWidth maxWidth
+ averageWidth minCode maxCode direction'
+ classVariableNames:''
+ poolDictionaries:''
+ privateIn:DeviceWorkstation
!
!DeviceWorkstation class methodsFor:'documentation'!
@@ -4551,7 +4551,7 @@
] ifFalse:[
busyOrNot := ' [busy]'
].
- busyOrNot := busyOrNot allBold withColor:Color red
+ busyOrNot := busyOrNot allBold allRed
]
]
].