Ok I think get your question. Not an easy one :) So LabelModel knows its AbstractSpec with a class side method: LabelModel class>>defaultSpec <spec> ^ {#LabelSpec. #model:. #model. #getEnabledSelector:. #enabled. #getTextSelector:. #getText. #vResizing:. #shrinkWrap. #hResizing:. #spaceFill. #borderWidth:. #(model borderWidth). #borderColor:. #(model borderColor). #dragEnabled:. #(model dragEnabled). #dropEnabled:. #(model dropEnabled). #setBalloonText:. { #model . #help}} So you have LabelModel->#LabelSpec. This symbol, #LabelSpec, corresponds to a class. You can check: SpecBinder class>>initializeBindings "self initializeBindings" bindings := IdentityDictionary new. bindings at: #ListSpec put: ListSpec; at: #MultiColumnListSpec put: MultiColumnListSpec; at: #IconListSpec put: IconListSpec; at:#model put: ModelSpec; at: #RawSpec put: RawSpec; at: #ComposableSpec put: ComposableSpec; at: #TextSpec put: TextSpec; at: #ButtonSpec put: ButtonSpec; at: #CheckboxSpec put: CheckboxSpec; at: #DropListSpec put: DropListSpec; at: #LabelSpec put: LabelSpec; at: #FrameLayoutSpec put: FrameLayoutSpec; at: #TextFieldSpec put: TextFieldSpec; at: #TreeSpec put: TreeSpec; at: #WindowSpec put: WindowSpec; at:#DialogWindowSpec put: DialogWindowSpec; So you have LabelModel->#LabelSpec->LabelSpec. LabelSpec is an AbstractSpec and subclasses of AbstractSpec has the method classSymbol. Here we have LabelSpec>>classSymbol ^ #Label So you have LabelModel->#LabelSpec->LabelSpec->#Label. Now this symbol corresponds to a class. You can check: MorphicBindings>>initializeClassesDictionary ^ IdentityDictionary new at: #List put: #PluggableListMorph; at: #IconList put: #PluggableIconListMorph; at: #Text put: #PluggableTextMorph; at: #Button put: #PluggableButtonMorph; at: #Panel put: #PanelMorph; at: #Checkbox put: #CheckboxMorph; at: #DropList put: #DropListMorph; at: #TextField put: #PluggableTextFieldMorph; at: #Label put: #LabelMorph; at: #MultiColumnList put: #PluggableMultiColumnListMorph; at: #Tree put: #MorphTreeMorph; at: #Slider put: #PluggableSliderMorph; at: #FrameLayout put: #LayoutFrame; at: #Window put: #SpecWindow; at: #DialogWindow put: #SpecDialogWindow; yourself So you have LabelModel->#LabelSpec->LabelSpec->#Label->LabelMorph. Does that answer your question this time ? 2013/8/13 Erwan Douaille <douailleerwan@gmail.com>
Hi,
Does anyone can explain me how/where the link is ? I guess its related to AbstractSpec subclasses, but i don't know how does it work.
I will be at lab the whole week.
2013/8/12 Clément Bera <clement.bera@minesdedouai.fr> A spec model (ComposableModel) has a window (WindowModel), this window has a window (SpecWindow), this window inherits from StandardWindow which inherits from SystemWindow which inherits from MorphicModel which inherits fromBorderedMorph which inherits from Morph
Does that answer your question ?
No :)
I mean How the labelModel know than his morph is a LabelMorph ?
-- Best regards,
Douaille Erwan <douaille.erwan@gmail.com>