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