equal
deleted
inserted
replaced
86 | ns changeClass changeSource imageSource | |
86 | ns changeClass changeSource imageSource | |
87 |
87 |
88 "/ Must enforce current namespace because caller (such as Workspace!!!!!!) enforces |
88 "/ Must enforce current namespace because caller (such as Workspace!!!!!!) enforces |
89 "/ the namespace wia NameSpaceQuerySignal. Therefore for classes not in Smalltalk. |
89 "/ the namespace wia NameSpaceQuerySignal. Therefore for classes not in Smalltalk. |
90 "/ `self changeClass` will always return nil, sigh. |
90 "/ `self changeClass` will always return nil, sigh. |
91 ns := nameSpaceName notNil ifTrue:[(NameSpace name: nameSpaceName)] ifFalse:[nil]. |
91 ns := nameSpaceName notNil ifTrue:[(NameSpace fullName: nameSpaceName)] ifFalse:[nil]. |
92 Class nameSpaceQuerySignal answer: nil do:[ |
92 Class nameSpaceQuerySignal answer: nil do:[ |
93 changeClass := self changeClass. |
93 changeClass := self changeClass. |
94 changeClass isNil ifTrue:[^#+]. |
94 changeClass isNil ifTrue:[^#+]. |
95 self isPrivateClassDefinitionChange ifTrue:[ |
95 self isPrivateClassDefinitionChange ifTrue:[ |
96 changeSource := self definitionStringInNamespace: nil. |
96 changeSource := self definitionStringInNamespace: nil. |
107 " |
107 " |
108 Tools::TextDiff2Tool openOn: changeSource label: 'Change' and: imageSource label: 'Image' |
108 Tools::TextDiff2Tool openOn: changeSource label: 'Change' and: imageSource label: 'Image' |
109 " |
109 " |
110 |
110 |
111 "Modified: / 31-08-2011 / 09:26:48 / cg" |
111 "Modified: / 31-08-2011 / 09:26:48 / cg" |
112 "Modified: / 13-11-2013 / 17:09:03 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
112 "Modified: / 12-12-2013 / 13:41:42 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
113 ! |
113 ! |
114 |
114 |
115 deltaDetail |
115 deltaDetail |
116 "Returns a delta to the current state as a ChangeDelta object" |
116 "Returns a delta to the current state as a ChangeDelta object" |
117 |
117 |
211 |
211 |
212 nameSpaceName: aNameSpaceName classType: aClassType otherParameters:otherParametersArg |
212 nameSpaceName: aNameSpaceName classType: aClassType otherParameters:otherParametersArg |
213 "this instance setup message is used when reading from a VW-xml change file. |
213 "this instance setup message is used when reading from a VW-xml change file. |
214 Support for this is not yet complete." |
214 Support for this is not yet complete." |
215 |
215 |
216 |indexedType imports| |
216 | imports | |
217 |
217 |
218 nameSpaceOverride := aNameSpaceName. |
218 nameSpaceName := aNameSpaceName. |
219 classType := aClassType. |
219 classType := aClassType. |
220 otherParameters := Dictionary new addAll:otherParametersArg; yourself. |
220 otherParameters := Dictionary new addAll:otherParametersArg; yourself. |
221 |
221 |
222 superClassName := otherParameters at:#superclass: ifAbsent:nil. |
222 superClassName := otherParameters at:#superclass: ifAbsent:nil. |
223 self assert:(superClassName notNil). |
223 self assert:(superClassName notNil). |
230 classInstanceVariableNames := otherParameters at:#classInstanceVariableNames: ifAbsent:nil. |
230 classInstanceVariableNames := otherParameters at:#classInstanceVariableNames: ifAbsent:nil. |
231 imports := otherParameters at:#imports: ifAbsent:nil. |
231 imports := otherParameters at:#imports: ifAbsent:nil. |
232 category := otherParameters at:#category: ifAbsent:nil. |
232 category := otherParameters at:#category: ifAbsent:nil. |
233 |
233 |
234 "Modified: / 15-06-2010 / 14:50:35 / cg" |
234 "Modified: / 15-06-2010 / 14:50:35 / cg" |
|
235 "Modified: / 12-12-2013 / 12:59:30 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
235 ! |
236 ! |
236 |
237 |
237 objectType |
238 objectType |
238 "return the value of the instance variable 'objectType' (automatically generated)" |
239 "return the value of the instance variable 'objectType' (automatically generated)" |
239 |
240 |