home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #4 / Amiga Plus CD - 2000 - No. 4.iso / Tools / Text / HTML / HTMLEXT / GUI / func.filefind < prev    next >
Encoding:
Text File  |  2000-03-14  |  2.5 KB  |  117 lines
  1. G4C
  2. ; $VER: func.filefind rev.018 Juan Manuel Wehrli 1999 - 2000
  3. WINBIG -1 -1 500 450 "HTMLEXT: Datei(en) finden   (Linke Maus-Taste = Popup-Menu)"
  4. WinType 11110000
  5. WinBackground IMAGE BG 0
  6. Winout "NIL:"
  7. VarPath HTMLEXT
  8.  
  9. xOnLoad
  10. lvuse HTMLEXT 3
  11. SetVar aktdir $$lv.dir
  12. Update #This 3 $aktdir
  13. GuiOpen #This
  14.  
  15. xOnClose
  16. GuiQuit #This
  17.  
  18. ;Popup Menu
  19. xOnRMB
  20. GuiLoad "HTMLEXT:gui/func.filefind.menu"
  21. GuiOpen    "func.filefind.menu"
  22.  
  23. ;Globale Gadgets
  24. xListview 5 5 490 380 "" "resfiles" "" 0 "MULTI"
  25. GadID 1
  26. GadFont sgiscreen.font 13 000
  27.  
  28. Text 5 392 100 15 "Suche nach:" 15 NOBOX
  29.     GadFont xHelvetica.font 11 010
  30.  
  31. Text 230 392 80 15 "Akt. Verzeichnis:" 20 NOBOX
  32.     GadFont xHelvetica.font 11 000
  33.  
  34. Text 320 392 120 15 "" 40 NOBOX
  35.     GadFont xHelvetica.font 11 000
  36.     GadID 3
  37.  
  38. xTextIn 5 407 450 18 "" "strvar" "#?" 200
  39. GadID 2
  40. LVUSE HTMLEXT 3
  41. SetVar aktdir $$LV.DIR
  42. Update "InfoBar" 1 "Suche in  $aktdir  nach  $strvar ..."
  43. CD $aktdir
  44. CLI 'search FROM $aktdir SEARCH $strvar ALL QUIET FILE PATTERN >t:HTMLEXT/find.list'
  45. LVUSE #This 1
  46. LVChange "t:HTMLEXT/find.list"
  47. LVSort ASC
  48. LVGo First
  49. LVDel -1
  50. Update "InfoBar" 1 "Suchvorgang abgeschlossen ..."
  51.  
  52.  
  53. XBUTTON 460 407 35 18 "ABC"
  54. GadFont xHelvetica.font 11 000
  55. GadHelp "Variabelnliste sortieren ..."
  56. LVUse #This 1
  57. LVSort ASC
  58.  
  59. ;===============================================
  60. XBUTTON 5 430 100 18 "Multiview"
  61. GadFont xHelvetica.font 11 000
  62. LVUSE #This 1
  63. LVMulti First
  64. while $$lv.line > ""
  65.     CLI 'sys:utilities/multiview $$LV.REC PUBSCREEN=$*SCREEN'
  66.     LVMulti OFF
  67.     LVMulti Show
  68.     LVMulti First
  69. EndWhile
  70.  
  71. XBUTTON 105 430 100 18 "Editor"
  72. GadFont xHelvetica.font 11 000
  73. LVUSE #This 1
  74. LVMulti First
  75. while $$lv.line > ""
  76.     CLI 'rx $*EDITOR OPENNEW $$LV.REC'
  77.     LVMulti OFF
  78.     LVMulti Show
  79.     LVMulti First
  80. EndWhile
  81.  
  82. XBUTTON 205 430 100 18 "Löschen"
  83. GadFont xHelvetica.font 11 000
  84. LVUSE #This 1
  85. LVMulti First
  86. Update "InfoBar" 1 "Lösche alle selektierten Einträge ..."
  87. while $$lv.line > ""
  88.     Update "InfoBar" 1 "Lösche $$LV.REC ..."
  89.     FailAt 21
  90.     CLI 'delete $$LV.REC FORCE'
  91.     LVDel -1
  92.     LVMulti Show
  93.     LVMulti First
  94. EndWhile
  95. Update "InfoBar" 1 "Lösch Prozess erfolgreich beendet."
  96.  
  97. XBUTTON 305 430 100 18 "WB Info"
  98. GadFont xHelvetica.font 11 000
  99. if $*OS = "35"
  100.     LVUSE #This 1
  101.     LVMulti First
  102.     while $$lv.line > ""
  103.         SetVar ofile $$lv.rec
  104.         EXTRACT ofile CLEAN file
  105.         cli 'rx htmlext:mod/htmlext.smod WBINFO $file'
  106.         LVMulti Off
  107.         LVMulti Show
  108.         LVMulti First
  109.     EndWhile
  110. else
  111.     EZREQ "Für diese Funktion ist OS 3.5 Voraussetztung!" "Weiter" nil
  112. endif
  113.  
  114. XBUTTON 405 430 90 18 "Schliessen"
  115. GadFont xHelvetica.font 11 010
  116. GuiQuit #This
  117.