Mercurial Mercurial > hg > stx-libbasic / 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.
.
authorClaus Gittinger <cg@exept.de>
Fri, 27 Oct 1995 16:52:09 +0100
changeset 450 c5c7fd3dac5e
parent 449 7f82d84432aa
child 451 5aab4706f2fd
.
CCReader.st file | annotate | diff | comparison | revisions
ClassCategoryReader.st file | annotate | diff | comparison | revisions 
--- a/CCReader.st	Fri Oct 27 15:39:07 1995 +0100
+++ b/CCReader.st	Fri Oct 27 16:52:09 1995 +0100
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	     All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic/Attic/CCReader.st,v 1.19 1995-09-09 18:32:08 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Attic/CCReader.st,v 1.20 1995-10-27 15:52:09 cg Exp $
 '!
 
 !ClassCategoryReader class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic/Attic/CCReader.st,v 1.19 1995-09-09 18:32:08 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Attic/CCReader.st,v 1.20 1995-10-27 15:52:09 cg Exp $
 "
 !
 
@@ -134,10 +134,15 @@
      and add the methods to the class defined by the class-instance var;
      errors and notifications are passed to requestor"
 
-    |aString done method compiler makeSourceRef sourceFile pos|
+    |aString done method compiler makeSourceRef sourceFile pos nm|
 
     Smalltalk silentLoading ifFalse:[
-	Transcript show:'  '; show:myClass name; show:' -> '; showCr:myCategory.
+	myClass isNil ifTrue:[
+	    nm := '** UndefinedClass **'
+	] ifFalse:[
+	    nm := myClass name
+	].
+	Transcript show:'  '; show:nm; show:' -> '; showCr:myCategory.
     ].
 
     makeSourceRef := false.
--- a/ClassCategoryReader.st	Fri Oct 27 15:39:07 1995 +0100
+++ b/ClassCategoryReader.st	Fri Oct 27 16:52:09 1995 +0100
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	     All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic/ClassCategoryReader.st,v 1.19 1995-09-09 18:32:08 claus Exp $
+$Header: /cvs/stx/stx/libbasic/ClassCategoryReader.st,v 1.20 1995-10-27 15:52:09 cg Exp $
 '!
 
 !ClassCategoryReader class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic/ClassCategoryReader.st,v 1.19 1995-09-09 18:32:08 claus Exp $
+$Header: /cvs/stx/stx/libbasic/ClassCategoryReader.st,v 1.20 1995-10-27 15:52:09 cg Exp $
 "
 !
 
@@ -134,10 +134,15 @@
      and add the methods to the class defined by the class-instance var;
      errors and notifications are passed to requestor"
 
-    |aString done method compiler makeSourceRef sourceFile pos|
+    |aString done method compiler makeSourceRef sourceFile pos nm|
 
     Smalltalk silentLoading ifFalse:[
-	Transcript show:'  '; show:myClass name; show:' -> '; showCr:myCategory.
+	myClass isNil ifTrue:[
+	    nm := '** UndefinedClass **'
+	] ifFalse:[
+	    nm := myClass name
+	].
+	Transcript show:'  '; show:nm; show:' -> '; showCr:myCategory.
     ].
 
     makeSourceRef := false.
hg/stx-libbasic