--- a/DeviceWorkstation.st	Wed Feb 15 11:36:19 1995 +0100
+++ b/DeviceWorkstation.st	Thu Feb 16 04:07:02 1995 +0100
@@ -34,7 +34,7 @@
 COPYRIGHT (c) 1993 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.24 1995-02-08 03:18:30 claus Exp $
+$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.25 1995-02-16 03:06:44 claus Exp $
 '!
 
 !DeviceWorkstation class methodsFor:'documentation'!
@@ -55,7 +55,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.24 1995-02-08 03:18:30 claus Exp $
+$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.25 1995-02-16 03:06:44 claus Exp $
 "
 !
 
@@ -447,23 +447,30 @@
     ^ nil
 !
 
+platformName
+    "return a string describing the display systems platform.
+     Returns a dummy here."
+
+    ^ 'unknown'
+!
+
 serverVendor
-    "return a string describing the server vendor
-     - returns a dummy here"
+    "return a string describing the display systems server vendor.
+     Returns a dummy here"
 
     ^ 'generic'
 !
 
 vendorRelease
-    "return a workstation release number
-     - returns a dummy here"
+    "return the display systems release number.
+     Returns a dummy here."
 
     ^ 0
 !
 
 protocolVersion
-    "return a protocol version number
-     - returns a dummy here"
+    "return the display systems protocol version number.
+     Returns a dummy here"
 
     ^ 0
 !