# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 834431814 -7200
# Node ID fd619cf59d6142e7f9cf2aa0745bcc0317ed0ff4
# Parent  6576c8242e5dad5ed6a0551aae8ce2eddfda8790
checkin from browser

diff -r 6576c8242e5d -r fd619cf59d61 DevWorkst.st
--- a/DevWorkst.st	Mon Jun 10 20:34:15 1996 +0200
+++ b/DevWorkst.st	Mon Jun 10 20:36:54 1996 +0200
@@ -1147,14 +1147,39 @@
 
 supportsDeepIcons
     "return true, if this device supports non b&w (i.e. greyScale
-     or colored icons). We really dont know here."
-
-    "This method has to be reimplemented in concrete display classes."
-    ^ self subclassResponsibility
+     or colored icons). Many Xservers (and/or windowManagers) crash,
+     if you pass them a deep form as icon; therefore, the default is false.
+     It may be a good idea to check for the server vendor/release and
+     return true sometimes.
+     This flag can be set with #supportsDeepIcons:"
+
+    ^ supportsDeepIcons
+
+    "
+     Display supportsDeepIcons:true 
+
+     |v|
+
+     v := StandardSystemView new.
+     v icon:((Image fromFile:'bitmaps/claus.gif') magnifiedTo:68@68).
+     v open.
+    "
+
+    "Modified: 10.6.1996 / 20:11:48 / cg"
+!
+
+supportsDeepIcons:yesOrNo
+    "set/clear the supportsDeepIcons flag.
+     Many Xservers (and/or windowManagers) crash,
+     if you pass them a deep form as icon; therefore, the default is false."
+
+    supportsDeepIcons := yesOrNo
 
     "
      Display supportsDeepIcons 
     "
+
+    "Created: 10.6.1996 / 19:36:19 / cg"
 !
 
 supportsGLDrawing
@@ -4169,6 +4194,6 @@
 !DeviceWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Attic/DevWorkst.st,v 1.98 1996-06-10 17:31:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Attic/DevWorkst.st,v 1.99 1996-06-10 18:36:54 cg Exp $'
 ! !
 DeviceWorkstation initialize!
diff -r 6576c8242e5d -r fd619cf59d61 DeviceWorkstation.st
--- a/DeviceWorkstation.st	Mon Jun 10 20:34:15 1996 +0200
+++ b/DeviceWorkstation.st	Mon Jun 10 20:36:54 1996 +0200
@@ -1147,14 +1147,39 @@
 
 supportsDeepIcons
     "return true, if this device supports non b&w (i.e. greyScale
-     or colored icons). We really dont know here."
-
-    "This method has to be reimplemented in concrete display classes."
-    ^ self subclassResponsibility
+     or colored icons). Many Xservers (and/or windowManagers) crash,
+     if you pass them a deep form as icon; therefore, the default is false.
+     It may be a good idea to check for the server vendor/release and
+     return true sometimes.
+     This flag can be set with #supportsDeepIcons:"
+
+    ^ supportsDeepIcons
+
+    "
+     Display supportsDeepIcons:true 
+
+     |v|
+
+     v := StandardSystemView new.
+     v icon:((Image fromFile:'bitmaps/claus.gif') magnifiedTo:68@68).
+     v open.
+    "
+
+    "Modified: 10.6.1996 / 20:11:48 / cg"
+!
+
+supportsDeepIcons:yesOrNo
+    "set/clear the supportsDeepIcons flag.
+     Many Xservers (and/or windowManagers) crash,
+     if you pass them a deep form as icon; therefore, the default is false."
+
+    supportsDeepIcons := yesOrNo
 
     "
      Display supportsDeepIcons 
     "
+
+    "Created: 10.6.1996 / 19:36:19 / cg"
 !
 
 supportsGLDrawing
@@ -4169,6 +4194,6 @@
 !DeviceWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.98 1996-06-10 17:31:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.99 1996-06-10 18:36:54 cg Exp $'
 ! !
 DeviceWorkstation initialize!