--- a/DeviceWorkstation.st	Mon Nov 25 17:44:37 2013 +0100
+++ b/DeviceWorkstation.st	Mon Nov 25 17:45:15 2013 +0100
@@ -12,40 +12,40 @@
 "{ Package: 'stx:libview' }"
 
 HostGraphicsDevice subclass:#DeviceWorkstation
-        instanceVariableNames:'visualType monitorType depth ncells bitsPerRGB bitsRed bitsGreen
-                bitsBlue redMask greenMask blueMask redShift greenShift blueShift
-                hasColors hasGreyscales width height widthMM heightMM
-                resolutionHor resolutionVer idToTableIndexMapping knownViews
-                knownIds knownBitmaps knownBitmapIds dispatching dispatchProcess
-                exitOnLastClose ctrlDown shiftDown metaDown altDown superDown
-                motionEventCompression lastId lastView keyboardMap rootView
-                isSlow activeKeyboardGrab activePointerGrab buttonTranslation
-                multiClickTimeDelta altModifiers metaModifiers ctrlModifiers
-                shiftModifiers superModifiers buttonModifiers supportsDeepIcons
-                preferredIconSize ditherColors fixColors numFixRed numFixGreen
-                numFixBlue fixGrayColors copyBuffer blackColor whiteColor
-                focusMode activeView clipBoardEncoding maxClipBoardSize focusView
-                deviceErrorSignal deviceIOErrorSignal mayOpenDebugger
-                suppressDebugger eventSema buttonLongPressedHandlerProcess
-                buttonPressTimeForMenu aboutToOpenModalWindowHooks
-                aboutToOpenNonModalWindowHooks'
-        classVariableNames:'ButtonTranslation MultiClickTimeDelta DeviceErrorSignal
-                DeviceOpenErrorSignal DeviceIOErrorSignal
-                DeviceIOTimeoutErrorSignal ErrorPrinting DefaultScreen AllScreens
-                CurrentScreenQuerySignal LastActiveScreen LastActiveProcess
-                WindowsRightButtonBehavior ExitOnLastClose
-                DrawingOnClosedDeviceSignal CopyBufferHistory
-                CopyBufferHistorySize DefaultButtonPressTimeForMenu'
-        poolDictionaries:''
-        category:'Interface-Graphics'
+	instanceVariableNames:'visualType monitorType depth ncells bitsPerRGB bitsRed bitsGreen
+		bitsBlue redMask greenMask blueMask redShift greenShift blueShift
+		hasColors hasGreyscales width height widthMM heightMM
+		resolutionHor resolutionVer idToTableIndexMapping knownViews
+		knownIds knownBitmaps knownBitmapIds dispatching dispatchProcess
+		exitOnLastClose ctrlDown shiftDown metaDown altDown superDown
+		motionEventCompression lastId lastView keyboardMap rootView
+		isSlow activeKeyboardGrab activePointerGrab buttonTranslation
+		multiClickTimeDelta altModifiers metaModifiers ctrlModifiers
+		shiftModifiers superModifiers buttonModifiers supportsDeepIcons
+		preferredIconSize ditherColors fixColors numFixRed numFixGreen
+		numFixBlue fixGrayColors copyBuffer blackColor whiteColor
+		focusMode activeView clipBoardEncoding maxClipBoardSize focusView
+		deviceErrorSignal deviceIOErrorSignal mayOpenDebugger
+		suppressDebugger eventSema buttonLongPressedHandlerProcess
+		buttonPressTimeForMenu aboutToOpenModalWindowHooks
+		aboutToOpenNonModalWindowHooks'
+	classVariableNames:'ButtonTranslation MultiClickTimeDelta DeviceErrorSignal
+		DeviceOpenErrorSignal DeviceIOErrorSignal
+		DeviceIOTimeoutErrorSignal ErrorPrinting DefaultScreen AllScreens
+		CurrentScreenQuerySignal LastActiveScreen LastActiveProcess
+		WindowsRightButtonBehavior ExitOnLastClose
+		DrawingOnClosedDeviceSignal CopyBufferHistory
+		CopyBufferHistorySize DefaultButtonPressTimeForMenu'
+	poolDictionaries:''
+	category:'Interface-Graphics'
 !
 
 Object subclass:#DeviceFontMetrics
-        instanceVariableNames:'encoding ascent descent maxAscent maxDescent minWidth maxWidth
-                averageWidth minCode maxCode direction'
-        classVariableNames:''
-        poolDictionaries:''
-        privateIn:DeviceWorkstation
+	instanceVariableNames:'encoding ascent descent maxAscent maxDescent minWidth maxWidth
+		averageWidth minCode maxCode direction'
+	classVariableNames:''
+	poolDictionaries:''
+	privateIn:DeviceWorkstation
 !
 
 !DeviceWorkstation class methodsFor:'documentation'!
@@ -8150,6 +8150,11 @@
     ^ ascent
 !
 
+ascent:ascentArg descent:descentArg 
+    ascent := ascentArg.
+    descent := descentArg.
+!
+
 ascent:ascentArg descent:descentArg maxAscent:maxAscentArg maxDescent:maxDescentArg minWidth:minWidthArg maxWidth:maxWidthArg avgWidth:avgWidthArg
     "set corresponding instance variables"
 
@@ -8271,11 +8276,11 @@
 !DeviceWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.595 2013-10-30 08:49:34 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.596 2013-11-25 16:45:15 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.595 2013-10-30 08:49:34 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.596 2013-11-25 16:45:15 stefan Exp $'
 ! !