--- a/DevWorkst.st	Tue Jan 02 15:02:49 1996 +0100
+++ b/DevWorkst.st	Tue Jan 02 15:09:28 1996 +0100
@@ -949,6 +949,16 @@
     "
 !
 
+iconSizes
+    "Get the preferrer icon sizes. These are typically set by the window manager.
+     We return nil here (as if there are no special size preferences)."
+
+    ^ nil
+
+    "Created: 2.1.1996 / 15:08:16 / cg"
+    "Modified: 2.1.1996 / 15:09:06 / cg"
+!
+
 ignoreBackingStore:aBoolean
     "if the argument is true, the views backingStore setting will be ignored, and
      no backing store used - this can be used on servers where backing store is
@@ -3706,6 +3716,6 @@
 !DeviceWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Attic/DevWorkst.st,v 1.61 1996-01-02 14:02:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Attic/DevWorkst.st,v 1.62 1996-01-02 14:09:28 cg Exp $'
 ! !
 DeviceWorkstation initialize!

--- a/DeviceWorkstation.st	Tue Jan 02 15:02:49 1996 +0100
+++ b/DeviceWorkstation.st	Tue Jan 02 15:09:28 1996 +0100
@@ -949,6 +949,16 @@
     "
 !
 
+iconSizes
+    "Get the preferrer icon sizes. These are typically set by the window manager.
+     We return nil here (as if there are no special size preferences)."
+
+    ^ nil
+
+    "Created: 2.1.1996 / 15:08:16 / cg"
+    "Modified: 2.1.1996 / 15:09:06 / cg"
+!
+
 ignoreBackingStore:aBoolean
     "if the argument is true, the views backingStore setting will be ignored, and
      no backing store used - this can be used on servers where backing store is
@@ -3706,6 +3716,6 @@
 !DeviceWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.61 1996-01-02 14:02:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.62 1996-01-02 14:09:28 cg Exp $'
 ! !
 DeviceWorkstation initialize!