Tools__ProfilerInfoItem.st
changeset 12025 6303fd576a49
parent 10833 166d8d3ab12e
child 12401 4714b9640528
child 17808 207f73476db0
--- a/Tools__ProfilerInfoItem.st	Sun Nov 04 22:21:17 2012 +0100
+++ b/Tools__ProfilerInfoItem.st	Sun Nov 04 22:40:34 2012 +0100
@@ -124,8 +124,10 @@
 !
 
 packageLabel
+    |pkg|
 
-    ^('[' , self method package , ']') asText allItalic
+    pkg := method isNil ifTrue:['???'] ifFalse:[method package].
+    ^('[' , pkg , ']') asText allItalic
 
     "Created: / 01-12-2007 / 20:58:18 / janfrog"
 !
@@ -201,7 +203,7 @@
 !ProfilerInfoItem class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__ProfilerInfoItem.st,v 1.4 2011-10-18 15:29:55 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__ProfilerInfoItem.st,v 1.5 2012-11-04 21:40:34 cg Exp $'
 !
 
 version_SVN