home *** CD-ROM | disk | FTP | other *** search
/ Gold Fish 3 / goldfish_volume_3.bin / files / util / cdity / devicelock / product-info < prev    next >
Encoding:
Text File  |  1995-10-24  |  1.5 KB  |  77 lines
  1. .name 
  2. DeviceLock
  3. .type
  4. GUI Commodity
  5. .short
  6. GUI interface for CLI command 'lock'
  7. .description
  8. This is a GUI interface for the CLI programm 'lock'. You can
  9. lock or allow writing to partitions via gadgets or hotkeys.
  10. You can configure it to your own needs and it should work
  11. with other (CLI-)lock programs, too.
  12. .version
  13. 1.2
  14. .date
  15. 1994.03.17
  16. .author
  17. Thomas Wagner
  18. .requirements
  19. Requires KS/WB2.0 (V37) or higher.
  20. .distribution
  21. Freeware
  22. .address
  23. Mühlenweg 7
  24. 90602 Pyrbaum (GERMANY)
  25. .email
  26. tom@oberon.nbg.sub.org
  27. .installsize
  28. 26K - 150K
  29. First program only, second complete
  30. .source
  31. AmigaOberon Source included. (51K)
  32. .docs
  33. guide/deutsch/DeviceLock.guide
  34. guide/english/DeviceLock.guide
  35. .construction
  36. AmigaOberon 3.11d
  37. .submittal
  38. Downloaded via ftp from aminet (wuarchive.wustl.edu).
  39. .execute
  40. set choice `RequestChoice "Device Lock" "Please select an option" "View Guide" "View Sources" "Run" "Cancel"`
  41. if $choice EQ "0"
  42.   quit 5
  43. endif
  44.  
  45. if $choice EQ "1"
  46.   set lang `RequestChoice "Language Selection" "Select Language" "English" "Deutsch" "Cancel"`
  47.   if $lang EQ "0"
  48.     quit 0
  49.   endif
  50.  
  51.   if $lang EQ "1"
  52.     cd guide/english
  53.     MetaTool DeviceLock.guide GUIDE
  54.   endif
  55.  
  56.   if $lang EQ "2"
  57.     cd guide/deutsch
  58.     MetaTool DeviceLock.guide GUIDE
  59.   endif
  60. endif
  61.  
  62. if $choice EQ "2"
  63.   cd txt
  64.   set filechoice `RequestFile TITLE "Select Source File" PATTERN "(#?.mod|#?.cd|#?.ct)"`
  65.   set dirchoice `pathname $filechoice`
  66.   set filechoice `basename $filechoice`
  67.   failat 21
  68.   cd $dirchoice
  69.   MetaTool $filechoice TEXT
  70. endif
  71.  
  72. if $choice EQ "3"
  73.   WBRun DeviceLock
  74. endif
  75. .aminet-dir
  76. util/cdity
  77.