The Trunk: Monticello-bf.516.mcz

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
1 message Options
Reply | Threaded
Open this post in threaded view
|

The Trunk: Monticello-bf.516.mcz

commits-2
Bert Freudenberg uploaded a new version of Monticello to project The Trunk:
http://source.squeak.org/trunk/Monticello-bf.516.mcz

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

Name: Monticello-bf.516
Author: bf
Time: 5 July 2012, 5:07:51.433 pm
UUID: 42f8b4e0-b227-46ec-bcfa-a0426a152467
Ancestors: Monticello-bf.515

Fix a problem with very short MCVersionNames (e.g. 'MC1' as used by the test suite)

=============== Diff against Monticello-bf.515 ===============

Item was changed:
  ----- Method: MCVersionName>>versionName (in category 'accessing') -----
  versionName
  "Answer my version name as a ByteString, without the file suffix or any ancestor-attributes."
  | end |
  self isEmpty ifTrue: [^ String empty].
  end := self indexOf: $( ifAbsent: [
+ (self size > 4 and: [(self copyFrom: self size - 3 to: self size - 1) = '.mc'])
- ('.mc#' startingAt: 1 match: self startingAt: self size - 3)
  ifTrue: [self size - 3]
  ifFalse: [self size + 1]].
  ^self first: end - 1!