hg/stx-libview: comparison DeviceWorkstation.st

equal deleted inserted replaced

-:18f99e9fc5ec
+:55d7642b74f6
 "
 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
 "
 "{ Package: 'stx:libview' }"
 HostGraphicsDevice subclass:#DeviceWorkstation
-	instanceVariableNames:'visualType monitorType depth ncells bitsPerRGB bitsRed bitsGreen
+instanceVariableNames:'visualType monitorType depth ncells bitsPerRGB bitsRed bitsGreen
-		bitsBlue redMask greenMask blueMask redShift greenShift blueShift
+bitsBlue redMask greenMask blueMask redShift greenShift blueShift
-		hasColors hasGreyscales width height widthMM heightMM
+hasColors hasGreyscales width height widthMM heightMM
-		resolutionHor resolutionVer idToTableIndexMapping knownViews
+resolutionHor resolutionVer idToTableIndexMapping knownViews
-		knownIds knownBitmaps knownBitmapIds dispatching dispatchProcess
+knownIds knownBitmaps knownBitmapIds dispatching dispatchProcess
-		exitOnLastClose ctrlDown shiftDown metaDown altDown superDown
+exitOnLastClose ctrlDown shiftDown metaDown altDown superDown
-		motionEventCompression lastId lastView keyboardMap rootView
+motionEventCompression lastId lastView keyboardMap rootView
-		isSlow activeKeyboardGrab activePointerGrab buttonTranslation
+isSlow activeKeyboardGrab activePointerGrab buttonTranslation
-		multiClickTimeDelta altModifiers metaModifiers ctrlModifiers
+multiClickTimeDelta altModifiers metaModifiers ctrlModifiers
-		shiftModifiers superModifiers supportsDeepIcons preferredIconSize
+shiftModifiers superModifiers supportsDeepIcons preferredIconSize
-		ditherColors fixColors numFixRed numFixGreen numFixBlue
+ditherColors fixColors numFixRed numFixGreen numFixBlue
-		fixGrayColors copyBuffer lastCopyBuffer blackColor whiteColor
+fixGrayColors copyBuffer lastCopyBuffer blackColor whiteColor
-		focusMode activeView clipBoardEncoding focusView
+focusMode activeView clipBoardEncoding focusView
-		deviceErrorSignal deviceIOErrorSignal'
+deviceErrorSignal deviceIOErrorSignal'
-	classVariableNames:'ButtonTranslation MultiClickTimeDelta DeviceErrorSignal
+classVariableNames:'ButtonTranslation MultiClickTimeDelta DeviceErrorSignal
-		DeviceIOErrorSignal DeviceIOTimeoutErrorSignal ErrorPrinting
+DeviceIOErrorSignal DeviceIOTimeoutErrorSignal ErrorPrinting
-		DefaultScreen AllScreens CurrentScreenQuerySignal
+DefaultScreen AllScreens CurrentScreenQuerySignal
-		LastActiveScreen LastActiveProcess WindowsRightButtonBehavior
+LastActiveScreen LastActiveProcess WindowsRightButtonBehavior
-		ExitOnLastClose DrawingOnClosedDeviceSignal'
+ExitOnLastClose DrawingOnClosedDeviceSignal'
-	poolDictionaries:''
+poolDictionaries:''
-	category:'Interface-Graphics'
+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)
 knownBitmaps    <Collection>      all known device bitmaps
 knownBitmapIds  <Collection>      corresponding device-bitmap ids
 dispatching     <Boolean>         true, if currently in dispatch loop
 exitDispatchOnLastWindowClose
-		      <Boolean>         if true, dispatch is finished when the last
+<Boolean>         if true, dispatch is finished when the last
-					window closes (default:true).
+window closes (default:true).
 ctrlDown        <Boolean>         true, if control key currently pressed
 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.
 focusMode       <Symbol>          nil, #pointer or #activeWindow
 activeWindow    <View>            WINDOWS only: the currently active (foreground) view
 clipBoardEncoding
-		      <Symbol>          encoding of pasted clipBoard text;
+<Symbol>          encoding of pasted clipBoard text;
-					nil means: iso8859.
+nil means: iso8859.
-					set this to #shiftJis, if pasting
+set this to #shiftJis, if pasting
-					SJIS text (for example, from netscape)
+SJIS text (for example, from netscape)
-					Some systems pass encoding information
+Some systems pass encoding information
-					in the clipBoard - there, this is not
+in the clipBoard - there, this is not
-					needed.
+needed.
 [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
 [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 twoconcrete 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.
 DeviceWorkstation itself is an abstract class; the methods as defined
 If you want to experiment with multi-display applications,
 you have to:
 - create a new instance of XWorkstation:
-	Smalltalk at:#Display2 put:(XWorkstation new).
+Smalltalk at:#Display2 put:(XWorkstation new).
 or:
-	Smalltalk at:#Display2 put:(GLXWorkstation new).
+Smalltalk at:#Display2 put:(GLXWorkstation new).
 - have it connect to the display (i.e. the xServer):
 (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
 - leaving you with Display2==nil in this case.
 - start an event dispatcher process for it:
 (this is now no longer needed - the first opened view will do it for you)
-	Display2 startDispatch
+Display2 startDispatch
 - optionally set its keyboard map
 (since this is usually done for Display in the startup-file,
 the new display does not have all your added key bindings)
-	Display2 keyboardMap:(Display keyboardMap)
+Display2 keyboardMap:(Display keyboardMap)
 - 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.
 For all of the above, there is now a convenient helper method in
 ApplicationModel, which allows to write:
-	Application openOnXScreenNamed:'foo:0'
+Application openOnXScreenNamed:'foo:0'
 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.
 a remote display is switched off).
 The framework provides per-display signals, which are raised in the corresponding
 event dispatchers context.
 For a save environment, you should add static exception handler blocks on those
 signals; i.e. the setup for remote displays should look somewhat like:
-	|newDpy|
+|newDpy|
-	newDpy := GLXWorkstation new.
+newDpy := GLXWorkstation new.
-	newDpy := newDpy initializeFor:'localhost:0.0'.
+newDpy := newDpy initializeFor:'localhost:0.0'.
-	newDpy isNil ifTrue:[
+newDpy isNil ifTrue:[
-	    self warn:'cannot connect ...'.
+self warn:'cannot connect ...'.
-	] ifFalse:[
+] ifFalse:[
-	    newDpy deviceIOErrorSignal handlerBlock:[:ex |
+newDpy deviceIOErrorSignal handlerBlock:[:ex |
-		Transcript beep.
+Transcript beep.
-		Transcript showCR:'Display (' , newDpy displayName , '): connection broken.'.
+Transcript showCR:'Display (' , newDpy displayName , '): connection broken.'.
-		AbortSignal raise.
+AbortSignal raise.
-	    ].
+].
-	    newDpy startDispatch.
+newDpy startDispatch.
-	    Launcher openOnDevice:newDpy.
+Launcher openOnDevice:newDpy.
-	].
+].
 There may still some problems to be expected,
 if the screens have different display capabilities (b&w vs. greyscale vs.
 color display). The current styleSheet approach keeps default values
 only once (it should do so per display ...)
 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'.
-	DeviceErrorSignal nameClass:self message:#deviceErrorSignal.
+DeviceErrorSignal nameClass:self message:#deviceErrorSignal.
-	DeviceIOErrorSignal := (Signal new) mayProceed:false.
+DeviceIOErrorSignal := (Signal new) mayProceed:false.
-	DeviceIOErrorSignal notifierString:'device IO error'.
+DeviceIOErrorSignal notifierString:'device IO error'.
-	DeviceIOErrorSignal nameClass:self message:#deviceIOErrorSignal.
+DeviceIOErrorSignal nameClass:self message:#deviceIOErrorSignal.
-	DeviceIOTimeoutErrorSignal := DeviceIOErrorSignal newSignalMayProceed:false.
+DeviceIOTimeoutErrorSignal := DeviceIOErrorSignal newSignalMayProceed:false.
-	DeviceIOTimeoutErrorSignal notifierString:'device IO timeout error'.
+DeviceIOTimeoutErrorSignal notifierString:'device IO timeout error'.
-	DeviceIOTimeoutErrorSignal nameClass:self message:#deviceIOTimeoutErrorSignal.
+DeviceIOTimeoutErrorSignal nameClass:self message:#deviceIOTimeoutErrorSignal.
-	CurrentScreenQuerySignal := QuerySignal new.
+CurrentScreenQuerySignal := QuerySignal new.
-	CurrentScreenQuerySignal nameClass:self message:#currentScreenQuerySignal.
+CurrentScreenQuerySignal nameClass:self message:#currentScreenQuerySignal.
-	CurrentScreenQuerySignal notifierString:'asking for current screen'.
+CurrentScreenQuerySignal notifierString:'asking for current screen'.
-	DrawingOnClosedDeviceSignal := DeviceErrorSignal newSignalMayProceed:true.
+DrawingOnClosedDeviceSignal := DeviceErrorSignal newSignalMayProceed:true.
-	DrawingOnClosedDeviceSignal nameClass:self message:#drawingOnClosedDeviceSignal.
+DrawingOnClosedDeviceSignal nameClass:self message:#drawingOnClosedDeviceSignal.
-	DrawingOnClosedDeviceSignal notifierString:'drawing attempt on closed graphics device'.
+DrawingOnClosedDeviceSignal notifierString:'drawing attempt on closed graphics device'.
 ].
 ErrorPrinting := true.
 self initializeConstants.
 "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
+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 message and continue.
 This allows for non disrupted error reporting OR to catch and
 |badId badResource msg theDevice theSignal p signalHolder|
 'DeviceWorkstation [info]: errorInterrupt: ' infoPrint. errID infoPrintCR.
 errID notNil ifTrue:[
-	"/
+"/
-	"/ timeoutError passes the device;
+"/ timeoutError passes the device;
-	"/ the others pass the devicesID
+"/ the others pass the devicesID
-	"/
+"/
-	errID == #DisplayIOTimeoutError ifTrue:[
+errID == #DisplayIOTimeoutError ifTrue:[
-	    theDevice := aParameter.
+theDevice := aParameter.
-	    "/ 'device timeout error' printCR.
+"/ 'device timeout error' printCR.
-	] ifFalse:[
+] ifFalse:[
-	    AllScreens do:[:aDisplayDevice |
+AllScreens do:[:aDisplayDevice |
-		aDisplayDevice id = aParameter ifTrue:[
+aDisplayDevice id = aParameter ifTrue:[
-		    theDevice := aDisplayDevice.
+theDevice := aDisplayDevice.
-		]
+]
-	    ]
+]
-	]
+]
 ].
 'DeviceWorkstation [info]: device: ' infoPrint. theDevice infoPrintCR.
 "/ now, we have the bad guy at hand ...
 "/ get a per-instance signal.
 signalHolder := theDevice ? self.
 errID == #DisplayIOError ifTrue:[
