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.
removed a debugPrint
authorClaus Gittinger <cg@exept.de>
Mon, 11 Nov 1996 12:39:39 +0100
changeset 862 291d323123b5
parent 861 a4b61b54c593
child 863 65769db0afe5
removed a debugPrint
BrowserView.st file | annotate | diff | comparison | revisions
BrwsrView.st file | annotate | diff | comparison | revisions 
--- a/BrowserView.st	Mon Nov 11 11:32:27 1996 +0100
+++ b/BrowserView.st	Mon Nov 11 12:39:39 1996 +0100
@@ -3475,7 +3475,7 @@
             
                 (classNames includes:nm) ifFalse:[
                     (Smalltalk at:nm asSymbol) ~~ aClass ifTrue:[
-                        Transcript showCR:'oops - unbound class: ' , nm , '; ignored.'.
+"/                        ('BROWSER: unbound class: ' , nm , '; ignored.') infoPrintCR.
                     ] ifFalse:[
                         classNames add:nm.
                         newList add:(String new:lvl) , nm
@@ -3520,7 +3520,7 @@
                         nm := aClass name.
                         (classNames includes:nm) ifFalse:[
                             (Smalltalk at:nm asSymbol) ~~ aClass ifTrue:[
-                                Transcript showCR:'oops - unbound class: ' , nm , '; ignored.'.
+"/                                ('BROWSER: unbound class: ' , nm , '; ignored.') infoPrintCR.
                             ] ifFalse:[
                                 classNames add:nm.
                                 newList add:aClass
@@ -3550,7 +3550,7 @@
 
     ^ newList
 
-    "Modified: 8.11.1996 / 19:53:14 / cg"
+    "Modified: 11.11.1996 / 12:38:36 / cg"
 !
 
 listOfClassHierarchyOf:aClass
@@ -8450,6 +8450,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.216 1996-11-11 09:12:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.217 1996-11-11 11:39:39 cg Exp $'
 ! !
 BrowserView initialize!
--- a/BrwsrView.st	Mon Nov 11 11:32:27 1996 +0100
+++ b/BrwsrView.st	Mon Nov 11 12:39:39 1996 +0100
@@ -3475,7 +3475,7 @@
             
                 (classNames includes:nm) ifFalse:[
                     (Smalltalk at:nm asSymbol) ~~ aClass ifTrue:[
-                        Transcript showCR:'oops - unbound class: ' , nm , '; ignored.'.
+"/                        ('BROWSER: unbound class: ' , nm , '; ignored.') infoPrintCR.
                     ] ifFalse:[
                         classNames add:nm.
                         newList add:(String new:lvl) , nm
@@ -3520,7 +3520,7 @@
                         nm := aClass name.
                         (classNames includes:nm) ifFalse:[
                             (Smalltalk at:nm asSymbol) ~~ aClass ifTrue:[
-                                Transcript showCR:'oops - unbound class: ' , nm , '; ignored.'.
+"/                                ('BROWSER: unbound class: ' , nm , '; ignored.') infoPrintCR.
                             ] ifFalse:[
                                 classNames add:nm.
                                 newList add:aClass
@@ -3550,7 +3550,7 @@
 
     ^ newList
 
-    "Modified: 8.11.1996 / 19:53:14 / cg"
+    "Modified: 11.11.1996 / 12:38:36 / cg"
 !
 
 listOfClassHierarchyOf:aClass
@@ -8450,6 +8450,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.216 1996-11-11 09:12:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.217 1996-11-11 11:39:39 cg Exp $'
 ! !
 BrowserView initialize!
hg/stx-libtool