home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format 85 / af085a.adf / archives / af85a1.lzx / Dialog_Procedures / Source / Example.AMOS / Example.amosSourceCode
Encoding:
AMOS Source Code  |  1978-07-26  |  3.5 KB  |  179 lines
  1. _DRAWTITLEBAR[""]
  2. '
  3. _ADDBUTTON[50,50,150,100,"Open|Window",1]
  4. '
  5. _TICK=1
  6. _ADDTICKBOX[50,120,_TICK,2]
  7. '
  8. _CTEXT$="'This|Is|^An|Example"
  9. _POS=4
  10. _ADDCYCLEBUTTON[50,150,150,166,_CTEXT$,_POS,3]
  11. '
  12. _TEXT$="This is "
  13. _ADDINPUTBUTTON[16,16,_TEXT$,10,20,-4]
  14. '
  15. _DRAWUSEROBJECT[192,45,225,93,"GBX"]
  16. '
  17. _GROUP1=5
  18. _ADDRADIOBUTTON[200,50,1,1,0,-5]
  19. _ADDRADIOBUTTON[200,60,1,2,0,-6]
  20. _ADDRADIOBUTTON[200,70,1,3,0,-7]
  21. _ADDRADIOBUTTON[200,80,1,4,0,-8]
  22. _SETRADIO[_GROUP1]
  23. '
  24. _DRAWUSEROBJECT[242,45,275,93,"GBX"]
  25. '
  26. _GROUP2=11
  27. _ADDRADIOBUTTON[250,50,2,1,0,-9]
  28. _ADDRADIOBUTTON[250,60,2,2,0,-10]
  29. _ADDRADIOBUTTON[250,70,2,3,0,-11]
  30. _ADDRADIOBUTTON[250,80,2,4,0,-12]
  31. _SETRADIO[_GROUP2]
  32. '
  33. _HTOTAL=300
  34. _HPOS=10
  35. _HORIZONTALSLIDER[20,175,580,11,_HTOTAL,_HPOS,""]
  36. '
  37. _VTOTAL=100
  38. _VPOS=50
  39. _VERTICALSLIDER[600,15,25,155,_VTOTAL,_VPOS,""]
  40. '
  41. _SETFONT["Topaz",9]
  42. _ADDBUTTON[360,50,530,130,"'PRESS|ME|TO|^QUIT",13]
  43. _SETFONT["Topaz",8]
  44. '
  45. _ADDBUTTON[120,20,260,30,"Change Palette",16]
  46. '
  47. _NOTE$="Enter Details"
  48. _ADDBUTTON[180,110,320,160,_NOTE$,18]
  49. '
  50. _TICK2=0
  51. _ADDTICKBUTTON[380,140,520,160,"Tick Button",_TICK2,17]
  52. '
  53. _FILE1$=""
  54. _ADDINPUTBUTTON[284,24,_FILE1$,30,255,-19]
  55. _ADDBUTTON[66*8+5,3*8-3,66*8+25,3*8+10,"(S)FIL",20]
  56. '
  57. Do 
  58.    '
  59.    _CHECKBUTTONS
  60.    _BUTTONZONE=Param
  61.    '
  62.    If _BUTTONZONE>0
  63.       Print At(0,4)+"Button Pressed ="+Str$(_BUTTONZONE)+"  "
  64.    End If 
  65.    '
  66.    If _BUTTONZONE=1
  67.       Gosub _WINDOWPART
  68.    End If 
  69.    '
  70.    If _BUTTONZONE=2
  71.       _ADDTICKBOX[50,120,_TICK,0]
  72.       _TICK=Param
  73.    End If 
  74.    '
  75.    If _BUTTONZONE=3
  76.       _ADDCYCLEBUTTON[50,150,150,166,_CTEXT$,_POS,0]
  77.       _POS=Param
  78.    End If 
  79.    '
  80.    If _BUTTONZONE=4
  81.       _ADDINPUTBUTTON[16,16,_TEXT$,10,20,0]
  82.       _TEXT$=Param$
  83.    End If 
  84.    '
  85.    If _BUTTONZONE>=5 and _BUTTONZONE<=8
  86.       _GROUP1=_BUTTONZONE
  87.       _SETRADIO[_GROUP1]
  88.    End If 
  89.    '
  90.    If _BUTTONZONE>=9 and _BUTTONZONE<=12
  91.       _GROUP2=_BUTTONZONE
  92.       _SETRADIO[_GROUP2]
  93.    End If 
  94.    '
  95.    _GRABHORIZONTALSLIDER[20,175,580,11,_HTOTAL,_HPOS,""]
  96.    If Param<>_HPOS
  97.       _HPOS=Param
  98.    End If 
  99.    '
  100.    _GRABVERTICALSLIDER[600,15,25,155,_VTOTAL,_VPOS,""]
  101.    If Param<>_VPOS
  102.       _VPOS=Param
  103.    End If 
  104.    '
  105.    If _BUTTONZONE=13
  106.       _ALERTREQUESTER["Do You Really Wish To Quit?","NO|YES"]
  107.       If Param=2
  108.          Screen Close 0
  109.          _DIALOGBUTTON$=""
  110.          End 
  111.       End If 
  112.    End If 
  113.    '
  114.    If _BUTTONZONE=16
  115.       _PALETTEREQUESTER[0]
  116.    End If 
  117.    '
  118.    If _BUTTONZONE=17
  119.       _ADDTICKBUTTON[380,140,520,160,"Tick Button",_TICK2,0]
  120.       _TICK2=Param
  121.    End If 
  122.    '
  123.    If _BUTTONZONE=18
  124.       _INPUTREQUESTER["Please Enter Something",_NOTE$,15,15]
  125.       _NOTE$=Param$
  126.       _ADDBUTTON[180,110,320,160,_NOTE$,0]
  127.    End If 
  128.    '
  129.    If _BUTTONZONE=19
  130.       _ADDINPUTBUTTON[284,24,_FILE1$,30,255,0]
  131.       _FILE1$=Param$
  132.    End If 
  133.    '
  134.    If _BUTTONZONE=20
  135.       _FILEREQUESTER["Please Select A File"]
  136.       _FILE1$=Param$
  137.       _ADDINPUTBUTTON[284,24,_FILE1$,30,255,999]
  138.    End If 
  139.    '
  140. Loop 
  141. '
  142. _WINDOWPART:
  143. '
  144. TEMP1$=_DIALOGBUTTON$
  145. TEMP2$=_FONTNAME$
  146. TEMP3=_FONTSIZE
  147. _DIALOGBUTTON$=""
  148. _SETFONT["Topaz",8]
  149. '
  150. _ADDWINDOW[50,50,20,10,"Example Window",-1]
  151. _ADDBUTTON[_WINX1+10,_WINY2-20,_WINX2-10,_WINY2-5,"Exit",3]
  152. _TTXT$="This i"
  153. _ADDINPUTBUTTON[_WINX1+10,_WINY1+15,_TTXT$,15,15,-2]
  154. '
  155. Repeat 
  156.    '
  157.    _CHECKWINBUTTONS
  158.    _BUTTONZONE=Param
  159.    '
  160.    If _BUTTONZONE=1
  161.       _MOVEWINDOW["Example Window",1]
  162.    End If 
  163.    '
  164.    If _BUTTONZONE=2
  165.       _ADDINPUTBUTTON[_WINX1+10,_WINY1+15,_TTXT$,15,20,0]
  166.       _TTXT$=Param$
  167.    End If 
  168.    '
  169. Until _BUTTONZONE=3
  170. '
  171. _CLOSEWINDOW[1]
  172. '
  173. _DIALOGBUTTON$=TEMP1$
  174. _SETFONT[TEMP2$,TEMP3]
  175. TEMP1$=""
  176. TEMP2$=""
  177. _BUTTONZONE=0
  178. '
  179. Return