'
INLINE ob_spec%,118
'
> PROCEDURE deffn_s
  ' Objekt-Text abfragen
  DEFFN get_text$(tr%,obj&)=CHAR{C:ob_spec%(L:tr%,obj&)}
RETURN
> PROCEDURE set_text(tr%,obj&,text$,r!)
  CHAR{C:ob_spec%(L:tr%,obj&)}=text$
RETURN