On Sat, 28 Jul 2007 15:54:16 +0200, Edgar J. De Cleene wrote:
>
> El 7/28/07 9:10 AM, "Edgar J. De Cleene" <edgardec2001 at yahoo.com.ar>
> escribió:
>
>> El 7/28/07 9:01 AM, "Klaus D. Witzel" <klaus.witzel at cobss.com> escribió:
>>
>>> (there was no update pending for the
>>> .image) and thank you Andreas for the copy&paste-friendly VM.
>>
>>
>> Just I found the updates exist, but some mistake in 7030 don't let  
>> download
>> it.
>> The last was now 7137.
>> Anyway , as I said to Damien, in some point today I put a new image.
>> And send some dirty trick to list for people working hard as you could  
>> load
>> the updates in 7030.
>>
>> Edgar
>>
>
> No dirty tricks.
> Hit again your updates button on 7130. should reach 7137
> Any have good memory pills ?

Update button now took the image to #7137 but the TestCases abort with  
Syntax Error on UndefinedObject, showing code

| m |
(m:= RBNamespace
			onEnvironment: ((ClassEnvironment onEnvironment: BrowserEnvironment new)
					classes: (#(#ConcreteSubclass #ConcreteSuperclass #NoMoveSubclass)
							inject: OrderedCollection new
							into:
								[:sum :each |
								| class |
								class := Smalltalk at: each ifAbsent: [nil].
								class notNil ifTrue: [sum add: class].
								sum])
								, (#(#ConcreteSubclass #ConcreteSuperclass #NoMoveSubclass)
										inject: OrderedCollection new
										into:
											[:sum :each |
											| class |
											class := Smalltalk at: each ifAbsent: [nil].
											class notNil ifTrue: [sum add: class class].
											sum]))
						not)
		name: 'Test'.
#('ConcreteSuperclass subclass: #NoMoveSubclass
	instanceVariableNames: ''''
	classVariableNames: ''''
	poolDictionaries: ''''
	category: ''Testing''' 'Object subclass: #ConcreteSuperclass
	instanceVariableNames: ''instVarName1 instVarName2 ''
	classVariableNames: ''ClassVarName1 ClassVarName2 ''
	poolDictionaries: ''''
	category: 'Testing''' 'ConcreteSuperclass subclass: #ConcreteSubclass
	instanceVariableNames: ''''
	classVariableNames: ''''
	poolDictionaries: ''''
	category: ''Testing''')
	do: [:each | m defineClass: each].
(m metaclassNamed: #ConcreteSuperclass)
	addInstanceVariable: 'classInstVarName1'.
#(#(#ConcreteSubclass #(#('initialize
	super initialize.
	instVarName1 := nil' #everyone) #('different
	^0' #everyone))) #(#ConcreteSuperclass #(#('same
	^self initialize isKindOf: ConcreteSuperclass' #'one def') #('different
	^instVarName1 + instVarName2' #everyone) #('initialize
	instVarName1 := instVarName2 := ClassVarName1 := ClassVarName2 := 0'  
#everyone))) #(#NoMoveSubclass #(#('same
	^123' #'one def'))) #('ConcreteSubclass class' #(#('bar
	^self storeString' #testing))) #('ConcreteSuperclass class' #(#('foo
	^classInstVarName1 + ClassVarName1 + ClassVarName2' #testing) #('new
	^super new initialize' #testing) #('bar
	^self printString' #testing))) #('NoMoveSubclass classUnmatched string  
quote ->' #()))
	do:
		[:each |
		| class |
		class := m classNamed: each first.
		each last do: [:meth | class compile: meth first classified: meth last]].
m


>
>
>
>