--- 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!