On Thu, Mar 08, 2012 at 08:24:02AM +0100, Alexander Burger wrote:
> 
>    (gui '(+E/R +Chart) '(children : home obj) 5
>       '((This) (list NIL This (: nm)))
>       car )
>    (<table> NIL NIL
>       '(NIL (NIL "Class") (NIL "Name"))
>       (do 6
>          (<row> NIL
>             (gui 1 '(+ChoButton) '(choMaster (field 1)))
>             (gui 2 '(+ClassField) '(curr)
>                '(("Armour" +Armour +Item) ("Weapon" +Weapon +Item )) )
>             (gui 3 '(+TextField))
>             (gui 4 '(+DelRowButton))
>             (gui 5 '(+BubbleButton)) ) )
>       (scroll 6 T)

Obvoiusly, '(: nm)' in the chart's get function should be '(: name)'.


Then, if you want the name to be editable in the chart, you can change
the above to

   ...
   (gui '(+E/R +Chart) '(children : home obj) 5
      '((This) (list NIL This This))
      car )
   ...
               '(("Armour" +Armour +Item) ("Weapon" +Weapon +Item )) )
            (gui 3 '(+Obj +TextField) '(name +Master) 30)
            (gui 4 '(+DelRowButton))
   ...

That is, you pass the object 'This' instead of just the name '(: name)'
to the chart field, and make the field an '+Obj' field (holding an
object instead of just plain text).

Cheers,
- Alex
-- 
UNSUBSCRIBE: mailto:picolisp@software-lab.de?subject=Unsubscribe

Reply via email to