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