fileOutAll in class-method list (icons)
authorClaus Gittinger <cg@exept.de>
Tue, 25 Nov 1997 16:12:36 +0100
changeset 1375 f9488662030a
parent 1374 b3a1e95a6220
child 1376 30f8625be34b
fileOutAll in class-method list (icons)
BrowserView.st
BrwsrView.st
--- a/BrowserView.st	Thu Nov 20 18:33:12 1997 +0100
+++ b/BrowserView.st	Tue Nov 25 16:12:36 1997 +0100
@@ -5058,7 +5058,11 @@
     ].
     self withBusyCursorDo:[
         list := classMethodListView list.
-        list do:[:line |
+        list do:[:l |
+            |line|
+
+            line := l asString.
+
             self busyLabel:'writing: ' with:line.
 
             classString := self classNameFromClassMethodString:line.
@@ -11161,6 +11165,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.350 1997-11-15 16:22:16 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.351 1997-11-25 15:12:36 cg Exp $'
 ! !
 BrowserView initialize!
--- a/BrwsrView.st	Thu Nov 20 18:33:12 1997 +0100
+++ b/BrwsrView.st	Tue Nov 25 16:12:36 1997 +0100
@@ -5058,7 +5058,11 @@
     ].
     self withBusyCursorDo:[
         list := classMethodListView list.
-        list do:[:line |
+        list do:[:l |
+            |line|
+
+            line := l asString.
+
             self busyLabel:'writing: ' with:line.
 
             classString := self classNameFromClassMethodString:line.
@@ -11161,6 +11165,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.350 1997-11-15 16:22:16 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.351 1997-11-25 15:12:36 cg Exp $'
 ! !
 BrowserView initialize!