hg/stx-libview: comparison DeviceWorkstation.st

equal deleted inserted replaced

-:3d8eedcc0ad8
+:01db7f44cbbd
 "
 COPYRIGHT (c) 1993 by Claus Gittinger
-All Rights Reserved
+	      All Rights Reserved
 This software is furnished under a license and may be used
 only in accordance with the terms of that license and with the
 inclusion of the above copyright notice.   This software may not
 be provided or otherwise made available to, or used by, any
 		altModifiers metaModifiers ctrlModifiers shiftModifiers
 		supportsDeepIcons preferredIconSize ditherColors fixColors
 		numFixRed numFixGreen numFixBlue copyBuffer lastCopyBuffer
 		blackColor whiteColor'
 	classVariableNames:'ButtonTranslation MultiClickTimeDelta DeviceErrorSignal
-		ErrorPrinting DefaultScreen AllScreens ExitOnLastClose
+		DeviceIOErrorSignal ErrorPrinting DefaultScreen AllScreens ExitOnLastClose
 		CurrentScreenQuerySignal LastActiveScreen LastActiveProcess'
 	poolDictionaries:''
 	category:'Interface-Graphics'
 !
 !DeviceWorkstation class methodsFor:'documentation'!
 copyright
 "
 COPYRIGHT (c) 1993 by Claus Gittinger
-All Rights Reserved
+	      All Rights Reserved
 This software is furnished under a license and may be used
 only in accordance with the terms of that license and with the
 inclusion of the above copyright notice.   This software may not
 be provided or otherwise made available to, or used by, any
 monitorType     <Symbol>          one of #monochrome, #color, #unknown
 depth           <SmallInteger>    bits per color
 ncells          <SmallInteger>    number of colors (i.e. colormap size; not always == 2^depth)
 bitsPerRGB      <SmallInteger>    number of valid bits per rgb component
-(actual number taken in A/D converter; not all devices report the true value)
+					(actual number taken in A/D converter; not all devices report the true value)
 bitsRed         <SmallInteger>    number of red bits (only valid for TrueColor displays)
 bitsGreen       <SmallInteger>    number of green bits (only valid for TrueColor displays)
 bitsBlue        <SmallInteger>    number of blue bits (only valid for TrueColor displays)
 redMask         <SmallInteger>    shifted red mask (only useful for TrueColor displays)
 greenMask       <SmallInteger>    shifted green mask (only useful for TrueColor displays)
 shiftDown       <Boolean>         true, if shift key currently pressed
 metaDown        <Boolean>         true, if meta key (cmd-key) is currently pressed
 altDown         <Boolean>         true, if alt key is currently pressed
 motionEventCompression
-<Boolean>         if true motion events are compressed
+		      <Boolean>         if true motion events are compressed
-(obsolete: now done in sensor)
+					(obsolete: now done in sensor)
 lastId          <Number>          the id of the last events view (internal)
 lastView        <View>            the last events view (internal, for faster id->view mapping)
 keyboardMap     <KeyBdMap>        mapping for keys
 rootView        <DisplayRootView> this displays root window
 isSlow          <Boolean>         set/cleared from startup - used to turn off
-things like popup-shadows etc.
+					things like popup-shadows etc.
 [class variables:]
 MultiClickTimeDelta               in ms; controls how long of a delay is
-required between two clicks, to NOT take
+					required between two clicks, to NOT take
-it as a multi-click.
+					it as a multi-click.
 ErrorPrinting                     controls low-level (X-) error message printing
 AllScreens                        a collectin of known screens
 ExitOnLastClose                   if true, the dispatch process terminates when the
-last view is closed. (for stand alone apps)
+					last view is closed. (for stand alone apps)
-Should be set to false, if a standAlone app
+					Should be set to false, if a standAlone app
-closes all views and still needs an event dispatcher
+					closes all views and still needs an event dispatcher
-later (i.e. is temporary view-less)
+					later (i.e. is temporary view-less)
 [see also:]
-GraphicsContext DeviceDrawable
+	GraphicsContext DeviceDrawable
-WindowSensor WindowGroup WindowEvent
+	WindowSensor WindowGroup WindowEvent
-ProcessorScheduler
+	ProcessorScheduler
-PSMedium
+	PSMedium
 [author:]
-Claus Gittinger
+	Claus Gittinger
 "
 !
 events
 "
 and CTRL-C handling to be performed even while other processes are running.
 The code executed by the event process is found in startDispatch.
 Individual events can be enabled or disabled. The ones that are enabled
 by default are:
-keypress / keyRelease
+	keypress / keyRelease
-buttonPress / buttonRelease / buttonMotion (i.e. motion with button pressed)
+	buttonPress / buttonRelease / buttonMotion (i.e. motion with button pressed)
-pointerEnter / pointerLeave
+	pointerEnter / pointerLeave
 other events have to be enabled by sending a corresponding #enableXXXEvent
 message to the view which shall receive those events.
 For example, pointerMotion events (i.e. motion without button being pressed)
 are enabled by: 'aView enableMotionEvent'
 this is the default graphics display, on which new views are created
 (however, provisions exist for multi-display operation)
 Currently, there is are only two concrete display classes (released to the public):
-XWorkstation    - a plain X window interface
+	XWorkstation    - a plain X window interface
-GLXWorkstation  - an X window interface with a GL(tm) (3D graphic library)
+	GLXWorkstation  - an X window interface with a GL(tm) (3D graphic library)
-extension; either simulated (VGL) or a real GL
+			  extension; either simulated (VGL) or a real GL
-(real GL is only available on SGI machines)
+			  (real GL is only available on SGI machines)
 the following are coming soon:
-OpenGLWorkstation
+	OpenGLWorkstation
-- an X window interface with a openGL(tm) (3D graphic library)
+			- an X window interface with a openGL(tm) (3D graphic library)
-extension; either simulated (MESA) or a real openGL
+			  extension; either simulated (MESA) or a real openGL
-(real openGL is only available on SGI/NT machines)
+			  (real openGL is only available on SGI/NT machines)
-WinWorkstation  - what will that be ?
+	WinWorkstation  - what will that be ?
 An experimental version for a NeXTStep interface exists, but is currently
 no longer maintained and not released.
 Also, interfaces for other graphic systems (i.e. OS/2) are
 planned for and will be available (hopefully) in late 96.
 This does not work with other devices (i.e. Windows).
 If you want to experiment with multi-display applications,
 you have to:
-- create a new instance of XWorkstation:
+	- create a new instance of XWorkstation:
-Smalltalk at:#Display2 put:(XWorkstation new).
+	    Smalltalk at:#Display2 put:(XWorkstation new).
-or:
+	  or:
-Smalltalk at:#Display2 put:(GLXWorkstation new).
+	    Smalltalk at:#Display2 put:(GLXWorkstation new).
-- have it connect to the display (i.e. the xServer):
+	- have it connect to the display (i.e. the xServer):
-(replace 'localhost' below with the name of your display)
+	  (replace 'localhost' below with the name of your display)
-Display2 := Display2 initializeFor:'localhost:0.0'
+	    Display2 := Display2 initializeFor:'localhost:0.0'
-returns nil, if connection is refused
+	  returns nil, if connection is refused
-- leaving you with Display2==nil in this case.
+	  - leaving you with Display2==nil in this case.
-- start an event dispatcher process for it:
+	- start an event dispatcher process for it:
-(this is now no longer needed - the first opened view will do it for you)
+	  (this is now no longer needed - the first opened view will do it for you)
-Display2 startDispatch
+	    Display2 startDispatch
-- optionally set its keyboard map
+	- optionally set its keyboard map
-(since this is usually done for Display in the startup-file,
+	  (since this is usually done for Display in the startup-file,
-the new display does not have all your added key bindings)
+	   the new display does not have all your added key bindings)
-Display2 keyboardMap:(Display keyboardMap)
+	    Display2 keyboardMap:(Display keyboardMap)
-- create a view for it:
+	- create a view for it:
-(FileBrowser onDevice:Display2) open
+	    (FileBrowser onDevice:Display2) open
-(Workspace onDevice:Display2) open
+	    (Workspace onDevice:Display2) open
-(Launcher onDevice:Display2) open
+	    (Launcher onDevice:Display2) open
-does not work with Launcher, since its an ApplicationModel (not a view)
+		does not work with Launcher, since its an ApplicationModel (not a view)
-use:
+		use:
-Launcher openOnDevice:Display2
+		    Launcher openOnDevice:Display2
-instead.
+		instead.
 However, as mentioned above, there may be a few places, where the default
 display 'Display' is still hard-coded - especially, in contributed and
 Public domain code, you may find those.
 initialize
 "create local error signals; enable errorPrinting"
 DeviceErrorSignal isNil ifTrue:[
-DeviceErrorSignal := (Signal new) mayProceed:true.
+	DeviceErrorSignal := (Signal new) mayProceed:true.
-DeviceErrorSignal notifierString:'device error'.
+	DeviceErrorSignal notifierString:'device error'.
-CurrentScreenQuerySignal := QuerySignal new.
+	DeviceIOErrorSignal := (Signal new) mayProceed:false.
-CurrentScreenQuerySignal nameClass:self message:#currentScreenQuerySignal.
+	DeviceIOErrorSignal notifierString:'device IO error'.
-CurrentScreenQuerySignal notifierString:'asking for current screen'.
+	CurrentScreenQuerySignal := QuerySignal new.
+	CurrentScreenQuerySignal nameClass:self message:#currentScreenQuerySignal.
+	CurrentScreenQuerySignal notifierString:'asking for current screen'.
 ].
 ErrorPrinting := true.
 ExitOnLastClose := false.
 self initializeConstants.
 "Created: 15.2.1997 / 15:07:20 / cg"
 !
 deviceErrorSignal
-"return the signal used for device error reporting"
+"return the signal used for device error reporting.
+In multi-display configurations, this is the parent of
+all per-instance deviceErrorSignals."
 ^ DeviceErrorSignal
+!
+deviceIOErrorSignal
+"return the signal used for device I/O error reporting.
+In multi-display configurations, this is the parent of
+all per-instance deviceIOErrorSignals."
+^ DeviceIOErrorSignal
+! !
+!DeviceWorkstation methodsFor:'Signal constants'!
+deviceErrorSignal
+"return the per-device signal, which is used for error reporting.
+The default here is the global DeviceErrorSignal (which is the
+parent of the per-instance signals)."
+^ self class deviceErrorSignal
+!
+deviceIOErrorSignal
+"return the signal used for device I/O error reporting.
+The default here is the global DeviceIOErrorSignal (which is the
+parent of the per-instance signals)."
+^ self class deviceIOErrorSignal
 ! !
 !DeviceWorkstation class methodsFor:'accessing'!
 buttonTranslation:anArray
 "set the button translation, #(1 2 3) is no-translation,
 #(3 2 1) is ok for left-handers"
 ButtonTranslation := anArray.
 Display notNil ifTrue:[
-Display buttonTranslation:anArray
+	Display buttonTranslation:anArray
 ].
 ! !
 !DeviceWorkstation class methodsFor:'error handling'!
 errorInterrupt:errID with:aParameter
 "{ Pragma: +optSpace }"
 "an error in the devices low level code (typically Xlib or XtLib)
 This is invoked via
-XError->errorInterrupt:#DisplayError->registeredErrorInterruptHandlers
+	XError->errorInterrupt:#DisplayError->registeredErrorInterruptHandlers
+or
+	XError->errorInterrupt:#DisplayIOError->registeredErrorInterruptHandlers
 looks if a signal handler for DeviceErrorSignal is present,
-and - if so raises the signal. If the signal not handled, simply output a
+and - if so raises the signal.
-message and continue.
+If the signal not handled, simply output a message and continue.
 This allows for non disrupted error reporting OR to catch and
