home *** CD-ROM | disk | FTP | other *** search
/ Vectronix 2 / VECTRONIX2.iso / FILES_01 / P_FOTRAN.LZH / DEMOS.FOR / DIALDEMO.FOR < prev    next >
Text File  |  1987-12-31  |  2KB  |  42 lines
  1.         PROGRAM tdialog
  2.         IMPLICIT none
  3.         INCLUDE 'gemconst'
  4.  
  5.         INTEGER*4 my_form, x, y, w, h, ret
  6.         INTEGER*4 cancel, okbutt, etnumber
  7.  
  8.         INTEGER*4 AESret, form_do, form_alert, objc_create, objc_item
  9.  
  10.         CALL appl_init
  11.         IF (AESret .ne. -1) THEN
  12.           my_form = objc_create(10, 10, 10, 30, 20)
  13.           cancel = objc_item(my_form, 0, G_BUTTON,
  14.      -                       EXIT .OR. DEFAULT .OR. SELECTABLE, 0,
  15.      -                       20, 15, 8, 1, 0, 0)
  16.           CALL objc_newtext(my_form, cancel, 'Cancel'//char(0))
  17.           okbutt = objc_item(my_form, 0, G_BUTTON,
  18.      -                       EXIT .OR. SELECTABLE, 0,
  19.      -                       10, 15, 8, 1, 0, 0)
  20.           CALL objc_newtext(my_form, okbutt, 'Ok'//char(0))
  21.           etnumber = objc_item(my_form, 0, G_FTEXT, EDITABLE, 0, 
  22.      -                      3, 10, 20, 1, 0, $0180)
  23.           CALL objc_tedinfo(my_form, etnumber, '12'//char(0),
  24.      -                      'Enter number _____'//char(0),
  25.      -                      '99999'//char(0), 3, 0)
  26.           CALL form_center(my_form, x, y, w, h)
  27.           CALL form_dial(fmd_start, 0, 0, 0, 0, x, y, w, h)
  28.           CALL objc_draw(my_form, 0, 2, x, y, w, h)
  29.           ret = form_do(my_form, etnumber)
  30.           CALL form_dial(fmd_finish, 0, 0, 0, 0, x, y, w, h)
  31.           IF (ret .eq. okbutt) THEN
  32.             ret = form_alert(1,'[1][OK][OK]'//char(0)) 
  33.           ELSE IF (ret .eq. cancel) THEN
  34.             ret = form_alert(1,'[1][CANCEL][CANCEL]'//char(0))
  35.           ELSE
  36.             ret = form_alert(1,'[1][??????][???????]'//char(0))
  37.           END IF
  38.         CALL appl_exit
  39.       END IF
  40.       END
  41.     
  42.