The Trunk: SMBase-ar.99.mcz

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 ]!