new/System/Mod/Mechanisms.txt

   1 MODULE Mechanisms;
   2
   3         (* THIS IS TEXT COPY OF BlackBox 1.6-rc6 System/Mod/Mechanisms.odc *)
   4         (* DO NOT EDIT *)
   5
   6         IMPORT Kernel, Views;
   7
   8         CONST
   9                 (** FocusBorderCursor/SelBorderCursor result **)
  10                 inside* = -1; outside* = -2;    (** plus defined Ports cursors **)
  11
  12                 (** TrackToResize op **)
  13                 cancelResize* = 0; resize* = 1;
  14
  15                 (** TrackToDrop op **)
  16                 cancelDrop* = 0; copy* = 1; move* = 2; link* = 3;
  17
  18                 (** TrackToPick op **)
  19                 cancelPick* = 0; pick* = 1; pickForeign* = 2;
  20
  21         TYPE
  22                 Hook* = POINTER TO ABSTRACT RECORD (Kernel.Hook) END;
  23
  24         VAR hook: Hook;
  25
  26         PROCEDURE SetHook*(h: Hook);
  27         BEGIN
  28                 hook := h
  29         END SetHook;
  30
  31         PROCEDURE (hook: Hook) MarkFocusBorder* (host: Views.Frame;
  32                                                                                 focus: Views.View; l, t, r, b: INTEGER;
  33                                                                                 show: BOOLEAN), NEW, ABSTRACT;
  34         PROCEDURE (hook: Hook) MarkSingletonBorder* (host: Views.Frame;
  35                                                                                 view: Views.View; l, t, r, b: INTEGER;
  36                                                                                 show: BOOLEAN), NEW, ABSTRACT;
  37
  38         PROCEDURE (hook: Hook) FocusBorderCursor* (host: Views.Frame;
  39                                                                                 view: Views.View; l, t, r, b: INTEGER;
  40                                                                                 x, y: INTEGER): INTEGER, NEW, ABSTRACT;
  41         PROCEDURE (hook: Hook) SelBorderCursor* (host: Views.Frame;
  42                                                                                 view: Views.View; l, t, r, b: INTEGER;
  43                                                                                 x, y: INTEGER): INTEGER, NEW, ABSTRACT;
  44
  45         PROCEDURE (hook: Hook) TrackToResize* (host: Views.Frame; view: Views.View;
  46                                                                                 minW, maxW, minH, maxH: INTEGER;
  47                                                                                 VAR l, t, r, b: INTEGER; VAR op: INTEGER;
  48                                                                                 VAR x, y: INTEGER; VAR buttons: SET), NEW, ABSTRACT;
  49         PROCEDURE (hook: Hook) TrackToDrop* (source: Views.Frame; view: Views.View;
  50                                                                                 isSingle: BOOLEAN; w, h, rx, ry: INTEGER;
  51                                                                                 VAR dest: Views.Frame; VAR destX, destY: INTEGER;
  52                                                                                 VAR op: INTEGER;
  53                                                                                 VAR x, y: INTEGER; VAR buttons: SET), NEW, ABSTRACT;
  54         PROCEDURE (hook: Hook) TrackToPick* (source: Views.Frame;
  55                                                                                 VAR dest: Views.Frame; VAR destX, destY: INTEGER;
  56                                                                                 VAR op: INTEGER;
  57                                                                                 VAR x, y: INTEGER; VAR buttons: SET), NEW, ABSTRACT;
  58
  59         PROCEDURE (hook: Hook) PopUpAndSelect* (f: Views.Frame;
  60                                                                                 n, this: INTEGER;
  61                                                                                 s: ARRAY OF ARRAY OF CHAR;
  62                                                                                 enabled, checked: ARRAY OF BOOLEAN;
  63                                                                                 VAR i: INTEGER;
  64                                                                                 VAR x, y: INTEGER; VAR buttons: SET), NEW, ABSTRACT;
  65
  66         PROCEDURE MarkFocusBorder* (host: Views.Frame;
  67                                                                                 focus: Views.View; l, t, r, b: INTEGER;
  68                                                                                 show: BOOLEAN);
  69         BEGIN
  70                 hook.MarkFocusBorder(host, focus, l, t, r, b, show)
  71         END MarkFocusBorder;
  72
  73         PROCEDURE MarkSingletonBorder* (host: Views.Frame;
  74                                                                                 view: Views.View; l, t, r, b: INTEGER;
  75                                                                                 show: BOOLEAN);
  76         BEGIN
  77                 hook.MarkSingletonBorder(host, view, l, t, r, b, show)
  78         END MarkSingletonBorder;
  79
  80         PROCEDURE FocusBorderCursor* (host: Views.Frame;
  81                                                                                 view: Views.View; l, t, r, b: INTEGER;
  82                                                                                 x, y: INTEGER): INTEGER;
  83         BEGIN
  84                 RETURN hook.FocusBorderCursor(host, view, l, t, r, b, x, y)
  85         END FocusBorderCursor;
  86
  87         PROCEDURE SelBorderCursor* (host: Views.Frame;
  88                                                                                 view: Views.View; l, t, r, b: INTEGER;
  89                                                                                 x, y: INTEGER): INTEGER;
  90         BEGIN
  91                 RETURN hook.SelBorderCursor(host, view, l, t, r, b, x, y)
  92         END SelBorderCursor;
  93
  94         PROCEDURE TrackToResize* (host: Views.Frame; view: Views.View;
  95                                                                                 minW, maxW, minH, maxH: INTEGER;
  96                                                                                 VAR l, t, r, b: INTEGER; VAR op: INTEGER;
  97                                                                                 VAR x, y: INTEGER; VAR buttons: SET);
  98         BEGIN
  99                 hook.TrackToResize(host, view, minW, maxW, minH, maxH, l, t, r, b, op, x, y, buttons)
 100         END TrackToResize;
 101
 102         PROCEDURE TrackToDrop* (source: Views.Frame; view: Views.View;
 103                                                                                 isSingle: BOOLEAN; w, h, rx, ry: INTEGER;
 104                                                                                 VAR dest: Views.Frame; VAR destX, destY: INTEGER;
 105                                                                                 VAR op: INTEGER;
 106                                                                                 VAR x, y: INTEGER; VAR buttons: SET);
 107         BEGIN
 108                 hook.TrackToDrop(source, view, isSingle, w, h, rx, ry, dest, destX, destY, op, x, y, buttons)
 109         END TrackToDrop;
 110
 111         PROCEDURE TrackToPick* (source: Views.Frame;
 112                                                                                 VAR dest: Views.Frame; VAR destX, destY: INTEGER;
 113                                                                                 VAR op: INTEGER;
 114                                                                                 VAR x, y: INTEGER; VAR buttons: SET);
 115         BEGIN
 116                 hook.TrackToPick(source, dest, destX, destY, op, x, y, buttons)
 117         END TrackToPick;
 118
 119         PROCEDURE PopUpAndSelect* (f: Views.Frame;
 120                                                                                 n, this: INTEGER;
 121                                                                                 s: ARRAY OF ARRAY OF CHAR;
 122                                                                                 enabled, checked: ARRAY OF BOOLEAN;
 123                                                                                 VAR i: INTEGER;
 124                                                                                 VAR x, y: INTEGER; VAR buttons: SET);
 125         BEGIN
 126                 hook.PopUpAndSelect(f, n, this, s, enabled, checked, i, x, y, buttons)
 127         END PopUpAndSelect;
 128
 129 END Mechanisms.