home *** CD-ROM | disk | FTP | other *** search
/ Aminet 18 / aminetcdnumber181997.iso / Aminet / comm / tcp / netbar.lha / NetBar_6.0 / ConView < prev    next >
Encoding:
Text File  |  1997-02-14  |  2.9 KB  |  125 lines
  1. G4C  - ConView 
  2.  
  3. ;(nicked from lister.g by D.Keletsekis (c))
  4. ;Butchered by Kevin Anderson  andersok@mail.bogo.co.uk  {using Gui4Cli by D.Keletsekis}
  5.  
  6. WinBig 0 11 0 -13 'Reading file....'    ; you may want to change the position
  7. WinSmall 0 -1 150 21
  8. WinType 11110001
  9.  
  10. ;------> On Loading, we open the Gui's window..
  11. ;     and load the file stated in the variable 'SfileVar'
  12. ;        This has been set by an other Gui, since we get called from there.
  13.  
  14. xOnLoad
  15. Guiopen ConView
  16. GoSub ConView filechange
  17.  
  18.  
  19. ;-------> Upon closing, we quit so as not to use-up memory
  20.  
  21. xOnClose
  22. GuiQuit ConView
  23.  
  24.  
  25. ;-------> This is also an AppWindow - drop files into it & read them
  26.  
  27. xAppWindow SfileVar
  28. GoSub ConView filechange
  29.  
  30.  
  31. ;------> Routine to load & show file
  32.  
  33. xRoutine filechange             ; routine to load & show file
  34. Guiscreen ConView front
  35. SetWinTitle ConView 'Loading....'
  36. LVChange ConView 1 $SfileVar
  37. SetWinTitle ConView '$SfileVar                                '
  38.  
  39. ;------------> the listview. - Use 'L' for scrolling the list up/down
  40.  
  41. xListview 0 0 0 0 '' '' '' 20 NUM
  42. GadID  1
  43. GadKey l
  44. GadFont times.font 13 000
  45.  
  46. ;------------> Herebelow are our menus, which do various things to the file
  47.  
  48. xMenu Project Open.. '' O        ; load a new file
  49. extract SfileVar PATH dglv_path
  50. SetVar dglv_getfile ''
  51. ReqFile -1 -1 250 200 'Choose file' LOAD dglv_getfile $dglv_path
  52. If $dglv_getfile != ''
  53.    SetVar SfileVar $dglv_getfile
  54.    GoSub ConView filechange
  55. EndIf
  56. DelVar dglv_getfile
  57. DelVar dglv_path
  58.  
  59. xMenu Project Quit '' Q
  60. Guiquit ConView
  61.  
  62. xMenu Tools 'Helpers' '' ''
  63.  
  64. xMenu Tools 'Helpers' 'Arj file' ''
  65. IfExists FILE c:unarj
  66.   CD $.A.NetBar
  67.        CLI 'unarj e $rtn_var'
  68. Else
  69.   EZreq 'Cannot find C:unarj see docs' OK NoFind
  70. EndIf
  71.  
  72. xMenu Tools 'Helpers' 'Mime/Base64' ''
  73. IfExists FILE c:base64decode
  74.   CLI 'c:Base64Decode $SfileVar autoname $.A.NetBar'
  75. Else
  76.   EZreq 'Cannot find C:Base64Decode see docs' OK NoFind
  77. EndIf
  78.  
  79. xMenu Tools 'Helpers' '.tar.gz/.tgz/.gzip' ''
  80. IfExists FILE c:untgz
  81.   CLI 'c:untgz $SfileVar $.A.NetBar'
  82. Else
  83.   EZreq 'Cannot find C:Untgz see docs' OK NoFind
  84. EndIf
  85.  
  86. xMenu Tools 'Helpers' 'Uuencoded' ''
  87. IfExists FILE c:uuxt
  88.   CLI 'c:uuhx x $SfileVar'
  89. Else
  90.   EZreq 'Cannot find C:UUxt see docs' OK NoFind
  91. EndIf
  92.  
  93. xMenu Tools 'Helpers' 'Zip file' ''
  94. IfExists FILE c:unzip
  95.   CLI 'c:unzip $SfileVar -d $.A.NetBar'
  96. Else
  97.   EZreq 'Cannot find C:Unzip see docs' OK NoFind
  98. EndIf
  99.  
  100.  
  101. xMenu Tools 'Viewers' 'avi/mov/fli/flc' ''
  102. IfExists FILE c:xanim
  103. CLI 'C:Xanim.scr $SfileVar'
  104. Else
  105.   EZreq 'Cannot find C:xAnim see docs' OK NoFind
  106. EndIf
  107.  
  108. xMenu Tools 'Viewers' 'mpeg/mpg' ''
  109. IfExists FILE c:mp
  110.   CLI 'c:mp -dither gray8 $SfileVar'
  111. Else
  112.   EZreq 'Cannot find C:mp see docs' OK NoFind
  113. EndIf
  114.  
  115. xMenu Tools 'Viewers' 'MultiView (OS3.x)' ''
  116. IfExists FILE sys:utilities/multiview
  117.   CLI 'Sys:Utilities/MultiView $SfileVar' 
  118. Else
  119.   EZreq 'Cannot find Sys:Utilities/MultiView see docs' OK NoFind
  120. EndIf
  121.  
  122. xOnFail
  123. EZreq 'FileType unknown/corrupted or wrong Helper \n Nobodys Perect' OK NoFind
  124.  
  125.