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.
always parse expressions in the Smalltalk nameSpace
authorClaus Gittinger <cg@exept.de>
Tue, 24 Jun 1997 16:51:57 +0200
changeset 1200 71de763d5847
parent 1199 a348a5f71105
child 1201 5bcdee8b4644
always parse expressions in the Smalltalk nameSpace
CBrowser.st file | annotate | diff | comparison | revisions
ChangesBrowser.st file | annotate | diff | comparison | revisions 
--- a/CBrowser.st	Tue Jun 24 16:49:29 1997 +0200
+++ b/CBrowser.st	Tue Jun 24 16:51:57 1997 +0200
@@ -1327,7 +1327,7 @@
                                 ].    
                                 changeString := (chunkText contractTo:maxLen).
 
-                                p := Parser parseExpression:chunkText.
+                                p := Parser parseExpression:chunkText inNameSpace:Smalltalk.
                                 (p notNil 
                                  and:[p ~~ #Error
                                  and:[p isMessage]]) ifTrue:[
@@ -1404,7 +1404,7 @@
                              and we cannot handle more in this ChangesBrowser ....
                             "
                             className := nil.
-                            p := Parser parseExpression:chunkText.
+                            p := Parser parseExpression:chunkText inNameSpace:Smalltalk.
 
                             (p notNil and:[p ~~ #Error]) ifTrue:[
                                 sel := p selector.
@@ -1545,7 +1545,7 @@
     self checkIfFileHasChanged
 
     "Modified: 27.8.1995 / 23:06:55 / claus"
-    "Modified: 5.1.1997 / 20:25:11 / cg"
+    "Modified: 24.6.1997 / 16:44:57 / cg"
 !
 
 selectorOfMethodChange:changeNr
@@ -2536,5 +2536,5 @@
 !ChangesBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/CBrowser.st,v 1.111 1997-04-18 17:45:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/CBrowser.st,v 1.112 1997-06-24 14:51:57 cg Exp $'
 ! !
--- a/ChangesBrowser.st	Tue Jun 24 16:49:29 1997 +0200
+++ b/ChangesBrowser.st	Tue Jun 24 16:51:57 1997 +0200
@@ -1327,7 +1327,7 @@
                                 ].    
                                 changeString := (chunkText contractTo:maxLen).
 
-                                p := Parser parseExpression:chunkText.
+                                p := Parser parseExpression:chunkText inNameSpace:Smalltalk.
                                 (p notNil 
                                  and:[p ~~ #Error
                                  and:[p isMessage]]) ifTrue:[
@@ -1404,7 +1404,7 @@
                              and we cannot handle more in this ChangesBrowser ....
                             "
                             className := nil.
-                            p := Parser parseExpression:chunkText.
+                            p := Parser parseExpression:chunkText inNameSpace:Smalltalk.
 
                             (p notNil and:[p ~~ #Error]) ifTrue:[
                                 sel := p selector.
@@ -1545,7 +1545,7 @@
     self checkIfFileHasChanged
 
     "Modified: 27.8.1995 / 23:06:55 / claus"
-    "Modified: 5.1.1997 / 20:25:11 / cg"
+    "Modified: 24.6.1997 / 16:44:57 / cg"
 !
 
 selectorOfMethodChange:changeNr
@@ -2536,5 +2536,5 @@
 !ChangesBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.111 1997-04-18 17:45:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.112 1997-06-24 14:51:57 cg Exp $'
 ! !
hg/stx-libtool