-investigate errors as required."
+investigate errors as required.
+However, io-errors are always delivered as a signal raise."
-|badId badResource msg|
+|badId badResource msg theDevice theSignal p|
-badId := self resourceIdOfLastError.
-badId ~~ 0 ifTrue:[
+errID notNil ifTrue:[
-badResource := self resourceOfId:badId.
+	AllScreens do:[:aDisplayDevice |
-].
+	    aDisplayDevice id = aParameter ifTrue:[
-msg := 'Display error: ' , (self lastErrorString).
+		theDevice := aDisplayDevice.
+	    ]
-DeviceErrorSignal isHandled ifFalse:[
+	]
-ErrorPrinting ifTrue:[
+].
-('DeviceWorkstation [error]: ' , msg) errorPrintCR
-].
+"/ now, we have the bad guy at hand ...
-^ self
+"/ get a per-instance signal.
-].
+theDevice isNil ifTrue:[
-^ DeviceErrorSignal
+	errID == #DisplayIOError ifTrue:[
-raiseRequestWith:badResource
+	    theSignal := self deviceIOErrorSignal.
-errorString:msg
+	] ifFalse:[
+	    theSignal := self deviceErrorSignal
-"Modified: 10.1.1997 / 17:48:06 / cg"
+	]
+] ifFalse:[
+	errID == #DisplayIOError ifTrue:[
+	    theSignal := theDevice deviceIOErrorSignal.
+	] ifFalse:[
+	    theSignal := theDevice deviceErrorSignal
+	]
+].
+errID == #DisplayIOError ifTrue:[
+	"/ always raises an exception
+	msg := 'Display I/O Error'.
+	badResource := theDevice.
+] ifFalse:[
+	"/ only raises an exception if handled
+	"/ that will become instance-specific information in
+	"/ the near future ...
+	badId := self resourceIdOfLastError.
+	badId ~~ 0 ifTrue:[
+	    badResource := self resourceOfId:badId.
+	].
+	msg := 'Display error: ' , (self lastErrorString).
+	theSignal isHandled ifFalse:[
+	    ErrorPrinting ifTrue:[
+		('DeviceWorkstation [error]: ' , msg) errorPrintCR
+	    ].
+	    ^ self
+	]
+].
+"/ interrupt that dispatcher
+theDevice notNil ifTrue:[
+	p := theDevice dispatchProcess.
+	p ~~ Processor activeProcess ifTrue:[
+'interrupting: ' print. p displayString printCR.
+	    p interruptWith:[
+		theDevice brokenConnection.
+		theSignal
+		    raiseRequestWith:badResource
+		    errorString:msg.
+		p terminateWithAllSubprocesses.
+		p terminateNoSignal.   "/ just in case
+	    ].
+	    Processor reschedule.
+	    AbortSignal raise.
+	].
+].
+theDevice brokenConnection.
+theSignal
+	raiseRequestWith:badResource
+	errorString:msg.
+AbortSignal raise.
+"Modified: 11.4.1997 / 11:28:27 / cg"
 !
 errorPrinting
 "return the `errorPrinting-is-on' flag"
 "search thru all device stuff for a resource.
 Needed for error handling"
 Form allInstances do:[:f |
-f id == id ifTrue:[^ f]
+	f id == id ifTrue:[^ f]
 ].
 self allInstances do:[:aDisplay |
-aDisplay allViewsDo:[:aView |
+	aDisplay allViewsDo:[:aView |
-aView id == id ifTrue:[^ aView].
+	    aView id == id ifTrue:[^ aView].
-aView gcId == id ifTrue:[^ aView]
+	    aView gcId == id ifTrue:[^ aView]
-].
+	].
 "/        |views|
 "/        views := aDisplay knownViews.
 "/        views notNil ifTrue:[
 "/            views do:[:v |
 "/            ].
 "/        ].
 ].
 Color allInstances do:[:c |
-c colorId == id ifTrue:[^ c]
+	c colorId == id ifTrue:[^ c]
 ].
 Font allInstances do:[:f |
-f fontId == id ifTrue:[^ f]
+	f fontId == id ifTrue:[^ f]
 ].
 ^ nil
 "Modified: 24.4.1996 / 19:36:15 / cg"
 ! !
 "/
 "/ if there is only one screen,
 "/ take that ... it ought to be display
 "/
 AllScreens size <= 1 ifTrue:[
-^ Display
+	^ Display
 ].
 "/
 "/ someone willing to tell me ?
 "/
 (dev := CurrentScreenQuerySignal raise) notNil ifTrue:[
-^ dev
+	^ dev
 ].
 thisProcess := Processor activeProcess.
 LastActiveScreen notNil ifTrue:[
-LastActiveProcess == thisProcess ifTrue:[
+	LastActiveProcess == thisProcess ifTrue:[
-^ LastActiveScreen
+	    ^ LastActiveScreen
-]
+	]
 ].
 "/
 "/ mhmh - multiple screens are active;
 "/ look for the active windowGroups screen.
 "/ Be careful, to not run into an error in case
 "/ the current windowGroup got corrupted somehow ...
 (wg := WindowGroup activeGroup) notNil ifTrue:[
-"/
+	"/
-"/ ok, not a background process or scheduler ...
+	"/ ok, not a background process or scheduler ...
-"/
+	"/
-(dev := wg graphicsDevice) notNil ifTrue:[
+	(dev := wg graphicsDevice) notNil ifTrue:[
-LastActiveScreen := dev.
+	    LastActiveScreen := dev.
-LastActiveProcess := thisProcess.
+	    LastActiveProcess := thisProcess.
-^ dev
+	    ^ dev
-].
+	].
 ].
 "/
 "/ in all other cases, return the default display
 "/
 zoom:startRect to:endRect
 "animate a rubber-rectangle from startRect to endRect.
 Can be used by buttons, which open some dialog for nicer user feedback.
 Notice: since the displays window manager typically allows a topWindow
-to be placed by the user, this should not be used for modeless
+	     to be placed by the user, this should not be used for modeless
-topViews.
+	     topViews.
 "
 ^ self
-zoom:startRect to:endRect duration:0.3
+	zoom:startRect to:endRect duration:0.3
 "
 Screen current zoom:(10@10 corner:20@20) to:(20@20 corner:1000@1000)
 Screen current zoom:(20@20 corner:1000@1000) to:(10@10 corner:20@20)
 "
 zoom:startRect to:endRect duration:milliseconds
 "animate a rubber-rectangle from startRect to endRect.
 Can be used by buttons, which open some dialog for nicer user feedback.
 Notice: since the displays window manager typically allows a topWindow
