21.10 Graphicsadds Interface

ORIGIN '../graphics';
LIB_ITEM 'guienv';
BODY 'private/graphicsaddsbody';
INCLUDE 'rasteradds';

-- graphicsLib: attributes --
clipRectangle:
  (# r: @rectangle;
  enter r
  ...
  #);
isInClip: booleanValue
  (# r: @rectangle;
  enter r
  ...
  #);
drawIconResource:
  (# r: ^iconResource;
     h,v: @integer;
  enter (r[],h,v)
  ...
  #)