-	"/ always raises an exception
+"/ always raises an exception
-	msg := 'Display I/O Error'.
+msg := 'Display I/O Error'.
-	badResource := theDevice.
+badResource := theDevice.
-	theSignal := signalHolder deviceIOErrorSignal.
+theSignal := signalHolder deviceIOErrorSignal.
 ] ifFalse:[
-	errID == #DisplayIOTimeoutError ifTrue:[
+errID == #DisplayIOTimeoutError ifTrue:[
-	    "/ always raises an exception for the current process
+"/ always raises an exception for the current process
-	    msg := 'Display I/O timeout Error'.
+msg := 'Display I/O timeout Error'.
-	    badResource := theDevice.
+badResource := theDevice.
-	    theSignal := signalHolder deviceIOTimeoutErrorSignal
+theSignal := signalHolder deviceIOTimeoutErrorSignal
-	] ifFalse:[
+] ifFalse:[
-	    theSignal := signalHolder deviceErrorSignal.
+theSignal := signalHolder deviceErrorSignal.
-	    "/ only raises an exception if handled
+"/ only raises an exception if handled
-	    "/ that will become instance-specific information in
+"/ that will become instance-specific information in
-	    "/ the near future ...
+"/ the near future ...
-	    badId := self resourceIdOfLastError.
+badId := self resourceIdOfLastError.
-	    badId ~~ 0 ifTrue:[
+badId ~~ 0 ifTrue:[
-		badResource := self resourceOfId:badId.
+badResource := self resourceOfId:badId.
-	    ].
+].
-	    msg := 'Display error: ' , (self lastErrorString).
+msg := 'Display error: ' , (self lastErrorString).
-	    theSignal isHandled ifFalse:[
+theSignal isHandled ifFalse:[
-		ErrorPrinting ifTrue:[
+ErrorPrinting ifTrue:[
-		    ('DeviceWorkstation [error]: ' , msg) errorPrintCR
+('DeviceWorkstation [error]: ' , msg) errorPrintCR
-		].
+].
-		^ self
+^ self
-	    ]
+]
-	]
+]
 ].
 "/ interrupt that displays dispatch process
 "/ and force it to shutdown
 theDevice notNil ifTrue:[
-	"/ DiplayIOTimeoutError is a synchronous event, that should hit the process
+"/ DiplayIOTimeoutError is a synchronous event, that should hit the process
-	"/ that caused the timeout.
+"/ that caused the timeout.
-	errID ~~ #DisplayIOTimeoutError ifTrue:[
+errID ~~ #DisplayIOTimeoutError ifTrue:[
-	    p := theDevice dispatchProcess.
+p := theDevice dispatchProcess.
-	    (p notNil and:[p ~~ Processor activeProcess]) ifTrue:[
+(p notNil and:[p ~~ Processor activeProcess]) ifTrue:[
-		'DeviceWorkstation [info]: interrupting: ' infoPrint. p displayString infoPrintCR.
+'DeviceWorkstation [info]: interrupting: ' infoPrint. p displayString infoPrintCR.
-		p interruptWith:[
+p interruptWith:[
-		    'DeviceWorkstation [warning]: raising - exception' errorPrintCR.
+'DeviceWorkstation [warning]: raising - exception' errorPrintCR.
-		    theSignal mayProceed ifTrue:[
+theSignal mayProceed ifTrue:[
-			theSignal raiseRequestWith:badResource errorString:msg.
+theSignal raiseRequestWith:badResource errorString:msg.
-		    ] ifFalse:[
+] ifFalse:[
-			theSignal raiseWith:badResource errorString:msg.
+theSignal raiseWith:badResource errorString:msg.
-		    ].
+].
-		    'DeviceWorkstation [warning]: broken connection' errorPrintCR.
+'DeviceWorkstation [warning]: broken connection' errorPrintCR.
-		    theDevice brokenConnection.
+theDevice brokenConnection.
-		    'DeviceWorkstation [warning]: stopping dispatch' errorPrintCR.
+'DeviceWorkstation [warning]: stopping dispatch' errorPrintCR.
-		    theDevice stopDispatch.
+theDevice stopDispatch.
-		].
+].
-		^ self.
+^ self.
 "/                Processor reschedule.
 "/                AbortSignal raise.
-	    ].
+].
-	].
+].
 ].
 (theSignal isHandled or:[theSignal handlerBlock notNil]) ifTrue:[
 "/        'DeviceWorkstation [info]: interrupting current process: ' infoPrint.
 "/        Processor activeProcess displayString infoPrintCR.
-	'DeviceWorkstation [info]: raising signal in current process' infoPrintCR.
+'DeviceWorkstation [info]: raising signal in current process' infoPrintCR.
-	theSignal mayProceed ifTrue:[
+theSignal mayProceed ifTrue:[
-	    theSignal raiseRequestWith:badResource errorString:msg.
+theSignal raiseRequestWith:badResource errorString:msg.
-	] ifFalse:[
+] ifFalse:[
-	    theSignal raiseWith:badResource errorString:msg.
+theSignal raiseWith:badResource errorString:msg.
-	].
+].
 ].
 theDevice notNil ifTrue:[
-	"/ 'broken connection' printCR.
+"/ 'broken connection' printCR.
-	'DeviceWorkstation [info]: sending #brokenConnection' infoPrintCR.
+'DeviceWorkstation [info]: sending #brokenConnection' infoPrintCR.
-	theDevice brokenConnection.
+theDevice brokenConnection.
-	theDevice dispatchProcess == Processor activeProcess ifTrue:[
+theDevice dispatchProcess == Processor activeProcess ifTrue:[
-	    "/ I am running in the dispatch process
+"/ I am running in the dispatch process
-	    "/ and nobody handles theSignal, so abort the dispatcher
+"/ and nobody handles theSignal, so abort the dispatcher
-	   'DeviceWorkstation [info]: raising abortSignal' infoPrintCR.
+'DeviceWorkstation [info]: raising abortSignal' infoPrintCR.
-	    AbortSignal raise.
+AbortSignal raise.
-	] ifFalse:[
+] ifFalse:[
-	    "/ Some other process (probably not even guilty - like someone doing a draw after a change) ...
+"/ Some other process (probably not even guilty - like someone doing a draw after a change) ...
-	    "/ ... see if we can unwind out of the drawing operation
+"/ ... see if we can unwind out of the drawing operation
-	   'DeviceWorkstation [info]: should unwind the draw operation' infoPrintCR.
+'DeviceWorkstation [info]: should unwind the draw operation' infoPrintCR.
-	    thisContext fullPrintAll.
+thisContext fullPrintAll.
-	]
+]
 ].
 'DeviceWorkstation [info]: proceeding after error' infoPrintCR.
 "Modified: 11.4.1997 / 11:28:27 / cg"
 !
 "search thru all device stuff for a resource.
 Needed for error handling"
 Form allInstancesDo:[:f |
-	f id == id ifTrue:[^ f]
+f id == id ifTrue:[^ f]
 ].
 self allInstancesDo:[: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 allInstancesDo:[:c |
-	c colorId == id ifTrue:[^ c]
+c colorId == id ifTrue:[^ c]
 ].
 Font allInstancesDo:[:f |
-	f fontId == id ifTrue:[^ f]
+f fontId == id ifTrue:[^ f]
 ].
 ^ nil
 "Modified: 24.4.1996 / 19:36:15 / cg"
 ! !
 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:300
 "
 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 topRight - startRect topRight).
 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 abs / pixelsPerSecond * 1000)
