August 2011 - Pharo-dev - lists.pharo.org

Re: [Pharo-project] I am petrified. I don't know what to say ........... (just look at that)

by Nicolas Cellier

2011/8/12 StÃ©phane Ducasse <stephane.ducasse(a)inria.fr>: > You are really lucky. > One the last dinosaurs.... there are rarer and rarer. > May be you can improve with a timesRepeat: > Yes, good idea, refactoring with an even worse hack is a good joke, For example (thisContext asManyTimes: 6) repeat sender Object>>asManyTimes: anInteger ^ManyTimesProxy target: self times: anInteger ManyTimesProxy>>repeat ^RepeatManyTimesProxy target: target times: count RepeatManyTimesProxy>>doesNotUnderstand: aMessage count <= 0 ifTrue: [^target]. count := count - 1. target := target perform: aMessage selector with: aMessage arguments. ^self perform: aMessage selector with: aMessage arguments Nicolas > > Stef > > On Aug 12, 2011, at 5:12 PM, Igor Stasenko wrote: > >> DiskProxy>>comeFullyUpOnReload: smartRefStream >> Â Â Â "Internalize myself into a fully alive object after raw loading from a >> Â Â Â DataStream. (See my class comment.) DataStream will substitute the >> Â Â Â object from this eval for the DiskProxy." >> >> Â Â Â | globalObj symbol arrayIndex | >> Â Â Â symbol := globalObjectName. Â Â "See if class is mapped to another name" >> Â Â Â (smartRefStream respondsTo: #renamed) >> Â Â Â Â Â Â Â ifTrue: [ >> Â Â Â Â Â Â Â Â Â Â Â "If in outPointers in an ImageSegment, remember original class >> Â Â Â Â Â Â Â Â Â Â Â name. >> Â Â Â Â Â Â Â Â Â Â Â See mapClass:installIn:. Would be lost otherwise." >>>>>>> Â Â Â Â Â Â Â Â Â (thisContext sender sender sender sender sender sender sender sender receiver class == ImageSegment >>>>>>> Â Â Â Â Â Â Â Â Â Â Â Â Â and: [ thisContext sender sender sender sender method == (DataStream compiledMethodAt: #readArray) ]) >> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â ifTrue: [ >> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â arrayIndex := thisContext sender sender sender sender tempAt: >> 4. Â Â "index var in readArray. Later safer to find i on stack >> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â of context." >> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â smartRefStream renamedConv at: arrayIndex put: symbol ]. Â Â Â Â "save >> original name" >> Â Â Â Â Â Â Â Â Â Â Â symbol := smartRefStream renamed at: symbol ifAbsent: [ symbol ] ]. Â Â "map" >> Â Â Â globalObj := Smalltalk globals >> Â Â Â Â Â Â Â at: symbol >> Â Â Â Â Â Â Â ifAbsent: [ >> Â Â Â Â Â Â Â Â Â Â Â preSelector == nil & (constructorSelector = #yourself) >> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â ifTrue: [ >> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Transcript >> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â cr; >> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â show: symbol , ' is undeclared.'. >> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â (Undeclared includesKey: symbol) >> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â ifTrue: [ ^ Undeclared at: symbol ]. >> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Undeclared at: symbol put: nil. >> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â ^ nil ]. >> Â Â Â Â Â Â Â Â Â Â Â ^ self error: 'Global "' , symbol , '" not found' ]. >> Â Â Â preSelector >> Â Â Â Â Â Â Â ifNotNil: [ >> Â Â Â Â Â Â Â Â Â Â Â Symbol >> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â hasInterned: preSelector >> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â ifTrue: [ :selector | >> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â [ globalObj := globalObj perform: selector ] >> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â on: Error >> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â do: [ :ex | >> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â ex messageText = 'key not found' >> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â ifTrue: [ ^ nil ]. >> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â ^ ex signal ] ] ]. Â Â Â "keep the Proxy if Project does not exist" >> Â Â Â constructorSelector ifNil: [ ^ globalObj ]. >> Â Â Â Symbol >> Â Â Â Â Â Â Â hasInterned: constructorSelector >> Â Â Â Â Â Â Â ifTrue: [ :selector | >> Â Â Â Â Â Â Â Â Â Â Â [ ^ globalObj perform: selector withArguments: constructorArgs ] >> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â on: Error >> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â do: [ :ex | >> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â ex messageText = 'key not found' >> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â ifTrue: [ ^ nil ]. >> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â ^ ex signal ] ]. Â Â Â Â "args not checked against Renamed" >> Â Â Â ^ nil >> >> -- >> Best regards, >> Igor Stasenko AKA sig. >> > > >

Aug. 12, 2011

Re: [Pharo-project] some explanations about what we are doing :)

