--- 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!
--- 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!