/* ======================================== */
/*  FINAL WRITER AREXX MACRO                */
/*    by Nigel S. Domaingue, 28/1/95        */
/*  Draw_Arrow                              */
/*  $Ver:  Draw_Arrow v1.0 (30/1/95)        */
/* ======================================== */

Options Results

/* Must determine the current page and the current  */
/* scroll-position so that the arrow will be placed */
/* in the field of view.                            */
/*   Draws diagonal of a 1"x 1" box.                */

Status Page
CurPage = Result

Status ScrollPos
Parse VAR Result Top Left
Top = Top + 1
Left = Left + 1
ydisp=top+1
xdisp=left+1

GraphicTool
DrawLine  CurPage Top Left ydisp xdisp Arrow
Redraw