10 May
2007
10 May
'07
7:25 p.m.
Danke Vielmals, Lukas! Alles Klar.
Brian
On May 10, 2007, at 10:58 AM, Lukas Renggli wrote:
You have to tell Magritte how to display the organization. By default
it assumes an MAStringDescription as reference, however in your case
this seems to be something else. Try:
descriptionOrg
^ (MASingleOptionDescription new)
selectorAccessor: #org;
reference: ALOrganization description;
label: 'Organization';
options: ALStorage orgs;
priority: 20;
yourself
Cheers,
Lukas
Try something like (I just copied this example from
Pier):
descriptionAlign
^ MASingleOptionDescription new
selectorAccessor: #align;
label: 'Align';
options: #(nil #left #center #right );
yourself
Ok, thanks for helping. I've tried that and here is what I have:
descriptionOrg
^ (MASingleOptionDescription new)
selectorAccessor: #org;
label: 'Organization';
options: ALStorage orgs;
priority: 20;
yourself
ALStorage>>orgs returns an OrderedCollection. The error I get is:
ALOrganization(Object)>>doesNotUnderstand: #do:
Receiver: an ALOrganization
Arguments and temporary variables:
aMessage: do: [] in WriteStream(Stream)>>nextPutAll: {[:v | self
nextPut: v]}
Receiver's instance variables:
fullName: 'AbleLink Technologies, Inc.'
address: nil
caregivers: nil
clients: nil
licenses: nil
shortName: 'AbleLink'
contactManager: an ALServiceContactManager
forums: nil
uuid: nil
staff: an OrderedCollection(an ALStaffMember)
customers: nil
WriteStream(Stream)>>nextPutAll:
Receiver: a WriteStream ''
Arguments and temporary variables:
aCollection: an ALOrganization
v: nil
Receiver's instance variables:
collection: ''
position: 0
readLimit: 0
writeLimit: 0
WriteStream>>nextPutAll:
Receiver: a WriteStream ''
Arguments and temporary variables:
aCollection: an ALOrganization
newEnd: nil
Receiver's instance variables:
collection: ''
position: 0
readLimit: 0
writeLimit: 0
MAStringWriter>>visitStringDescription:
Receiver: a MAStringWriter
Arguments and temporary variables:
aDescription: a MAStringDescription label: '' comment: nil
Receiver's instance variables:
stream: a WriteStream ''
object: an ALOrganization
--- The full stack ---
ALOrganization(Object)>>doesNotUnderstand: #do:
WriteStream(Stream)>>nextPutAll:
WriteStream>>nextPutAll:
MAStringWriter>>visitStringDescription:
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
MAStringDescription>>acceptMagritte:
MAStringWriter(MAVisitor)>>visit:
MAStringWriter(MAWriter)>>write:description:to:
MAStringWriter>>write:description:to:
MAStringWriter(MAWriter)>>write:description:
MAStringWriter class(MAWriter class)>>write:description:
MAStringDescription(MADescription)>>toString:writer:
MAStringDescription(MADescription)>>toString:
MASingleOptionDescription(MAOptionDescription)>>labelForOption:
MASelectListComponent(MAOptionComponent)>>labelForOption:
[] in MASelectListComponent>>renderEditorOn: {[:value | self
labelForOption: value]}
WASelectTag(WACollectionTag)>>labelForOption:
[] in WASelectTag>>optionsOn: {[:each | brush := html option. (self
isDisabled: each) ifTrue: [brush di...]}
OrderedCollection>>do:
WASelectTag>>optionsOn:
[] in WASelectTag>>with: {[self optionsOn: canvas. aBlock value.
self hasOther ifTrue: [canvas opt...]}
BlockContext>>renderOn:
WASelectTag(WATagBrush)>>within:
[] in WASelectTag(WATagBrush)>>with: {[self within: aBlock]}
BlockContext>>renderOn:
WARenderCanvas(WACanvas)>>nest:
WASelectTag(WABrush)>>with:
WASelectTag(WATagBrush)>>with:
WASelectTag>>with:
WASelectTag(WABrush)>>close
WARenderCanvas(WACanvas)>>flush
WARenderCanvas>>close
MASelectListComponent(WAPresenter)>>renderWithContext:
[] in MASelectListComponent(WAComponent)>>renderOn: {[:each | each
renderWithContext: aRenderer context]}
MASelectListComponent(WAComponent)>>decorationChainDo:
MASelectListComponent(WAComponent)>>renderOn:
WARenderCanvas(WACanvas)>>render:
MATableRenderer(MAComponentRenderer)>>renderControl:
[] in MATableRenderer>>renderControl: {[super renderControl:
aDescription]}
BlockContext>>renderOn:
WATableDataTag(WATagBrush)>>within:
[] in WATableDataTag(WATagBrush)>>with: {[self within: aBlock]}
BlockContext>>renderOn:
WARenderCanvas(WACanvas)>>nest:
WATableDataTag(WABrush)>>with:
WATableDataTag(WATagBrush)>>with:
MATableRenderer>>renderControl:
MATableRenderer(MAComponentRenderer)>>renderElement:
[] in MATableRenderer>>renderElement: {[super renderElement:
aDescription]}
BlockContext>>renderOn:
WAGenericTag(WATagBrush)>>within:
[] in WAGenericTag(WATagBrush)>>with: {[self within: aBlock]}
BlockContext>>renderOn:
WARenderCanvas(WACanvas)>>nest:
WAGenericTag(WABrush)>>with:
WAGenericTag(WATagBrush)>>with:
WARenderCanvas(WAHtmlCanvas)>>tableRow:
MATableRenderer>>renderElement:
MATableRenderer(MAComponentRenderer)>>visitElementDescription:
MATableRenderer(MAVisitor)>>visitReferenceDescription:
MATableRenderer(MAVisitor)>>visitOptionDescription:
...etc...
_______________________________________________
SmallWiki, Magritte, Pier and Related Tools ...
https://www.iam.unibe.ch/mailman/listinfo/smallwiki
--
Lukas Renggli
http://www.lukas-renggli.ch
_______________________________________________
SmallWiki, Magritte, Pier and Related Tools ...
https://www.iam.unibe.ch/mailman/listinfo/smallwiki