[Pkg] Squeak3.11 Contributions: MethodAuthorship-mtf.16.mcz

[squeak-dev-noreply at lists.squeakfoundation.org]

A new version of MethodAuthorship was added to project Squeak3.11 Contributions:
http://www.squeaksource.com/311/MethodAuthorship-mtf.16.mcz

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

Name: MethodAuthorship-mtf.16
Author: mtf
Time: 7 February 2009, 9:51:58 pm
UUID: c8a8e238-06c2-4da1-881f-f4b005c12e14
Ancestors: MethodAuthorship-mtf.15

This should keep the text of the versions out of the image, but still browsable, saving about 60MB of image size

=============== Diff against MethodAuthorship-mtf.15 ===============

Item was changed:
  ----- Method: MethodHistoryChangeRecord>>class:selector:stamp:text:sourceFile: (in category 'all') -----
  class: clsName selector: sel stamp: st text: t sourceFile: fileName
  
  	class _ clsName copyUpTo: $ .	"the non-meta part of a class name"
  	meta _ clsName endsWith: ' class'.
  	selector := sel.
  	stamp := st.
+ 	self isStoringText ifTrue: [text := t].
- 	text := t.
  	type := #method.
  	sourceFile := fileName.
  !

Item was added:
+ ----- Method: MethodHistoryChangeRecord>>class:selector:stamp:text:file:position: (in category 'all') -----
+ class: clsName selector: sel stamp: st text: t file: aFile position: aPosition
+ 
+ 	class _ clsName copyUpTo: $ .	"the non-meta part of a class name"
+ 	meta _ clsName endsWith: ' class'.
+ 	selector := sel.
+ 	stamp := st.
+ 	self isStoringText ifTrue: [text := t].
+ 	type := #method.
+ 	file := aFile.
+ 	position := aPosition.!

Item was changed:
  ----- Method: MethodHistoryChangeRecord>>string (in category 'all') -----
  string
  
+ 	^ self text
- 	^ text
  !

Item was added:
+ ----- Method: MethodHistoryChangeRecord>>isStoringText (in category 'all') -----
+ isStoringText
+ 	^ false!

Item was changed:
  ----- Method: MethodHistoryChangeRecord>>text (in category 'all') -----
  text
+ 	| result |
+ 	text ifNotNil: [^ text].
+ 	result := super text asString.
+ 	self isStoringText ifTrue: [text := result].
+ 	^ result
- 
- 	^ text ifNil: [text := super text].
  !

Item was changed:
  ----- Method: MethodHistoryChangeList>>scanCategory:class:meta:stamp: (in category 'all') -----
  scanCategory: category class: class meta: meta stamp: stamp
+ 	| method sel position |
- 	| method sel |
  	self ignoreNonExisting ifTrue: [Smalltalk at: class ifAbsent: [^ self]].
  	[
+ 	position := file position.
  	method _ file nextChunk.
  	file skipStyleChunk.
  	method size > 0]						"done when double terminators"
  		whileTrue:
  		[sel _ Parser new parseSelector: method.
+ 		self addItem: (MethodHistoryChangeRecord new class: (class, (meta ifTrue: [' class'] ifFalse: [''])) asSymbol selector: sel stamp: stamp text: method file: file position: position)
- 		self addItem: (MethodHistoryChangeRecord new class: (class, (meta ifTrue: [' class'] ifFalse: [''])) asSymbol selector: sel stamp: stamp text: method asString sourceFile: file localName)
  			text: 'method: ' , class , (meta ifTrue: [' class '] ifFalse: [' '])
  				, sel
  				, (stamp isEmpty ifTrue: [''] ifFalse: ['; ' , stamp])]!