--- a/DevWorkst.st	Mon Jan 27 18:58:38 1997 +0100
+++ b/DevWorkst.st	Mon Jan 27 18:59:25 1997 +0100
@@ -10,8 +10,8 @@
  hereby transferred.
 "
 
-Object subclass:#DeviceWorkstation
-	instanceVariableNames:'displayId visualType monitorType depth ncells bitsPerRGB bitsRed
+HostGraphicsDevice subclass:#DeviceWorkstation
+	instanceVariableNames:'monitorType depth ncells bitsPerRGB bitsRed
 		bitsGreen bitsBlue redMask greenMask blueMask redShift greenShift
 		blueShift hasColors hasGreyscales width height widthMM heightMM
 		resolutionHor resolutionVer idToViewMapping knownViews knownIds
@@ -5060,6 +5060,6 @@
 !DeviceWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Attic/DevWorkst.st,v 1.169 1997-01-27 17:29:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Attic/DevWorkst.st,v 1.170 1997-01-27 17:59:25 cg Exp $'
 ! !
 DeviceWorkstation initialize!