equal
deleted
inserted
replaced
1 "{ Encoding: utf8 }" |
|
2 |
|
3 " |
1 " |
4 COPYRIGHT (c) 1990 by Claus Gittinger |
2 COPYRIGHT (c) 1990 by Claus Gittinger |
5 All Rights Reserved |
3 All Rights Reserved |
6 |
4 |
7 This software is furnished under a license and may be used |
5 This software is furnished under a license and may be used |
3827 |
3825 |
3828 "/ old: |
3826 "/ old: |
3829 "/ does not care for VW qualified names |
3827 "/ does not care for VW qualified names |
3830 "/ ^ Parser parseExpression:text inNameSpace:nameSpace. |
3828 "/ ^ Parser parseExpression:text inNameSpace:nameSpace. |
3831 |
3829 |
3832 (text includesString:'§') ifTrue:[ |
3830 (text includesString:'§') ifTrue:[ |
3833 self halt:'should no longer happen' |
3831 self halt:'should no longer happen' |
3834 ]. |
3832 ]. |
3835 |
3833 |
3836 "/ new: |
3834 "/ new: |
3837 parser := Parser for:(ReadStream on:text). |
3835 parser := Parser for:(ReadStream on:text). |
5058 changeClass := nameSpace at:className ifAbsent:[]. |
5056 changeClass := nameSpace at:className ifAbsent:[]. |
5059 ]. |
5057 ]. |
5060 changeClass isNil ifTrue:[ |
5058 changeClass isNil ifTrue:[ |
5061 changeClass := Smalltalk at:className ifAbsent:[]. |
5059 changeClass := Smalltalk at:className ifAbsent:[]. |
5062 ]. |
5060 ]. |
5063 [changeClass isNil] whileTrue:[ |
5061 [changeClass isNil and:[className notNil]] whileTrue:[ |
5064 (NameSpace allNameSpaces |
5062 (NameSpace allNameSpaces |
5065 contains:[:ns | (nsClass := (ns at:className asSymbol)) notNil]) |
5063 contains:[:ns | (nsClass := (ns at:className asSymbol)) notNil]) |
5066 ifTrue:[ |
5064 ifTrue:[ |
5067 shortName := nsClass name. |
5065 shortName := nsClass name. |
5068 ] ifFalse:[ |
5066 ] ifFalse:[ |
7045 The system only writes one chunk, |
7043 The system only writes one chunk, |
7046 and we cannot handle more in this ChangesBrowser .... |
7044 and we cannot handle more in this ChangesBrowser .... |
7047 " |
7045 " |
7048 clsName := nil. |
7046 clsName := nil. |
7049 |
7047 |
7050 (chunkText includesString:'§') ifTrue:[ |
7048 (chunkText includesString:'§') ifTrue:[ |
7051 self halt:'should no longer happen' |
7049 self halt:'should no longer happen' |
7052 ]. |
7050 ]. |
7053 |
7051 |
7054 p := browser parseExpression:chunkText inNameSpace:(self nameSpaceForApply). |
7052 p := browser parseExpression:chunkText inNameSpace:(self nameSpaceForApply). |
7055 (p notNil and:[p ~~ #Error and:[p isMessage]]) ifTrue:[ |
7053 (p notNil and:[p ~~ #Error and:[p isMessage]]) ifTrue:[ |