Mercurial Mercurial > hg > stx-libtool / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fixed icon
authorClaus Gittinger <cg@exept.de>
Fri, 15 Aug 1997 15:30:26 +0200
changeset 1288 9f6e0e8c3ab8
parent 1287 93e2021e4ac8
child 1289 9b84a29da934
fixed icon
BrowserView.st file | annotate | diff | comparison | revisions
BrwsrView.st file | annotate | diff | comparison | revisions 
--- a/BrowserView.st	Fri Aug 15 15:28:36 1997 +0200
+++ b/BrowserView.st	Fri Aug 15 15:30:26 1997 +0200
@@ -114,14 +114,14 @@
 defaultIcon
     "return the browsers default window icon"
 
-    <resource: #style (#ICON #ICON_FILE)>
+    <resource: #style (#SYSTEMBROWSER_ICON #SYSTEMBROWSER_ICON_FILE)>
 
     |nm i|
 
     (i := DefaultIcon) isNil ifTrue:[
-        i := self classResources at:'ICON' default:nil.
+        i := self classResources at:'SYSTEMBROWSER_ICON' default:nil.
         i isNil ifTrue:[
-            nm := ClassResources at:'ICON_FILE' default:'SBrowser.xbm'.
+            nm := ClassResources at:'SYSTEMBROWSER_ICON_FILE' default:'SBrowser.xbm'.
             i := Image fromFile:nm resolution:100.
             i isNil ifTrue:[
                 i := Image fromFile:('bitmaps/' , nm) resolution:100.
@@ -137,7 +137,7 @@
     ^ i
 
     "Modified: 19.3.1997 / 20:48:34 / ca"
-    "Modified: 18.4.1997 / 15:16:21 / cg"
+    "Modified: 15.8.1997 / 15:29:16 / cg"
 !
 
 stopIcon
@@ -10520,6 +10520,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.331 1997-08-13 13:22:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.332 1997-08-15 13:30:26 cg Exp $'
 ! !
 BrowserView initialize!
--- a/BrwsrView.st	Fri Aug 15 15:28:36 1997 +0200
+++ b/BrwsrView.st	Fri Aug 15 15:30:26 1997 +0200
@@ -114,14 +114,14 @@
 defaultIcon
     "return the browsers default window icon"
 
-    <resource: #style (#ICON #ICON_FILE)>
+    <resource: #style (#SYSTEMBROWSER_ICON #SYSTEMBROWSER_ICON_FILE)>
 
     |nm i|
 
     (i := DefaultIcon) isNil ifTrue:[
-        i := self classResources at:'ICON' default:nil.
+        i := self classResources at:'SYSTEMBROWSER_ICON' default:nil.
         i isNil ifTrue:[
-            nm := ClassResources at:'ICON_FILE' default:'SBrowser.xbm'.
+            nm := ClassResources at:'SYSTEMBROWSER_ICON_FILE' default:'SBrowser.xbm'.
             i := Image fromFile:nm resolution:100.
             i isNil ifTrue:[
                 i := Image fromFile:('bitmaps/' , nm) resolution:100.
@@ -137,7 +137,7 @@
     ^ i
 
     "Modified: 19.3.1997 / 20:48:34 / ca"
-    "Modified: 18.4.1997 / 15:16:21 / cg"
+    "Modified: 15.8.1997 / 15:29:16 / cg"
 !
 
 stopIcon
@@ -10520,6 +10520,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.331 1997-08-13 13:22:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.332 1997-08-15 13:30:26 cg Exp $'
 ! !
 BrowserView initialize!
hg/stx-libtool