--- a/TabulatorSpecification.st	Fri Feb 09 22:50:11 1996 +0100
+++ b/TabulatorSpecification.st	Thu Feb 22 21:49:59 1996 +0100
@@ -11,10 +11,10 @@
 "
 
 Object subclass:#TabulatorSpecification
-	 instanceVariableNames:'tabUnit unitReference tabPositions tabTypes'
-	 classVariableNames:''
-	 poolDictionaries:''
-	 category:'Views-Support'
+	instanceVariableNames:'tabUnit unitReference tabPositions tabTypes'
+	classVariableNames:''
+	poolDictionaries:''
+	category:'Views-Support'
 !
 
 !TabulatorSpecification class methodsFor:'documentation'!
@@ -296,32 +296,38 @@
 !TabulatorSpecification methodsFor:'queries'!
 
 pixelsPerUnitOn:aGC
+    |device mm|
+
     "
      return the number of device pixels one unit of my tabs
      takes on aGC
     "
     tabUnit isNil ifTrue:[
-	tabUnit := #col
+        tabUnit := #col
     ].
     tabUnit == #relative ifTrue:[
-	^ unitReference width
+        ^ unitReference width
     ].
     tabUnit == #col ifTrue:[
-	^ aGC font width
+        ^ aGC font width
     ].
+    device := aGC device.
     tabUnit == #inch ifTrue:[
-	^ aGC device horizontalPixelPerInch
+        ^ device horizontalPixelPerInch
     ].
+    mm := device horizontalPixelPerMillimeter.
     tabUnit == #mm ifTrue:[
-	^ aGC device horizontalPixelPerMillimeter
+        ^ mm
     ].
     tabUnit == #cm ifTrue:[
-	^ aGC device horizontalPixelPerMillimeter * 10
+        ^ mm * 10
     ].
     "
      assume pixels
     "
     ^ 1.
+
+    "Modified: 22.2.1996 / 16:48:44 / cg"
 !
 
 positionOfTab:index forString:aString on:aGC
@@ -382,5 +388,5 @@
 !TabulatorSpecification class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/TabulatorSpecification.st,v 1.8 1995-11-23 18:09:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/TabulatorSpecification.st,v 1.9 1996-02-22 20:49:59 cg Exp $'
 ! !