--- a/Tools__NewSystemBrowserCodeView.st	Thu Aug 04 21:31:35 2011 +0200
+++ b/Tools__NewSystemBrowserCodeView.st	Thu Aug 04 21:32:18 2011 +0200
@@ -275,7 +275,7 @@
 selectedSelector
     |selectedText|
 
-    ^ (selectedText := self selectionAsString) isNilOrEmptyCollection 
+    ^ (selectedText := self selectionAsString) isEmptyOrNil 
         ifFalse:[ (SystemBrowser extractSelectorFrom:selectedText) asSymbol ]
         ifTrue:[
             selectedNode ifNil:[ self highlightNodeAtCursor ].
@@ -286,6 +286,7 @@
 
     "Created: / 26-12-2007 / 11:12:26 / janfrog"
     "Modified: / 19-02-2008 / 09:16:11 / janfrog"
+    "Modified: / 04-08-2011 / 19:05:43 / cg"
 ! !
 
 !NewSystemBrowserCodeView methodsFor:'accessing-contents'!
@@ -456,7 +457,7 @@
 
     menu := Menu new.
     implementors := self implementorsOf:(selector := messageNode selector).
-    implementors isNilOrEmptyCollection ifTrue:[
+    implementors isEmptyOrNil ifTrue:[
         menu addItem:(MenuItem label:'No implementors found') disable
     ] ifFalse:[
         menu addItem:(MenuItem 
@@ -477,6 +478,7 @@
 
     "Created: / 18-02-2008 / 21:05:47 / janfrog"
     "Modified: / 19-10-2008 / 08:16:50 / Jan Vrany <vranyj1@fel.cvut.cz>"
+    "Modified: / 04-08-2011 / 19:05:37 / cg"
 !
 
 messageNodeSendersMenu:messageNode 
@@ -484,7 +486,7 @@
 
     menu := Menu new.
     implementors := self sendersOf:(selector := messageNode selector).
-    implementors isNilOrEmptyCollection ifTrue:[
+    implementors isEmptyOrNil ifTrue:[
         menu addItem:(MenuItem label:'No senders found') disable
     ] ifFalse:[
         menu addItem:(MenuItem 
@@ -505,6 +507,7 @@
 
     "Created: / 18-02-2008 / 21:05:56 / janfrog"
     "Modified: / 19-10-2008 / 08:17:00 / Jan Vrany <vranyj1@fel.cvut.cz>"
+    "Modified: / 04-08-2011 / 19:05:40 / cg"
 !
 
 openMenu: aMenuOrNil
@@ -964,7 +967,7 @@
     parsingProcess := [
                 [
                     | tree |
-                    tree := ((contents isNilOrEmptyCollection) 
+                    tree := ((contents isEmptyOrNil) 
                                 ifTrue:[ nil ]
                                 ifFalse:[ RBParser parseMethod:contents onError:[:err :pos | #error ] ]).
                     self sensor 
@@ -981,6 +984,7 @@
     "Modified: / 19-02-2008 / 09:22:57 / janfrog"
     "Created: / 21-08-2009 / 15:40:06 / Jan Vrany <vranyj1@fel.cvut.cz>"
     "Modified: / 22-08-2009 / 11:51:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 04-08-2011 / 19:05:45 / cg"
 !
 
 stopParsingProcess
@@ -1020,7 +1024,7 @@
 !NewSystemBrowserCodeView class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowserCodeView.st,v 1.9 2011-07-05 14:06:31 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowserCodeView.st,v 1.10 2011-08-04 19:32:18 cg Exp $'
 !
 
 version_SVN