@@ 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.