-to be placed by the user, this should not be used for modeless
+	     to be placed by the user, this should not be used for modeless
-topViews.
+	     topViews.
 "
 |steps dExt dOrg org ext root|
 root := self rootView.
 steps := 10.
 dExt := (endRect extent - startRect extent) / steps.
 dOrg := (endRect origin - startRect origin) / steps.
 0 to:steps do:[:step |
-org := (startRect origin + (dOrg * step)) rounded.
+	org := (startRect origin + (dOrg * step)) rounded.
-ext := (startRect extent + (dExt * step)) rounded.
+	ext := (startRect extent + (dExt * step)) rounded.
-rootView clippedByChildren:false.
+	rootView clippedByChildren:false.
-rootView xoring:[
+	rootView xoring:[
-rootView displayRectangleX:org x y:org y width:ext x height:ext y
+	    rootView displayRectangleX:org x y:org y width:ext x height:ext y
-].
+	].
-Delay waitForMilliseconds:(milliseconds // steps).
+	Delay waitForMilliseconds:(milliseconds // steps).
-rootView xoring:[
+	rootView xoring:[
-rootView displayRectangleX:org x y:org y width:ext x height:ext y
+	    rootView displayRectangleX:org x y:org y width:ext x height:ext y
-].
+	].
 ].
 rootView clippedByChildren:true.
 "
 Screen current zoom:(10@10 corner:20@20) to:(20@20 corner:1000@1000) duration:1000
 zoom:startRect to:endRect speed:pixelsPerSecond
 "animate a rubber-rectangle from startRect to endRect.
 Can be used by buttons, which open some dialog for nicer user feedback.
 The speed is computed for the longest edge to run at the given speed.
 Notice: since the displays window manager typically allows a topWindow
-to be placed by the user, this should not be used for modeless
+	     to be placed by the user, this should not be used for modeless
-topViews.
+	     topViews.
 "
 |maxDistance|
 maxDistance := (endRect origin - startRect origin).
 maxDistance := maxDistance max:(endRect bottomLeft - startRect bottomLeft).
 maxDistance := maxDistance max:(endRect corner - startRect corner).
 maxDistance := maxDistance x max:(maxDistance y).
 ^ self
-zoom:startRect to:endRect duration:(maxDistance / pixelsPerSecond * 1000)
+	zoom:startRect to:endRect duration:(maxDistance / pixelsPerSecond * 1000)
 "
 Screen current zoom:(10@10 corner:20@20) to:(20@20 corner:1000@1000) speed:1000
 Screen current zoom:(20@20 corner:1000@1000) to:(10@10 corner:20@20) speed:2000
 "
 |buttonNr|
 "reverse buttonTranslation"
 buttonTranslation notNil ifTrue:[
-buttonNr := buttonTranslation indexOf:aButton ifAbsent:[1].
+	buttonNr := buttonTranslation indexOf:aButton ifAbsent:[1].
 ] ifFalse:[
-buttonNr := aButton.
+	buttonNr := aButton.
 ].
 ^ (aMask bitTest:(self buttonMotionMask:buttonNr))
 !
 dispatchProcess
 rootView
 "return the rootView (i.e. the background window) on the receiver screen.
 It is not guaranteed, that a particular display device supports this."
 rootView isNil ifTrue:[
-rootView := DisplayRootView onDevice:self
+	rootView := DisplayRootView onDevice:self
 ].
 ^ rootView
 "
 |v|
 |id searchId foundId|
 searchId := self rootWindowId.
 [searchId notNil] whileTrue:[
-id := self viewIdFromPoint:aPoint in:searchId.
+	id := self viewIdFromPoint:aPoint in:searchId.
-foundId := searchId.
+	foundId := searchId.
-searchId := id
+	searchId := id
 ].
 ^ foundId
 !
 viewIdFromPoint:aPoint in:windowId
 bitsBlue
 "return the number of valid bits in the red component."
 bitsBlue isNil ifTrue:[
-"/ not a truecolor display
+	"/ not a truecolor display
-^ bitsPerRGB
+	^ bitsPerRGB
 ].
 ^ bitsBlue
 "
 Display bitsBlue
 bitsGreen
 "return the number of valid bits in the red component."
 bitsGreen isNil ifTrue:[
-"/ not a truecolor display
+	"/ not a truecolor display
-^ bitsPerRGB
+	^ bitsPerRGB
 ].
 ^ bitsGreen
 "
 Display bitsGreen
 bitsRed
 "return the number of valid bits in the red component."
 bitsRed isNil ifTrue:[
-"/ not a truecolor display
+	"/ not a truecolor display
-^ bitsPerRGB
+	^ bitsPerRGB
 ].
 ^ bitsRed
 "
 Display bitsRed
 (of which the server knows nothing).
 So, this should be used from a display-specific startup file only."
 visualType := aSymbol.
 (visualType == #StaticGray or:[visualType == #GrayScale]) ifTrue:[
-hasColors := false
+	hasColors := false
 ] ifFalse:[
-hasColors := true
+	hasColors := true
 ]
 !
 whiteColor
 "return the white color on this device.
 We return nil here (as if there are no special size preferences)."
 |sizes spec sz sz2|
 preferredIconSize isNil ifTrue:[
-sizes := self iconSizes.
+	sizes := self iconSizes.
-sizes notNil ifTrue:[
+	sizes notNil ifTrue:[
-spec := sizes first.
+	    spec := sizes first.
-"/ we prefer square icons ...
+	    "/ we prefer square icons ...
-sz := (spec at:#maxWidth) min: (spec at:#maxHeight).
+	    sz := (spec at:#maxWidth) min: (spec at:#maxHeight).
-sz > 64 ifTrue:[
+	    sz > 64 ifTrue:[
-sz2 := (spec at:#minWidth) max: (spec at:#minHeight).
+		sz2 := (spec at:#minWidth) max: (spec at:#minHeight).
-sz2 <= 48 ifTrue:[
+		sz2 <= 48 ifTrue:[
-sz := 48
+		    sz := 48
-]
+		]
-].
+	    ].
-preferredIconSize := sz @ sz
+	    preferredIconSize := sz @ sz
-].
+	].
-preferredIconSize isNil ifTrue:[
+	preferredIconSize isNil ifTrue:[
-preferredIconSize := 48@48
+	    preferredIconSize := 48@48
-].
+	].
 ].
 ^ preferredIconSize
 "
 heightInMillimeter:aNumber
 "set the height in millimeter of the display
 - needed since some displays do not tell the truth or do not know it"
 aNumber > 0 ifTrue:[
-heightMM := aNumber.
+	heightMM := aNumber.
-resolutionVer := nil.
+	resolutionVer := nil.
 ]
 "Modified: 10.9.1996 / 14:25:39 / cg"
 !
 horizontalPixelPerMillimeter
 "return the number of horizontal pixels per millimeter of the display"
 resolutionHor notNil ifTrue:[
-^ resolutionHor
+	^ resolutionHor
 ].
 resolutionHor := (width / widthMM) asFloat.
 ^ resolutionHor
 !
 verticalPixelPerMillimeter
 "return the number of vertical pixels per millimeter of the display"
 resolutionVer notNil ifTrue:[
-^ resolutionVer
+	^ resolutionVer
 ].
 resolutionVer := (height / heightMM) asFloat.
 ^ resolutionVer
 !
 widthInMillimeter:aNumber
 "set the width in millimeter of the display
 - needed since some displays do not tell the truth or do not know it"
 aNumber > 0 ifTrue:[
-widthMM := aNumber.
+	widthMM := aNumber.
-resolutionHor := nil.
+	resolutionHor := nil.
 ].
 "Modified: 10.9.1996 / 14:25:27 / cg"
 ! !
 "create a new faxImage in the workstation.
 This is a special interface to servers with the fax-image
 extension (you won't find it in standard X-servers).
 type: 0 -> uncompressed
-1 -> group3 1D (k is void)
+	   1 -> group3 1D (k is void)
-2 -> group3 2D
+	   2 -> group3 2D
-3 -> group4 2D (k is void)
+	   3 -> group4 2D (k is void)
 "
 ^ nil
 !
 ^ self subclassResponsibility
 !
 createSubWindowFor:aView origin:org extent:ext borderWidth:bw subViewOf:sv inputOnly:inp cursor:cursor
 ^ self
-createWindowFor:aView
+	createWindowFor:aView
 	type:nil
-origin:org
+	origin:org
 	extent:ext
-minExtent:nil
+	minExtent:nil
 	maxExtent:nil
-borderWidth:bw
+	borderWidth:bw
-subViewOf:sv
+	subViewOf:sv
-onTop:false
+	onTop:false
-inputOnly:inp
+	inputOnly:inp
-label:nil
+	label:nil
-cursor:cursor
+	cursor:cursor
-icon:nil iconMask:nil
+	icon:nil iconMask:nil
 	iconView:nil
 !
 createWindowFor:aView left:xpos top:ypos width:wwidth height:wheight
 "will vanish - for compatibility with previous versions"
 ^ self
-createWindowFor:aView
+	createWindowFor:aView
 	type:nil
-origin:(xpos @ ypos)
+	origin:(xpos @ ypos)
-extent:(wwidth @ wheight)
+	extent:(wwidth @ wheight)
-minExtent:(aView minExtent)
+	minExtent:(aView minExtent)
-maxExtent:(aView maxExtent)
+	maxExtent:(aView maxExtent)
-borderWidth:(aView borderWidth)
+	borderWidth:(aView borderWidth)
-subViewOf:(aView superView)
+	subViewOf:(aView superView)
-onTop:(aView isPopUpView)
+	onTop:(aView isPopUpView)
-inputOnly:(aView isInputOnly)
+	inputOnly:(aView isInputOnly)
-label:(aView label)
+	label:(aView label)
-cursor:(aView cursor)
+	cursor:(aView cursor)
-icon:(aView icon) iconMask:(aView iconMask)
+	icon:(aView icon) iconMask:(aView iconMask)
-iconView:(aView iconView)
+	iconView:(aView iconView)
 "Modified: 1.6.1996 / 13:22:48 / cg"
 !
 createWindowFor:aView type:typeSymbol origin:org extent:ext minExtent:minE maxExtent:maxE borderWidth:bw subViewOf:sv onTop:onTop inputOnly:inp label:label cursor:curs icon:icn iconMask:icnM iconView:icnV
 plus possibly available fixColors."
 |s|
 fixColors notNil ifTrue:[
-s := IdentitySet new.
+	s := IdentitySet new.
-s addAll:fixColors.
+	s addAll:fixColors.
-s addAll:ditherColors.
+	s addAll:ditherColors.
-^ s asArray
+	^ s asArray
 ].
 ^ ditherColors
 "Created: 11.7.1996 / 18:13:30 / cg"
 !
 |mapSize "{ Class: SmallInteger }"
 depthUsed mapArray|
 visualType == #DirectColor ifTrue:[
-'DeviceWorkstation [info]: directColor displays not fully supported.' infoPrintCR.
+	'DeviceWorkstation [info]: directColor displays not fully supported.' infoPrintCR.
-^ nil
+	^ nil
 ].
 (visualType == #StaticGray or:[visualType == #TrueColor]) ifTrue:[
-"
+	"
-those have no colorMap - we're done
+	 those have no colorMap - we're done
-"
+	"
-^ nil
+	^ nil
 ].
 "
 get some attributes of the display device
 "
 "/ kludge for 15bit XFree server
 "/ (but: I have never encountered a PseudoColor display with more
 "/  than 8 bits ...)
 depthUsed == 15 ifTrue:[
-depthUsed := 16
+	depthUsed := 16
 ].
 depthUsed > 16 ifTrue:[
-"/ do not allocate zillions of colors ...
+	"/ do not allocate zillions of colors ...
-self error:'unreasonably large colorMap ...'.
+	self error:'unreasonably large colorMap ...'.
-^ nil
+	^ nil
 ].
 mapSize := (1 bitShift:depthUsed).
 "/ get the palette
 mapArray := Array new:mapSize.
 1 to:mapSize do:[:i |
-self getRGBFrom:(i-1) into:[:r :g :b |
+	self getRGBFrom:(i-1) into:[:r :g :b |
-mapArray at:i put:(Color red:r green:g blue:b)
+	    mapArray at:i put:(Color red:r green:g blue:b)
-]
+	]
 ].
 ^ mapArray.
 "
 Display colorMap
 than those below are X specific."
 |idx names triple|
 names := #(
-'red'
+		'red'
-'green'
+		'green'
-'blue'
+		'blue'
-'yellow'
+		'yellow'
-'magenta'
+		'magenta'
-'cyan'
+		'cyan'
-'white'
+		'white'
-'black'
+		'black'
-'olive'
+		'olive'
-'teal'
+		'teal'
-'silver'
+		'silver'
-'lime'
+		'lime'
-'fuchsia'
+		'fuchsia'
-'aqua'
+		'aqua'
-).
+	      ).
 idx := names indexOf:colorName.
 idx == 0 ifTrue:[
-idx := names indexOf:colorName asLowercase.
+	idx := names indexOf:colorName asLowercase.
 ].
 idx == 0 ifFalse:[
-triple := #(
+	triple := #(
-(100   0   0)  "red"
+			(100   0   0)  "red"
-(  0 100   0)  "green"
+			(  0 100   0)  "green"
-(  0   0 100)  "blue"
+			(  0   0 100)  "blue"
-(100 100   0)  "yellow"
+			(100 100   0)  "yellow"
-(100   0 100)  "magenta"
+			(100   0 100)  "magenta"
-(  0 100 100)  "cyan"
+			(  0 100 100)  "cyan"
-(100 100 100)  "white"
+			(100 100 100)  "white"
-(  0   0   0)  "black"
+			(  0   0   0)  "black"
-( 50  50   0)  "olive"
+			( 50  50   0)  "olive"
-(  0  50  50)  "teal"
+			(  0  50  50)  "teal"
-( 40  40  40)  "silver"
+			( 40  40  40)  "silver"
-( 20 100   0)  "lime"
+			( 20 100   0)  "lime"
-( 60   3 100)  "fuchsia"
+			( 60   3 100)  "fuchsia"
-( 10 100 100)  "aqua"
+			( 10 100 100)  "aqua"
-) at:idx.
+		   ) at:idx.
-^ aBlock value:(triple at:1)
+	^ aBlock value:(triple at:1)
-value:(triple at:2)
+		 value:(triple at:2)
-value:(triple at:3)
+		 value:(triple at:3)
 ].
 ^ nil
 "Modified: 18.9.1996 / 12:27:11 / cg"
 !
 getScaledRGBFromName:colorName into:aBlock
 "get rgb components (0..16rFFFF) of color named colorName,
 and evaluate the 3-arg block, aBlock with them"
 self getRGBFromName:colorName into:[:r :g :b |
-|sr sg sb|
+	|sr sg sb|
-sr := self percentToDeviceColorValue:r.
+	sr := self percentToDeviceColorValue:r.
-sg := self percentToDeviceColorValue:g.
+	sg := self percentToDeviceColorValue:g.
-sb := self percentToDeviceColorValue:b.
+	sb := self percentToDeviceColorValue:b.
-^ aBlock value:sr value:sg value:sb
+	^ aBlock value:sr value:sg value:sb
 ]
 !
 greenComponentOfColor:colorId
 "get green component (0..100) of color in map at:index"
 ^ self copyPlaneFromId:sourceId x:srcX y:srcY gc:srcGCId to:destId x:dstX y:dstY gc:dstGCId width:w height:h
 !
 displayArcX:x y:y width:width height:height from:startAngle angle:angle
-in:aDrawableId with:aGCId
+	     in:aDrawableId with:aGCId
 "draw an arc"
 ^ self subclassResponsibility
 "Created: 8.5.1996 / 08:44:43 / cg"
 displayOpaqueString:aString from:index1 to:index2 x:x y:y in:aDrawableId with:aGCId
 "draw a sub-string - draw foreground on background.
 If the coordinates are not integers, retry with rounded."
 self displayString:aString
-from:index1
+	 from:index1
-to:index2
+	 to:index2
-x:x
+	 x:x
-y:y
+	 y:y
-in:aDrawableId
+	 in:aDrawableId
-with:aGCId
+	 with:aGCId
-opaque:true
+	 opaque:true
 !
 displayOpaqueString:aString x:x y:y in:aDrawableId with:aGCId
 "draw a string - draw foreground on background.
 If the coordinates are not integers, retry with rounded."
 self displayString:aString
-x:x
+	 x:x
-y:y
+	 y:y
-in:aDrawableId
+	 in:aDrawableId
-with:aGCId
+	 with:aGCId
-opaque:true
+	 opaque:true
 !
 displayPointX:x y:y in:aDrawableId with:aGCId
 "draw a point"
 displayString:aString from:index1 to:index2 x:x y:y in:aDrawableId with:aGCId
 "draw a sub-string - draw foreground only.
 If the coordinates are not integers, retry with rounded."
 self
-displayString:aString
+	displayString:aString
-from:index1
+	from:index1
-to:index2
+	to:index2
-x:x
+	x:x
-y:y
+	y:y
-in:aDrawableId
+	in:aDrawableId
-with:aGCId
+	with:aGCId
-opaque:false
+	opaque:false
 !
 displayString:aString from:i1 to:i2 x:x y:y in:aDrawableId with:aGCId opaque:opaque
 "draw part of a string"
 displayString:aString x:x y:y in:aDrawableId with:aGCId
 "draw a string - draw foreground only.
 If the coordinates are not integers, retry with rounded."
 self
-displayString:aString
+	displayString:aString
-x:x
+	x:x
-y:y
+	y:y
-in:aDrawableId
+	in:aDrawableId
-with:aGCId
+	with:aGCId
-opaque:false
+	opaque:false
 !
 displayString:aString x:x y:y in:aDrawableId with:aGCId opaque:opaque
 "draw a string"
 self displayString:aString
-from:1
+		  from:1
-to:aString size
+		    to:aString size
-x:x
+		     x:x
-y:y
+		     y:y
-in:aDrawableId
+		     in:aDrawableId
-with:aGCId
+		     with:aGCId
-opaque:opaque
+		     opaque:opaque
 !
 drawBits:imageBits depth:imageDepth width:imageWidth height:imageHeight
-x:srcx y:srcy
+		       x:srcx y:srcy
-into:aDrawableId x:dstx y:dsty width:w height:h with:aGCId
+		    into:aDrawableId x:dstx y:dsty width:w height:h with:aGCId
 "draw a bitimage which has depth id, width iw and height ih into
 the drawable. draw a region of w/h pixels from srcx/srcy to dstx/dsty.
 It has to be checked elsewhere, that server can do it with the given
 depth; also it is assumed, that the colormap is setup correctly"
 ^ self subclassResponsibility
 !
 fillArcX:x y:y width:width height:height from:startAngle angle:angle
-in:aDrawableId with:aGCId
+	       in:aDrawableId with:aGCId
 "fill an arc"
 ^ self subclassResponsibility
 "Created: 8.5.1996 / 08:45:11 / cg"
 "return a collection of all my known views"
 |setOfViews|
 knownViews notNil ifTrue:[
-setOfViews := IdentitySet new.
+	setOfViews := IdentitySet new.
-knownViews validElementsDo:[:v | setOfViews add:v].
+	knownViews validElementsDo:[:v | setOfViews add:v].
 ].
 ^ setOfViews
 "Created: 14.2.1997 / 14:29:43 / cg"
 "Modified: 23.1.1997 / 21:27:03 / cg"
 "/                aBlock value:aView
 "/            ]
 "/      ]
 knownViews notNil ifTrue:[
-knownViews validElementsDo:[:v |
+	knownViews validElementsDo:[:v |
-aBlock value:v
+	    aBlock value:v
-]
+	]
 ]
 "
 View defaultStyle:#iris.
 Display allViewsDo:[:v | v initStyle. v redraw]
 "forward a button-motion for some view"
 |sensor|
 (sensor := aView sensor) notNil ifTrue:[
-sensor buttonMotion:button x:x y:y view:aView
+	sensor buttonMotion:button x:x y:y view:aView
 ] ifFalse:[
-aView shown ifTrue:[ "/ could be a late event arrival
+	aView shown ifTrue:[ "/ could be a late event arrival
-"
+	    "
-if there is no sensor ...
+	     if there is no sensor ...
-"
+	    "
-WindowEvent
+	    WindowEvent
-sendEvent:#buttonMotion:x:y:
+		sendEvent:#buttonMotion:x:y:
-arguments:(Array with:button with:x with:y)
+		arguments:(Array with:button with:x with:y)
-view:aView
+		view:aView
-]
+	]
 ]
 "Modified: 26.2.1997 / 15:02:18 / cg"
 !
 "forward a button-multi-press event for some view"
 |sensor|
 (sensor := aView sensor) notNil ifTrue:[
-sensor buttonMultiPress:button x:x y:y view:aView
+	sensor buttonMultiPress:button x:x y:y view:aView
 ] ifFalse:[
-aView shown ifTrue:[ "/ could be a late event arrival
+	aView shown ifTrue:[ "/ could be a late event arrival
-"
+	    "
-if there is no sensor ...
+	     if there is no sensor ...
-"
+	    "
-WindowEvent
+	    WindowEvent
-sendEvent:#buttonMultiPress:x:y:
+		sendEvent:#buttonMultiPress:x:y:
-arguments:(Array with:button with:x with:y)
+		arguments:(Array with:button with:x with:y)
-view:aView
+		view:aView
-]
+	]
 ]
 "Modified: 26.2.1997 / 15:02:29 / cg"
 !
 "forward a button-press event for some view"
 |sensor|
 (sensor := aView sensor) notNil ifTrue:[
-sensor buttonPress:button x:x y:y view:aView
+	sensor buttonPress:button x:x y:y view:aView
 ] ifFalse:[
-aView shown ifTrue:[ "/ could be a late event arrival
+	aView shown ifTrue:[ "/ could be a late event arrival
-"
+	    "
-if there is no sensor ...
+	     if there is no sensor ...
-"
+	    "
-WindowEvent
+	    WindowEvent
-sendEvent:#buttonPress:x:y:
+		sendEvent:#buttonPress:x:y:
-arguments:(Array with:button with:x with:y)
+		arguments:(Array with:button with:x with:y)
-view:aView
+		view:aView
-]
+	]
 ]
 "Modified: 26.2.1997 / 15:02:42 / cg"
 !
 "forward a button-release event for some view"
 |sensor|
 (sensor := aView sensor) notNil ifTrue:[
-sensor buttonRelease:button x:x y:y view:aView
+	sensor buttonRelease:button x:x y:y view:aView
 ] ifFalse:[
-aView shown ifTrue:[ "/ could be a late event arrival
+	aView shown ifTrue:[ "/ could be a late event arrival
-"
+	    "
-if there is no sensor ...
+	     if there is no sensor ...
-"
+	    "
-WindowEvent
+	    WindowEvent
-sendEvent:#buttonRelease:x:y:
+		sendEvent:#buttonRelease:x:y:
-arguments:(Array with:button with:x with:y)
+		arguments:(Array with:button with:x with:y)
-view:aView
+		view:aView
-]
+	]
 ]
 "Modified: 26.2.1997 / 15:02:52 / cg"
 !
 "forward a configure for some view"
 |sensor|
 (sensor := aView sensor) notNil ifTrue:[
-sensor configureX:x y:y width:w height:h view:aView
+	sensor configureX:x y:y width:w height:h view:aView
 ] ifFalse:[
-"
+	"
-if there is no sensor ...
+	 if there is no sensor ...
-"
+	"
-aView configureX:x y:y width:w height:h
+	aView configureX:x y:y width:w height:h
 ]
 !
 coveredBy:otherView view:aView
 "forward a covered for some view"
 |sensor|
 (sensor := aView sensor) notNil ifTrue:[
-sensor coveredBy:otherView view:aView
+	sensor coveredBy:otherView view:aView
 ] ifFalse:[
-"
+	"
-if there is no sensor ...
+	 if there is no sensor ...
-"
+	"
-aView coveredBy:otherView
+	aView coveredBy:otherView
 ]
 !
 destroyedView:aView
 "forward a destroyed event for some view"
 |sensor|
 (sensor := aView sensor) notNil ifTrue:[
-sensor destroyedView:aView
+	sensor destroyedView:aView
 ] ifFalse:[
-"
+	"
-if there is no sensor ...
+	 if there is no sensor ...
-"
+	"
-aView destroyed
+	aView destroyed
 ]
 !
 exposeX:x y:y width:w height:h view:aView
 "forward an expose for some view"
 |sensor|
 (sensor := aView sensor) notNil ifTrue:[
-sensor exposeX:x y:y width:w height:h view:aView
+	sensor exposeX:x y:y width:w height:h view:aView
 ] ifFalse:[
-"
+	"
-if there is no sensor ...
+	 if there is no sensor ...
-"
+	"
-WindowEvent
+	WindowEvent
-sendEvent:#exposeX:y:width:height:
+	    sendEvent:#exposeX:y:width:height:
-arguments:(Array with:x with:y with:w with:h)
+	    arguments:(Array with:x with:y with:w with:h)
-view:aView
+	    view:aView
 ]
 !
 focusInView:aView
 "forward a focusIn event for some view"
 |sensor|
 (sensor := aView sensor) notNil ifTrue:[
-sensor focusInView:aView
+	sensor focusInView:aView
 ] ifFalse:[
-"
+	"
-if there is no sensor ...
+	 if there is no sensor ...
-"
+	"
-WindowEvent
+	WindowEvent
-sendEvent:#focusIn
+	    sendEvent:#focusIn
-arguments:nil
+	    arguments:nil
-view:aView
+	    view:aView
 ]
 !
 focusOutView:aView
 "forward a focusOut event for some view"
 |sensor|
 (sensor := aView sensor) notNil ifTrue:[
-sensor focusOutView:aView
+	sensor focusOutView:aView
 ] ifFalse:[
-"
+	"
-if there is no sensor ...
+	 if there is no sensor ...
-"
+	"
-WindowEvent
+	WindowEvent
-sendEvent:#focusOut
+	    sendEvent:#focusOut
-arguments:nil
+	    arguments:nil
-view:aView
+	    view:aView
 ]
 !
 graphicsExposeX:x y:y width:w height:h final:final view:aView
 "forward a graphic expose for some view"
 |sensor|
 (sensor := aView sensor) notNil ifTrue:[
-sensor graphicsExposeX:x y:y width:w height:h final:final view:aView
+	sensor graphicsExposeX:x y:y width:w height:h final:final view:aView
 ] ifFalse:[
-"
+	"
-if there is no sensor ...
+	 if there is no sensor ...
-"
+	"
-WindowEvent
+	WindowEvent
-sendEvent:#graphicsExposeX:y:width:height:final:
+	    sendEvent:#graphicsExposeX:y:width:height:final:
-arguments:(Array with:x with:y with:w with:h with:final)
+	    arguments:(Array with:x with:y with:w with:h with:final)
-view:aView
+	    view:aView
 ]
 !
 keyPress:untranslatedKey x:x y:y view:aView
 "forward a key-press event for some view"
 "/
 "/ ctrl-Esc gives up focus
 "/
 untranslatedKey == #Escape ifTrue:[
-ctrlDown ifTrue:[
+	ctrlDown ifTrue:[
-self ungrabPointer.
+	    self ungrabPointer.
-self setInputFocusTo:nil
+	    self setInputFocusTo:nil
-]
+	]
 ].
 self modifierKeyProcessing:untranslatedKey down:true.
 (sensor := aView sensor) notNil ifTrue:[
-sensor keyPress:untranslatedKey x:x y:y view:aView
+	sensor keyPress:untranslatedKey x:x y:y view:aView
 ] ifFalse:[
-aView shown ifTrue:[ "/ could be a late event arrival
+	aView shown ifTrue:[ "/ could be a late event arrival
-"
+	    "
-if there is no sensor ...
+	     if there is no sensor ...
-"
+	    "
-xlatedKey := self translateKey:untranslatedKey.
+	    xlatedKey := self translateKey:untranslatedKey.
-xlatedKey notNil ifTrue:[
+	    xlatedKey notNil ifTrue:[
-WindowEvent
+		WindowEvent
-sendEvent:#keyPress:x:y:
+		  sendEvent:#keyPress:x:y:
-arguments:(Array with:xlatedKey with:x with:y)
+		  arguments:(Array with:xlatedKey with:x with:y)
-view:aView
+		  view:aView
-]
+	    ]
-]
+	]
 ]
 "Modified: 26.2.1997 / 15:03:28 / cg"
 !
 |xlatedKey sensor|
 self modifierKeyProcessing:untranslatedKey down:false.
 (sensor := aView sensor) notNil ifTrue:[
-sensor keyRelease:untranslatedKey x:x y:y view:aView
+	sensor keyRelease:untranslatedKey x:x y:y view:aView
 ] ifFalse:[
-aView shown ifTrue:[ "/ could be a late event arrival
+	aView shown ifTrue:[ "/ could be a late event arrival
-"
+	    "
-if there is no sensor ...
+	     if there is no sensor ...
-"
+	    "
-xlatedKey := self translateKey:untranslatedKey.
+	    xlatedKey := self translateKey:untranslatedKey.
-xlatedKey notNil ifTrue:[
+	    xlatedKey notNil ifTrue:[
-WindowEvent
+		WindowEvent
-sendEvent:#keyRelease:x:y:
+		    sendEvent:#keyRelease:x:y:
-arguments:(Array with:xlatedKey with:x with:y)
+		    arguments:(Array with:xlatedKey with:x with:y)
-view:aView
+		    view:aView
-]
+	    ]
-]
+	]
 ]
 "Modified: 26.2.1997 / 15:03:40 / cg"
 !
 "forward a mapped event for some view"
 |sensor|
 (sensor := aView sensor) notNil ifTrue:[
-sensor mappedView:aView
+	sensor mappedView:aView
 ] ifFalse:[
-"
+	"
-if there is no sensor ...
+	 if there is no sensor ...
-"
+	"
-aView mapped
+	aView mapped
 ]
 !
 noExposeView:aView
 "forward a noExpose event for some view"
 |sensor|
 (sensor := aView sensor) notNil ifTrue:[
-sensor noExposeView:aView
+	sensor noExposeView:aView
 ] ifFalse:[
-"
+	"
-if there is no sensor ...
+	 if there is no sensor ...
-"
+	"
-aView noExpose
+	aView noExpose
 ]
 !
 pointerEnter:buttonState x:x y:y view:aView
 "forward a pointer enter for some view"
 |sensor|
 (sensor := aView sensor) notNil ifTrue:[
-sensor pointerEnter:buttonState x:x y:y view:aView
+	sensor pointerEnter:buttonState x:x y:y view:aView
 ] ifFalse:[
-"
+	"
-if there is no sensor ...
+	 if there is no sensor ...
-"
+	"
-WindowEvent
+	WindowEvent
-sendEvent:#pointerEnter:x:y:
+	    sendEvent:#pointerEnter:x:y:
-arguments:(Array with:buttonState with:x with:y)
+	    arguments:(Array with:buttonState with:x with:y)
-view:aView
+	    view:aView
 ]
 !
 pointerLeave:buttonState view:aView
 "forward a pointer leave for some view"
 |sensor|
 (sensor := aView sensor) notNil ifTrue:[
-sensor pointerLeave:buttonState view:aView
+	sensor pointerLeave:buttonState view:aView
 ] ifFalse:[
-"
+	"
-if there is no sensor ...
+	 if there is no sensor ...
-"
+	"
-WindowEvent
+	WindowEvent
-sendEvent:#pointerLeave:
+	    sendEvent:#pointerLeave:
-arguments:(Array with:buttonState)
+	    arguments:(Array with:buttonState)
-view:aView
+	    view:aView
 ]
 !
 saveAndTerminateView:aView
 "forward a saveAndTerminate event for some view"
 |sensor|
 (sensor := aView sensor) notNil ifTrue:[
-sensor saveAndTerminateView:aView
+	sensor saveAndTerminateView:aView
 ] ifFalse:[
-"
+	"
-if there is no sensor ...
+	 if there is no sensor ...
-"
+	"
-aView saveAndTerminate
+	aView saveAndTerminate
 ]
 !
 terminateView:aView
 "forward a terminate event for some view"
 |sensor|
 (sensor := aView sensor) notNil ifTrue:[
-sensor terminateView:aView
+	sensor terminateView:aView
 ] ifFalse:[
-"
+	"
-if there is no sensor ...
+	 if there is no sensor ...
-"
+	"
-aView terminate
+	aView terminate
 ]
 !
 unmappedView:aView
 "forward an unmapped event for some view"
 |sensor|
 (sensor := aView sensor) notNil ifTrue:[
-sensor unmappedView:aView
+	sensor unmappedView:aView
 ] ifFalse:[
-"
+	"
-if there is no sensor ...
+	 if there is no sensor ...
-"
+	"
-aView unmapped
+	aView unmapped
 ]
 ! !
 !DeviceWorkstation methodsFor:'event handling'!
 We only do this for displays other that the default Display."
 dispatching ifFalse:[^ self].
 self == Display ifTrue:[
-ExitOnLastClose ifFalse:[^ self].
+	ExitOnLastClose ifFalse:[^ self].
 ].
 knownViews notNil ifTrue:[
-(knownViews findFirst:[:slot |
+	(knownViews findFirst:[:slot |
-slot notNil
+		slot notNil
-and:[slot ~~ 0
+		and:[slot ~~ 0
-and:[slot isRootView not
+		and:[slot isRootView not
-and:[slot superView isNil
+		and:[slot superView isNil
-and:[slot realized]]]]]) == 0 ifTrue:[
+		and:[slot realized]]]]]) == 0 ifTrue:[
-"/ my last view was closed
+	    "/ my last view was closed
-dispatching := false.
+	    dispatching := false.
-'DeviceWorkstation [info]: finished dispatch (last view closed)' infoPrintCR.
+	    'DeviceWorkstation [info]: finished dispatch (last view closed)' infoPrintCR.
-]
+	]
 ].
 "Modified: 19.9.1995 / 11:31:54 / claus"
 "Modified: 18.3.1997 / 10:42:11 / cg"
 !
 it is used; otherwise we poll (with a delay to not lock up
 the workstation)
 "
 myFd := self displayFileDescriptor.
 [aBlock value] whileTrue:[
-self eventPending ifFalse:[
+	self eventPending ifFalse:[
-myFd isNil ifTrue:[
+	    myFd isNil ifTrue:[
-OperatingSystem millisecondDelay:50
+		OperatingSystem millisecondDelay:50
-] ifFalse:[
+	    ] ifFalse:[
-OperatingSystem selectOn:myFd withTimeOut:50.
+		OperatingSystem selectOn:myFd withTimeOut:50.
-].
+	    ].
-Processor evaluateTimeouts.
+	    Processor evaluateTimeouts.
-].
+	].
-self eventPending ifTrue:[
+	self eventPending ifTrue:[
-self dispatchEvent
+	    self dispatchEvent
-].
+	].
 ]
 !
 dispatchPendingEvents
 "go dispatch events as long as there is one.
 This is only used with modal operation.
 (i.e. when in the modal debugger)"
 [self eventPending] whileTrue:[
-self dispatchEventFor:nil withMask:nil
+	self dispatchEventFor:nil withMask:nil
 ]
 !
 disposeButtonEventsFor:aViewIdOrNil
 "dispose (i.e. forget) all pending button events on this display"
 disposeEvents
 "dispose (i.e. forget) all events pending on this display"
 [self eventPending] whileTrue:[
-self getEventFor:nil withMask:nil
+	self getEventFor:nil withMask:nil
 ].
 !
 disposeEventsWithMask:aMask for:aWindowId
 "dispose (throw away) specific events"
 "/
 dispatching ifTrue:[^ self].
 dispatching := true.
 AllScreens isNil ifTrue:[
-AllScreens := IdentitySet new:1
+	AllScreens := IdentitySet new:1
 ].
 AllScreens add:self.
 fd := self displayFileDescriptor.
 "/ on my filedescriptor. Since a select alone is not enough to
 "/ know if events are pending (Xlib reads out event-queue while
 "/ doing output), we also have to install a poll-check block.
 OperatingSystem supportsSelect ifTrue:[
-inputSema := Semaphore new name:'display inputSema'.
+	inputSema := Semaphore new name:'display inputSema'.
 ].
 p := [
-self initializeDeviceResources.
+	self initializeDeviceResources.
-[dispatching] whileTrue:[
+	[dispatching] whileTrue:[
-AbortSignal handle:[:ex |
+	    AbortSignal handle:[:ex |
-ex return
+		ex return
-] do:[
+	    ] do:[
-self eventPending ifFalse:[
+		self eventPending ifFalse:[
-Processor activeProcess setStateTo:#ioWait if:#active.
+		    Processor activeProcess setStateTo:#ioWait if:#active.
-inputSema notNil ifTrue:[
+		    inputSema notNil ifTrue:[
-inputSema wait.
+			inputSema wait.
-] ifFalse:[
+		    ] ifFalse:[
-Delay waitForMilliseconds:50
+			Delay waitForMilliseconds:50
-]
+		    ]
-].
+		].
-self dispatchPendingEvents.
+		self dispatchPendingEvents.
-]
+	    ]
-].
+	].
-inputSema notNil ifTrue:[
+	inputSema notNil ifTrue:[
-Processor disableSemaphore:inputSema.
+	    Processor disableSemaphore:inputSema.
-inputSema := nil.
+	    inputSema := nil.
-].
+	].
-AllScreens remove:self.
+	AllScreens remove:self.
-dispatchProcess := nil.
+	dispatchProcess := nil.
-self close.
+	self close.
 ] newProcess.
 "/
 "/ give the process a nice name (for the processMonitor)
 "/
 (nm := self displayName) notNil ifTrue:[
-nm := 'event dispatcher (' ,  nm , ')'.
+	nm := 'event dispatcher (' ,  nm , ')'.
 ] ifFalse:[
-nm := 'event dispatcher'.
+	nm := 'event dispatcher'.
 ].
 p name:nm.
 p priority:(Processor userInterruptPriority).
 dispatchProcess := p.
 p resume.
 "/ finally, arrange for the processor to signal that semaphore on input
 inputSema notNil ifTrue:[
-Processor signal:inputSema onInput:fd orCheck:[self eventPending].
+	Processor signal:inputSema onInput:fd orCheck:[self eventPending].
 ]
 "Modified: 12.12.1995 / 20:52:57 / stefan"
 "Modified: 1.2.1997 / 12:17:26 / cg"
 ! !
 ^ (fonts collect:[:descr | descr face]) asSortedCollection
 "
 Display facesInFamily:'fixed' filtering:[:f |
-f encoding notNil and:[f encoding startsWith:'jis']]
+	f encoding notNil and:[f encoding startsWith:'jis']]
 "
 "Created: 27.2.1996 / 01:33:25 / cg"
 "Modified: 29.2.1996 / 04:29:01 / cg"
 !
 ^ (fonts collect:[:descr | descr family]) asSortedCollection
 "
 Display fontFamiliesFiltering:[:f |
-f encoding notNil and:[f encoding startsWith:'jis']]
+	f encoding notNil and:[f encoding startsWith:'jis']]
 "
 "Modified: 29.2.1996 / 04:31:51 / cg"
 !
 maxDescent := self maxDescentOf:fontId.
 minWidth := self minWidthOfFont:fontId.
 maxWidth := self maxWidthOfFont:fontId.
 avgWidth := self widthOf:' ' inFont:fontId.
 aBlock value:encoding
