gtInspectorMagritteIn: composite
<gtInspectorPresentationOrder: 30>
| table |
table := composite table
title: 'Magritte';
display: [ self magritteDescription children collect: [ :desc |
desc label -> (desc toString: (desc accessor read:
self)) ] ];
column: 'Field' evaluated: #key;
column: 'Value' evaluated: #value;
send: #value
descriptionName
<magritteDescription>
^ MAStringDescription new
accessor: #name;
label: 'Name';
priority: 100;
yourself
descriptionPages
etc...
<http://forum.world.st/file/n4817448/Screenshot_2015-04-04_00.png>
-----
Cheers,
Sean
--
View this message in context:
http://forum.world.st/Magritte-Auto-GT-Presentation-tp4817448.html
Sent from the Pharo Smalltalk Developers mailing list archive at Nabble.com.
