:) I'm sure that there are other little gremlins that we will kill one day or the others. open a ticket. I still want to remove the setName and friend on Morph :) Stef
On Jul 12, 2011, at 3:24 AM, Igor Stasenko wrote: > Just found that scrollbars are assigned 'slotname' when you creating them > and when it comes to send events to their model, it end up in this method: > > use: cachedSelector orMakeModelSelectorFor: selectorBody in: selectorBlock > | selector | > model ifNil: [^ nil]. > cachedSelector ifNil: > ["Make up selector from slotname if any" > selector := (slotName ifNil: [selectorBody] > ifNotNil: > [slotName , selectorBody]) asSymbol. > (model class canUnderstand: selector) ifFalse: > [(self confirm: 'Shall I compile a null > response for' > , Character cr asString > , model class name , > '>>' , selector) > ifFalse: [self halt]. > model class compile: (String streamContents: > [:s | selector > keywords doWithIndex: > > [:k :i | s nextPutAll: k , ' arg' , i printString]. > s cr; > nextPutAll: '"Automatically generated null response."'. > s cr; > nextPutAll: '"Add code below for appropriate behavior..."'.]) > classified: 'input > events' > notifying: nil]] > ifNotNil: > [selector := cachedSelector]. > ^ selectorBlock value: selector > > > this is incredible.. > > -- > Best regards, > Igor Stasenko AKA sig. >