-value:avgAscent
+	   value:avgAscent
-value:avgDescent
+	   value:avgDescent
-value:maxAscent
+	   value:maxAscent
-value:maxDescent
+	   value:maxDescent
-value:minWidth
+	   value:minWidth
-value:maxWidth
+	   value:maxWidth
-value:avgWidth
+	   value:avgWidth
 !
 fontResolutionOf:fontId
 "return the resolution (as dpiX @ dpiY) of the font - this is usually the displays resolution,
 but due to errors in some XServer installations, some use 75dpi fonts on higher
 allFonts := self listOfAvailableFonts.
 allFonts isNil ifTrue:[^ nil].
 fonts := Set new.
 allFonts do:[:fntDescr |
-(aFilterBlock isNil or:[aFilterBlock value:fntDescr]) ifTrue:[
+	(aFilterBlock isNil or:[aFilterBlock value:fntDescr]) ifTrue:[
-fntDescr family notNil ifTrue:[
+	    fntDescr family notNil ifTrue:[
-fonts add:fntDescr
+		fonts add:fntDescr
-]
+	    ]
-]
+	]
 ].
 ^ fonts
 "
 Display fontsFiltering:[:f |
-f encoding notNil and:[f encoding startsWith:'jis']]
+	f encoding notNil and:[f encoding startsWith:'jis']]
 "
 "Modified: 29.2.1996 / 04:30:35 / cg"
 !
 allFonts := self listOfAvailableFonts.
 allFonts isNil ifTrue:[^ nil].
 fonts := Set new.
 allFonts do:[:fntDescr |
-(aFamilyName = fntDescr family) ifTrue:[
+	(aFamilyName = fntDescr family) ifTrue:[
-(aFaceName = fntDescr face) ifTrue:[
+	    (aFaceName = fntDescr face) ifTrue:[
-(filter isNil or:[filter value:fntDescr]) ifTrue:[
+		(filter isNil or:[filter value:fntDescr]) ifTrue:[
-fonts add:fntDescr
+		    fonts add:fntDescr
-]
+		]
-]
+	    ]
-]
+	]
 ].
 ^ fonts
 "
 Display fontsInFamily:'fixed' face:'medium' filtering:[:f |
-f encoding notNil and:[f encoding startsWith:'jis']]
+	f encoding notNil and:[f encoding startsWith:'jis']]
 "
 "Created: 29.2.1996 / 04:32:56 / cg"
 !
 allFonts := self listOfAvailableFonts.
 allFonts isNil ifTrue:[^ nil].
 fonts := Set new.
 allFonts do:[:fntDescr |
-(aFamilyName = fntDescr family) ifTrue:[
+	(aFamilyName = fntDescr family) ifTrue:[
-(aFaceName = fntDescr face) ifTrue:[
+	    (aFaceName = fntDescr face) ifTrue:[
-(aStyleName = fntDescr style) ifTrue:[
+		(aStyleName = fntDescr style) ifTrue:[
-(filter isNil or:[filter value:fntDescr]) ifTrue:[
+		    (filter isNil or:[filter value:fntDescr]) ifTrue:[
-fonts add:fntDescr
+			fonts add:fntDescr
-]
+		    ]
-]
+		]
-]
+	    ]
-]
+	]
 ].
 ^ fonts
 "
 Display fontsInFamily:'fixed' face:'medium' style:'roman' filtering:[:f |
-f encoding notNil and:[f encoding startsWith:'jis']]
+	f encoding notNil and:[f encoding startsWith:'jis']]
 "
 "Created: 29.2.1996 / 04:25:30 / cg"
 !
 allFonts := self listOfAvailableFonts.
 allFonts isNil ifTrue:[^ nil].
 fonts := Set new.
 allFonts do:[:fntDescr |
-aFamilyName = fntDescr family ifTrue:[
+	aFamilyName = fntDescr family ifTrue:[
-(filterBlock isNil or:[filterBlock value:fntDescr]) ifTrue:[
+	    (filterBlock isNil or:[filterBlock value:fntDescr]) ifTrue:[
-fonts add:fntDescr
+		fonts add:fntDescr
-]
+	    ]
-]
+	]
 ].
 ^ fonts
 "
 Display fontsInFamily:'fixed' filtering:[:f |
-f encoding notNil and:[f encoding startsWith:'jis']]
+	f encoding notNil and:[f encoding startsWith:'jis']]
 "
 "Modified: 27.2.1996 / 01:34:11 / cg"
 "Created: 29.2.1996 / 04:27:49 / cg"
 !
 ^ self subclassResponsibility
 !
 getFontWithFamily:familyString
