28ffec0bda2c — Gerald Klix (speedy) a month ago
SUM: System information now includes the Haver version.
1 files changed, 22 insertions(+), 2 deletions(-)

M haver/Haverize.pck.st
M haver/Haverize.pck.st +22 -2
@@ 1,6 1,6 @@ 
-'From Haver7.0 [latest update: #6454] on 14 August 2024 at 11:43:15 pm'!
+'From Haver7.0 [latest update: #6454] on 15 August 2024 at 2:34:31 pm'!
 'Description Convert the running Cuis image to an Haver image.'!
-!provides: 'Haverize' 1 171!
+!provides: 'Haverize' 1 172!
 SystemOrganization addCategory: #Haverize!
 
 

          
@@ 733,6 733,26 @@ saveAsNewIntegratedHaverVersion
 	"
 	self saveAsNewHaverVersion: true isIntegrated: true! !
 
+!SystemDictionary methodsFor: '*Haverize-sources, change log' stamp: 'KLG 8/15/2024 12:13:51'!
+systemInformationString
+	"Identify software version"
+
+	^ String streamContents: [ :stream |
+		stream
+			nextPutAll: self versionString;
+			nextPutAll: ' sub ';
+			nextPutAll: 'version: '.
+		HaverizePackage haverVersion
+			printOn: stream 
+			length: 3
+			zeroPadded: true.
+		stream
+			newLine;
+			nextPutAll: self lastUpdateString;
+			newLine;
+			nextPutAll: 'Image file: ';
+			nextPutAll: self imageName ]! !
+
 !SystemDictionary class methodsFor: '*Haverize-copyright' stamp: 'KLG 4/4/2024 11:29:32'!
 copyright
 	"The Cuis Smalltalk copyright.