[etoys-dev] Etoys: Sugar-kfr.26.mcz

[commits at source.squeak.org]

Karl Ramberg uploaded a new version of Sugar to project Etoys:
http://source.squeak.org/etoys/Sugar-kfr.26.mcz

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

Name: Sugar-kfr.26
Author: kfr
Time: 19 January 2014, 7:07:18 pm
UUID: 7e49cc91-7fd0-0e4b-877c-d562eb428228
Ancestors: Sugar-kfr.25

Read gconf.xml new format. (SQ-1200)
Gustavo Duarte

=============== Diff against Sugar-kfr.23 ===============

Item was changed:
  ----- Method: SugarLauncher>>gconfPropertiesAt: (in category 'gconf') -----
  gconfPropertiesAt: aString
  	| dir |
  	"search up tree to guess home dir"
  	dir := Project squeakletDirectory.
  	[dir pathName = '/'] whileFalse: [
  		dir := dir containingDirectory.		
  		[FileStream
  			readOnlyFileNamed: dir pathName, '/.gconf', aString, '/%gconf.xml'
  			do: [:f |
  				| props |
  				props := Dictionary new.
  				(XMLDOMParser parseDocumentFrom: f)
  					tagsNamed: #entry do: [:entry |
  						props at: (entry attributeAt: 'name')
+ 							put: (entry attributeAt: 'value'
+ 								ifAbsent: [entry elements first contentString])].
- 							put: entry elements first contentString].
  				^props].
  		] on: FileDoesNotExistException do: [:ignore | ].
  	].
  	^self error: 'cannot find gconf path ', aString!