[squeak-dev] The Trunk: System-cmm.347.mcz

commits at source.squeak.org commits at source.squeak.org
Fri Jul 2 23:55:36 UTC 2010


Chris Muller uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-cmm.347.mcz

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

Name: System-cmm.347
Author: cmm
Time: 2 July 2010, 6:54:56.35 pm
UUID: a1b99108-d467-4028-9710-57386f49d0a5
Ancestors: System-ul.346

Fixed ability to revert a method.

=============== Diff against System-ul.346 ===============

Item was changed:
  ----- Method: ChangeRecord>>fileIn (in category 'initialization') -----
  fileIn
  	"File the receiver in.  If I represent a method or a class-comment, file the method in and make a note of it in the recent-submissions list; if I represent a do-it, then, well, do it; if I represent a reorganization then get organized!!"
  
  	Cursor read showWhile:
  		[| s cls aSelector |
  		type == #doIt
  			ifTrue:
  				[((s := self string) beginsWith: '----') ifFalse: [Compiler evaluate: s]]
  			ifFalse:
+ 				[cls := self methodClass.
- 				[cls := Smalltalk at: class asSymbol.
- 				 cls := meta ifTrue: [cls class] ifFalse: [cls].
  				 type == #method ifTrue:
  					[cls compile: self text classified: category withStamp: stamp notifying: nil.
  					(aSelector := self methodSelector) ifNotNil:
  						[Utilities noteMethodSubmission: aSelector forClass: cls]].
  				 type == #classComment ifTrue:
  					[cls comment: self text stamp: stamp.
  					Utilities noteMethodSubmission: #Comment forClass: cls ].
  				 type == #reorganize ifTrue:
  					[cls organization changeFromString: self text]]]!




More information about the Squeak-dev mailing list