by Miguel CobÃ¡

El vie, 12-08-2011 a las 15:15 +0200, StÃ©phane Ducasse escribiÃ³: > SystemAnnouncement > this one is special and some of you may not know it. > It is a package that raise announcement for system changes. > The idea is that we will then > 1- change all the tools to register to SystemAnnouncement > 2- replace all the SystemChangeNotification hooks by SystemAnnouncement > 3- remove our old friend SystemChangeNotifier. Fantastic! -- Miguel CobÃ¡ http://twitter.com/MiguelCobaMtz http://miguel.leugim.com.mx

Aug. 12, 2011

[Pharo-project] #name

by Sean P. DeNigris

How is #name used by the system? I often want to use it in my classes, but I don't want to mess with whatever Object is doing with it. There are +++ senders. On the flip side, should the system use a different, more specific, intention-revealing selector to avoid this confusion? Thanks. Sean -- View this message in context: http://forum.world.st/name-tp3739677p3739677.html Sent from the Pharo Smalltalk mailing list archive at Nabble.com.

Aug. 12, 2011

Re: [Pharo-project] I am petrified. I don't know what to say ........... (just look at that)

by StÃ©phane Ducasse

You are really lucky. One the last dinosaurs.... there are rarer and rarer. May be you can improve with a timesRepeat: Stef On Aug 12, 2011, at 5:12 PM, Igor Stasenko wrote: > DiskProxy>>comeFullyUpOnReload: smartRefStream > "Internalize myself into a fully alive object after raw loading from a > DataStream. (See my class comment.) DataStream will substitute the > object from this eval for the DiskProxy." > > | globalObj symbol arrayIndex | > symbol := globalObjectName. "See if class is mapped to another name" > (smartRefStream respondsTo: #renamed) > ifTrue: [ > "If in outPointers in an ImageSegment, remember original class > name. > See mapClass:installIn:. Would be lost otherwise." >>>>>> (thisContext sender sender sender sender sender sender sender sender receiver class == ImageSegment >>>>>> and: [ thisContext sender sender sender sender method == (DataStream compiledMethodAt: #readArray) ]) > ifTrue: [ > arrayIndex := thisContext sender sender sender sender tempAt: > 4. "index var in readArray. Later safer to find i on stack > of context." > smartRefStream renamedConv at: arrayIndex put: symbol ]. "save > original name" > symbol := smartRefStream renamed at: symbol ifAbsent: [ symbol ] ]. "map" > globalObj := Smalltalk globals > at: symbol > ifAbsent: [ > preSelector == nil & (constructorSelector = #yourself) > ifTrue: [ > Transcript > cr; > show: symbol , ' is undeclared.'. > (Undeclared includesKey: symbol) > ifTrue: [ ^ Undeclared at: symbol ]. > Undeclared at: symbol put: nil. > ^ nil ]. > ^ self error: 'Global "' , symbol , '" not found' ]. > preSelector > ifNotNil: [ > Symbol > hasInterned: preSelector > ifTrue: [ :selector | > [ globalObj := globalObj perform: selector ] > on: Error > do: [ :ex | > ex messageText = 'key not found' > ifTrue: [ ^ nil ]. > ^ ex signal ] ] ]. "keep the Proxy if Project does not exist" > constructorSelector ifNil: [ ^ globalObj ]. > Symbol > hasInterned: constructorSelector > ifTrue: [ :selector | > [ ^ globalObj perform: selector withArguments: constructorArgs ] > on: Error > do: [ :ex | > ex messageText = 'key not found' > ifTrue: [ ^ nil ]. > ^ ex signal ] ]. "args not checked against Renamed" > ^ nil > > -- > Best regards, > Igor Stasenko AKA sig. >

Aug. 12, 2011

[Pharo-project] [update 1.4] #14087

by Marcus Denker

14087 ----- Issue 4620: Shout integration http://code.google.com/p/pharo/issues/detail?id=4620 -- Marcus Denker -- http://marcusdenker.de

Aug. 12, 2011

Re: [Pharo-project] I am petrified. I don't know what to say ........... (just look at that)

by Nicolas Cellier

A good example of how you (miss) used Smalltalk super-powers for the good or the evil ! http://www.cincomsmalltalk.com/userblogs/travis/blogView?showComments=true&… ESUG then OOPSLA 2008 Nicolas 2011/8/12 Max Leske <maxleske(a)gmail.com>: > Good luck with refactoring *that*â¦ > > > On 12.08.2011, at 17:12, Igor Stasenko wrote: > >> DiskProxy>>comeFullyUpOnReload: smartRefStream >> Â Â Â "Internalize myself into a fully alive object after raw loading from a >> Â Â Â DataStream. (See my class comment.) DataStream will substitute the >> Â Â Â object from this eval for the DiskProxy." >> >> Â Â Â | globalObj symbol arrayIndex | >> Â Â Â symbol := globalObjectName. Â Â "See if class is mapped to another name" >> Â Â Â (smartRefStream respondsTo: #renamed) >> Â Â Â Â Â Â Â ifTrue: [ >> Â Â Â Â Â Â Â Â Â Â Â "If in outPointers in an ImageSegment, remember original class >> Â Â Â Â Â Â Â Â Â Â Â name. >> Â Â Â Â Â Â Â Â Â Â Â See mapClass:installIn:. Would be lost otherwise." >>>>>>> Â Â Â Â Â Â Â Â Â (thisContext sender sender sender sender sender sender sender sender receiver class == ImageSegment >>>>>>> Â Â Â Â Â Â Â Â Â Â Â Â Â and: [ thisContext sender sender sender sender method == (DataStream compiledMethodAt: #readArray) ]) >> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â ifTrue: [ >> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â arrayIndex := thisContext sender sender sender sender tempAt: >> 4. Â Â "index var in readArray. Later safer to find i on stack >> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â of context." >> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â smartRefStream renamedConv at: arrayIndex put: symbol ]. Â Â Â Â "save >> original name" >> Â Â Â Â Â Â Â Â Â Â Â symbol := smartRefStream renamed at: symbol ifAbsent: [ symbol ] ]. Â Â "map" >> Â Â Â globalObj := Smalltalk globals >> Â Â Â Â Â Â Â at: symbol >> Â Â Â Â Â Â Â ifAbsent: [ >> Â Â Â Â Â Â Â Â Â Â Â preSelector == nil & (constructorSelector = #yourself) >> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â ifTrue: [ >> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Transcript >> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â cr; >> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â show: symbol , ' is undeclared.'. >> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â (Undeclared includesKey: symbol) >> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â ifTrue: [ ^ Undeclared at: symbol ]. >> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Undeclared at: symbol put: nil. >> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â ^ nil ]. >> Â Â Â Â Â Â Â Â Â Â Â ^ self error: 'Global "' , symbol , '" not found' ]. >> Â Â Â preSelector >> Â Â Â Â Â Â Â ifNotNil: [ >> Â Â Â Â Â Â Â Â Â Â Â Symbol >> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â hasInterned: preSelector >> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â ifTrue: [ :selector | >> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â [ globalObj := globalObj perform: selector ] >> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â on: Error >> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â do: [ :ex | >> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â ex messageText = 'key not found' >> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â ifTrue: [ ^ nil ]. >> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â ^ ex signal ] ] ]. Â Â Â "keep the Proxy if Project does not exist" >> Â Â Â constructorSelector ifNil: [ ^ globalObj ]. >> Â Â Â Symbol >> Â Â Â Â Â Â Â hasInterned: constructorSelector >> Â Â Â Â Â Â Â ifTrue: [ :selector | >> Â Â Â Â Â Â Â Â Â Â Â [ ^ globalObj perform: selector withArguments: constructorArgs ] >> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â on: Error >> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â do: [ :ex | >> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â ex messageText = 'key not found' >> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â ifTrue: [ ^ nil ]. >> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â ^ ex signal ] ]. Â Â Â Â "args not checked against Renamed" >> Â Â Â ^ nil >> >> -- >> Best regards, >> Igor Stasenko AKA sig. >> > > >

Aug. 12, 2011

Re: [Pharo-project] I am petrified. I don't know what to say ........... (just look at that)

by Peter Hugosson-Miller

OMFG! :-((( -- Cheers, Peter. On 12 aug 2011, at 17:16, Max Leske <maxleske(a)gmail.com> wrote: > Good luck with refactoring *that*â¦ > > > On 12.08.2011, at 17:12, Igor Stasenko wrote: > >> DiskProxy>>comeFullyUpOnReload: smartRefStream >> "Internalize myself into a fully alive object after raw loading from a >> DataStream. (See my class comment.) DataStream will substitute the >> object from this eval for the DiskProxy." >> >> | globalObj symbol arrayIndex | >> symbol := globalObjectName. "See if class is mapped to another name" >> (smartRefStream respondsTo: #renamed) >> ifTrue: [ >> "If in outPointers in an ImageSegment, remember original class >> name. >> See mapClass:installIn:. Would be lost otherwise." >>>>>>> (thisContext sender sender sender sender sender sender sender sender receiver class == ImageSegment >>>>>>> and: [ thisContext sender sender sender sender method == (DataStream compiledMethodAt: #readArray) ]) >> ifTrue: [ >> arrayIndex := thisContext sender sender sender sender tempAt: >> 4. "index var in readArray. Later safer to find i on stack >> of context." >> smartRefStream renamedConv at: arrayIndex put: symbol ]. "save >> original name" >> symbol := smartRefStream renamed at: symbol ifAbsent: [ symbol ] ]. "map" >> globalObj := Smalltalk globals >> at: symbol >> ifAbsent: [ >> preSelector == nil & (constructorSelector = #yourself) >> ifTrue: [ >> Transcript >> cr; >> show: symbol , ' is undeclared.'. >> (Undeclared includesKey: symbol) >> ifTrue: [ ^ Undeclared at: symbol ]. >> Undeclared at: symbol put: nil. >> ^ nil ]. >> ^ self error: 'Global "' , symbol , '" not found' ]. >> preSelector >> ifNotNil: [ >> Symbol >> hasInterned: preSelector >> ifTrue: [ :selector | >> [ globalObj := globalObj perform: selector ] >> on: Error >> do: [ :ex | >> ex messageText = 'key not found' >> ifTrue: [ ^ nil ]. >> ^ ex signal ] ] ]. "keep the Proxy if Project does not exist" >> constructorSelector ifNil: [ ^ globalObj ]. >> Symbol >> hasInterned: constructorSelector >> ifTrue: [ :selector | >> [ ^ globalObj perform: selector withArguments: constructorArgs ] >> on: Error >> do: [ :ex | >> ex messageText = 'key not found' >> ifTrue: [ ^ nil ]. >> ^ ex signal ] ]. "args not checked against Renamed" >> ^ nil >> >> -- >> Best regards, >> Igor Stasenko AKA sig. >> > >

Aug. 12, 2011

Re: [Pharo-project] I am petrified. I don't know what to say ........... (just look at that)

by Max Leske

Good luck with refactoring *that*â¦ On 12.08.2011, at 17:12, Igor Stasenko wrote: > DiskProxy>>comeFullyUpOnReload: smartRefStream > "Internalize myself into a fully alive object after raw loading from a > DataStream. (See my class comment.) DataStream will substitute the > object from this eval for the DiskProxy." > > | globalObj symbol arrayIndex | > symbol := globalObjectName. "See if class is mapped to another name" > (smartRefStream respondsTo: #renamed) > ifTrue: [ > "If in outPointers in an ImageSegment, remember original class > name. > See mapClass:installIn:. Would be lost otherwise." >>>>>> (thisContext sender sender sender sender sender sender sender sender receiver class == ImageSegment >>>>>> and: [ thisContext sender sender sender sender method == (DataStream compiledMethodAt: #readArray) ]) > ifTrue: [ > arrayIndex := thisContext sender sender sender sender tempAt: > 4. "index var in readArray. Later safer to find i on stack > of context." > smartRefStream renamedConv at: arrayIndex put: symbol ]. "save > original name" > symbol := smartRefStream renamed at: symbol ifAbsent: [ symbol ] ]. "map" > globalObj := Smalltalk globals > at: symbol > ifAbsent: [ > preSelector == nil & (constructorSelector = #yourself) > ifTrue: [ > Transcript > cr; > show: symbol , ' is undeclared.'. > (Undeclared includesKey: symbol) > ifTrue: [ ^ Undeclared at: symbol ]. > Undeclared at: symbol put: nil. > ^ nil ]. > ^ self error: 'Global "' , symbol , '" not found' ]. > preSelector > ifNotNil: [ > Symbol > hasInterned: preSelector > ifTrue: [ :selector | > [ globalObj := globalObj perform: selector ] > on: Error > do: [ :ex | > ex messageText = 'key not found' > ifTrue: [ ^ nil ]. > ^ ex signal ] ] ]. "keep the Proxy if Project does not exist" > constructorSelector ifNil: [ ^ globalObj ]. > Symbol > hasInterned: constructorSelector > ifTrue: [ :selector | > [ ^ globalObj perform: selector withArguments: constructorArgs ] > on: Error > do: [ :ex | > ex messageText = 'key not found' > ifTrue: [ ^ nil ]. > ^ ex signal ] ]. "args not checked against Renamed" > ^ nil > > -- > Best regards, > Igor Stasenko AKA sig. >

Aug. 12, 2011

Re: [Pharo-project] I am petrified. I don't know what to say ........... (just look at that)

by Mariano Martinez Peck

Search in your emails for this same method. I've been surprised before you ;) On Fri, Aug 12, 2011 at 5:12 PM, Igor Stasenko <siguctua(a)gmail.com> wrote: > DiskProxy>>comeFullyUpOnReload: smartRefStream > "Internalize myself into a fully alive object after raw loading from > a > DataStream. (See my class comment.) DataStream will substitute the > object from this eval for the DiskProxy." > > | globalObj symbol arrayIndex | > symbol := globalObjectName. "See if class is mapped to another > name" > (smartRefStream respondsTo: #renamed) > ifTrue: [ > "If in outPointers in an ImageSegment, remember > original class > name. > See mapClass:installIn:. Would be lost otherwise." > >>>>> (thisContext sender sender sender sender sender > sender sender sender receiver class == ImageSegment > >>>>> and: [ thisContext sender sender sender > sender method == (DataStream compiledMethodAt: #readArray) ]) > ifTrue: [ > arrayIndex := thisContext sender > sender sender sender tempAt: > 4. "index var in readArray. Later safer to find i on stack > of context." > smartRefStream renamedConv at: > arrayIndex put: symbol ]. "save > original name" > symbol := smartRefStream renamed at: symbol > ifAbsent: [ symbol ] ]. "map" > globalObj := Smalltalk globals > at: symbol > ifAbsent: [ > preSelector == nil & (constructorSelector = > #yourself) > ifTrue: [ > Transcript > cr; > show: symbol , ' is > undeclared.'. > (Undeclared includesKey: symbol) > ifTrue: [ ^ Undeclared at: > symbol ]. > Undeclared at: symbol put: nil. > ^ nil ]. > ^ self error: 'Global "' , symbol , '" not found' ]. > preSelector > ifNotNil: [ > Symbol > hasInterned: preSelector > ifTrue: [ :selector | > [ globalObj := globalObj perform: > selector ] > on: Error > do: [ :ex | > ex messageText = > 'key not found' > ifTrue: [ ^ > nil ]. > ^ ex signal ] ] ]. > "keep the Proxy if Project does not exist" > constructorSelector ifNil: [ ^ globalObj ]. > Symbol > hasInterned: constructorSelector > ifTrue: [ :selector | > [ ^ globalObj perform: selector withArguments: > constructorArgs ] > on: Error > do: [ :ex | > ex messageText = 'key not found' > ifTrue: [ ^ nil ]. > ^ ex signal ] ]. "args not > checked against Renamed" > ^ nil > > -- > Best regards, > Igor Stasenko AKA sig. > > -- Mariano http://marianopeck.wordpress.com

Aug. 12, 2011

[Pharo-project] Ring question

by StÃ©phane Ducasse

Hi veronica How do I create a RGMethodDefinition for a SmalltalkClass I used class:selector: but this is wrong because for example for a class RGMethodDefinition class: Point class selector: #new but then I get error when querying className that 'Point class' is not in the SystemDictionary or something like that. I suggest to add a creation method for realClass: selector: what do you think? Stef

Aug. 12, 2011