[Pkg] The Trunk: SMBase-ar.99.mcz

commits at source.squeak.org commits at source.squeak.org
Wed Mar 10 03:37:07 UTC 2010


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

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

Name: SMBase-ar.99
Author: ar
Time: 9 March 2010, 7:36:40.315 pm
UUID: 4a89936f-33a0-7349-a10c-f69c13cda1a6
Ancestors: SMBase-ar.98

Get rid of a few *smbase extensions/overrides.

=============== Diff against SMBase-ar.98 ===============

Item was removed:
- ----- Method: SystemVersion>>majorMinorVersion (in category '*smbase-extension') -----
- 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
- !

Item was removed:
- ----- Method: VersionNumber>>versionStringOn: (in category '*smbase-override') -----
- versionStringOn: strm
- 
- 	| first |
- 	first := true.
- 	numbers do: [ :ea |
- 		first ifFalse: [strm nextPut: $.].
- 		first := false.
- 		ea printOn: strm]
- 	!

Item was removed:
- ----- Method: VersionNumber>>versionString (in category '*smbase-printing') -----
- versionString
- 
- 	^String streamContents: [ :strm | self versionStringOn: strm ]!



More information about the Packages mailing list