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.
checkin from browser
authorClaus Gittinger <cg@exept.de>
Tue, 27 Apr 1999 18:31:17 +0200
changeset 2127 67083916cc02
parent 2126 468fd4d21d46
child 2128 dfff36f688d2
checkin from browser
BrowserView.st file | annotate | diff | comparison | revisions
BrwsrView.st file | annotate | diff | comparison | revisions 
--- 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!
--- 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!
hg/stx-libtool