home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / E / TFF-A32R.LZX / AmigaE3.2a / Src / Tools / EasyGUI / examples / DM.e next >
Encoding:
Text File  |  1996-06-06  |  1.0 KB  |  47 lines
  1. -> DiskMaster type of program
  2.  
  3. OPT OSVERSION=37
  4. MODULE 'tools/EasyGUI'
  5.  
  6. PROC main() HANDLE
  7.   easygui('E FileManager v0.1',
  8.     [ROWS,
  9.       [COLS,
  10.         [ROWS,
  11.           [LISTV,0,NIL,1,5,NIL,0,NIL],
  12.           [STR,0,'','',200,5]
  13.         ],
  14.         [EQROWS,
  15.           [BUTTON,1,'DF0:'],
  16.           [BUTTON,1,'DF1:'],
  17.           [BUTTON,1,'Ram:'],
  18.           [BUTTON,1,'System:'],
  19.           [BUTTON,1,'Work:'],
  20.           [BUTTON,1,'E:']
  21.         ],
  22.         [ROWS,
  23.           [LISTV,0,NIL,1,5,NIL,0,NIL],
  24.           [STR,0,'','',200,5]
  25.         ]
  26.       ],
  27.       [COLS,
  28.         [EQROWS,[SBUTTON,1,'Parent'],[SBUTTON,1,'All']],
  29.         [EQROWS,[SBUTTON,1,'Copy'],[SBUTTON,1,'Clear']],
  30.         [EQROWS,[SBUTTON,1,'Move'],[SBUTTON,1,'Toggle']],
  31.         [EQROWS,[SBUTTON,1,'Rename'],[SBUTTON,1,'Size']],
  32.         [EQROWS,[SBUTTON,1,'Delete'],[SBUTTON,1,'View']],
  33.         [EQROWS,[SBUTTON,1,'MakeDir'],[SBUTTON,{config},'Config']]
  34.       ]
  35.     ],
  36.     0,0,ROWS_UP)
  37. EXCEPT
  38.   WriteF('"\s"\n',[exception,0])
  39. ENDPROC
  40.  
  41. PROC config(i)
  42. /*  easygui('Configuration',
  43.     [
  44.     ]
  45.   )*/
  46. ENDPROC
  47.