--- a/TabSpec.st	Sun May 26 11:45:46 1996 +0200
+++ b/TabSpec.st	Tue May 28 20:30:44 1996 +0200
@@ -323,7 +323,7 @@
     tabUnit == #col ifTrue:[
         ^ aGC font width
     ].
-    device := aGC device.
+    device := aGC graphicsDevice.
     tabUnit == #inch ifTrue:[
         ^ device horizontalPixelPerInch
     ].
@@ -339,7 +339,7 @@
     "
     ^ 1.
 
-    "Modified: 22.2.1996 / 16:48:44 / cg"
+    "Modified: 28.5.1996 / 20:25:34 / cg"
 !
 
 positionOfTab:index forString:aString on:aGC
@@ -400,5 +400,5 @@
 !TabulatorSpecification class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/Attic/TabSpec.st,v 1.11 1996-04-27 18:22:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/Attic/TabSpec.st,v 1.12 1996-05-28 18:30:44 cg Exp $'
 ! !

--- a/TabulatorSpecification.st	Sun May 26 11:45:46 1996 +0200
+++ b/TabulatorSpecification.st	Tue May 28 20:30:44 1996 +0200
@@ -323,7 +323,7 @@
     tabUnit == #col ifTrue:[
         ^ aGC font width
     ].
-    device := aGC device.
+    device := aGC graphicsDevice.
     tabUnit == #inch ifTrue:[
         ^ device horizontalPixelPerInch
     ].
@@ -339,7 +339,7 @@
     "
     ^ 1.
 
-    "Modified: 22.2.1996 / 16:48:44 / cg"
+    "Modified: 28.5.1996 / 20:25:34 / cg"
 !
 
 positionOfTab:index forString:aString on:aGC
@@ -400,5 +400,5 @@
 !TabulatorSpecification class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/TabulatorSpecification.st,v 1.11 1996-04-27 18:22:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/TabulatorSpecification.st,v 1.12 1996-05-28 18:30:44 cg Exp $'
 ! !