21.12 Guienvadds Interface

ORIGIN '../guienv';
LIB_DEF 'guienvadds' '../../lib';
BODY 'private/guienvaddsbody';
-- windowItemLib: attributes --


defineRect:
  (* Let the use drag the rectangle. 
   * doLeft,doTop,doRight,doBottom specifies which 
   * sides of the rectangle should follow the mouse.
   *)
  (# r: @rectangle;
     doLeft,doTop,doRight,doBottom: @boolean;
  enter (r,doLeft,doTop,doRight,doBottom)
  ...
  exit r
  #);
bringToFront:
  (* Bring this(windowItem) to the front of its brothers *)
  (# 
  ...
  #);
bringBack:
  (#
  ...
  #);

preferredSize:
  (* If this(windowItem) can accept the suggested width and height
   * these wille be returned otherwise some other values are returned.
   *)
  (# suggestedWidth, suggestedHeight: @integer;
     suggest: @boolean;
     preferredWidth, preferredHeight: @integer;
  enter (# 
        enter (suggestedWidth, suggestedHeight)
        do true -> suggest;
        #)
  ...
  exit (preferredWidth, preferredHeight)
  #);
drawShadows:
  (# r: @rectangle;
     type: @integer;
  enter (r, type)
  ...
  #);

delegateMouseEvents:
  (# value: @boolean;
  enter value
  ...
  #);


-- windowLib: attributes --

translate:
  (# from, to: ^windowItem;
     p: @point;
     result: @point;
  enter (p, from[], to[])
  ...
  exit result
  #);

launchFile:
  (# fileName: ^text;
  enter fileName[]
  do ...
  #);

setWindowIcon:
  (# id: @integer;
  enter id
  ...
  #);

setWindowIconPixmap:
  (# pm:^pixmap
  enter pm[]
  ...
  #);

loadWindowIcon:
  (# filename: ^text;
  enter filename[] 
  ...  
  #);

setApplIcon:
  (# id: @integer;
  enter id
  ...
  #);

loadMouseCursor:
  (# filename: ^text;
  enter filename[]
     ...
  #);

setMouseCursor:
  (# symbolConstant: @integer;
  enter symbolConstant
     ...
  #)