+zoom:startRect to:endRect duration:(maxDistance abs / 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:10
 "
 rootView clippedByChildren:false.
 rootView paint:Color black.
 r := aRectangle.
 0 to:bw-1 do:[:i |
-	rootView displayRectangle:r.
+rootView displayRectangle:r.
-	r := r insetBy:1.
+r := r insetBy:1.
 ].
 rootView clippedByChildren:true.
 "
 Display restoreAfter:[
-	Display border:(10@10 corner:100@100) width:2.
+Display border:(10@10 corner:100@100) width:2.
 ]
 "
 "Modified: 15.10.1997 / 19:23:28 / cg"
 !
 rootView displayOpaqueString:s x:x y:y.
 rootView clippedByChildren:true.
 "
 Display restoreAfter:[
-	Display displayOpaqueString:'hello' x:10 y:10.
+Display displayOpaqueString:'hello' x:10 y:10.
 ]
 "
 "Created: 15.10.1997 / 19:25:09 / cg"
 "Modified: 15.10.1997 / 19:29:05 / cg"
 rootView displayString:s x:x y:y.
 rootView clippedByChildren:true.
 "
 Display restoreAfter:[
-	Display displayString:'hello' x:10 y:10.
+Display displayString:'hello' x:10 y:10.
 ]
 "
 "Modified: 15.10.1997 / 19:29:10 / cg"
 !
 |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|
 |view id|
 id := self viewIdFromPoint:aPoint.
 view := self viewFromId:id.
 view isNil ifTrue:[
-	"/ search on other devices (if present).
+"/ search on other devices (if present).
-	"/ This may find the view, in case another device
+"/ This may find the view, in case another device
-	"/ has its views on the same display screen
+"/ has its views on the same display screen
-	Screen allScreens do:[:aScreen |
+Screen allScreens do:[:aScreen |
-	    |v|
+|v|
-	    aScreen ~~ self ifTrue:[
+aScreen ~~ self ifTrue:[
-		(v := aScreen viewFromId:id) notNil ifTrue:[
+(v := aScreen viewFromId:id) notNil ifTrue:[
-		    ^ v
+^ v
-		]
+]
-	    ]
+]
-	]
+]
 ].
 ^ view
 !
 viewIdFromPoint:aPoint
 "/ this is required, since X raises a bad error, when we come
 "/ along with an illegal id (which happens, if a view from another
 "/ screen-device is picked ...)
 self class deviceErrorSignal handle:[:ex |
-	^ nil
+^ nil
 ] do:[
-	[searchId notNil] whileTrue:[
+[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 blue 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 green 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
 "
 "given a depth, return the devices image format info,
 which provides padding info. If the given depth is not
 supported, return nil."
 self supportedImageFormats do:[:fmt |
-	(fmt at:#depth) == aDepth ifTrue:[
+(fmt at:#depth) == aDepth ifTrue:[
-	    ^fmt
+^fmt
-	]
+]
 ].
 ^ nil
 !
 supportedImageFormats
 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"
 ! !
 ^ self subclassResponsibility
 !
 createWindowFor:aView type:typeSymbol origin:org extent:ext
-	minExtent:minE maxExtent:maxE borderWidth:bw subViewOf:sv
+minExtent:minE maxExtent:maxE borderWidth:bw subViewOf:sv
-	style:styleSymbol inputOnly:inp
+style:styleSymbol inputOnly:inp
-	label:label owner:owner
+label:label owner:owner
-	icon:icn iconMask:icnM iconView:icnV
+icon:icn iconMask:icnM iconView:icnV
 "must be implemented by a concrete class"
 ^ self subclassResponsibility
 !
 |s|
 s := IdentitySet new.
 fixColors notNil ifTrue:[
-	s addAll:fixColors.
+s addAll:fixColors.
 ].
 fixGrayColors notNil ifTrue:[
-	s addAll:fixGrayColors.
+s addAll:fixGrayColors.
 ].
 ditherColors notNil ifTrue:[
-	s addAll:ditherColors.
+s addAll:ditherColors.
 ].
 ^ s asArray
 "Created: 11.7.1996 / 18:13:30 / cg"
 "Modified: 24.6.1997 / 16:23:50 / 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
 colorNamed:aString
 "allocate a color with color name - return the color index (i.e. colorID).
 Dont use this method, colornames are mostly X specific"
 ^ self getScaledRGBFromName:aString into:[:r :g :b |
-	self colorScaledRed:r scaledGreen:g scaledBlue:b
+self colorScaledRed:r scaledGreen:g scaledBlue:b
 ]
 !
 colorRed:redVal green:greenVal blue:blueVal
 ^ self colorScaledRed:r scaledGreen:g scaledBlue:b
 !
 colorScaledRed:red scaledGreen:green scaledBlue:blue
 visualType == #TrueColor ifTrue:[
-	^ (((red bitShift:-8) bitShift:redShift)
+^ (((red bitShift:-8) bitShift:redShift)
-	  bitOr:((green bitShift:-8) bitShift:greenShift))
+bitOr:((green bitShift:-8) bitShift:greenShift))
-	  bitOr:((blue bitShift:-8) bitShift:blueShift)
+bitOr:((blue bitShift:-8) bitShift:blueShift)
 ].
 self subclassResponsibility
 !
 deviceColorValueToPercent:deviceColorValue
 |triple|
 triple := self getScaledRGBFrom:index.
 triple notNil ifTrue:[
-	^ triple collect:[:val | self deviceColorValueToPercent:val]
+^ triple collect:[:val | self deviceColorValueToPercent:val]
 ].
 ^ nil
 !
 getRGBFrom:index into:aBlock
 |triple|
 triple := self getRGBFrom:index.
 triple notNil ifTrue:[
-	^ aBlock valueWithArguments:triple.
+^ aBlock valueWithArguments:triple.
 ].
 ^ nil
 !
 than those below are X specific."
 |idx names triple r g b|
 (colorName startsWith:$#) ifTrue:[
-	"/ color in r/g/b hex notation
+"/ color in r/g/b hex notation
-	r := Integer readFrom:(colorName copyFrom:2 to:3) radix:16.
+r := Integer readFrom:(colorName copyFrom:2 to:3) radix:16.
-	g := Integer readFrom:(colorName copyFrom:4 to:5) radix:16.
+g := Integer readFrom:(colorName copyFrom:4 to:5) radix:16.
-	b := Integer readFrom:(colorName copyFrom:6 to:7) radix:16.
+b := Integer readFrom:(colorName copyFrom:6 to:7) radix:16.
-	r := (r * 100 / 255).
+r := (r * 100 / 255).
-	g := (g * 100 / 255).
+g := (g * 100 / 255).
-	b := (b * 100 / 255).
+b := (b * 100 / 255).
-	^ Array with:r with:g with:b
+^ Array with:r with:g with:b
 ].
 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 ifTrue:[
-	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.
-	^ triple
+^ triple
 ].
 ^ nil
 !
 |triple|
 triple := self getScaledRGBFromName:colorName.
 triple notNil ifTrue:[
-	^ aBlock value:(self deviceColorValueToPercent:(triple at:1))
+^ aBlock value:(self deviceColorValueToPercent:(triple at:1))
-		 value:(self deviceColorValueToPercent:(triple at:2))
+value:(self deviceColorValueToPercent:(triple at:2))
-		 value:(self deviceColorValueToPercent:(triple at:3))
+value:(self deviceColorValueToPercent:(triple at:3))
 ].
 ^ nil
 "
 Display getRGBFromName:'red' into:[:r :g :b | r printCR. g printCR. b printCR.]
 |triple|
 triple := self getScaledRGBFrom:index.
 triple notNil ifTrue:[
-	^ aBlock valueWithArguments:triple.
+^ aBlock valueWithArguments:triple.
 ].
 ^ nil
 !
 |triple|
 triple := self getRGBFromName:colorName.
 triple notNil ifTrue:[
-	^ triple collect:[:val | self percentToDeviceColorValue:val].
+^ triple collect:[:val | self percentToDeviceColorValue:val].
 ].
 ^ nil.
 !
 |triple|
 triple := self getScaledRGBFromName:colorName.
 triple notNil ifTrue:[
-	^ aBlock valueWithArguments:triple.
+^ aBlock valueWithArguments:triple.
 ].
 ^ nil
 !
 greenComponentOfColor:colorId
 ^ 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"
 ydata size == 0 ifTrue:[^ self].
 xLast := xStart.
 yLast := (ydata at:1) * yScale + yTrans.
 ydata from:2 do:[:y | |yT|
-	x := xLast + xStep.
+x := xLast + xStep.
-	yT := y * yScale + yTrans.
+yT := y * yScale + yTrans.
-	self displayLineFromX:xLast rounded y:yLast rounded toX:x rounded y:yT rounded in:drawableId with:gcId.
+self displayLineFromX:xLast rounded y:yLast rounded toX:x rounded y:yT rounded in:drawableId with:gcId.
-	xLast := x.
+xLast := x.
-	yLast := y.
+yLast := y.
 ]
 !
 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"
 "draw a bunch of lines"
 |startPoint p|
 1 to:arrayOfPoints size by:2 do:[:idx |
-	p := arrayOfPoints at:idx.
+p := arrayOfPoints at:idx.
-	idx odd ifTrue:[
+idx odd ifTrue:[
-	    startPoint := p
+startPoint := p
-	] ifFalse:[
+] ifFalse:[
-	    self
+self
-		displayLineFromX:startPoint x
+displayLineFromX:startPoint x
-		y:startPoint y
+y:startPoint y
-		toX:p x
+toX:p x
-		y:p y
+y:p y
-		in:aDrawableId
+in:aDrawableId
-		with:aGCId
+with:aGCId
-	]
+]
 ]
 !
 displayRectangleX:x y:y width:width height:height in:aDrawableId with:aGCId
 "draw a rectangle"
 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 bitsPerPixel:bitsPerPixel depth:imageDepth padding:pad
-			  width:imageWidth height:imageHeight
+width:imageWidth height:imageHeight
-			      x:srcx y:srcy
+x:srcx y:srcy
-			   into:aDrawableId
+into:aDrawableId
-			      x:dstx y:dsty
+x:dstx y:dsty
-			  width:w height:h
+width:w height:h
-			   with:aGCId
+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.
 The actual bits per pixel may be different from the depth (for example,
 ^ self subclassResponsibility
 !
 drawBits:imageBits bitsPerPixel:bitsPerPixel depth:imageDepth
-			  width:imageWidth height:imageHeight
+width:imageWidth height:imageHeight
-			      x:srcx y:srcy
+x:srcx y:srcy
-			   into:aDrawableId
+into:aDrawableId
-			      x:dstx y:dsty
+x:dstx y:dsty
-			  width:w height:h
+width:w height:h
-			   with:aGCId
+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.
 systems actually use 32 bits/pixel).
 This assumes a padding of 8-bits (i.e. byte-boundary),
 which is the natural padding within ST/X."
 ^ self
-	drawBits:imageBits
+drawBits:imageBits
-	bitsPerPixel:bitsPerPixel
+bitsPerPixel:bitsPerPixel
-	depth:imageDepth
+depth:imageDepth
-	padding:8
+padding:8
-	width:imageWidth height:imageHeight
+width:imageWidth height:imageHeight
-	x:srcx y:srcy
+x:srcx y:srcy
-	into:aDrawableId
+into:aDrawableId
-	x:dstx y:dsty
+x:dstx y:dsty
-	width:w height:h
+width:w height:h
-	with:aGCId
+with:aGCId
 "Created: / 16.4.1997 / 14:55:57 / cg"
 "Modified: / 21.1.1998 / 13:27:58 / cg"
 !
 drawBits:imageBits depth:imageDepth padding:pad width:imageWidth height:imageHeight
-	x:srcx y:srcy into:aDrawableId x:dstx y:dsty width:w height:h with:aGCId
+x:srcx y:srcy 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
-	drawBits:imageBits
+drawBits:imageBits
-	bitsPerPixel:imageDepth
+bitsPerPixel:imageDepth
-	depth:imageDepth
+depth:imageDepth
-	padding:pad
+padding:pad
-	width:imageWidth height:imageHeight
+width:imageWidth height:imageHeight
-	x:srcx y:srcy
+x:srcx y:srcy
-	into:aDrawableId
+into:aDrawableId
-	x:dstx y:dsty
+x:dstx y:dsty
-	width:w height:h
+width:w height:h
-	with:aGCId
+with:aGCId
 !
 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.
 This assumes a padding of 8-bits (i.e. byte-boundary),
 which is the natural padding within ST/X."
 ^ self
-	drawBits:imageBits
+drawBits:imageBits
-	bitsPerPixel:imageDepth
+bitsPerPixel:imageDepth
-	depth:imageDepth
+depth:imageDepth
-	width:imageWidth height:imageHeight
+width:imageWidth height:imageHeight
-	x:srcx y:srcy
+x:srcx y:srcy
-	into:aDrawableId
+into:aDrawableId
-	x:dstx y:dsty
+x:dstx y:dsty
-	width:w height:h
+width:w height:h
-	with:aGCId
+with:aGCId
 "Modified: / 21.1.1998 / 13:28:34 / cg"
 !
 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"
 |setOfViews|
 setOfViews := IdentitySet new.
 knownViews notNil ifTrue:[
-	knownViews validElementsDo:[:v | setOfViews add:v].
+knownViews validElementsDo:[:v | setOfViews add:v].
 ].
 ^ setOfViews
 "Created: / 14.2.1997 / 14:29:43 / cg"
 "Modified: / 19.1.2000 / 10:07:05 / cg"
 "/                aBlock value:aView
 "/            ]
 "/      ]
 knownViews notNil ifTrue:[
-	knownViews validElementsDo:aBlock
+knownViews validElementsDo:aBlock
 ]
 "
 View defaultStyle:#iris.
 Display allViewsDo:[:v | v initStyle. v redraw]
 !DeviceWorkstation methodsFor:'error handling'!
 primitiveFailedOrClosedConnection
 self isOpen ifFalse:[
-	DrawingOnClosedDeviceSignal raiseRequestWith:self.
+DrawingOnClosedDeviceSignal raiseRequestWith:self.
-	^ nil
+^ nil
 ].
 ^ super primitiveFailed
 ! !
 !DeviceWorkstation methodsFor:'event forwarding'!
 "forward a button-motion for some view"
 |sensor|
 aView isNil ifTrue:[
-	"/ event arrived, after I destroyed it myself
+"/ event arrived, after I destroyed it myself
-	^ self
+^ self
 ].
 (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 ...
-	    "
+"
-	    aView
+aView
-		dispatchEvent:#buttonMotion:x:y:
+dispatchEvent:#buttonMotion:x:y:
-		arguments:(Array with:button with:x with:y)
+arguments:(Array with:button with:x with:y)
 "/            WindowEvent
 "/                sendEvent:#buttonMotion:x:y:
 "/                arguments:(Array with:button with:x with:y)
 "/                view:aView
-	]
+]
 ]
 "Modified: / 20.5.1998 / 22:50:32 / cg"
 !
 "forward a button-multi-press event for some view"
 |sensor|
 aView isNil ifTrue:[
-	"/ event arrived, after I destroyed it myself
+"/ event arrived, after I destroyed it myself
-	^ self
+^ self
 ].
 (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 ...
-	    "
+"
-	    aView
+aView
-		dispatchEvent:#buttonMultiPress:x:y:
+dispatchEvent:#buttonMultiPress:x:y:
-		arguments:(Array with:button with:x with:y)
+arguments:(Array with:button with:x with:y)
 "/            WindowEvent
 "/                sendEvent:#buttonMultiPress:x:y:
 "/                arguments:(Array with:button with:x with:y)
 "/                view:aView
-	]
+]
 ]
 "Modified: / 20.5.1998 / 22:50:49 / cg"
 !
 "forward a button-press event for some view"
 |sensor|
 aView isNil ifTrue:[
-	"/ event arrived, after I destroyed it myself
+"/ event arrived, after I destroyed it myself
-	^ self
+^ self
 ].
 (sensor := aView sensor) notNil ifTrue:[
-	WindowsRightButtonBehavior == true ifTrue:[
+WindowsRightButtonBehavior == true ifTrue:[
-	    button >= 2 ifTrue:[
+button >= 2 ifTrue:[
-		sensor buttonPress:1 x:x y:y view:aView.
+sensor buttonPress:1 x:x y:y view:aView.
-		^ self.
+^ self.
-	    ]
+]
-	].
+].
-	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 ...
-	    "
+"
-	    aView
+aView
-		dispatchEvent:#buttonPress:x:y:
+dispatchEvent:#buttonPress:x:y:
-		arguments:(Array with:button with:x with:y)
+arguments:(Array with:button with:x with:y)
 "/            WindowEvent
 "/                sendEvent:#buttonPress:x:y:
 "/                arguments:(Array with:button with:x with:y)
 "/                view:aView
-	]
+]
 ]
 "Modified: / 20.5.1998 / 22:51:02 / cg"
 !
 "forward a button-release event for some view"
 |sensor|
 aView isNil ifTrue:[
-	"/ event arrived, after I destroyed it myself
+"/ event arrived, after I destroyed it myself
-	^ self
+^ self
 ].
 (sensor := aView sensor) notNil ifTrue:[
-	WindowsRightButtonBehavior == true ifTrue:[
+WindowsRightButtonBehavior == true ifTrue:[
-	    button >= 2 ifTrue:[
+button >= 2 ifTrue:[
-		sensor buttonRelease:1 x:x y:y view:aView.
+sensor buttonRelease:1 x:x y:y view:aView.
-		sensor buttonPress:button x:x y:y view:aView.
+sensor buttonPress:button x:x y:y view:aView.
-		sensor buttonRelease:button x:x y:y view:aView.
+sensor buttonRelease:button x:x y:y view:aView.
-		^ self.
+^ self.
-	    ].
+].
-	].
+].
-	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 ...
-	    "
+"
-	    aView
+aView
-		dispatchEvent:#buttonRelease:x:y:
+dispatchEvent:#buttonRelease:x:y:
-		arguments:(Array with:button with:x with:y)
+arguments:(Array with:button with:x with:y)
 "/            WindowEvent
 "/                sendEvent:#buttonRelease:x:y:
 "/                arguments:(Array with:button with:x with:y)
 "/                view:aView
-	]
+]
 ]
 "Modified: / 20.5.1998 / 22:51:13 / cg"
 !
 "forward a configure for some view"
 |sensor|
 aView isNil ifTrue:[
-	"/ event arrived, after I destroyed it myself
+"/ event arrived, after I destroyed it myself
-	^ self
+^ self
 ].
 (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"
 aView isNil ifTrue:[
-	"/ event arrived, after I destroyed it myself
+"/ event arrived, after I destroyed it myself
-	^ self
+^ self
 ].
 "/    |sensor|
 "/
 "/    (sensor := aView sensor) notNil ifTrue:[
 "/        sensor coveredBy:otherView view:aView
 "/    ] ifFalse:[
 "/        "
 "/         if there is no sensor ...
 "/        "
-	aView coveredBy:otherView
+aView coveredBy:otherView
 "/    ]
 "Modified: / 8.2.1999 / 15:24:52 / cg"
 !
 "forward a destroyed event for some view"
 |sensor|
 aView isNil ifTrue:[
-	"/ event arrived, after I destroyed it myself
+"/ event arrived, after I destroyed it myself
-	^ self
+^ self
 ].
 (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|
 aView isNil ifTrue:[
-	"/ event arrived, after I destroyed it myself
+"/ event arrived, after I destroyed it myself
-	^ self
+^ self
 ].
 (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 ...
-	"
+"
-	aView
+aView
-	    dispatchEvent:#exposeX:y:width:height:
+dispatchEvent:#exposeX:y:width:height:
-	    arguments:(Array with:x with:y with:w with:h)
+arguments:(Array with:x with:y with:w with:h)
 "/        WindowEvent
 "/            sendEvent:#exposeX:y:width:height:
 "/            arguments:(Array with:x with:y with:w with:h)
 "/            view:aView
 "forward a focusIn event for some view"
 |sensor|
 aView isNil ifTrue:[
-	"/ event arrived, after I destroyed it myself
+"/ event arrived, after I destroyed it myself
-	^ self
+^ self
 ].
 (sensor := aView sensor) notNil ifTrue:[
-	sensor focusInView:aView
+sensor focusInView:aView
 ] ifFalse:[
-	"
+"
-	 if there is no sensor ...
+if there is no sensor ...
-	"
+"
-	aView
+aView
-	    dispatchEvent:#focusIn
+dispatchEvent:#focusIn
-	    arguments:nil
+arguments:nil
 "/        WindowEvent
 "/            sendEvent:#focusIn
 "/            arguments:nil
 "/            view:aView
 "forward a focusOut event for some view"
 |sensor|
 aView isNil ifTrue:[
-	"/ event arrived, after I destroyed it myself
+"/ event arrived, after I destroyed it myself
-	^ self
+^ self
 ].
 (sensor := aView sensor) notNil ifTrue:[
-	sensor focusOutView:aView
+sensor focusOutView:aView
 ] ifFalse:[
-	"
+"
-	 if there is no sensor ...
+if there is no sensor ...
-	"
+"
-	aView
+aView
-	    dispatchEvent:#focusOut
+dispatchEvent:#focusOut
-	    arguments:nil
+arguments:nil
 "/        WindowEvent
 "/            sendEvent:#focusOut
 "/            arguments:nil
 "/            view:aView
 "forward a graphic expose for some view"
 |sensor|
 aView isNil ifTrue:[
-	"/ event arrived, after I destroyed it myself
+"/ event arrived, after I destroyed it myself
-	^ self
+^ self
 ].
 (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 ...
-	"
+"
-	aView
+aView
-	    dispatchEvent:#graphicsExposeX:y:width:height:final:
+dispatchEvent:#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)
 "/        WindowEvent
 "/            sendEvent:#graphicsExposeX:y:width:height:final:
 "/            arguments:(Array with:x with:y with:w with:h with:final)
 "/            view:aView
 "/
 "/ 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.
 aView isNil ifTrue:[
-	"/ event arrived, after I destroyed it myself
+"/ event arrived, after I destroyed it myself
-	^ self
+^ self
 ].
 (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 forView:aView.
+xlatedKey := self translateKey:untranslatedKey forView:aView.
-	    xlatedKey notNil ifTrue:[
+xlatedKey notNil ifTrue:[
-		aView
+aView
-		    dispatchEvent:#keyPress:x:y:
+dispatchEvent:#keyPress:x:y:
-		    arguments:(Array with:xlatedKey with:x with:y)
+arguments:(Array with:xlatedKey with:x with:y)
 "/                WindowEvent
 "/                  sendEvent:#keyPress:x:y:
 "/                  arguments:(Array with:xlatedKey with:x with:y)
 "/                  view:aView
-	    ]
+]
-	]
+]
 ]
 "Modified: / 20.5.1998 / 22:52:36 / cg"
 !
 |xlatedKey sensor|
 self modifierKeyProcessing:untranslatedKey down:false.
 aView isNil ifTrue:[
-	"/ event arrived, after I destroyed it myself
+"/ event arrived, after I destroyed it myself
-	^ self
+^ self
 ].
 (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 forView:aView.
+xlatedKey := self translateKey:untranslatedKey forView:aView.
-	    xlatedKey notNil ifTrue:[
+xlatedKey notNil ifTrue:[
-		aView
+aView
-		    dispatchEvent:#keyRelease:x:y:
+dispatchEvent:#keyRelease:x:y:
-		    arguments:(Array with:xlatedKey with:x with:y)
+arguments:(Array with:xlatedKey with:x with:y)
 "/                WindowEvent
 "/                    sendEvent:#keyRelease:x:y:
 "/                    arguments:(Array with:xlatedKey with:x with:y)
 "/                    view:aView
-	    ]
+]
-	]
+]
 ]
 "Modified: / 20.5.1998 / 22:52:52 / cg"
 !
 "forward a mapped event for some view"
 |sensor|
 aView isNil ifTrue:[
-	"/ event arrived, after I destroyed it myself
+"/ event arrived, after I destroyed it myself
-	^ self
+^ self
 ].
 (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
 ]
 !
 mouseWheelMotion:buttonState x:x y:y amount:amount deltaTime:dTime view:aView
 "the mousewheel was moved by some amount (signed).
 This event is sent to the current pointer view (like keyPress/release)."
 |sensor|
 aView isNil ifTrue:[
-	"/ event arrived, after I destroyed it myself
+"/ event arrived, after I destroyed it myself
-	^ self
+^ self
 ].
 (sensor := aView sensor) notNil ifTrue:[
-	sensor mouseWheelMotion:buttonState x:x y:y amount:amount deltaTime:dTime view:aView
+sensor mouseWheelMotion:buttonState x:x y:y amount:amount deltaTime:dTime 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 ...
-	    "
+"
-	    aView
+aView
-		dispatchEvent:#mouseWheelMotion:x:y:amount:deltaTime:
+dispatchEvent:#mouseWheelMotion:x:y:amount:deltaTime:
-		arguments:(Array with:buttonState with:x with:y with:amount with:dTime )
+arguments:(Array with:buttonState with:x with:y with:amount with:dTime )
-	]
+]
 ]
 "Modified: / 21.5.1999 / 13:05:53 / cg"
 !
 "forward a noExpose event for some view"
 |sensor|
 aView isNil ifTrue:[
-	"/ event arrived, after I destroyed it myself
+"/ event arrived, after I destroyed it myself
-	^ self
+^ self
 ].
 (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|
 aView isNil ifTrue:[
-	"/ event arrived, after I destroyed it myself
+"/ event arrived, after I destroyed it myself
-	^ self
+^ self
 ].
 (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 ...
-	"
+"
-	aView
+aView
-	    dispatchEvent:#pointerEnter:x:y:
+dispatchEvent:#pointerEnter:x:y:
-	    arguments:(Array with:buttonState with:x with:y)
+arguments:(Array with:buttonState with:x with:y)
 "/        WindowEvent
 "/            sendEvent:#pointerEnter:x:y:
 "/            arguments:(Array with:buttonState with:x with:y)
 "/            view:aView
 "forward a pointer leave for some view"
 |sensor|
 aView isNil ifTrue:[
-	"/ event arrived, after I destroyed it myself
+"/ event arrived, after I destroyed it myself
-	^ self
+^ self
 ].
 (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 ...
-	"
+"
-	aView
+aView
-	    dispatchEvent:#pointerLeave:
+dispatchEvent:#pointerLeave:
-	    arguments:(Array with:buttonState)
+arguments:(Array with:buttonState)
 "/        WindowEvent
 "/            sendEvent:#pointerLeave:
 "/            arguments:(Array with:buttonState)
 "/            view:aView
 "forward a saveAndTerminate event for some view"
 |sensor|
 aView isNil ifTrue:[
-	"/ event arrived, after I destroyed it myself
+"/ event arrived, after I destroyed it myself
-	^ self
+^ self
 ].
 (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|
 aView isNil ifTrue:[
-	"/ event arrived, after I destroyed it myself
+"/ event arrived, after I destroyed it myself
-	^ self
+^ self
 ].
 (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|
 aView isNil ifTrue:[
-	"/ event arrived, after I destroyed it myself
+"/ event arrived, after I destroyed it myself
-	^ self
+^ self
 ].
 (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 == true ifFalse:[^ self].
+ExitOnLastClose == true ifFalse:[^ self].
 ].
 exitOnLastClose == true ifFalse:[^ self].
 knownViews notNil ifTrue:[
-	(knownViews findFirst:[:slot |
+(knownViews findFirst:[:slot |
-		slot notNil
+slot notNil
-		and:[slot ~~ 0             "/ if there is no non-popup
+and:[slot ~~ 0             "/ if there is no non-popup
-		and:[slot isRootView not   "/ non-dialog ...
+and:[slot isRootView not   "/ non-dialog ...
-		and:[slot isTopView        "/ stop dispatching.
+and:[slot isTopView        "/ stop dispatching.
-		and:[slot isPopUpView not
+and:[slot isPopUpView not
-		and:[slot isModal not
+and:[slot isModal not
-		"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.
-	    LastActiveScreen == self ifTrue:[
+LastActiveScreen == self ifTrue:[
-		LastActiveScreen := nil.
+LastActiveScreen := nil.
-		LastActiveProcess := nil.
+LastActiveProcess := nil.
-	    ].
+].
-	]
+]
 ].
 "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)"
 Object osSignalInterruptSignal handle:[:ex |
-	ex return
+ex return
 ] do:[
-	[self eventPending] whileTrue:[
+[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 the eventQ (i.e. windows).
 inputSema := Semaphore new name:'display inputSema'.
 p := [
-	self initializeDeviceResources.
+self initializeDeviceResources.
-	DeviceIOErrorSignal handle:[:ex |
+DeviceIOErrorSignal handle:[:ex |
-	    "/ test for handlerBlock until the signal is changed to be classed based.
+"/ test for handlerBlock until the signal is changed to be classed based.
-	    ex signal handlerBlock notNil ifTrue:[
+ex signal handlerBlock notNil ifTrue:[
-		ex defaultAction.
+ex defaultAction.
-	    ] ifFalse:[
+] ifFalse:[
-		'DeviceWorkstation [warning]: stop dispatch due to I/O error' errorPrintCR.
+'DeviceWorkstation [warning]: stop dispatch due to I/O error' errorPrintCR.
-		self brokenConnection.
+self brokenConnection.
-	    ].
+].
-	    ex return.
+ex return.
-	] do:[
+] do:[
-	    [
+[
-		[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 wait.
+inputSema wait.
-			].
+].
-			dispatching ifTrue:[
+dispatching ifTrue:[
-			    self dispatchPendingEvents.
+self dispatchPendingEvents.
-			].
+].
-		    ]
+]
-		]
+]
-	    ] valueOnUnwindDo:[
+] valueOnUnwindDo:[
-		inputSema notNil ifTrue:[
+inputSema notNil ifTrue:[
-		    Processor disableSemaphore:inputSema.
+Processor disableSemaphore:inputSema.
-		    inputSema := nil.
+inputSema := nil.
-		].
+].
-		dispatchProcess := nil.
+dispatchProcess := nil.
-		self emergencyCloseConnection.
+self emergencyCloseConnection.
-	    ].
+].
-	    inputSema notNil ifTrue:[
+inputSema notNil ifTrue:[
-		Processor disableSemaphore:inputSema.
+Processor disableSemaphore:inputSema.
-		inputSema := nil.
+inputSema := nil.
-	    ].
+].
-	    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).
 p beSystemProcess.
 dispatchProcess := p.
 "/ finally, arrange for the processor to signal that semaphore when input
 "/ is available or #eventPending returns true
 fd isNil ifTrue:[
-	"no fd -- so have to check for input also"
+"no fd -- so have to check for input also"
-	checkBlock := [self eventPending].
+checkBlock := [self eventPending].
 ] ifFalse:[
-	"there is a fd, so checkblock has to check only the internal queue"
+"there is a fd, so checkblock has to check only the internal queue"
-	checkBlock := [self eventQueued].
+checkBlock := [self eventQueued].
 ].
 Processor signal:inputSema onInput:fd orCheck:checkBlock.
 "Modified: / 12.12.1995 / 20:52:57 / stefan"
 "stop the dispatch process"
 |p|
 LastActiveScreen == self ifTrue:[
-	LastActiveScreen := nil.
+LastActiveScreen := nil.
-	LastActiveProcess := nil.
+LastActiveProcess := nil.
 ].
 (p := dispatchProcess) notNil ifTrue:[
-	dispatchProcess := nil.
+dispatchProcess := nil.
-	p terminateWithAllSubprocesses.
+p terminateWithAllSubprocesses.
-	p terminateNoSignal.   "/ just in case
+p terminateNoSignal.   "/ just in case
 ]
 ! !
 !DeviceWorkstation methodsFor:'event sending'!
 simulateKeyboardInput:aCharacterOrString inViewId:viewId
 "send input to some other view, by simulating keyPress/keyRelease
 events.
 Only a few control characters are supported.
 Notice: not all alien views allow this kind of synthetic input;
-	     some simply ignore it."
+some simply ignore it."
 |control code state|
 aCharacterOrString isString ifTrue:[
-	aCharacterOrString do:[:char |
+aCharacterOrString do:[:char |
-	    self simulateKeyboardInput:char inViewId:viewId
+self simulateKeyboardInput:char inViewId:viewId
-	].
+].
-	^ self
+^ self
 ].
 control := false.
 code := aCharacterOrString asciiValue.
 (aCharacterOrString == Character cr) ifTrue:[
-	code := #Return
+code := #Return
 ] ifFalse:[
-	(aCharacterOrString == Character tab) ifTrue:[
+(aCharacterOrString == Character tab) ifTrue:[
-	    code := #Tab
+code := #Tab
-	] ifFalse:[
+] ifFalse:[
-	    (aCharacterOrString == Character esc) ifTrue:[
+(aCharacterOrString == Character esc) ifTrue:[
-		code := #Escape
+code := #Escape
-	    ]
+]
-	]
+]
 ].
 control ifTrue:[
-	state := self ctrlModifierMask
+state := self ctrlModifierMask
 ].
 "/ the stuff below should not be needed
 "/ (sendKeyOrButtonevent should be able to figure out things itself)
 "/ however, on some linux systems it seems to not work correctly.
 "/ Hopefully, this is correct ...
 code isNumber ifTrue:[
-	code >= $A asciiValue ifTrue:[
+code >= $A asciiValue ifTrue:[
-	    code <= $Z asciiValue ifTrue:[
+code <= $Z asciiValue ifTrue:[
-		state := self shiftModifierMask
+state := self shiftModifierMask
-	    ]
+]
-	]
+]
 ].
 self sendKeyOrButtonEvent:#keyPress x:0 y:0 keyOrButton:code state:state toViewId:viewId.
 self sendKeyOrButtonEvent:#keyRelease x:0 y:0 keyOrButton:code state:state toViewId:viewId
 ^ (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 match:fntDescr family) ifTrue:[
+(aFamilyName match:fntDescr family) ifTrue:[
-	    (aFaceName match:fntDescr face) ifTrue:[
+(aFaceName match: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"
 "Modified: 30.6.1997 / 11:07:21 / cg"
 !
 allFonts := self listOfAvailableFonts.
 allFonts isNil ifTrue:[^ nil].
 fonts := Set new.
 allFonts do:[:fntDescr |
-	(aFamilyName match:fntDescr family) ifTrue:[
+(aFamilyName match:fntDescr family) ifTrue:[
-	    (aFaceName match:fntDescr face) ifTrue:[
+(aFaceName match:fntDescr face) ifTrue:[
-		(aStyleName match:fntDescr style) ifTrue:[
+(aStyleName match: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']]
 "
 "
 Display fontsInFamily:'fixed' face:'*' 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"
 "Modified: 30.6.1997 / 11:07:08 / cg"
 !
 allFonts := self listOfAvailableFonts.
 allFonts isNil ifTrue:[^ nil].
 fonts := Set new.
 allFonts do:[:fntDescr |
-	(aFamilyName match:fntDescr family) ifTrue:[
+(aFamilyName match: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']]
 "
 "
 Display fontsInFamily:'*' filtering:[:f |
-	f encoding notNil and:[f encoding startsWith:'jis']]
+f encoding notNil and:[f encoding startsWith:'jis']]
 "
 "Created: 29.2.1996 / 04:27:49 / cg"
 "Modified: 30.6.1997 / 11:06:36 / cg"
 !
 ^ 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
 !
 grabPointerInView:aView withCursor:aCursor
 aView. Return true if ok, false if it failed for some reason."
 |cId|
 activePointerGrab notNil ifTrue:[
-	self ungrabPointer.
+self ungrabPointer.
-	activePointerGrab := nil
+activePointerGrab := nil
 ].
 aCursor notNil ifTrue:[
-	cId := aCursor id.
+cId := aCursor id.
 ].
 (self grabPointerIn:(aView id) withCursorId:cId) ifTrue:[
-	activePointerGrab := aView.
+activePointerGrab := aView.
-	^ true
+^ true
 ].
 ^ false
 !
 setActivePointerGrab:aView
 dispatching := false.
 self emergencyCloseConnection.
 displayId := nil.
 LastActiveScreen == self ifTrue:[
-	LastActiveScreen := nil.
+LastActiveScreen := nil.
-	LastActiveProcess := nil.
+LastActiveProcess := nil.
 ].
 "/ tell all of my views about this.
 "/ first, all topViews get a notification ...
 self allViews do:[:aView |
-	|wg sensor|
+|wg sensor|
-	aView isTopView ifTrue:[
+aView isTopView ifTrue:[
-	    "/ notice: we must manually wakeup the
+"/ notice: we must manually wakeup the
-	    "/ windowGroup process here (it might be waiting on
+"/ windowGroup process here (it might be waiting on
-	    "/ an event, and the destroy below is executed by
+"/ an event, and the destroy below is executed by
-	    "/ another thread.
+"/ another thread.
-	    "/ Otherwise, the windowGroup process would
+"/ Otherwise, the windowGroup process would
-	    "/ not terminate itself in this case.
+"/ not terminate itself in this case.
-	    (wg := aView windowGroup) notNil ifTrue:[
+(wg := aView windowGroup) notNil ifTrue:[
-		sensor := wg sensor
+sensor := wg sensor
-	    ].
+].
-	    aView destroyed.
+aView destroyed.
-	    sensor notNil ifTrue:[
+sensor notNil ifTrue:[
-		sensor eventSemaphore signal.
+sensor eventSemaphore signal.
-	    ].
+].
-	]
+]
 ].
 self releaseDeviceResources.
 "Modified: / 19.1.2000 / 10:36:02 / cg"
 exitOnLastClose:aBoolean
 "set/clear the flag which controls if the
 event dispatching should stop when the last view is closed."
 self == Display ifTrue:[
-	ExitOnLastClose := aBoolean
+ExitOnLastClose := aBoolean
 ].
 exitOnLastClose := aBoolean
 "Modified: 23.4.1996 / 22:01:28 / cg"
 !
 initialize
 "initialize the receiver for a connection to the default display"
 idToTableIndexMapping notNil ifTrue:[
-	"/ assume, I am already initialized ...
+"/ assume, I am already initialized ...
-	^ self.
+^ self.
 ].
 idToTableIndexMapping := Dictionary new:100.
 ^ self initializeFor:nil
 initializeDeviceResources
 "initialize heavily used device resources - to avoid looking them up later"
 blackColor isNil ifTrue:[
-	blackColor := Color black onDevice:self.
+blackColor := Color black onDevice:self.
-	whiteColor := Color white onDevice:self.
+whiteColor := Color white onDevice:self.
-	Color getPrimaryColorsOn:self.
+Color getPrimaryColorsOn:self.
 ]
 "Modified: 24.2.1997 / 22:07:50 / cg"
 !
 Here, an empty (no-translation) keyboard map is setup initially;
 this is usually filled via the keyboard.rc startup file.
 "
 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 := fixGrayColors := ditherColors := nil.
 numFixRed := numFixGreen := numFixBlue := 0.
 initializeViewStyle
 "late viewStyle init - if no viewStyle has been read yet."
 View styleSheet isNil ifTrue:[
-	CurrentScreenQuerySignal answer:self do:[
+CurrentScreenQuerySignal answer:self do:[
-	    View readStyleSheetAndUpdateAllStyleCaches
+View readStyleSheetAndUpdateAllStyleCaches
-	]
+]
 ].
 !
 invalidateConnection
 "clear my connection handle - sent after an imageRestart to
 "reinit after snapin"
 |prevKnownViews prevMapping prevWidth prevHeight|
 blackColor notNil ifTrue:[
-	blackColor releaseFromDevice.
+blackColor releaseFromDevice.
 ].
 whiteColor notNil ifTrue:[
-	whiteColor releaseFromDevice.
+whiteColor releaseFromDevice.
 ].
 self releaseDeviceFonts.
 self releaseDeviceCursors.
 self releaseDeviceColors.
 Color flushDeviceColorsFor:self.
 lastId := nil.
 lastView := nil.
 self initializeFor:nil.
 displayId isNil ifTrue:[
-	'DevWorkstation [error]: could not connect to display' errorPrintCR.
+'DevWorkstation [error]: could not connect to display' errorPrintCR.
-	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"
-		UserInterruptSignal catch:[
+UserInterruptSignal catch:[
-		    AbortSignal catch:[
+AbortSignal catch:[
-			GraphicsContext drawingOnClosedDrawableSignal handle:[:ex |
+GraphicsContext drawingOnClosedDrawableSignal handle:[:ex |
-			    'DeviceWorkstation [warning]: drawing attempt on closed drawable during reinit' errorPrintCR.
+'DeviceWorkstation [warning]: drawing attempt on closed drawable during reinit' errorPrintCR.
-			    ex return
+ex return
-			] do:[
+] do:[
-			    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: / 7.6.1998 / 02:45:13 / cg"
 !
 "release any cached device resources.
 This is invoked when closed or when the display connection is broken
 (i.e. be prepared to not be able to release resources regularily)"
 blackColor notNil ifTrue:[
-	blackColor releaseFromDevice.
+blackColor releaseFromDevice.
 ].
 whiteColor notNil ifTrue:[
-	whiteColor releaseFromDevice.
+whiteColor releaseFromDevice.
 ].
 LastActiveScreen == self ifTrue:[
-	LastActiveScreen := nil.
+LastActiveScreen := nil.
-	LastActiveProcess := nil.
+LastActiveProcess := nil.
 ].
 blackColor := whiteColor := nil.
 Image releaseResourcesOnDevice:self.
 root clippedByChildren:false.
 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.
-	prevGrab := activePointerGrab.
+prevGrab := activePointerGrab.
-	self grabPointerInView:root withCursor:curs.
+self grabPointerInView:root withCursor:curs.
-	[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:[
-		Delay waitForSeconds:0.05
+Delay waitForSeconds:0.05
-	    ]
+]
-	].
+].
-	root displayRectangle:rect.
+root displayRectangle:rect.
 ].
 self ungrabPointer.
 prevGrab notNil ifTrue:[
-	self grabPointerInView:prevGrab.
+self grabPointerInView:prevGrab.
 ].
 "flush all events pending on my display"
 root clippedByChildren:true.
 p := self pointerPosition.
 self ungrabPointer.
 prevGrab notNil ifTrue:[
-	self grabPointerInView:prevGrab
+self grabPointerInView:prevGrab
 ].
 "flush all events pending on myself"
 self disposeButtonEventsFor:nil.
 ^ p
 "/ events being sent to applications under the mouse.
 "/ on windows displays.
 doRegrab := self class ~~ WinWorkstation.
 keepExtent ifTrue:[
-	curs1 := Cursor origin
+curs1 := Cursor origin
 ] ifFalse:[
-	curs1 := Cursor corner
+curs1 := Cursor corner
 ].
 curs1 := curs1 onDevice:self.
 root := self rootView.
 "
 root clippedByChildren:false.
 root foreground:blackColor background:whiteColor.
 root xoring:[
-	|left right top bottom newOrigin newCorner p curs|
+|left right top bottom newOrigin newCorner p curs|
-	keepExtent ifFalse:[
+keepExtent ifFalse:[
-	    corner := origin.
+corner := origin.
-	    rect := origin corner:corner.
+rect := origin corner:corner.
-	    root displayRectangle:rect.
+root displayRectangle:rect.
-	].
+].
-	prevGrab := activePointerGrab.
+prevGrab := activePointerGrab.
-	self grabPointerInView:root withCursor:curs1.
+self grabPointerInView:root withCursor:curs1.
-	"
+"
-	 just in case; wait for button to be down ...
+just in case; wait for button to be down ...
-	"
+"
-	[self leftButtonPressed] whileFalse:[Delay waitForSeconds:0.05].
+[self leftButtonPressed] whileFalse:[Delay waitForSeconds:0.05].
-	keepExtent ifTrue:[
+keepExtent ifTrue:[
-	    p := self pointerPosition.
+p := self pointerPosition.
-	    origin := p.
+origin := p.
-	    corner := origin + initialRectangle extent.
+corner := origin + initialRectangle extent.
-	    rect := origin corner:corner.
+rect := origin corner:corner.
-	    root displayRectangle:rect.
+root displayRectangle:rect.
-	].
+].
-	[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.
-	    keepExtent ifTrue:[
+keepExtent ifTrue:[
-		newOrigin := p.
+newOrigin := p.
-		newCorner := newOrigin + initialRectangle extent.
+newCorner := newOrigin + initialRectangle extent.
-		curs := curs1.
+curs := curs1.
-	    ] ifFalse:[
+] ifFalse:[
-		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.
-		doRegrab ifTrue:[
+doRegrab ifTrue:[
-		    self grabPointerInView:root withCursor:curs1.
+self grabPointerInView:root withCursor:curs1.
-		].
+].
-		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:[
-		Delay waitForSeconds:0.05
+Delay waitForSeconds:0.05
-	    ]
+]
-	].
+].
-	root displayRectangle:rect.
+root displayRectangle:rect.
 ].
 self ungrabPointer.
 prevGrab notNil ifTrue:[
-	self grabPointerInView:prevGrab
+self grabPointerInView:prevGrab
 ].
 "flush all events pending on my display"
 root clippedByChildren:true.
 |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
-	]
+]
 ].
 "/ temporary kludge ...
 (modifiers size > 0) ifTrue:[
-	(modifiers includes:'Num_Lock') ifTrue:[
+(modifiers includes:'Num_Lock') ifTrue:[
-	    modifiers := modifiers copy.
+modifiers := modifiers copy.
-	    modifiers remove:'Num_Lock'
+modifiers remove:'Num_Lock'
-	]
+]
 ].
 (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: / 7.2.1998 / 16:18:17 / 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"
 "/ translate via keyboardMap
 xlatedKey := aView keyboardMap valueFor:xlatedKey.
 xlatedKey isCharacter ifFalse:[
-	xlatedKey := xlatedKey asSymbol
+xlatedKey := xlatedKey asSymbol
 ].
 ^ xlatedKey
 "Modified: 28.2.1996 / 17:12:16 / cg"
 ! !
 "{ Pragma: +optSpace }"
 "output an audible beep or bell"
 UserPreferences current beepEnabled ifTrue:[
-	Stdout nextPut:(Character bell)
+Stdout nextPut:(Character bell)
 ]
 "Modified: / 13.1.1997 / 22:56:13 / cg"
 "Modified: / 3.12.1999 / 17:13:52 / ps"
 !
 bytesPerLineGiven == bytesPerLineWanted ifTrue:[^ givenBits].
 newBits := ByteArray new:(bytesPerLineWanted * height).
 srcIndex := dstIndex := 1.
 1 to:height do:[:row |
-	newBits
+newBits
-	    replaceFrom:dstIndex
+replaceFrom:dstIndex
-	    to:(dstIndex + bytesPerLineWanted - 1)
+to:(dstIndex + bytesPerLineWanted - 1)
-	    with:givenBits
+with:givenBits
-	    startingAt:srcIndex.
+startingAt:srcIndex.
-	dstIndex := dstIndex + bytesPerLineWanted.
+dstIndex := dstIndex + bytesPerLineWanted.
-	srcIndex := srcIndex + bytesPerLineGiven.
+srcIndex := srcIndex + bytesPerLineGiven.
 ].
 ^ newBits.
 !
 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 isStringCollection) ifTrue:[
+(o isStringCollection) ifTrue:[
-		s := o asStringWithCRsFrom:1 to:(o size) compressTabs:false withCR:false.
+o := o collect:[:each| each isNil ifTrue:[nil] ifFalse:[each string]].
-		s := s string.
+s := o asStringWithCRsFrom:1 to:(o size) compressTabs:false withCR:false.
-	    ] ifFalse:[
+s := s string.
-		Object recursiveStoreStringSignal handle:[:ex |
+] ifFalse:[
-		   s := ''
+Object recursiveStoreStringSignal handle:[:ex |
-		] do:[
+s := ''
-		   s := o storeString
+] do:[
-		]
+s := o storeString
-	    ]
+]
-	]
+]
+]
 ].
 ^ s
 "Created: / 13.2.1997 / 13:10:30 / cg"
 "Modified: / 20.1.1998 / 14:11:01 / stefan"
 This allows for empty values in style sheets, and defaults
 being provided by the display (which makes sense with Windows,
 where the systemDefaults are used ..."
 <resource: #style (#viewSpacing
-		       #borderColor #borderWidth
+#borderColor #borderWidth
-		       #viewBackgroundColor #shadowColor #lightColor
+#viewBackgroundColor #shadowColor #lightColor
-		      )>
+)>
 aKey == #viewSpacing ifTrue:[
-	^ self verticalPixelPerMillimeter rounded       "/ 1 millimeter
+^ self verticalPixelPerMillimeter rounded       "/ 1 millimeter
 ].
 aKey == #borderColor ifTrue:[
-	^ Color black
+^ Color black
 ].
 aKey == #borderWidth ifTrue:[
-	^ 1
+^ 1
 ].
 aKey == #shadowColor ifTrue:[
-	^ Color black
+^ Color black
 ].
 aKey == #lightColor ifTrue:[
-	^ Color white
+^ Color white
 ].
 aKey == #viewBackgroundColor ifTrue:[
-	^ Color white
+^ Color white
 ].
 aKey == #scrollerViewBackgroundColor ifTrue:[
-	^ Color white
+^ Color white
 ].
 aKey == #textForegroundColor ifTrue:[
-	^ Color black.
+^ Color black.
 ].
 aKey == #textBackgroundColor ifTrue:[
-	^ Color white.
+^ Color white.
 ].
 aKey == #selectionForegroundColor ifTrue:[
-	^ Color white.
+^ Color white.
 ].
 aKey == #selectionBackgroundColor ifTrue:[
-	^ Color black.
+^ Color black.
 ].
 ^ nil.
 "Modified: 29.4.1997 / 11:16:57 / dq"
 |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:[
-		"/ mhmh - the view is already clear in the weakArray
+"/ mhmh - the view is already clear in the weakArray
-		"/ but the id is not.
+"/ but the id is not.
-		"/ (i.e. its collected, but not yet finalized)
+"/ (i.e. its collected, but not yet finalized)
-		"/ skip this entry.
+"/ skip this entry.
-		"/ '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
 "/    ].
 |index wasBlocked nV nI n dstIdx v id newSize|
 lastId := nil.
 lastView := nil.
 focusView == aView ifTrue:[
-	focusView := nil
+focusView := 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.
-			    ].
+].
-			].
+].
-			idToTableIndexMapping := nil.
+idToTableIndexMapping := nil.
-			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
-	    ].
+].
-	]
+]
 ].
 knownIds isNil ifTrue:[
-	^ nil
+^ nil
 ].
 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"
 "/ OBSOLETE interface - this looses the minExtent/maxExtent properties
 "/ use mapView:...minWidth:minHeight:maxWidth:maxHeight:
 ^ self
-	mapView:aView id:aWindowId iconified:aBoolean atX:xPos y:yPos
+mapView:aView id:aWindowId iconified:aBoolean atX:xPos y:yPos
-	width:w height:h minExtent:nil maxExtent:nil
+width:w height:h minExtent:nil maxExtent:nil
 !
 mapView:aView id:aWindowId iconified:aBoolean atX:xPos y:yPos
-	width:w height:h minExtent:minExt maxExtent:maxExt
+width:w height:h minExtent:minExt maxExtent:maxExt
 "make a window visible - either as icon or as a real view - needed for restart"
 ^ self subclassResponsibility
 "Modified: 24.4.1996 / 19:43:17 / 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.
 aCursor isNil ifTrue:[^ self].
 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.
 setWindowIcon:aForm in:aWindowId
 "define a bitmap to be used as icon"
 self
-	setWindowIcon:aForm
+setWindowIcon:aForm
-	mask:nil
+mask:nil
-	in:aWindowId
+in:aWindowId
 !
 setWindowIcon:aForm mask:aMaskForm in:aWindowId
 "set a windows icon & iconMask"
 nil arguments are ignored."
 |minW minH maxW maxH|
 minExt notNil ifTrue:[
-	minW := minExt x.
+minW := minExt x.
-	minH := minExt y.
+minH := minExt y.
 ].
 maxExt notNil ifTrue:[
-	maxW := maxExt x.
+maxW := maxExt x.
-	maxH := maxExt y.
+maxH := maxExt y.
 ].
 self setWindowMinExtentX:minW y:minH maxExtentX:maxW y:maxH in:aWindowId
 !
 setWindowMinExtentX:minW y:minH maxExtentX:maxW y:maxH in:aWindowId
 ! !
 !DeviceWorkstation class methodsFor:'documentation'!
 version
-^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.389 2001-01-08 17:33:01 cg Exp $'
+^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.390 2001-01-09 16:03:56 penk Exp $'
 ! !
 DeviceWorkstation initialize!

changeset 3397	55d7642b74f6
parent 3396	18f99e9fc5ec
child 3398	763d33dbd23a