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.
lazy initialization of Icons
authorClaus Gittinger <cg@exept.de>
Mon, 05 May 1997 09:39:56 +0200
changeset 1178 f5f4d0c605db
parent 1177 9da32ab06646
child 1179 e927f0c09298
lazy initialization of Icons
FBrowser.st file | annotate | diff | comparison | revisions
FileBrowser.st file | annotate | diff | comparison | revisions 
--- a/FBrowser.st	Thu May 01 13:27:12 1997 +0200
+++ b/FBrowser.st	Mon May 05 09:39:56 1997 +0200
@@ -116,7 +116,7 @@
 
 !FileBrowser class methodsFor:'class initialization'!
 
-initialize
+initializeIcons
     Icons := IdentityDictionary new.
 
     #(
@@ -134,10 +134,11 @@
     ]
 
     "
-     self initialize
+     self initializeIcons
     "
 
     "Modified: 18.4.1997 / 15:09:53 / cg"
+    "Created: 5.5.1997 / 09:39:01 / cg"
 ! !
 
 !FileBrowser class methodsFor:'command history'!
@@ -3109,6 +3110,9 @@
 
     i := icons at:key ifAbsent:nil.
     i isNil ifTrue:[
+        Icons isNil ifTrue:[
+            self class initializeIcons
+        ].
         i := Icons at:key ifAbsent:nil.
         i notNil ifTrue:[
             i := i on:device.
@@ -3117,7 +3121,7 @@
     ].
     ^ i
 
-    "Modified: 18.4.1997 / 15:18:38 / cg"
+    "Modified: 5.5.1997 / 09:38:48 / cg"
 !
 
 stopUpdateProcess
@@ -3500,6 +3504,5 @@
 !FileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/FBrowser.st,v 1.157 1997-04-30 10:32:47 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/FBrowser.st,v 1.158 1997-05-05 07:39:56 cg Exp $'
 ! !
-FileBrowser initialize!
--- a/FileBrowser.st	Thu May 01 13:27:12 1997 +0200
+++ b/FileBrowser.st	Mon May 05 09:39:56 1997 +0200
@@ -116,7 +116,7 @@
 
 !FileBrowser class methodsFor:'class initialization'!
 
-initialize
+initializeIcons
     Icons := IdentityDictionary new.
 
     #(
@@ -134,10 +134,11 @@
     ]
 
     "
-     self initialize
+     self initializeIcons
     "
 
     "Modified: 18.4.1997 / 15:09:53 / cg"
+    "Created: 5.5.1997 / 09:39:01 / cg"
 ! !
 
 !FileBrowser class methodsFor:'command history'!
@@ -3109,6 +3110,9 @@
 
     i := icons at:key ifAbsent:nil.
     i isNil ifTrue:[
+        Icons isNil ifTrue:[
+            self class initializeIcons
+        ].
         i := Icons at:key ifAbsent:nil.
         i notNil ifTrue:[
             i := i on:device.
@@ -3117,7 +3121,7 @@
     ].
     ^ i
 
-    "Modified: 18.4.1997 / 15:18:38 / cg"
+    "Modified: 5.5.1997 / 09:38:48 / cg"
 !
 
 stopUpdateProcess
@@ -3500,6 +3504,5 @@
 !FileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.157 1997-04-30 10:32:47 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.158 1997-05-05 07:39:56 cg Exp $'
 ! !
-FileBrowser initialize!
hg/stx-libtool