[squeak-dev] The Inbox: System-laza.414.mcz

commits at source.squeak.org commits at source.squeak.org
Thu Jan 13 11:58:08 UTC 2011


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]."!




More information about the Squeak-dev mailing list