equal
deleted
inserted
replaced
78 cleanConstants: class |
78 cleanConstants: class |
79 class constants removeAll. |
79 class constants removeAll. |
80 ! |
80 ! |
81 |
81 |
82 cleanGeneratedMethods: class |
82 cleanGeneratedMethods: class |
83 (class allSelectorsInProtocol: #generated) do: [ :selector | |
83 class methodsDo: [ :mthd | |
84 class removeSelectorSilently: selector ]. |
84 mthd category = #generated ifTrue:[ |
|
85 class removeSelector: mthd selector. |
|
86 ] |
|
87 ] |
|
88 |
|
89 "Modified: / 26-10-2014 / 22:07:26 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
85 ! |
90 ! |
86 |
91 |
87 cleanInstVars: class |
92 cleanInstVars: class |
88 class class instanceVariableNames: ''. |
93 class class instanceVariableNames: ''. |
89 ! |
94 ! |