# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 925230677 -7200
# Node ID 67083916cc02152f4ad0f0f4c0d87cc259c2f70a
# Parent  468fd4d21d465cbf3a6eae6aa5bf007f67578433
checkin from browser

diff -r 468fd4d21d46 -r 67083916cc02 BrowserView.st
--- a/BrowserView.st	Tue Apr 27 18:29:19 1999 +0200
+++ b/BrowserView.st	Tue Apr 27 18:31:17 1999 +0200
@@ -189,12 +189,13 @@
 
     <resource: #style (#SYSTEMBROWSER_ICON #SYSTEMBROWSER_ICON_FILE)>
 
-    |nm i|
+    |nm i resources|
 
     (i := DefaultIcon) isNil ifTrue:[
-        i := self classResources at:'SYSTEMBROWSER_ICON' default:nil.
+        resources := self classResources.
+        i := resources at:'SYSTEMBROWSER_ICON' default:nil.
         i isNil ifTrue:[
-            nm := ClassResources at:'SYSTEMBROWSER_ICON_FILE' default:'SBrowser.xbm'.
+            nm := resources at:'SYSTEMBROWSER_ICON_FILE' default:'SBrowser.xbm'.
             i := Image fromFile:nm resolution:100.
             i isNil ifTrue:[
                 i := Image fromFile:('bitmaps/' , nm) resolution:100.
@@ -209,8 +210,8 @@
     ].
     ^ i
 
-    "Modified: 19.3.1997 / 20:48:34 / ca"
-    "Modified: 15.8.1997 / 15:29:16 / cg"
+    "Modified: / 19.3.1997 / 20:48:34 / ca"
+    "Modified: / 27.4.1999 / 17:16:24 / cg"
 !
 
 fileImageIcon
@@ -13503,6 +13504,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.498 1999-04-24 20:38:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.499 1999-04-27 16:31:17 cg Exp $'
 ! !
 BrowserView initialize!
diff -r 468fd4d21d46 -r 67083916cc02 BrwsrView.st
--- a/BrwsrView.st	Tue Apr 27 18:29:19 1999 +0200
+++ b/BrwsrView.st	Tue Apr 27 18:31:17 1999 +0200
@@ -189,12 +189,13 @@
 
     <resource: #style (#SYSTEMBROWSER_ICON #SYSTEMBROWSER_ICON_FILE)>
 
-    |nm i|
+    |nm i resources|
 
     (i := DefaultIcon) isNil ifTrue:[
-        i := self classResources at:'SYSTEMBROWSER_ICON' default:nil.
+        resources := self classResources.
+        i := resources at:'SYSTEMBROWSER_ICON' default:nil.
         i isNil ifTrue:[
-            nm := ClassResources at:'SYSTEMBROWSER_ICON_FILE' default:'SBrowser.xbm'.
+            nm := resources at:'SYSTEMBROWSER_ICON_FILE' default:'SBrowser.xbm'.
             i := Image fromFile:nm resolution:100.
             i isNil ifTrue:[
                 i := Image fromFile:('bitmaps/' , nm) resolution:100.
@@ -209,8 +210,8 @@
     ].
     ^ i
 
-    "Modified: 19.3.1997 / 20:48:34 / ca"
-    "Modified: 15.8.1997 / 15:29:16 / cg"
+    "Modified: / 19.3.1997 / 20:48:34 / ca"
+    "Modified: / 27.4.1999 / 17:16:24 / cg"
 !
 
 fileImageIcon
@@ -13503,6 +13504,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.498 1999-04-24 20:38:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.499 1999-04-27 16:31:17 cg Exp $'
 ! !
 BrowserView initialize!