[Pkg] SystemEditor: SystemEditor-mtf.107.mcz

[squeaksource-noreply at iam.unibe.ch]

A new version of SystemEditor was added to project SystemEditor:
http://www.squeaksource.com/SystemEditor/SystemEditor-mtf.107.mcz

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

Name: SystemEditor-mtf.107
Author: mtf
Time: 18 July 2008, 4:39:51 pm
UUID: affae387-bcd7-4396-bbe3-52aebdcfd374
Ancestors: SystemEditor-mtf.106

Work around a Croquet bug in ClassOrganizer>>classComment:stamp:

=============== Diff against SystemEditor-mtf.106 ===============

Item was added:
+ ----- Method: ClassOrganizer>>edClassComment:stamp: (in category '*SystemEditor-workaround') -----
+ edClassComment: aString stamp: aStamp
+ "Set the comment and stamp directly, with no checks.This works around a silly check in ClassOrganizer>>classComment:stamp: in Croquet. This check raises an error if the subject is either nil or a metaclass. The check does not exist in Squeak 3.8 and above"
+ 	^ super classComment: aString stamp: aStamp!

Item was changed:
  ----- Method: OrganizationEditor>>build (in category 'building') -----
  build
  	| result |
  	self subject.
  	subject ifNil: [
  			result := ClassOrganizer defaultList: #()]
  		ifNotNil: [
  			result := ClassOrganizer defaultList: self subject elementArray.
  			self subject categories ifNotNilDo:
  				[:categories | categories do: [:ea |
  					result classifyAll: (subject listAtCategoryNamed: ea) under: ea]]].
  	classEditor edMethodsDo: [:ea |
  		result classify: ea selector under: (self categoryOfElement: ea selector)].
+ 	result
+ 		edClassComment: self commentRemoteStr
+ 		stamp: self commentStamp.
- 	result classComment: self commentRemoteStr stamp: self commentStamp.
  	^ result!