-face:faceString
+	     face:faceString
-style:styleString
+	    style:styleString
-size:sizeArg
+	     size:sizeArg
-encoding:encodingSym
+	 encoding:encodingSym
 "try to get the specified font, return id.
 If not available, try next smaller font.
 If no font fits, return nil"
 ^ fonts collect:[:descr | descr size].
 "
 Display sizesInFamily:'fixed' face:'medium' style:'roman' filtering:[:f |
-f encoding notNil and:[f encoding startsWith:'jis']]
+	f encoding notNil and:[f encoding startsWith:'jis']]
 "
 "Created: 27.2.1996 / 01:37:56 / cg"
 "Modified: 29.2.1996 / 04:26:52 / cg"
 !
 ^ (fonts collect:[:descr | descr style]) asSortedCollection
 "
 Display stylesInFamily:'fixed' face:'medium' filtering:[:f |
-f encoding notNil and:[f encoding startsWith:'jis']]
+	f encoding notNil and:[f encoding startsWith:'jis']]
 "
 "Created: 27.2.1996 / 01:35:22 / cg"
 "Modified: 29.2.1996 / 04:33:59 / cg"
 !
 grabKeyboardInView:aView
 "grab the keyboard - all keyboard input will be sent to aView.
 Return true if ok, false if it failed for some reason."
 activeKeyboardGrab notNil ifTrue:[
-self ungrabKeyboard.
+	self ungrabKeyboard.
-activeKeyboardGrab := nil
+	activeKeyboardGrab := nil
 ].
 (self grabKeyboardIn:(aView id)) ifTrue:[
-activeKeyboardGrab := aView.
+	activeKeyboardGrab := aView.
-^ true
+	^ true
 ].
 ^ false
 !
 grabPointerIn:aWindowId
 grabPointerInView:aView
 "grap the pointer; all pointer events will be reported to
 aView. Return true if ok, false if it failed for some reason."
 activePointerGrab notNil ifTrue:[
-self ungrabPointer.
+	self ungrabPointer.
-activePointerGrab := nil
+	activePointerGrab := nil
 ].
 (self grabPointerIn:(aView id)) ifTrue:[
-activePointerGrab := aView.
+	activePointerGrab := aView.
-^ true
+	^ true
 ].
 ^ false
 !
 setActivePointerGrab:aView
 (which are the keySyms as symbol). The mapping table which is
 setup here, is used in sendKeyPress:... later.
 "
 keyboardMap isNil ifTrue:[
-keyboardMap := KeyboardMap new.
+	keyboardMap := KeyboardMap new.
 ].
 "
 no more setup here - moved everything out into 'display.rc' file
 "
 initializeScreenProperties
 "setup screen specific properties."
 supportsDeepIcons isNil ifTrue:[
-supportsDeepIcons := false.
+	supportsDeepIcons := false.
 ].
 fixColors := ditherColors := nil.
 numFixRed := numFixGreen := numFixBlue := 0.
 lastId := nil.
 lastView := nil.
 self initializeFor:nil.
 displayId isNil ifTrue:[
-Smalltalk exit.
+	Smalltalk exit.
-^ self
+	^ self
 ].
 "
 first, all Forms must be recreated
 (since they may be needed for view recreation as
 "
 Form reinitializeAllOn:self.
 "/    prevMapping notNil ifTrue:[
 prevKnownViews notNil ifTrue:[
-"
+	"
-first round: flush all device specific stuff
+	 first round: flush all device specific stuff
-"
+	"
 "/      prevMapping keysAndValuesDo:[:anId :aView |
-prevKnownViews do:[:aView |
+	prevKnownViews do:[:aView |
-(aView notNil and:[aView ~~ 0]) ifTrue:[
+	    (aView notNil and:[aView ~~ 0]) ifTrue:[
-aView prepareForReinit
+		aView prepareForReinit
-]
+	    ]
-].
+	].
-"
+	"
-2nd round: all views should reinstall themself
+	 2nd round: all views should reinstall themself
-on the new display
+		    on the new display
-"
+	"
 "/      prevMapping keysAndValuesDo:[:anId :aView |
-prevKnownViews do:[:aView |
+	prevKnownViews do:[:aView |
-(aView notNil and:[aView ~~ 0]) ifTrue:[
+	    (aView notNil and:[aView ~~ 0]) ifTrue:[
-"have to re-create the view"
+		"have to re-create the view"
-AbortSignal catch:[
+		AbortSignal catch:[
-aView reinitialize
+		    aView reinitialize
-]
+		]
-]
+	    ]
-].
+	].
-(prevWidth ~~ width
+	(prevWidth ~~ width
-or:[prevHeight ~~ height]) ifTrue:[
+	or:[prevHeight ~~ height]) ifTrue:[
-"
+	    "
-3rd round: all views get a chance to handle
+	     3rd round: all views get a chance to handle
-changed environment (colors, font sizes etc)
+			changed environment (colors, font sizes etc)
-"
+	    "
 "/          prevMapping keysAndValuesDo:[:anId :aView |
-prevKnownViews do:[:aView |
+	    prevKnownViews do:[:aView |
-(aView notNil and:[aView ~~ 0]) ifTrue:[
+		(aView notNil and:[aView ~~ 0]) ifTrue:[
-aView reAdjustGeometry
+		    aView reAdjustGeometry
-]
+		]
-]
+	    ]
-]
+	]
 ].
 dispatching := false.
 "Modified: 23.1.1997 / 21:32:10 / cg"
 !
 releaseDeviceResources
 "release any cached device resources"
-blackColor on:nil.  "/ release those colors
+blackColor notNil ifTrue:[
-blackColor := nil.
+	blackColor on:nil.
-whiteColor on:nil.
+	blackColor := nil.
-whiteColor := nil.
+].
+whiteColor notNil ifTrue:[
+	whiteColor on:nil.
+	whiteColor := nil.
+].
 Image releaseResourcesOnDevice:self.
 Color releaseResourcesOnDevice:self.
 Cursor releaseResourcesOnDevice:self.
 Font releaseResourcesOnDevice:self.
 root noClipByChildren.
 root foreground:blackColor background:whiteColor.
 root xoring:[
-|left right top bottom newOrigin newCorner p|
+	|left right top bottom newOrigin newCorner p|
-rect := origin extent:extent.
+	rect := origin extent:extent.
-root displayRectangle:rect.
+	root displayRectangle:rect.
-self
+	self
-grabPointerIn:root id
+	    grabPointerIn:root id
-withCursor:curs id
+	    withCursor:curs id
-pointerMode:#async
+	    pointerMode:#async
-keyboardMode:#sync
+	    keyboardMode:#sync
-confineTo:nil.
+	    confineTo:nil.
-[self leftButtonPressed] whileTrue:[
+	[self leftButtonPressed] whileTrue:[
-newOrigin := self pointerPosition.
+	    newOrigin := self pointerPosition.
-(newOrigin ~= origin) ifTrue:[
+	    (newOrigin ~= origin) ifTrue:[
-root displayRectangle:rect.
+		root displayRectangle:rect.
-self
+		self
-grabPointerIn:root id
+		    grabPointerIn:root id
-withCursor:curs id
+		    withCursor:curs id
-pointerMode:#async
+		    pointerMode:#async
-keyboardMode:#sync
+		    keyboardMode:#sync
-confineTo:nil.
+		    confineTo:nil.
-rect := newOrigin extent:extent.
+		rect := newOrigin extent:extent.
-root displayRectangle:rect.
+		root displayRectangle:rect.
-self disposeButtonEventsFor:nil.
+		self disposeButtonEventsFor:nil.
-self flush.
+		self flush.
-origin := newOrigin.
+		origin := newOrigin.
-] ifFalse:[
+	    ] ifFalse:[
-Processor yield
+		Processor yield
-]
+	    ]
-].
+	].
-root displayRectangle:rect.
+	root displayRectangle:rect.
-self ungrabPointer.
+	self ungrabPointer.
 ].
 self ungrabPointer.
 "flush all events pending on my display"
 |p|
 self ungrabPointer.
 self grabPointerIn:(self rootWindowId) withCursor:((aCursor onDevice:self) id)
-pointerMode:#async keyboardMode:#sync confineTo:nil.
+	 pointerMode:#async keyboardMode:#sync confineTo:nil.
 activePointerGrab := rootView.
 "
 wait for leftButton ...
 "
 root noClipByChildren.
 root foreground:blackColor background:whiteColor.
 root xoring:[
-|left right top bottom newOrigin newCorner p curs|
+	|left right top bottom newOrigin newCorner p curs|
-corner := origin.
+	corner := origin.
-rect := origin corner:corner.
+	rect := origin corner:corner.
-root displayRectangle:rect.
+	root displayRectangle:rect.
-self
+	self
-grabPointerIn:root id
+	    grabPointerIn:root id
-withCursor:curs1 id
+	    withCursor:curs1 id
-pointerMode:#async
+	    pointerMode:#async
-keyboardMode:#sync
+	    keyboardMode:#sync
-confineTo:nil.
+	    confineTo:nil.
-"
+	"
-just in case; wait for button to be down ...
+	 just in case; wait for button to be down ...
-"
+	"
-[self leftButtonPressed] whileFalse:[Processor yield].
+	[self leftButtonPressed] whileFalse:[Processor yield].
-[self leftButtonPressed] whileTrue:[
+	[self leftButtonPressed] whileTrue:[
-left := initialRectangle origin x.
+	    left := initialRectangle origin x.
-top := initialRectangle origin y.
+	    top := initialRectangle origin y.
-right := initialRectangle corner x.
+	    right := initialRectangle corner x.
-bottom := initialRectangle corner y.
+	    bottom := initialRectangle corner y.
-p := self pointerPosition.
+	    p := self pointerPosition.
-p x < initialRectangle left ifTrue:[
+	    p x < initialRectangle left ifTrue:[
-p y < initialRectangle top ifTrue:[
+		p y < initialRectangle top ifTrue:[
-curs := Cursor topLeft.
+		    curs := Cursor topLeft.
-left := p x.
+		    left := p x.
-top := p y.
+		    top := p y.
-] ifFalse:[
+		] ifFalse:[
-curs := Cursor bottomLeft.
+		    curs := Cursor bottomLeft.
-left := p x.
+		    left := p x.
-bottom := p y
+		    bottom := p y
-]
+		]
-] ifFalse:[
+	    ] ifFalse:[
-p y < initialRectangle top ifTrue:[
+		p y < initialRectangle top ifTrue:[
-curs := Cursor topRight.
+		    curs := Cursor topRight.
-right := p x.
+		    right := p x.
-top := p y
+		    top := p y
-] ifFalse:[
+		] ifFalse:[
-curs := Cursor bottomRight.
+		    curs := Cursor bottomRight.
-right := p x.
+		    right := p x.
-bottom := p y
+		    bottom := p y
-]
+		]
-].
+	    ].
-newOrigin := left @ top.
+	    newOrigin := left @ top.
-newCorner := right @ bottom.
+	    newCorner := right @ bottom.
-((newOrigin ~= origin) or:[newCorner ~= corner]) ifTrue:[
+	    ((newOrigin ~= origin) or:[newCorner ~= corner]) ifTrue:[
-root displayRectangle:rect.
+		root displayRectangle:rect.
-self grabPointerIn:root id withCursor:curs id
+		self grabPointerIn:root id withCursor:curs id
-pointerMode:#async keyboardMode:#sync confineTo:nil.
+			 pointerMode:#async keyboardMode:#sync confineTo:nil.
-origin :=  newOrigin.
+		origin :=  newOrigin.
-corner :=  newCorner.
+		corner :=  newCorner.
-rect := origin corner:corner.
+		rect := origin corner:corner.
-root displayRectangle:rect.
+		root displayRectangle:rect.
-self disposeButtonEventsFor:nil.
+		self disposeButtonEventsFor:nil.
-self flush.
+		self flush.
-] ifFalse:[
+	    ] ifFalse:[
-Processor yield
+		Processor yield
-]
+	    ]
-].
+	].
-root displayRectangle:rect.
+	root displayRectangle:rect.
-self ungrabPointer.
+	self ungrabPointer.
 ].
 self ungrabPointer.
 "flush all events pending on my display"
 |v|
 v := self viewFromUser.
 v notNil ifTrue:[
-v := v topView
+	v := v topView
 ].
 ^ v
 "
 Display topviewFromUser
 modifierKeyProcessing:key down:pressed
 "internal, private method.
 Called with every keyPress/keyRelease to update the xxxDown flags."
 (altModifiers notNil and:[altModifiers includes:key]) ifTrue:[
-altDown := pressed
+	altDown := pressed
 ] ifFalse:[
-(metaModifiers notNil and:[metaModifiers includes:key]) ifTrue:[
+	(metaModifiers notNil and:[metaModifiers includes:key]) ifTrue:[
-metaDown := pressed
+	    metaDown := pressed
-] ifFalse:[
+	] ifFalse:[
-(shiftModifiers notNil and:[shiftModifiers includes:key]) ifTrue:[
+	    (shiftModifiers notNil and:[shiftModifiers includes:key]) ifTrue:[
-shiftDown := pressed
+		shiftDown := pressed
-] ifFalse:[
+	    ] ifFalse:[
-(ctrlModifiers notNil and:[ctrlModifiers includes:key]) ifTrue:[
+		(ctrlModifiers notNil and:[ctrlModifiers includes:key]) ifTrue:[
-ctrlDown := pressed
+		    ctrlDown := pressed
-]
+		]
-]
+	    ]
-]
+	]
 ]
 "Modified: 2.1.1996 / 15:00:25 / cg"
 !
 (i.e. to get the keyTop from a modifier)"
 |t modifiers|
 key == #Alt ifTrue:[
-modifiers := altModifiers
+	modifiers := altModifiers
 ] ifFalse:[
-key == #Cmd ifTrue:[
+	key == #Cmd ifTrue:[
-modifiers := metaModifiers
+	    modifiers := metaModifiers
-]
+	]
 ].
 (modifiers size > 0) ifTrue:[
-t := modifiers first.
+	t := modifiers first.
-(t includes:$_) ifTrue:[
+	(t includes:$_) ifTrue:[
-t := t copyTo:(t indexOf:$_)-1
+	    t := t copyTo:(t indexOf:$_)-1
-].
+	].
-^ t
+	^ t
 ].
 ^ key
 "Created: 28.2.1996 / 17:07:08 / cg"
 "Modified: 20.3.1996 / 17:03:39 / cg"
 "/ the next statement will vanish ....
 (untranslatedKey == #Control
 or:[untranslatedKey == #'Control_L'
 or:[untranslatedKey == #'Control_R']]) ifTrue:[
-^ #Ctrl
+	^ #Ctrl
 ].
 (untranslatedKey == #Ctrl
 or:[untranslatedKey == #'Ctrl_L'
 or:[untranslatedKey == #'Ctrl_R']]) ifTrue:[
-^ #Ctrl
+	^ #Ctrl
 ].
 (untranslatedKey == #'Shift'
 or:[untranslatedKey == #'Shift_L'
 or:[untranslatedKey == #'Shift_R']]) ifTrue:[
-^ #Shift
+	^ #Shift
 ].
 (untranslatedKey == #'Alt'
 or:[untranslatedKey == #'Alt_L'
 or:[untranslatedKey == #'Alt_R']]) ifTrue:[
-^ #Alt
+	^ #Alt
 ].
 (untranslatedKey == #'Meta'
 or:[untranslatedKey == #'Meta_L'
 or:[untranslatedKey == #'Meta_R']]) ifTrue:[
-^ #Meta
+	^ #Meta
 ].
 (untranslatedKey == #'Cmd'
 or:[untranslatedKey == #'Cmd_L'
 or:[untranslatedKey == #'Cmd_R']]) ifTrue:[
-^ #Cmd
+	^ #Cmd
 ].
 ^ nil
 "Created: 28.2.1996 / 16:40:46 / cg"
 "Modified: 28.2.1996 / 17:11:34 / cg"
 modifier := self modifierKeyTranslationFor:untranslatedKey.
 "/
 "/ only prepend, if this is not a modifier
 "/
 modifier isNil ifTrue:[
-s := xlatedKey asString.
+	s := xlatedKey asString.
-ctrlDown ifTrue:[
+	ctrlDown ifTrue:[
-xlatedKey := 'Ctrl' , s
+	    xlatedKey := 'Ctrl' , s
-].
+	].
-metaDown ifTrue:[
+	metaDown ifTrue:[
-xlatedKey := 'Cmd' , s
+	    xlatedKey := 'Cmd' , s
-].
+	].
-altDown ifTrue:[
+	altDown ifTrue:[
-xlatedKey := 'Alt' , s
+	    xlatedKey := 'Alt' , s
-].
+	].
-xlatedKey isCharacter ifFalse:[
+	xlatedKey isCharacter ifFalse:[
-xlatedKey := xlatedKey asSymbol
+	    xlatedKey := xlatedKey asSymbol
-].
+	].
 ].
 xlatedKey := keyboardMap valueFor:xlatedKey.
 xlatedKey isCharacter ifFalse:[
-xlatedKey := xlatedKey asSymbol
+	xlatedKey := xlatedKey asSymbol
 ].
 ^ xlatedKey
 "Modified: 28.2.1996 / 17:12:16 / cg"
 ! !
 super printOn:aStream.
 aStream nextPut:$(.
 (name := self displayName) isNil ifTrue:[
-name := 'defaultDisplay'
+	name := 'defaultDisplay'
 ].
 aStream nextPutAll:name.
 aStream nextPut:$)
 ! !
 info and the bits in imageBits. The info contains the depth, bitOrder and
 number of bytes per scanline. The number of bytes per scanline is not known
 in advance, since the X-server is free to return whatever it thinks is a good padding."
 ^ self
-getBitsFromId:aDrawableId
+	getBitsFromId:aDrawableId
-x:srcx
+	x:srcx
-y:srcy
+	y:srcy
-width:w
+	width:w
-height:h
+	height:h
-into:imageBits
+	into:imageBits
 "Created: 19.3.1997 / 13:43:04 / cg"
 "Modified: 19.3.1997 / 13:43:38 / cg"
 !
 info and the bits in imageBits. The info contains the depth, bitOrder and
 number of bytes per scanline. The number of bytes per scanline is not known
 in advance, since the X-server is free to return whatever it thinks is a good padding."
 ^ self
-getBitsFromId:aDrawableId
+	getBitsFromId:aDrawableId
-x:srcx
+	x:srcx
-y:srcy
+	y:srcy
-width:w
+	width:w
-height:h
+	height:h
-into:imageBits
+	into:imageBits
 "Created: 19.3.1997 / 13:43:04 / cg"
 "Modified: 19.3.1997 / 13:43:42 / cg"
 !
 |o s|
 o := self getCopyBuffer.
 s := o.
 o isString ifFalse:[
-o isNil ifTrue:[
+	o isNil ifTrue:[
-s := ''
+	    s := ''
-] ifFalse:[
+	] ifFalse:[
-(o isKindOf:StringCollection) ifTrue:[
+	    (o isKindOf:StringCollection) ifTrue:[
-s := o asStringWithCRsFrom:1 to:(o size) compressTabs:false withCR:false.
+		s := o asStringWithCRsFrom:1 to:(o size) compressTabs:false withCR:false.
-s := s string.
+		s := s string.
-] ifFalse:[
+	    ] ifFalse:[
-o isString ifTrue:[
+		o isString ifTrue:[
-s := o string
+		    s := o string
-] ifFalse:[
+		] ifFalse:[
-s := o storeString
+		    s := o storeString
-]
+		]
-]
+	    ]
-]
+	]
 ].
 ^ s
 "Created: 13.2.1997 / 13:10:30 / cg"
 !
 |freeIdx newArr sz newSize wasBlocked|
 wasBlocked := OperatingSystem blockInterrupts.
 knownViews isNil ifTrue:[
-knownViews := WeakArray new:50.
+	knownViews := WeakArray new:50.
-knownIds := Array new:50.
+	knownIds := Array new:50.
-freeIdx := 1.
+	freeIdx := 1.
 ] ifFalse:[
-freeIdx := knownViews identityIndexOf:nil.
+	freeIdx := knownViews identityIndexOf:nil.
-freeIdx == 0 ifTrue:[
+	freeIdx == 0 ifTrue:[
-freeIdx := knownViews identityIndexOf:0.
+	    freeIdx := knownViews identityIndexOf:0.
-[freeIdx ~~ 0
+	    [freeIdx ~~ 0
-and:[(knownIds at:freeIdx) notNil]] whileTrue:[
+	     and:[(knownIds at:freeIdx) notNil]] whileTrue:[
-'XXX ' print. (knownIds at:freeIdx) displayString printCR.
+		'XXX ' print. (knownIds at:freeIdx) displayString printCR.
-freeIdx := knownViews identityIndexOf:0 startingAt:(freeIdx + 1).
+		freeIdx := knownViews identityIndexOf:0 startingAt:(freeIdx + 1).
-].
+	    ].
-].
+	].
 ].
 freeIdx == 0 ifTrue:[
-sz := knownViews size.
+	sz := knownViews size.
-newSize := sz * 2.
+	newSize := sz * 2.
-newArr := WeakArray new:newSize.
+	newArr := WeakArray new:newSize.
-newArr replaceFrom:1 to:sz with:knownViews.
+	newArr replaceFrom:1 to:sz with:knownViews.
-knownViews := newArr.
+	knownViews := newArr.
-newArr := Array new:newSize.
+	newArr := Array new:newSize.
-newArr replaceFrom:1 to:sz with:knownIds.
+	newArr replaceFrom:1 to:sz with:knownIds.
-knownIds := newArr.
+	knownIds := newArr.
-freeIdx := sz + 1.
+	freeIdx := sz + 1.
 ].
 knownViews at:freeIdx put:aView.
 knownIds at:freeIdx put:aWindowID.
 wasBlocked ifFalse:[OperatingSystem unblockInterrupts].
 idToTableIndexMapping notNil ifTrue:[
-idToTableIndexMapping at:aWindowID put:freeIdx.
+	idToTableIndexMapping at:aWindowID put:freeIdx.
 ].
 "/    dispatching ifFalse:[
 "/        self startDispatch
 "/    ].
 lastId := nil.
 lastView := nil.
 knownViews notNil ifTrue:[
-wasBlocked := OperatingSystem blockInterrupts.
+	wasBlocked := OperatingSystem blockInterrupts.
-index := 0.
+	index := 0.
-aViewId notNil ifTrue:[
+	aViewId notNil ifTrue:[
-idToTableIndexMapping notNil ifTrue:[
+	    idToTableIndexMapping notNil ifTrue:[
-index := idToTableIndexMapping at:aViewId ifAbsent:0.
+		index := idToTableIndexMapping at:aViewId ifAbsent:0.
-]
+	    ]
-].
+	].
-index == 0 ifTrue:[
+	index == 0 ifTrue:[
-aView notNil ifTrue:[
+	    aView notNil ifTrue:[
-index := knownViews identityIndexOf:aView.
+		index := knownViews identityIndexOf:aView.
-].
+	    ].
-].
+	].
-index ~~ 0 ifTrue:[
+	index ~~ 0 ifTrue:[
-idToTableIndexMapping notNil ifTrue:[
+	    idToTableIndexMapping notNil ifTrue:[
-aViewId notNil ifTrue:[
+		aViewId notNil ifTrue:[
-idToTableIndexMapping removeKey:aViewId ifAbsent:nil
+		    idToTableIndexMapping removeKey:aViewId ifAbsent:nil
-] ifFalse:[
+		] ifFalse:[
-id := knownIds at:index.
+		    id := knownIds at:index.
-id notNil ifTrue:[
+		    id notNil ifTrue:[
-idToTableIndexMapping removeKey:id ifAbsent:nil.
+			idToTableIndexMapping removeKey:id ifAbsent:nil.
-]
+		    ]
-]
+		]
-].
+	    ].
-knownViews at:index put:nil.
+	    knownViews at:index put:nil.
-knownIds at:index put:nil.
+	    knownIds at:index put:nil.
-lastId := nil.
+	    lastId := nil.
-lastView := nil.
+	    lastView := nil.
-].
+	].
-wasBlocked ifFalse:[OperatingSystem unblockInterrupts].
+	wasBlocked ifFalse:[OperatingSystem unblockInterrupts].
-aView notNil ifTrue:[
+	aView notNil ifTrue:[
-aView isTopView ifTrue:[
+	    aView isTopView ifTrue:[
-"/ check for sparsely filled knownViews - array
+		"/ check for sparsely filled knownViews - array
-wasBlocked := OperatingSystem blockInterrupts.
+		wasBlocked := OperatingSystem blockInterrupts.
-n := 0.
+		n := 0.
-knownViews do:[:v |
+		knownViews do:[:v |
-(v notNil and:[v ~~ 0]) ifTrue:[
+		    (v notNil and:[v ~~ 0]) ifTrue:[
-n := n + 1
+			n := n + 1
-].
+		    ].
-].
+		].
-n < (knownViews size * 2 // 3) ifTrue:[
+		n < (knownViews size * 2 // 3) ifTrue:[
-newSize := n * 3 // 2.
+		    newSize := n * 3 // 2.
-newSize > 50 ifTrue:[
+		    newSize > 50 ifTrue:[
-nV := WeakArray new:newSize.
+			nV := WeakArray new:newSize.
-nI := Array new:newSize.
+			nI := Array new:newSize.
-dstIdx := 1.
+			dstIdx := 1.
-1 to:knownViews size do:[:srcIdx |
+			1 to:knownViews size do:[:srcIdx |
-v := knownViews at:srcIdx.
+			    v := knownViews at:srcIdx.
-(v notNil and:[v ~~ 0]) ifTrue:[
+			    (v notNil and:[v ~~ 0]) ifTrue:[
-nV at:dstIdx put:v.
+				nV at:dstIdx put:v.
-nI at:dstIdx put:(knownIds at:srcIdx).
+				nI at:dstIdx put:(knownIds at:srcIdx).
-dstIdx := dstIdx + 1.
+				dstIdx := dstIdx + 1.
-].
+			    ].
-].
+			].
-knownViews := nV.
+			knownViews := nV.
-knownIds := nI.
+			knownIds := nI.
-idToTableIndexMapping := Dictionary new.
+			idToTableIndexMapping := Dictionary new.
-knownIds keysAndValuesDo:[:idx :id |
+			knownIds keysAndValuesDo:[:idx :id |
-id notNil ifTrue:[
+			    id notNil ifTrue:[
-idToTableIndexMapping at:id put:idx
+				idToTableIndexMapping at:id put:idx
-]
+			    ]
-].
+			].
-].
+		    ].
-].
+		].
-wasBlocked ifFalse:[OperatingSystem unblockInterrupts].
+		wasBlocked ifFalse:[OperatingSystem unblockInterrupts].
-].
+	    ].
-].
+	].
-self checkForEndOfDispatch.
+	self checkForEndOfDispatch.
 ]
 "Created: 22.3.1997 / 14:56:20 / cg"
 "Modified: 27.3.1997 / 17:13:28 / cg"
 !
 "given an Id, return the corresponding view."
 |index v idx|
 aWindowID = lastId ifTrue:[
-lastView notNil ifTrue:[
+	lastView notNil ifTrue:[
-^ lastView
+	    ^ lastView
-]
+	]
 ].
 idToTableIndexMapping notNil ifTrue:[
-idx := idToTableIndexMapping at:aWindowID ifAbsent:nil.
+	idx := idToTableIndexMapping at:aWindowID ifAbsent:nil.
-idx notNil ifTrue:[
+	idx notNil ifTrue:[
-v := knownViews at:idx.
+	    v := knownViews at:idx.
-(v notNil and:[v ~~ 0]) ifTrue:[
+	    (v notNil and:[v ~~ 0]) ifTrue:[
-lastView := v.
+		lastView := v.
-lastId := aWindowID.
+		lastId := aWindowID.
-^ v
+		^ v
-].
+	    ].
-]
+	]
 ].
 index := knownIds indexOf:aWindowID.
 index == 0 ifTrue:[
-^ nil
+	^ nil
 ].
 v := knownViews at:index.
 v == 0 ifTrue:[
-knownViews at:index put:nil.
+	knownViews at:index put:nil.
-knownIds at:index put:nil.
+	knownIds at:index put:nil.
-^ nil
+	^ nil
 ].
 lastId := aWindowID.
 lastView := v.
 "return true, if I still consider a windowId as being valid"
 |index v|
 aWindowID = lastId ifTrue:[
-lastView notNil ifTrue:[
+	lastView notNil ifTrue:[
-^ true
+	    ^ true
-]
+	]
 ].
 idToTableIndexMapping notNil ifTrue:[
-index := idToTableIndexMapping at:aWindowID ifAbsent:nil.
+	index := idToTableIndexMapping at:aWindowID ifAbsent:nil.
 ].
 index isNil ifTrue:[
-index := knownIds indexOf:aWindowID.
+	index := knownIds indexOf:aWindowID.
 ].
 index ~~ 0 ifTrue:[
-v := knownViews at:index.
+	v := knownViews at:index.
-^ (v notNil and:[v ~~ 0])
+	^ (v notNil and:[v ~~ 0])
 ].
 ^ false.
 "Created: 4.4.1997 / 11:01:07 / cg"
 "Modified: 4.4.1997 / 19:07:55 / cg"
 restoreCursors
 "restore the cursors of all views to their current cursor.
 This undoes the effect of #setCursors:"
 knownViews notNil ifTrue:[
-knownViews validElementsDo:[:aView |
+	knownViews validElementsDo:[:aView |
-|c vid cid|
+	    |c vid cid|
-(vid := aView id) notNil ifTrue:[
+	    (vid := aView id) notNil ifTrue:[
-c := aView cursor.
+		c := aView cursor.
-(c notNil and:[(cid := c id) notNil]) ifTrue:[
+		(c notNil and:[(cid := c id) notNil]) ifTrue:[
-self setCursor:cid in:vid
+		    self setCursor:cid in:vid
-]
+		]
-]
+	    ]
-].
+	].
-self flush
+	self flush
 ]
 "
 Display setCursors:(Cursor wait).
 Delay waitForSeconds:5.
 | id |
 id := (aCursor onDevice:self) id.
 id notNil ifTrue:[
-knownViews validElementsDo:[:aView |
+	knownViews validElementsDo:[:aView |
-|vid|
+	    |vid|
-(vid := aView id) notNil ifTrue:[
+	    (vid := aView id) notNil ifTrue:[
-self setCursor:id in:vid
+		self setCursor:id in:vid
-]
+	    ]
-].
+	].
-self flush
+	self flush
 ]
 "
 Display setCursors:(Cursor wait).
 Delay waitForSeconds:5.
 ! !
 !DeviceWorkstation class methodsFor:'documentation'!
 version
-^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.203 1997-04-08 08:33:08 cg Exp $'
+^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.204 1997-04-11 09:35:21 cg Exp $'
 ! !
 DeviceWorkstation initialize!

changeset 1578	01db7f44cbbd
parent 1562	9a061e6942b9
child 1580	9a28ea48ec73