home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format 85 / af085a.adf / archives / af85a1.lzx / Dialog_Procedures / Source / InputRequester.ASC < prev    next >
Encoding:
Text File  |  1978-07-26  |  1.0 KB  |  54 lines
  1. Procedure _INPUTREQUESTER[M$,TXT$,L,ML]
  2.    '
  3.    Shared _DIALOGBUTTON$,_BACK,_COLOUR,_TEXT,_LIGHT,_SHADOW
  4.    '
  5.    _TEMP1$=_DIALOGBUTTON$
  6.    _TEMP2$=_FONTNAME$
  7.    _TEMP3=_FONTSIZE
  8.    _DIALOGBUTTON$=""
  9.    '
  10.    _OPENDIALOGSCREEN[7,58,50]
  11.    H=57
  12.    '
  13.    _DRAW3DBOX[0,0,639,H-1,"",4,0,_COLOUR]
  14.    Set Pattern 2
  15.    _DRAW3DBOX[3,10,636,H-2,"",3,_LIGHT,_BACK]
  16.    Set Pattern 0
  17.    '
  18.    _DRAW3DBOX[2,1,637,9,M$,2,_TEXT,_COLOUR]
  19.    _DRAW3DBOX[8,13,632,H-20,"",3,,_BACK]
  20.    '
  21.    _ADDBUTTON[20,H-18,120,H-5,"Cancel",1]
  22.    _ADDBUTTON[519,H-18,619,H-5,"OK",2]
  23.    '
  24.    L=Min(L,76)
  25.    XX=40-Int(L/2)
  26.    _ADDINPUTBUTTON[XX,3,TXT$,L,ML,-3]
  27.    '
  28.    Do 
  29.       '
  30.       _CHECKBUTTONS
  31.       _BUTTONZONE=Param
  32.       '
  33.       If _BUTTONZONE=1
  34.          TXT$=""
  35.          Exit 
  36.       End If 
  37.       '
  38.       If _BUTTONZONE=2
  39.          Exit 
  40.       End If 
  41.       '
  42.       If _BUTTONZONE=3
  43.          _ADDINPUTBUTTON[XX,3,TXT$,L,ML,0]
  44.          TXT$=Param$
  45.       End If 
  46.       '
  47.    Loop 
  48.    '
  49.    _DIALOGBUTTON$=_TEMP1$
  50.    _SETFONT[_TEMP2$,_TEMP3]
  51.    Screen Close 7
  52.    '
  53. End Proc[TXT$]
  54.