home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format 55 / af055a.adf / Examples / 2Color.DM < prev    next >
Text File  |  1993-02-10  |  4KB  |  92 lines
  1. Reset
  2.  
  3. AddMenu Project, Display Format, F, SetFormat
  4. AddMenu Project, Add Command, AddCmd
  5. AddMenu Project, Add Menu Item, AddMenu
  6. AddMenu Project, Palette, Color
  7. AddMenu Project, Printer Setup, SetPrinter
  8. AddMenu Project, Change Command, ChgCmd
  9. AddMenu Project, Save Config, S, SaveConfig
  10. AddMenu Project, Save Cmd Window, SaveCmdWin
  11. AddMenu Project, About, About
  12. AddMenu Project, Quit, Q, Confirm "Are you sure you want to quit?" Yes No;Quit
  13.  
  14. AddMenu Tools, Run Selected, Single;External run %s
  15. AddMenu Tools, Change Font, Font
  16. AddMenu Tools, New Window, N, OpenWindow 240 40 260 120
  17. AddMenu Tools, New Cmd Window, C, OpenWindow 240 40 260 120 CMD;AddCmd
  18. AddMenu Tools, Swap S<->D, Swap
  19. AddMenu Tools, Run DM Script, Single;Batch %s
  20.  
  21. AddMenu Archives, Lharc Add, StdIO "CON:0/12/640/100/Add Window";Archive "Lharc <* -r a";StdIO CLOSE
  22. AddMenu Archives, Arc   Add, StdIO "CON:0/12/640/100/Add Window";Archive "Arc <* a";StdIO CLOSE
  23. AddMenu Archives, Zoo   Add, StdIO "CON:0/12/640/100/Add Window";Archive "Zoo <* a";StdIO CLOSE
  24. AddMenu Archives, Lharc Extract, StdIO "CON:0/12/640/100/Extract Window";Extern Lharc <* x %s;StdIO CLOSE
  25. AddMenu Archives, Arc   Extract, StdIO "CON:0/12/640/100/Extract Window";Extern Arc <*x %s;StdIO CLOSE
  26. AddMenu Archives, Zoo   Extract, StdIO "CON:0/12/640/100/Extract Window";Extern Zoo <* x// %s;StdIO CLOSE
  27. AddMenu Archives, Lharc List, StdIO "CON:0/12/640/160/List Window";Extern Lharc v %s;Wait;StdIO CLOSE
  28. AddMenu Archives, Arc   List, StdIO "CON:0/12/640/160/List Window";Extern Arc v %s;Wait;StdIO CLOSE
  29. AddMenu Archives, Zoo   List, StdIO "CON:0/12/640/160/List Window";Extern Zoo v %s;Wait;StdIO CLOSE
  30.  
  31. AddMenu Disk, Format, Format
  32. AddMenu Disk, DiskCopy, DiskCopy
  33. AddMenu Disk, Format DF0:, Confirm "Are you sure?";Format DF0:
  34. AddMenu Disk, Format DF1:, Format DF1: VERIFY "WorkDisk"
  35. AddMenu Disk, Clear  DF0:, Format DF0: QUICK INSTALL VERIFY
  36. AddMenu Disk, Copy DF0: DF0:, DiskCopy DF0: DF0:
  37. AddMenu Disk, Copy DF0: DF1:, DiskCopy DF0: DF1:
  38.  
  39. AddMenu Control, Lock as Source, Lock S
  40. AddMenu Control, Lock as Dest, Lock D
  41. AddMenu Control, UnLock, UnLock
  42. AddMenu Control, UnLock all, UnLock All
  43.  
  44. AddMenu Screen, Change, Batch DiskMaster.DM
  45.  
  46. Button "Parent"
  47. SetFormat "NS T DMY A C"
  48. BarFormat "DiskMaster %V %T %W %D%M%Y  Chip:%C Fast:%F Total:%P"
  49. TitleFormat "%B/%F %I/%C"
  50.  
  51. OpenScreen 1
  52.  
  53. Color 04A FFF 002 D80
  54. Font topaz/8
  55.  
  56. OpenWindow 269  11 102 189 CMD
  57.  
  58. AddCmd Root, 10, Root
  59. AddCmd Parent, 10, Parent
  60. AddCmd All, 10, Select *
  61. AddCmd Clear, 10, Deselect *
  62. AddCmd Select, 10, Select
  63. AddCmd Exclude, 10, DeSelect
  64. AddCmd Copy, 10, ReqPattern;Copy %s %d
  65. AddCmd Copy Newer, 10, Copy %s %d NEWER
  66. AddCmd Move, 10, ReqPattern;Move %s %d
  67. AddCmd Delete, 30, ReqPattern;Confirm "All selected files will be lost.";Delete %s
  68. AddCmd Rename, 10, Recurse OFF;Rename %s
  69. AddCmd Protect, 10, Recurse OFF;Protect %s
  70. AddCmd Comment, 10, Recurse OFF;Comment %s
  71. AddCmd Find, 10, ReqPattern "Please enter search pattern";Find %s
  72. AddCmd Read, 10, Read %s
  73. AddCmd HexRead, 10, Read %s HEX
  74. AddCmd ShowPic, 10, ShowPic %s
  75. AddCmd MakeDir, 10, MakeDir
  76. AddCmd Print, 10, Single;Print %s
  77. AddCmd Size Check, 10, UnMark OFF;Check %s
  78.  
  79. OpenWindow 370  11 270 189 
  80.  
  81. OpenWindow   0  11 272 189 
  82.  
  83. AddAutoCmd FORM????ILBM,ShowPic %s
  84. AddAutoCmd FORM????ACBM,ShowPic %s
  85. AddAutoCmd FORM????8SVX,ShowPic %s
  86. AddAutoCmd FORM????ANIM,Extern View %s
  87. AddAutoCmd ??-lh,StdIO "CON:0/12/640/100/Extract Window";Extern Lharc <* x %s;StdIO CLOSE
  88. AddAutoCmd ^Z,StdIO "CON:0/12/640/100/Extract Window";Extern Arc <* x %s;StdIO CLOSE
  89. AddAutoCmd ZOO ?.?? Archive,StdIO "CON:0/12/640/100/Extract Window";Extern Zoo <* x// %s;StdIO CLOSE
  90. AddAutoCmd TEXT,Read %s
  91. AddAutoCmd DEFAULT,Read %s HEX
  92.