--- a/Tools__ObjectModuleInformation.st Thu Oct 22 00:13:30 2009 +0200
+++ b/Tools__ObjectModuleInformation.st Thu Oct 22 19:34:21 2009 +0200
@@ -1006,7 +1006,7 @@
"/ ].
"/ listView1 middleButtonMenu:menu.
- nm := (method whoString) asText emphasizeAllWith:(#color->Color blue).
+ nm := (method whoString) colorizeAllWith:Color blue.
].
entry1 := InfoRow new.
entry1 name:'Compiled method'; value:nm.
@@ -1036,7 +1036,7 @@
list := (module functions select:[:f | f notNil])
collect:[:f | |entry|
entry := InfoRow new.
- entry name:(f name asText emphasizeAllWith:(#color->Color blue)).
+ entry name:(f name colorizeAllWith:Color blue).
entry value:('address: (16r) ' , (f code address hexPrintString leftPaddedTo:8 with:$0)).
entry
].