adecomm/okform.i

   1 /*************************************************************/
   2 /* Copyright (c) 1984-1993 by Progress Software Corporation  */
   3 /*                                                           */
   4 /* All rights reserved.  No part of this program or document */
   5 /* may be  reproduced in  any form  or by  any means without */
   6 /* permission in writing from PROGRESS Software Corporation. */
   7 /*************************************************************/
   8
   9 /* PROGRAM: okform.i
  10 **
  11 ** This file is part of a trio: adestds.i okform.i okrun.i.  This file should
  12 ** be included at the end of a FORM statement to provide a standardized look
  13 ** for the OK CANCEL bar.  For more information on this, see the document
  14 ** design\ade\misc\sullivan.doc.
  15 **
  16 ** PARAMETERS:
  17 ** &BOX      widget name of the rectangle to be used for the background box
  18 ** &STATUS   set to yes if a status line appears above the bottom row of buttons
  19 ** &OK       widget name of the ok button
  20 ** &CANCEL   widget name of the cancel button (optional)
  21 ** &OTHER    4GL for any intervening buttons (optional)
  22 ** &HELP     widget name of the help button (optional - e.g. for tty)
  23 */
  24
  25 /* stdui.i is required for this file */
  26 /* this statement chucks core - reported as bug 93-04-30-27
  27 &IF DEFINED(ADESTDSI) = 0 &THEN
  28 { adecomm/adestds.i }
  29 &ENDIF
  30 */
  31
  32     /* if there is a status area, use a smaller vertical margin */
  33     &IF "{&STATUS}" = "yes" &THEN
  34     skip({&VM_WID})
  35     &ELSE
  36     skip({&VM_WIDG})
  37     &ENDIF
  38
  39     /* if there is a Sullivan blue box, place it here.  The box will take
  40        up .25 PPU of vertical height.  If the box does not exist, then skip
  41        this height explicitly */
  42     &IF {&OKBOX} &THEN
  43     {&BOX} {&AT_OKBOX}
  44     skip(0)
  45     &ELSE
  46     skip({&IVM_OKBOX})
  47     &ENDIF
  48
  49     /* place the OK, Cancel buttons, then any intervening buttons, followed by
  50        help */
  51     {&OK} {&AT_OKBTN}
  52     &IF "{&CANCEL}" <> "" &THEN
  53       space({&HM_DBTN}) {&CANCEL}
  54     &ENDIF
  55     {&OTHER}
  56     &IF "{&HELP}" <> "" &THEN
  57       space({&HM_DBTNG}) {&HELP} space({&HFM_OKBOX})
  58     &ENDIF
  59
  60     /* if there is an ok box, skip to allow for it below the buttons */
  61     &IF {&OKBOX} &THEN
  62     skip({&IVM_OKBOX})
  63     &ENDIF
  64
  65     /* skip a margin below the box or the buttons */
  66     skip({&VM_OKBOX})
  67
  68