home *** CD-ROM | disk | FTP | other *** search
/ CICA 1994 September / CICA_Shareware_for_Windows_Walnut_Creek_September_1994.iso / win3 / desktop / sh93v100.lzh / TRASHCAN < prev    next >
Text File  |  1993-09-21  |  2KB  |  108 lines
  1.  
  2. FUNCTION settext() {
  3.     ctrl(abs(enum(trashcan)) " trashcan dateien")
  4.     }
  5.  
  6. FUNCTION is_empty() {
  7.     inform("Trashcan",
  8.            "Der Trashcan enthΣlt keine Dateien");
  9.     }
  10.  
  11.  
  12. /drop "trashcan"/ {
  13.     for (i=0; i<DROPC; i++) {
  14.         x = tmpfile("", "tc");
  15.         ctrl(i+1 " von " DROPC ": " DROPV[i])
  16.  
  17.         movefile(DROPV[i], x);
  18.         trashcan[DROPV[i]] = x;
  19.         }
  20.  
  21.     settext();
  22.     }
  23.  
  24.  
  25. /menu "&Zurückholen ..."/ {
  26.     while (1) {
  27.         if ((ii = enum(trashcan)) == "") {
  28.             is_empty();
  29.             break;
  30.             }
  31.  
  32.         x = select(250, 174, "Trashcan Dateien", "", " [abbrechen]\t" ii, "")
  33.         if (x == "\z"  ||  x == " [abbrechen]")
  34.             break;
  35.  
  36.         y = trashcan[x];
  37.         movefile(y, x);
  38.         delete(trashcan, x);
  39.         }
  40.  
  41.     ii = "";
  42.     settext();
  43.     }
  44.  
  45.  
  46. /menu "&Alle zurückholen"/ {
  47.     delete(ii);
  48.     if ((ii = enum(trashcan)) == "") {
  49.         is_empty()
  50.         }
  51.     else {
  52.         n = split(ii, ii, "\t")
  53.         for (i=0; i<n; i++) {
  54.             x = ii[i];
  55.             y = trashcan[x];
  56.  
  57.             ctrl(x);
  58.             movefile(y, x);
  59.             delete(trashcan, x);
  60.             }
  61.         }
  62.  
  63.     ii = ""
  64.     settext();
  65.     }
  66.  
  67.  
  68. /menu "Trashcan &leeren"/ {
  69.     delete(ii);
  70.     if ((ii = enum(trashcan)) == "") {
  71.         is_empty();
  72.         }
  73.     else {
  74.         n = split(ii, ii, "\t");
  75.         for (i=0; i<n; i++) {
  76.             x = ii[i];
  77.             y = trashcan[x];
  78.             ctrl(sprintf ("lösche %s (%s)", y, x))
  79.             removefile(y);
  80.             }
  81.  
  82.         delete(trashcan);
  83.         settext();
  84.         inform("Trashcan", "Es wurden " n " dateien gelöscht");
  85.         }
  86.  
  87.     ii = "";
  88.     }
  89.  
  90.  
  91. /menu "Variablen ..."/ {
  92.     ctrl(5);
  93.     exec(*("sh.cfg!config")["editor"] " " varfile, 1);
  94.     }
  95.  
  96.  
  97. /wm queryopen/ {
  98.     queropen = 0;
  99.     }
  100.  
  101.  
  102. BEGIN {
  103.     DROPmode = "trashcan";
  104.     ctrl(1, 2, 4, 20);
  105.     settext();
  106.     ownsysmenu = 1;
  107.     }
  108.