'From etoys3.0 of 24 February 2008 [latest update: #1947] on 28 March 2008 at 3:15:51 pm'!
"Change Set:		SISSPrefObj-yo
Date:			28 March 2008
Author:			Yoshiki Ohshima

Preference object follows the one in the environment."!


!Preference methodsFor: '*siss-interface' stamp: 'yo 3/26/2008 16:15'!
sissContentsInto: newElem context: dictionary

	newElem attributeAt: #name put: name.
! !


!Preference class methodsFor: '*siss-private' stamp: 'yo 3/26/2008 16:23'!
sissCreateInstanceFromSexp: sexp idref: idref from: from to: to

	| aName |
	aName _ sexp attributeAt: #name ifAbsent: [].
	aName ifNotNil: [^ Preferences preferenceAt: aName asSymbol].
! !