21.1 Buttonadds Interface

ORIGIN '../controls';

INCLUDE '../private/controlsbody'

--- buttonlib: attributes ---
labelHeight: 
  (# ts: ^textStyle;
  do style->ts[];
  exit ts.lineHeight
  #);
labelWidth: 
  (# ts: ^textStyle;
  do style->ts[];
  exit (label->ts.widthOfText)
  #)