[squeak-dev] The Trunk: System-ar.292.mcz

commits at source.squeak.org commits at source.squeak.org
Wed Mar 10 03:36:21 UTC 2010


Andreas Raab uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-ar.292.mcz

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

Name: System-ar.292
Author: ar
Time: 9 March 2010, 7:35:06.071 pm
UUID: 712647e4-997d-1248-b579-72486e77380a
Ancestors: System-ar.290

Get rid of a few *smbase extensions/overrides.

=============== Diff against System-ar.290 ===============

Item was added:
+ ----- Method: SystemVersion>>majorMinorVersion (in category 'accessing') -----
+ majorMinorVersion
+ 	"Return the major/minor version number of the form X.Y, without any 'alpha' or 'beta' or other suffix."
+ 	"(SystemVersion new version: 'Squeak3.7alpha') majorMinorVersion" "  -->  'Squeak3.7' "
+ 	"SystemVersion current majorMinorVersion"
+ 	
+ 	| char stream |
+ 	stream := ReadStream on: version, 'x'.
+ 	stream upTo: $..
+ 	char := stream next.
+ 	char ifNil: [^ version].	"eg: 'Jasmine-rc1' has no $. in it."
+ 	[char isDigit]
+ 		whileTrue: [char := stream next].
+ 	^ version copyFrom: 1 to: stream position - 1
+ !




More information about the Squeak-dev mailing list