Status: Accepted
Owner:
[hidden email]
Labels: Milestone-1.4
New issue 4513 by
[hidden email]: ScrollBar and MorphicModel needs
cleaning
http://code.google.com/p/pharo/issues/detail?id=4513Just 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..
_______________________________________________
Pharo-bugtracker mailing list
[hidden email]
http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-bugtracker
Locked
