Bug in "about this system" reporting
Tim Olson
tim at jumpnet.com
Mon May 25 15:01:00 UTC 1998
Chosing "About this system" from the help menu fails when there are no
updates (ChangeSorter>>highestNumberedChangeSet returns nil). Here's a
fix:
----
'From Squeak 2.0 of May 22, 1998 on 25 May 1998 at 9:55:29 am'!
!ScreenController methodsFor: 'menu messages' stamp: 'tao 5/25/1998
09:54'!
aboutThisSystem
"Identify software version"
| aString eToySystem aNumber |
aString _ Smalltalk version.
(eToySystem _ Smalltalk at: #EToySystem ifAbsent: [nil]) ifNotNil:
[aString _ aString, '
EToy System: ', eToySystem version, ' of ', eToySystem versionDate].
aNumber _ ChangeSorter highestNumberedChangeSet.
(aNumber notNil and: [aNumber > 0]) ifTrue:
[aString _ aString, '
Highest-numbered Change Set: ', aNumber printString].
^ self inform: aString! !
-- tim
More information about the Squeak-dev
mailing list
|