home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Amiga 14 / MA_Cover_14.iso / internet / htmlext / gui / func.mfindlv < prev    next >
Encoding:
Text File  |  2000-02-03  |  1.5 KB  |  73 lines
  1. G4C
  2. ; $VER: func.mfindlv Rev.012 Juan Manuel Wehrli 1999 - 2000
  3. WINBIG -1 -1 500 450 "Multifind: Gefundene Einträge"
  4. WinType 11110000
  5. WinBackground IMAGE BG 0
  6. Winout "NIL:"
  7. VarPath HTMLEXT
  8.  
  9. xOnLoad
  10. GuiOpen #This
  11. LVUSE #This 1
  12. SetVar resfile "t:htmlext/find.list2"
  13. LVChange "t:htmlext/find.list2"
  14. xOnClose
  15. GuiQuit #This
  16.  
  17. xOnQuit
  18. FailAt 21
  19. CLI 'delete t:htmlext/find.list2'
  20.  
  21. ;Globale Gadgets
  22. xListview 5 5 490 405 "" "resfiles" "t:htmlext/find.list2" 0 "MULTI"
  23. GadID 1
  24. GadFont sgiscreen.font 13 000
  25.  
  26. XBUTTON 405 410 90 18 "Sortieren"
  27. GadFont xHelvetica.font 11 000
  28. GadHelp "Variabelnliste sortieren ..."
  29. LVUse #This 1
  30. LVSort ASC
  31.  
  32. ;===============================================
  33. XBUTTON 5 430 100 18 "Multiview"
  34. GadFont xHelvetica.font 11 000
  35. LVUSE #This 1
  36. LVMulti First
  37. while $$lv.line > ""
  38.     CLI 'sys:utilities/multiview $$LV.REC PUBSCREEN=$*SCREEN'
  39.     LVMulti OFF
  40.     LVMulti Show
  41.     LVMulti First
  42. EndWhile
  43.  
  44. XBUTTON 105 430 100 18 "Bearbeiten"
  45. GadFont xHelvetica.font 11 000
  46. LVUSE #This 1
  47. LVMulti First
  48. while $$lv.line > ""
  49.     CLI 'rx $*EDITOR OPEN $$LV.REC'
  50.     LVMulti OFF
  51.     LVMulti Show
  52.     LVMulti First
  53. EndWhile
  54.  
  55. XBUTTON 205 430 100 18 "Löschen"
  56. GadFont xHelvetica.font 11 000
  57. LVUSE #This 1
  58. LVMulti First
  59. Update "Infobar" 1 "Lösche alle selektierten Einträge ..."
  60. while $$lv.line > ""
  61.     Update "Infobar" 1 "Lösche $$LV.REC ..."
  62.     FailAt 21
  63.     CLI 'delete $$LV.REC FORCE'
  64.     LVDel -1
  65.     LVMulti Show
  66.     LVMulti First
  67. EndWhile
  68. Update "Infobar" 1 "Lösch Prozess erfolgreich beendet."
  69.  
  70. XBUTTON 405 430 90 18 "Schliessen"
  71. GadFont xHelvetica.font 11 010
  72. GuiQuit #This
  73.