[Pkg] Monticello Public: Monticello.impl-mtf.523.mcz

[squeaksource-noreply at iam.unibe.ch]

A new version of Monticello.impl was added to project Monticello Public:
http://www.squeaksource.com/mc/Monticello.impl-mtf.523.mcz

==================== Summary ====================

Name: Monticello.impl-mtf.523
Author: mtf
Time: 9 June 2008, 8:26:58 pm
UUID: 5dabce14-e7a4-4489-aef5-4de54a8890dd
Ancestors: Monticello.impl-kph.521

removed direct references to ClassEditor

=============== Diff against Monticello.impl-kph.521 ===============

Item was changed:
  ----- Method: MCClassDefinition>>edUnload: (in category 'system editor') -----
  edUnload: editor
  
+ 	(editor at: name) removeFromSystem.
- 	(ClassEditor named: name for: editor) removeFromSystem.
  	
  	^ false  "we dont need an edPostload"!

Item was changed:
  ----- Method: MCClassDefinition>>edLoad: (in category 'system editor') -----
  edLoad: editor
  
  	| new old theClass theSuperclass |
   
+ 	theClass := editor at: name.
+ 	theSuperclass := editor at: superclassName.
- 	theClass := ClassEditor named: name for: editor.
- 	theSuperclass := ClassEditor named: superclassName for: editor.
  		
  	theClass superclass = theSuperclass ifFalse: [ theClass superclass: theSuperclass ]. 	
  		
  	theClass subject typeOfClass = type ifFalse: [ theClass typeOfClass: type ]. 
  		
  	old := theClass instVarNames.
  	new := self selectVariables: #isInstanceVariable.	 
  	(old difference: new) do: [ :iv | theClass removeInstVarName: iv ].
  	(new difference: old) do: [ :iv | theClass addInstVarName: iv ].
  	
  	old := theClass classVarNames.
  	new := self selectVariables: #isClassVariable.	 
  	(old difference: new) do: [ :iv | theClass removeClassVarName: iv ].
  	(new difference: old) do: [ :iv | theClass addClassVarName: iv ].
  	
  	old := theClass sharedPools.
  	new := self selectVariables: #isPoolImport.	 
  	(old difference: new) do: [ :iv | theClass removeSharedPool: iv ].
  	(new difference: old) do: [ :iv | theClass addSharedPool: iv ].
  	
  	old := theClass class instVarNames.
  	new := self selectVariables: #isClassInstanceVariable.	 
  	(old difference: new) do: [ :iv | theClass class removeInstVarName: iv ].
  	(new difference: old) do: [ :iv | theClass class addInstVarName: iv ].
  
  	self hasComment ifTrue: [ theClass classComment: comment stamp: commentStamp ].
  		 
  	^ false "we dont need an edPostload"!