home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / E / TFF-A32R.LZX / AmigaE3.2a / Src / Tools / EasyGUI / all.e next >
Encoding:
Text File  |  1994-11-09  |  7.3 KB  |  312 lines
  1. -> Test GUI's gathered in one program.
  2.  
  3. OPT OSVERSION=37
  4. MODULE 'tools/EasyGUI', 'tools/exceptions', 'libraries/gadtools'
  5.  
  6. DEF s[50]:STRING
  7.  
  8. PROC main() HANDLE
  9.   StrCopy(s,'bla')
  10.   easygui('EasyGUI Tests',
  11.     [EQROWS,
  12.       [BUTTON,{fonts},'Fonts'],
  13.       [BUTTON,{screenmode},'ScreenMode'],
  14.       [BUTTON,{file},'File Requester'],
  15.       [BUTTON,{search},'Search Requester'],
  16.       [BUTTON,{search2},'Search Requester 2'],
  17.       [BUTTON,{amosaic},'Amosaic'],
  18.       [BUTTON,{db},'DataBase'],
  19.       [BUTTON,{dm},'DiskMaster'],
  20.       [BUTTON,{tiny},'Tiny Test'],
  21.       [BUTTON,{messy},'Messy Test']
  22.     ]
  23.   )
  24. EXCEPT
  25.   report_exception()
  26. ENDPROC
  27.  
  28. PROC fonts(x)
  29.   easygui('Font Preferences',
  30.     [EQROWS,
  31.       [TEXT,'Selected Fonts',NIL,FALSE,3],
  32.       [BEVELR,
  33.         [EQROWS,
  34.           [TEXT,'xentiny 8','Workbench Icon Text:',FALSE,3],
  35.           [TEXT,'end 10','System Default Text:',FALSE,3],
  36.           [TEXT,'except 12','Screen text:',FALSE,3]
  37.         ]
  38.       ],
  39.       [BUTTON,0,'Select Workbench Icon Text...'],
  40.       [BUTTON,0,'Select System Default Text...'],
  41.       [BUTTON,0,'Select Screen text...'],
  42.       [BAR],
  43.       [COLS,
  44.         [BUTTON,0,'Save'],
  45.         [SPACEH],
  46.         [BUTTON,0,'Use'],
  47.         [SPACEH],
  48.         [BUTTON,0,'Cancel']
  49.       ]
  50.     ]
  51.   )
  52. ENDPROC
  53.  
  54. PROC screenmode(x)
  55.   easygui('ScreenMode Preferences',
  56.     [EQROWS,
  57.       [COLS,
  58.         [EQROWS,
  59.           [LISTV,0,'Display Mode',10,4,NIL,TRUE,0,0],
  60.           [COLS,
  61.             [EQROWS,[INTEGER,0,'Width:',640,5],[INTEGER,0,'Height:',512,5]],
  62.             [ROWS,[CHECK,0,'Default',TRUE,FALSE],[CHECK,0,'Default',TRUE,FALSE]]
  63.           ],
  64.           [SLIDE,0,'Colors:',FALSE,1,8,3,5,''],
  65.           [CHECK,0,'AutoScroll:',TRUE,TRUE]
  66.         ],
  67.         ->[BAR],
  68.         [BEVELR,
  69.           [EQROWS,
  70.             [TEXT,'688x539','Visible Size:',FALSE,3],
  71.             [TEXT,'640x200','Minimum Size:',FALSE,3],
  72.             [TEXT,'16368x16384','Maximum Size:',FALSE,3],
  73.             [TEXT,'256','Maximum Colors:',FALSE,3],
  74.             [SPACE]
  75.           ]
  76.         ]
  77.       ],
  78.       [BAR],
  79.       [COLS,
  80.         [BUTTON,0,'Save'],
  81.         [SPACEH],
  82.         [BUTTON,0,'Use'],
  83.         [SPACEH],
  84.         [BUTTON,0,'Cancel']
  85.       ]
  86.     ]
  87.   )
  88. ENDPROC
  89.  
  90. PROC file()
  91.   WriteF('result=\d\n',easygui('Select a file:',
  92.     [EQROWS,
  93.       [LISTV,0,NIL,1,5,NIL,0,NIL,0],
  94.       [STR,{fr},'Pattern',s,200,5],
  95.       [STR,{fr},'Drawer',s,200,5],
  96.       [STR,{fr},'File',s,200,5],
  97.       [COLS,
  98.         [BUTTON,1,'Ok'],
  99.         [SPACEH],
  100.         [BUTTON,2,'Disks'],
  101.         [SPACEH],
  102.         [BUTTON,3,'Parent'],
  103.         [SPACEH],
  104.         [BUTTON,0,'Cancel']
  105.       ]
  106.     ]
  107.   ))
  108. ENDPROC
  109.  
  110. PROC fr(a,b) IS WriteF('fr: \s\n',b)
  111.  
  112. PROC search()
  113.   WriteF('result=\d\n',easygui('Enter Search/Replace text:',
  114.     [ROWS,
  115.       [ROWS,                        -> ROWS
  116.         [EQROWS,
  117.           [STR,{find},'Locate',s,10,10],
  118.           [STR,{repl},'Replace',s,10,10]
  119.         ],
  120.         [COLS,                        -> COLS
  121.           [CHECK,{case},'Ignore case',TRUE,FALSE],
  122.           [CHECK,{word},'Whole words only',FALSE,FALSE],
  123.           [CHECK,{forw},'Search forward',TRUE,FALSE]
  124.         ]
  125.       ],
  126.       [BAR],
  127.       [EQCOLS,
  128.         [BUTTON,1,'Search'],
  129.         [SPACEH],
  130.         [BUTTON,2,'Replace'],
  131.         [SPACEH],
  132.         [BUTTON,0,'Cancel']
  133.       ]
  134.     ]
  135.   ))
  136. ENDPROC
  137.  
  138. PROC find(x,y) IS WriteF('Find="\s"!\n',y)
  139. PROC repl(x,y) IS WriteF('Repl="\s"!\n',y)
  140. PROC case(x,y) IS WriteF('Case=\d!\n',y)
  141. PROC word(x,y) IS WriteF('Word=\d!\n',y)
  142. PROC forw(x,y) IS WriteF('Forw=\d!\n',y)
  143.  
  144. PROC search2()
  145.   WriteF('result=\d\n',easygui('Enter Search/Replace text:',
  146.     [ROWS,
  147.       [COLS,                        -> ROWS
  148.         [EQROWS,
  149.           [STR,{find},'Locate',s,10,10],
  150.           [STR,{repl},'Replace',s,10,10]
  151.         ],
  152.         [EQROWS,                        -> COLS
  153.           [CHECK,{case},'Ignore case',TRUE,FALSE],
  154.           [CHECK,{word},'Whole words only',FALSE,FALSE],
  155.           [CHECK,{forw},'Search forward',TRUE,FALSE]
  156.         ]
  157.       ],
  158.       [BAR],
  159.       [EQCOLS,
  160.         [BUTTON,1,'Search'],
  161.         [SPACEH],
  162.         [BUTTON,2,'Replace'],
  163.         [SPACEH],
  164.         [BUTTON,0,'Cancel']
  165.       ]
  166.     ]
  167.   ))
  168. ENDPROC
  169.  
  170. PROC amosaic()
  171.   easygui('AMosaic',
  172.     [EQROWS,
  173.       [TEXT,'Wouter''s WWW page','Title:',TRUE,3],
  174.       [TEXT,'file://localhost/...','URL:',TRUE,3],
  175.       [COLS,
  176.         [SBUTTON,0,'Back'],
  177.         [SBUTTON,0,'Forward'],
  178.         [SBUTTON,0,'Home'],
  179.         [SBUTTON,0,'Open'],
  180.         [SBUTTON,0,'Reload'],
  181.         [SBUTTON,0,'Quit']
  182.       ],
  183.       [COLS,
  184.         [BEVELR,
  185.           [RENDER,0,0,2,2]
  186.         ],
  187.         [SCROLL,0,TRUE,10,0,2,10]
  188.       ],
  189.       [TEXT,'file://localhost/...',NIL,FALSE,3]
  190.     ]
  191.   )
  192. ENDPROC
  193.  
  194. PROC db()
  195.   easygui('EasyBase v0.1',
  196.     [ROWS,
  197.       [LISTV,0,NIL,5,4,NIL,0,NIL,0],
  198.       [COLS,
  199.         [BUTTON,0,'New'],
  200.         [BUTTON,{fields},'Fields'],
  201.         [BUTTON,0,'Load'],
  202.         [BUTTON,0,'Save']]])
  203. ENDPROC
  204.  
  205. PROC fields(i)
  206.   easygui('Edit Fields',
  207.     [ROWS,
  208.       [LISTV,0,NIL,5,3,NIL,0,NIL,0],
  209.       [COLS,
  210.         [BUTTON,{addfield},'Add'],
  211.         [BUTTON,0,'Delete'],
  212.         [BUTTON,0,'Change']]])
  213. ENDPROC
  214.  
  215. PROC editfield(i)
  216.   easygui('Field Characteristics',
  217.     [ROWS,
  218.       [EQROWS,
  219.         [STR,0,'fieldname',s,200,10],
  220.         [INTEGER,0,'fieldlength',40,10]],
  221.       [BUTTON,0,'Ok']])
  222. ENDPROC
  223.  
  224. PROC addfield(i) IS editfield(i)
  225.  
  226. PROC dm()
  227.   easygui('E FileManager v0.1',
  228.     [ROWS,
  229.       [COLS,
  230.         [ROWS,
  231.           [LISTV,0,NIL,1,10,NIL,0,NIL,0],
  232.           [STR,0,'',s,200,5]
  233.         ],
  234.         [EQROWS,
  235.           [BUTTON,1,'DF0:'],
  236.           [BUTTON,1,'DF1:'],
  237.           [BUTTON,1,'Ram:'],
  238.           [BUTTON,1,'System:'],
  239.           [BUTTON,1,'Work:'],
  240.           [BUTTON,1,'E:'],
  241.           [SPACEV]
  242.         ],
  243.         [ROWS,
  244.           [LISTV,0,NIL,1,5,NIL,0,NIL,0],
  245.           [STR,0,'',s,200,5]
  246.         ]
  247.       ],
  248.       [COLS,
  249.         [EQROWS,[SBUTTON,1,'Parent'],[SBUTTON,1,'All']],
  250.         [EQROWS,[SBUTTON,1,'Copy'],[SBUTTON,1,'Clear']],
  251.         [EQROWS,[SBUTTON,1,'Move'],[SBUTTON,1,'Toggle']],
  252.         [EQROWS,[SBUTTON,1,'Rename'],[SBUTTON,1,'Size']],
  253.         [EQROWS,[SBUTTON,1,'Delete'],[SBUTTON,1,'View']],
  254.         [EQROWS,[SBUTTON,1,'MakeDir'],[SBUTTON,0,'Config']]
  255.       ]
  256.     ]
  257.   )
  258. ENDPROC
  259.  
  260. PROC tiny()
  261.   easygui('um..',[BUTTON,0,'blerk'])
  262. ENDPROC
  263.  
  264. PROC messy()
  265.   easygui('test-gui',
  266.     [ROWS,
  267.       [COLS,
  268.         [BEVEL,
  269.           [ROWS,
  270.             [BUTTON,{um},'Um,...'],
  271.             [MX,{v},NIL,['One','Two','Three',NIL],FALSE,1],
  272.             [BUTTON,{pom},'PomPomPom'],
  273.             [CHECK,{v},'check this out!',TRUE,FALSE],
  274.             [STR,{v},'input',s,50,3],
  275.             [LISTV,{v},NIL,2,5,NIL,FALSE,0,0]
  276.           ]
  277.         ],
  278.         [BEVEL,
  279.           [EQROWS,
  280.             [STR,{v},'input',s,50,4],
  281.             [INTEGER,{v},'int:',5,3],
  282.             [SLIDE,{v},'tata:     ',FALSE,0,999,20,2,'%3ld'],
  283.             [TEXT,'bla','text:',FALSE,5],
  284.             ->[NUM,123,'num:',TRUE,5],
  285.             [PALETTE,{v},'kleur:',3,5,2],
  286.             [CYCLE,{v},'choose:',['Yep','Nope',NIL],1],
  287.             [SCROLL,{v},FALSE,10,0,2,2]
  288.           ]
  289.         ]
  290.       ],
  291.       [BAR],
  292.       [EQCOLS,
  293.         [BUTTON,1,'Save'],
  294.         [BUTTON,2,'Use'],
  295.         [BUTTON,0,'Cancel']
  296.       ]
  297.     ],'bla',NIL,NIL,
  298.     [1,0,'Project',0,  0,0,0,
  299.      2,0,'Load',   'l',0,0,{um},
  300.      2,0,'Save',   's',0,0,{um},
  301.      2,0,'Bla ->', 0,  0,0,0,
  302.      3,0,'aaargh', 'a',0,0,1,
  303.      3,0,'hmmm',   'h',0,0,2,
  304.      2,0,'Quit',   'q',0,0,0,
  305.      0,0,0,0,0,0,0]:newmenu
  306.   )
  307. ENDPROC
  308.  
  309. PROC um(x) IS WriteF('um! \s\n',x)
  310. PROC pom(x) IS WriteF('pom!\n')
  311. PROC v(x,y) IS WriteF('v=\d!\n',y)
  312.