icon resource
authorClaus Gittinger <cg@exept.de>
Mon, 17 Sep 2007 11:36:13 +0200
changeset 4800 bab1343e2fa3
parent 4799 b91607dae5bb
child 4801 bfca038bcf44
icon resource
StandardSystemView.st
--- a/StandardSystemView.st	Wed Sep 12 12:37:45 2007 +0200
+++ b/StandardSystemView.st	Mon Sep 17 11:36:13 2007 +0200
@@ -359,6 +359,7 @@
 defaultIcon
     "return a topViews default window icon"
 
+    <resource: #programImage>
     <resource: #style (#ICON #ICON_FILE)>
 
     |n nm i|
@@ -390,7 +391,7 @@
      self defaultIcon inspect
     "
 
-    "Modified: / 25.5.1999 / 15:36:49 / cg"
+    "Modified: / 17-09-2007 / 11:36:25 / cg"
 !
 
 defaultLabel
@@ -1597,7 +1598,7 @@
 !StandardSystemView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/StandardSystemView.st,v 1.172 2007-03-02 15:02:58 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/StandardSystemView.st,v 1.173 2007-09-17 09:36:13 cg Exp $'
 ! !
 
 StandardSystemView initialize!