DeviceWorkstation.st
changeset 3555 6ff09db833b0
parent 3529 9993ee58e885
child 3565 1718cebba40b
equal deleted inserted replaced
3554:247beb3d5803 3555:6ff09db833b0
    11 "
    11 "
    12 
    12 
    13 "{ Package: 'stx:libview' }"
    13 "{ Package: 'stx:libview' }"
    14 
    14 
    15 HostGraphicsDevice subclass:#DeviceWorkstation
    15 HostGraphicsDevice subclass:#DeviceWorkstation
    16         instanceVariableNames:'visualType monitorType depth ncells bitsPerRGB bitsRed bitsGreen
    16 	instanceVariableNames:'visualType monitorType depth ncells bitsPerRGB bitsRed bitsGreen
    17                 bitsBlue redMask greenMask blueMask redShift greenShift blueShift
    17 		bitsBlue redMask greenMask blueMask redShift greenShift blueShift
    18                 hasColors hasGreyscales width height widthMM heightMM
    18 		hasColors hasGreyscales width height widthMM heightMM
    19                 resolutionHor resolutionVer idToTableIndexMapping knownViews
    19 		resolutionHor resolutionVer idToTableIndexMapping knownViews
    20                 knownIds knownBitmaps knownBitmapIds dispatching dispatchProcess
    20 		knownIds knownBitmaps knownBitmapIds dispatching dispatchProcess
    21                 exitOnLastClose ctrlDown shiftDown metaDown altDown superDown
    21 		exitOnLastClose ctrlDown shiftDown metaDown altDown superDown
    22                 motionEventCompression lastId lastView keyboardMap rootView
    22 		motionEventCompression lastId lastView keyboardMap rootView
    23                 isSlow activeKeyboardGrab activePointerGrab buttonTranslation
    23 		isSlow activeKeyboardGrab activePointerGrab buttonTranslation
    24                 multiClickTimeDelta altModifiers metaModifiers ctrlModifiers
    24 		multiClickTimeDelta altModifiers metaModifiers ctrlModifiers
    25                 shiftModifiers superModifiers buttonModifiers supportsDeepIcons
    25 		shiftModifiers superModifiers buttonModifiers supportsDeepIcons
    26                 preferredIconSize ditherColors fixColors numFixRed numFixGreen
    26 		preferredIconSize ditherColors fixColors numFixRed numFixGreen
    27                 numFixBlue fixGrayColors copyBuffer lastCopyBuffer blackColor
    27 		numFixBlue fixGrayColors copyBuffer lastCopyBuffer blackColor
    28                 whiteColor focusMode activeView clipBoardEncoding focusView
    28 		whiteColor focusMode activeView clipBoardEncoding focusView
    29                 deviceErrorSignal deviceIOErrorSignal mayOpenDebugger
    29 		deviceErrorSignal deviceIOErrorSignal mayOpenDebugger
    30                 suppressDebugger'
    30 		suppressDebugger'
    31         classVariableNames:'ButtonTranslation MultiClickTimeDelta DeviceErrorSignal
    31 	classVariableNames:'ButtonTranslation MultiClickTimeDelta DeviceErrorSignal
    32                 DeviceIOErrorSignal DeviceIOTimeoutErrorSignal ErrorPrinting
    32 		DeviceIOErrorSignal DeviceIOTimeoutErrorSignal ErrorPrinting
    33                 DefaultScreen AllScreens CurrentScreenQuerySignal
    33 		DefaultScreen AllScreens CurrentScreenQuerySignal
    34                 LastActiveScreen LastActiveProcess WindowsRightButtonBehavior
    34 		LastActiveScreen LastActiveProcess WindowsRightButtonBehavior
    35                 ExitOnLastClose DrawingOnClosedDeviceSignal'
    35 		ExitOnLastClose DrawingOnClosedDeviceSignal'
    36         poolDictionaries:''
    36 	poolDictionaries:''
    37         category:'Interface-Graphics'
    37 	category:'Interface-Graphics'
    38 !
    38 !
    39 
    39 
    40 Object subclass:#DeviceFontMetrics
    40 Object subclass:#DeviceFontMetrics
    41         instanceVariableNames:'encoding ascent descent maxAscent maxDescent minWidth maxWidth
    41 	instanceVariableNames:'encoding ascent descent maxAscent maxDescent minWidth maxWidth
    42                 averageWidth'
    42 		averageWidth'
    43         classVariableNames:''
    43 	classVariableNames:''
    44         poolDictionaries:''
    44 	poolDictionaries:''
    45         privateIn:DeviceWorkstation
    45 	privateIn:DeviceWorkstation
    46 !
    46 !
    47 
    47 
    48 !DeviceWorkstation class methodsFor:'documentation'!
    48 !DeviceWorkstation class methodsFor:'documentation'!
    49 
    49 
    50 copyright
    50 copyright
  5213 
  5213 
  5214     "Modified: / 19.1.2000 / 10:36:02 / cg"
  5214     "Modified: / 19.1.2000 / 10:36:02 / cg"
  5215 !
  5215 !
  5216 
  5216 
  5217 close
  5217 close
  5218     "close down connection to Display - usually never done"
  5218     "close down connection to Display - usually never done for the main screen"
  5219 
  5219 
  5220     self releaseDeviceResources.
  5220     self releaseDeviceResources.
  5221     self closeConnection.
  5221     self closeConnection.
       
  5222     dispatching := false.
       
  5223     dispatchProcess terminate.
  5222 
  5224 
  5223     "Modified: 13.1.1997 / 22:13:18 / cg"
  5225     "Modified: 13.1.1997 / 22:13:18 / cg"
  5224 !
  5226 !
  5225 
  5227 
  5226 closeConnection
  5228 closeConnection
  7428 ! !
  7430 ! !
  7429 
  7431 
  7430 !DeviceWorkstation class methodsFor:'documentation'!
  7432 !DeviceWorkstation class methodsFor:'documentation'!
  7431 
  7433 
  7432 version
  7434 version
  7433     ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.405 2001-10-18 14:58:45 james Exp $'
  7435     ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.406 2001-11-19 15:15:32 cg Exp $'
  7434 ! !
  7436 ! !
  7435 DeviceWorkstation initialize!
  7437 DeviceWorkstation initialize!