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.
*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Fri, 10 Oct 2003 19:19:43 +0200
changeset 5270 d72d63a6dfac
parent 5269 a8be1af4cd35
child 5271 d7800a8994b7
*** empty log message ***
SystemBrowser.st file | annotate | diff | comparison | revisions 
--- a/SystemBrowser.st	Fri Oct 10 18:48:29 2003 +0200
+++ b/SystemBrowser.st	Fri Oct 10 19:19:43 2003 +0200
@@ -4267,13 +4267,18 @@
                                     ] ifFalse:[
                                         parseTree := RBParser 
                                                         parseSearchMethod:src 
-                                                        onError: [:str :pos | Transcript showCR:str. Transcript showCR:pos. nil].
-
+                                                        onError: [:str :pos | 
+                                                            Transcript show:'Error in '; showCR:m. 
+                                                            Transcript showCR:str. 
+                                                            Transcript showCR:pos. 
+                                                            nil].
                                         foundMatch := false.
-                                        false "isMethod" ifTrue:[
-                                            rslt := searcher executeMethod:parseTree.
-                                        ] ifFalse:[
-                                            rslt := searcher executeTree:parseTree.
+                                        parseTree notNil ifTrue:[
+                                            false "isMethod" ifTrue:[
+                                                rslt := searcher executeMethod:parseTree.
+                                            ] ifFalse:[
+                                                rslt := searcher executeTree:parseTree.
+                                            ].
                                         ].
                                         foundMatch.
                                     ]
@@ -5205,7 +5210,7 @@
 !SystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.201 2003-10-09 09:28:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.202 2003-10-10 17:19:43 cg Exp $'
 ! !
 
 SystemBrowser initialize!
hg/stx-libtool