The Inbox: System-laza.414.mcz

Alexander Lazarević uploaded a new version of System to project The Inbox:
http://source.squeak.org/inbox/System-laza.414.mcz

==================== Summary ====================

Name: System-laza.414
Author: laza
Time: 13 January 2011, 12:57:31.329 pm
UUID: 4c867d9a-8ec6-fa4c-8aa3-f6ad681d4c30
Ancestors: System-ul.413

Offer a more detailed info for aboutSqueak

=============== Diff against System-ul.413 ===============

Item was changed:
  ----- Method: SmalltalkImage>>aboutThisSystem (in category 'sources, changes log') -----
  aboutThisSystem
  "Identify software version"
 
+ ^ UIManager default
+ edit: self systemInformationString
+ label: 'About Squeak'
+ !
- ^ self inform: self systemInformationString withCRs.!

Item was changed:
  ----- Method: SmalltalkImage>>systemInformationString (in category 'sources, changes log') -----
  systemInformationString
+ ^ String streamContents: [:s | | id value |
+ s nextPutAll: 'Image'; cr;
+ tab; nextPutAll: SystemVersion current version; cr;
+ tab; nextPutAll: self lastUpdateString; cr;
+ tab; nextPutAll: self currentChangeSetString; cr;
+ tab; nextPutAll: (self getSystemAttribute: 1); cr.
+ id := 3.
+ [value := (self getSystemAttribute: id).
+ value = nil or: [id > 1000]] whileFalse: [
+ s nextPutAll: value; space.
+ id := id + 1
+ ].
- "Identify software version"
- ^ SystemVersion current version, String cr, self lastUpdateString, String cr, self currentChangeSetString
 
+ s cr; cr; nextPutAll: 'Operating System/Hardware'; cr;
+ tab; nextPutAll: (self getSystemAttribute: 1001); space;
+ tab; nextPutAll: (self getSystemAttribute: 1002); space;
+ tab; nextPutAll: (self getSystemAttribute: 1003).
+
+ s cr; cr; nextPutAll: 'Virtual Machine'; cr;
+ tab; nextPutAll: (self getSystemAttribute: 1004); cr;
+ tab; nextPutAll: (self getSystemAttribute: 0); cr.
+ s tab.
+ id := -1.
+ [value := (self getSystemAttribute: id).
+ value = nil or: [id < -1000]] whileFalse: [
+ s nextPutAll: value; space.
+ id := id - 1
+ ].
+
+ s cr; cr; nextPutAll: 'Loaded Modules'; cr.
+ self listLoadedModules do: [:each | s tab; nextPutAll: each; cr].
+
+ ]!
- "
- (eToySystem := self at: #EToySystem ifAbsent: [nil]) ifNotNil:
- [aString := aString, '
- Squeak-Central version: ', eToySystem version, ' of ', eToySystem versionDate]."!