Play and crash

> This works:
> counter := Class new
>               superclass: Object;
>               addInstVarNamed: 'counter';
>               compile: 'initialize
>                            counter := 0';
>               compile: 'counterString
>                            ^ counter asString';
>               compile: 'increment
>                            counter := counter + 1.
>                            self changed:#counterString';
>               compile: 'decrement
>                            counter := counter - 1.
>                            self changed:#counterString';
>               new.
> (UITheme builder newColumn: {
>   UITheme builder newLabelFor: counter getLabel: #counterString getEnabled:
> nil.
>   UITheme builder newRow: {
>     UITheme builder newButtonFor: counter action: #increment label: '+'
> help: nil.
>     UITheme builder newButtonFor: counter action: #decrement label: '-'
> help: nil.
>   }
> }) openInWindowLabeled: 'Counter example'.
>
>
> This one crashes the VM (tried on PharoOneClick 1.2 OSX, Cog and StackVM):
> (Class new
>   superclass: StringMorph;
>   compile: 'step self contents: Time now printString';
>   new)
>     openCenteredInWorld
>
>
> Any idea ?
>

> This works:
>
> counter := Class new
>               superclass: Object;
>               addInstVarNamed: 'counter';
>               compile: 'initialize
>                            counter := 0';
>               compile: 'counterString
>                            ^ counter asString';
>               compile: 'increment
>                            counter := counter + 1.
>                            self changed:#counterString';
>               compile: 'decrement
>                            counter := counter - 1.
>                            self changed:#counterString';
>               new.
>
> (UITheme builder newColumn: {
>   UITheme builder newLabelFor: counter getLabel: #counterString
> getEnabled: nil.
>   UITheme builder newRow: {
>     UITheme builder newButtonFor: counter action: #increment label:
> '+' help: nil.
>     UITheme builder newButtonFor: counter action: #decrement label:
> '-' help: nil.
>   }
> }) openInWindowLabeled: 'Counter example'.
>
>
>
> This one crashes the VM (tried on PharoOneClick 1.2 OSX, Cog and StackVM):
>
> (Class new
>   superclass: StringMorph;
>   compile: 'step self contents: Time now printString';
>   new)
>     openCenteredInWorld
>
>
>
> Any idea ?

> This works:
>
> counter := Class new
>               superclass: Object;
>               addInstVarNamed: 'counter';
>               compile: 'initialize
>                            counter := 0';
>               compile: 'counterString
>                            ^ counter asString';
>               compile: 'increment
>                            counter := counter + 1.
>                            self changed:#counterString';
>               compile: 'decrement
>                            counter := counter - 1.
>                            self changed:#counterString';
>               new.
>
> (UITheme builder newColumn: {
>   UITheme builder newLabelFor: counter getLabel: #counterString getEnabled: nil.
>   UITheme builder newRow: {
>     UITheme builder newButtonFor: counter action: #increment label: '+' help: nil.
>     UITheme builder newButtonFor: counter action: #decrement label: '-' help: nil.
>   }
> }) openInWindowLabeled: 'Counter example'.
>
>
>
> This one crashes the VM (tried on PharoOneClick 1.2 OSX, Cog and StackVM):
>
> (Class new
>   superclass: StringMorph;
>   compile: 'step self contents: Time now printString';
>   new)    
>     openCenteredInWorld
>
>
>
> Any idea ?
>
>
>
> Laurent Laffont - @lolgzs
>
> Pharo Smalltalk Screencasts: http://www.pharocasts.com/
> Blog: http://magaloma.blogspot.com/
> Developer group: http://cara74.seasidehosting.st
>