[squeak-dev] The Trunk: ScriptLoader-fbs.336.mcz

commits at source.squeak.org commits at source.squeak.org
Fri May 3 08:42:23 UTC 2013


Frank Shearar uploaded a new version of ScriptLoader to project The Trunk:
http://source.squeak.org/trunk/ScriptLoader-fbs.336.mcz

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

Name: ScriptLoader-fbs.336
Author: fbs
Time: 3 May 2013, 9:41:56.186 am
UUID: 0c887eeb-7749-44e9-8828-ccfab8144b57
Ancestors: ScriptLoader-eem.335

It's better to refer to one's own class through #class: it plays much nicer when someone subclasses you.

=============== Diff against ScriptLoader-eem.335 ===============

Item was changed:
  ----- Method: ScriptLoader>>getLatestScriptNumber (in category 'private helpers') -----
  getLatestScriptNumber
  
  	| upfroms |
+ 	upfroms := self class selectors select: [:each | 'script*' match: each ].
- 	upfroms := ScriptLoader selectors select: [:each | 'script*' match: each ].
  	upfroms := upfroms collect: [:each | (each asString allButFirst: 6)].
  	upfroms := upfroms reject: [:each | '*Log*' match: each ].
  	upfroms := upfroms reject: [:each | '*XXX*' match: each ].
  	upfroms := upfroms collect: [:each | each asNumber].
  	^ upfroms asSortedCollection last
  	!

Item was changed:
  ----- Method: ScriptLoader>>getLatestUpdateNumber (in category 'private helpers') -----
  getLatestUpdateNumber
  
  	| upfroms |
+ 	upfroms := self class selectors select: [:each | 'updateFrom*' match: each ].
- 	upfroms := ScriptLoader selectors select: [:each | 'updateFrom*' match: each ].
  	upfroms := upfroms collect: [:each | (each asString last: 4) asNumber].
  	^ upfroms asSortedCollection last!



More information about the Squeak-dev mailing list