home *** CD-ROM | disk | FTP | other *** search
/ Aminet 18 / aminetcdnumber181997.iso / Aminet / comm / tcp / netbar.lha / NetBar_6.0 / NetView < prev    next >
Encoding:
Text File  |  1997-02-14  |  3.0 KB  |  140 lines

  1. G4C - NetView
  2.  
  3. ;by Kevin Anderson  andersok@mail.bogo.co.uk  {using Gui4Cli by D.Keletsekis}
  4.  
  5. WinBig 0 20 250 200 'NetView'
  6. WinType 11110001
  7. WinFont times.font 13 000
  8.  
  9. xOnLoad
  10. UpDate NetView 1 $SfileVar
  11. GuiOpen NetView
  12. Extract NetView GUIPATH PathVar
  13. Assign NetBar: $PathVar  
  14.  
  15. xIcon 4 3 :icons/open
  16. ReqFile -1 -1 250 200 'Choose a file' LOAD SfileVar 'Sys:'
  17.    UpDate NetView 1 $SfileVar
  18.  
  19. xIcon 28 3 :icons/new
  20. GuiLoad :Pakit
  21. GuiOpen Pakit
  22.  
  23. xIcon 221 3 :icons/help
  24. CLI 'c:amigaguide NetBar:NetBar.guide'
  25.  
  26. BOX 0 0 250 26 IN RIDGE
  27. BOX 0 28 250 105 IN RIDGE
  28. BOX 0 133 250 26 IN RIDGE
  29.  
  30. xButton 4 30 120 20 '.arj file'
  31. IfExists FILE c:unarj
  32.   CD $.A.NetBar
  33.        CLI 'unarj e $SfileVar'
  34. Else
  35.   EZreq 'Cannot find C:unarj see docs' OK NoFind
  36. EndIf
  37.  
  38. xButton 4 50 120 20 'mime / base64'
  39. IfExists FILE c:base64decode
  40.   CLI 'c:Base64Decode $SfileVar autoname $.A.NetBar'
  41. Else
  42.   EZreq 'Cannot find C:Base64Decode see docs' OK NoFind
  43. EndIf
  44.  
  45. xButton  4 70 120 20 '.tar.gz /.tgz /.gzip'
  46. IfExists FILE c:untgz
  47.   CLI 'c:untgz $SfileVar $.A.NetBar'
  48. Else
  49.   EZreq 'Cannot find C:Untgz see docs' OK NoFind
  50. EndIf
  51.  
  52. xButton 4 90 120 20 'uuencoded'
  53. IfExists FILE c:uuhx
  54.   CD $.A.NetBar
  55.   CLI 'c:uuhx x $SfileVar'
  56. Else
  57.   EZreq 'Cannot find C:uuhx see docs' OK NoFind
  58. EndIf
  59.  
  60. xButton 4 110 120 20 '.zip file'
  61. IfExists FILE c:unzip
  62.   CLI 'c:unzip $SfileVar -d $.A.NetBar'
  63. Else
  64.   EZreq 'Cannot find C:Unzip see docs' OK NoFind
  65. EndIf
  66.  
  67. XButton 4 136 120 20 'What the hell run it !'
  68.   EZreq 'Are You Sure ???' GoForIt|NoWay RunVar
  69. If $RunVar = 0
  70.   ;Stop and run away
  71. Else
  72.   CLI '$SfileVar'
  73. EndIf
  74.  
  75. xButton 124 30 120 20 'avi / mov / fli / flc'
  76. IfExists FILE c:xanim
  77. CLI 'c:Xanim.scr $SfileVar'
  78. Else
  79.   EZreq 'Cannot find C:xAnim see docs' OK NoFind
  80. EndIf
  81.  
  82. xButton 124 50 120 20 'mpeg / mpg'
  83. IfExists FILE c:mp
  84.   CLI 'c:mp -dither gray8 $SfileVar'
  85. Else
  86.   EZreq 'Cannot find C:mp see docs' OK NoFind
  87. EndIf
  88.  
  89. xButton 124 70 120 20 'Sound file .wav etc'
  90. IfExists FILE c:play16
  91.   CLI 'c:play16 $SfileVar' 
  92. Else
  93.   EZreq 'Cannot find c:play16 see docs' OK NoFind
  94. EndIf
  95.  
  96. XButton 124 90 120 20 '.gif .jpg .anim etc'
  97. IfExists FILE c:ppshow
  98.   CLI 'c:ppshow $SfileVar'
  99. Else
  100.   EZreq 'Cannot find c:ppshow see docs' OK NoFind  
  101. EndIf
  102.  
  103. xButton 124 110 120 20 'View Contents'
  104.   GuiLoad    :ConView        ; no problem if already loaded
  105.   GuiOpen    ConView
  106.   GuiWindow  ConView FRONT        ; bring window to front
  107.   GuiScreen  ConView FRONT        ; bring screen to front
  108.  
  109. xButton 124 136 120 20 'MultiView (OS3.x)'
  110. IfExists FILE sys:utilities/multiview
  111.   CLI 'Sys:Utilities/MultiView $SfileVar' 
  112. Else
  113.   EZreq 'Cannot find Sys:Utilities/MultiView see docs' OK NoFind
  114. EndIf
  115.  
  116. Text 10 160 120 15 'File to be operated on:' 30 NOBOX
  117. GadFont times.font 13 010
  118.  
  119. Text 3 176 240 16 '' 80 BOX
  120. GadID 1
  121.  
  122. xMenu File Open '' O
  123. ReqFile -1 -1 250 200 'Choose a file' LOAD SfileVar 'Sys:'
  124.    UpDate NetView 1 $SfileVar
  125.  
  126. xMenu File Quit '' Q
  127. GuiClose NetView
  128.  
  129. xMenu Settings 'UnArc Path ' '' P
  130. GuiLoad :DialEtc
  131. GuiOpen DialEtc
  132.  
  133. xOnFail
  134. EZreq 'FileType unknown/corrupted or wrong Helper \n Nobodys Perect' OK NoFind
  135.  
  136. xOnClose
  137. DelVar SfileVar
  138. GuiQuit Pakit
  139. GuiQuit NetView
  140.