'From PharoCore1.1ALPHA of ''19 October 2009'' [Latest update: #11301] on 1 April 2010 at 11:40:15 am'!

!SmalltalkImage methodsFor: 'system attribute' stamp: 'MarcusDenker 4/1/2010 11:02'!
extractParameters

	| pName value index dict |
	dict := Dictionary new.
	index := 3. "Muss bei 3 starten, da 2 documentName ist"
	[pName := self  getSystemAttribute: index.
	pName isEmptyOrNil] whileFalse:[
		index := index + 1.
		value := self getSystemAttribute: index.
		value ifNil: [value := ''].
 		dict at: pName asUppercase put: value.
		index := index + 1].
	^dict! !


!SmalltalkImage class methodsFor: 'instance creation' stamp: 'MarcusDenker 4/1/2010 11:10'!
current
	^Smalltalk! !