--- a/DeviceWorkstation.st Mon Nov 19 15:27:30 2001 +0100
+++ b/DeviceWorkstation.st Mon Nov 19 16:15:32 2001 +0100
@@ -13,36 +13,36 @@
"{ Package: 'stx:libview' }"
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 idToTableIndexMapping knownViews
- knownIds knownBitmaps knownBitmapIds dispatching dispatchProcess
- exitOnLastClose ctrlDown shiftDown metaDown altDown superDown
- motionEventCompression lastId lastView keyboardMap rootView
- isSlow activeKeyboardGrab activePointerGrab buttonTranslation
- multiClickTimeDelta altModifiers metaModifiers ctrlModifiers
- shiftModifiers superModifiers buttonModifiers supportsDeepIcons
- preferredIconSize ditherColors fixColors numFixRed numFixGreen
- numFixBlue fixGrayColors copyBuffer lastCopyBuffer blackColor
- whiteColor focusMode activeView clipBoardEncoding focusView
- deviceErrorSignal deviceIOErrorSignal mayOpenDebugger
- suppressDebugger'
- classVariableNames:'ButtonTranslation MultiClickTimeDelta DeviceErrorSignal
- DeviceIOErrorSignal DeviceIOTimeoutErrorSignal ErrorPrinting
- DefaultScreen AllScreens CurrentScreenQuerySignal
- LastActiveScreen LastActiveProcess WindowsRightButtonBehavior
- ExitOnLastClose DrawingOnClosedDeviceSignal'
- 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 idToTableIndexMapping knownViews
+ knownIds knownBitmaps knownBitmapIds dispatching dispatchProcess
+ exitOnLastClose ctrlDown shiftDown metaDown altDown superDown
+ motionEventCompression lastId lastView keyboardMap rootView
+ isSlow activeKeyboardGrab activePointerGrab buttonTranslation
+ multiClickTimeDelta altModifiers metaModifiers ctrlModifiers
+ shiftModifiers superModifiers buttonModifiers supportsDeepIcons
+ preferredIconSize ditherColors fixColors numFixRed numFixGreen
+ numFixBlue fixGrayColors copyBuffer lastCopyBuffer blackColor
+ whiteColor focusMode activeView clipBoardEncoding focusView
+ deviceErrorSignal deviceIOErrorSignal mayOpenDebugger
+ suppressDebugger'
+ classVariableNames:'ButtonTranslation MultiClickTimeDelta DeviceErrorSignal
+ DeviceIOErrorSignal DeviceIOTimeoutErrorSignal ErrorPrinting
+ DefaultScreen AllScreens CurrentScreenQuerySignal
+ LastActiveScreen LastActiveProcess WindowsRightButtonBehavior
+ ExitOnLastClose DrawingOnClosedDeviceSignal'
+ poolDictionaries:''
+ category:'Interface-Graphics'
!
Object subclass:#DeviceFontMetrics
- instanceVariableNames:'encoding ascent descent maxAscent maxDescent minWidth maxWidth
- averageWidth'
- classVariableNames:''
- poolDictionaries:''
- privateIn:DeviceWorkstation
+ instanceVariableNames:'encoding ascent descent maxAscent maxDescent minWidth maxWidth
+ averageWidth'
+ classVariableNames:''
+ poolDictionaries:''
+ privateIn:DeviceWorkstation
!
!DeviceWorkstation class methodsFor:'documentation'!
@@ -5215,10 +5215,12 @@
!
close
- "close down connection to Display - usually never done"
+ "close down connection to Display - usually never done for the main screen"
self releaseDeviceResources.
self closeConnection.
+ dispatching := false.
+ dispatchProcess terminate.
"Modified: 13.1.1997 / 22:13:18 / cg"
!
@@ -7430,6 +7432,6 @@
!DeviceWorkstation class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.405 2001-10-18 14:58:45 james Exp $'
+ ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.406 2001-11-19 15:15:32 cg Exp $'
! !
DeviceWorkstation initialize!