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