Mercurial Mercurial > hg > stx-libview / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
inserted dummy abstract classes for ST-80 compatible subclassing
authorClaus Gittinger <cg@exept.de>
Mon, 27 Jan 1997 18:59:25 +0100
changeset 1286 f7c2ac67388b
parent 1285 480d1ecb9d61
child 1287 fdb9f015bf0f
inserted dummy abstract classes for ST-80 compatible subclassing
DevWorkst.st file | annotate | diff | comparison | revisions
DeviceWorkstation.st file | annotate | diff | comparison | revisions 
--- 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!
--- a/DeviceWorkstation.st	Mon Jan 27 18:58:38 1997 +0100
+++ b/DeviceWorkstation.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/DeviceWorkstation.st,v 1.169 1997-01-27 17:29:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.170 1997-01-27 17:59:25 cg Exp $'
 ! !
 DeviceWorkstation initialize!
hg/stx-libview