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 ?