--- rat/client/Attic/code.html	2000/07/08 11:23:36	1.7
+++ rat/client/Attic/code.html	2000/07/28 21:36:13	1.8
@@ -9,7 +9,7 @@ Resource Assembly Tool
 1/7,1/8,1/10,1/14,1/15,1/16,1/21,1/22,1/29,1/30,1/31,
 2/2,2/3,2/10,2/12,2/13,2/14,2/15,2/17,2/18,2/19,2/20,2/21,2/22,
 5/2,5/3,5/4,5/5,5/6,5/8,5/9,5/13,5/18,5/20,5/22,5/24,5/25,
-6/7,6/8,6/9,6/10,6/12,6/15,7/4
+6/7,6/8,6/9,6/10,6/12,6/15,7/4,7/26,7/28
 Gerd Kortemeyer with Scott Harrison
 -->
 
@@ -56,6 +56,12 @@ var zscale=3;
 var disrows=0;
 var discols=0;
 
+var finishdone=0;
+var tim=0;
+var funny='|';
+var reqaction='';
+var canceltim;
+
 var data1=new Array(1024);
 var data2=new Array(1024);
 var data3=new Array(1024);
@@ -2003,7 +2009,7 @@ function simpletabledraw() {
 // ---------------------------------- Sort objects to straighten graph or table
 
 function sortobjs() {
-   message("Sorting Resources");
+   message("Sorting Resources: "+funny);
    var k;
    var ij;
    var dol;
@@ -2021,6 +2027,8 @@ function sortobjs() {
    }
    if (objsort.length==0) { return ''; }
    for (k=1;k<objlinks.length;k++) {
+     wheelswitch();
+     message("Sorting Resources: "+funny);
      if (objlinks[k]!='') {
       sortthis=1;
       data1=objlinks[k].split(':');
@@ -2030,36 +2038,41 @@ function sortobjs() {
             kj=j;
          }
       }
-      objsort[kj]+=':'+data1[1];
+      if (kj!=-1) { objsort[kj]+=':'+data1[1]; }
      }
    }
    if (sortthis!=0) {
     for (k=0;k<objsort.length;k++) {
+      wheelswitch();
+      message("Sorting Resources: "+funny);
       for (j=0;j<objsort.length;j++) {
         if (k!=j) {
           data1=objsort[k].split(':');
           data2=objsort[j].split(':');
           dol=data1.length;
           dtl=data2.length;
-          for (kj=1;kj<dol;kj++) {
+          if (dol+dtl<200) {
+           for (kj=1;kj<dol;kj++) {
              if (data1[kj]==data2[0]) {
                 for (ij=1;ij<dtl;ij++) {
                    data1[data1.length]=data2[ij];
                 }
              }
-          }
-          for (kj=1;kj<dtl;kj++) {
+           }
+           for (kj=1;kj<dtl;kj++) {
              if (data2[kj]==data1[0]) {
                  for (ij=1;ij<dol;ij++) {
-                   data2[data2.length]=data1[ij];
-                }
-            }
+                    data2[data2.length]=data1[ij];
+                 }
+             }
+           }
+           objsort[k]=data1.join(':');
+           objsort[j]=data2.join(':');
           }
-          objsort[k]=data1.join(':');
-          objsort[j]=data2.join(':');
          }
       } 
    }
+   message("Sorting Resources: finishing up.");
    return objsort.sort(rescompare).join('&');
   } else {
    return objsort.join('&');
@@ -2147,6 +2160,11 @@ function condense() {
 
 function load() {
    message("Loading");
+   schedule('load');
+   checkdef();
+}
+
+function finishload() {
    var k;
    for (k=0;k<objcont.length;k++) { objcont[k]=''; }
    objcont.length=0;
@@ -2187,7 +2205,7 @@ function undo() {
       undopointer--;
       parent.server.document.forms.storage.output.value
        =undostack[undopointer];
-      load();
+      finishload();
       undopointer--;
       draw();
       stored=0;
@@ -2203,7 +2221,7 @@ function redo() {
       undopointer++;
       parent.server.document.forms.storage.output.value
        =undostack[undopointer];
-      load();
+      finishload();
       undopointer--;
       draw();
       stored=0;
@@ -2221,15 +2239,82 @@ function revert() {
    }
 }
 
+// ---------------------------------------------------------------- Wheelswitch
+
+function wheelswitch() {
+   if (funny=='|') { 
+      funny='/'; 
+   } else {
+      if (funny=='/') {
+         funny='-';
+      } else {
+         if (funny=='-') { 
+            funny='\\'; 
+         } else {
+            if (funny=='\\') { funny='|'; }
+         }
+      }
+   } 
+}
+
+// --------------------------------------------- Checks if server frame defined
+
+function checkdef() {
+   if (parent.server.document.forms.storage.output.value!=undefined) {
+      srvloaded();
+   }
+   if ((finishdone==0) && (tim==0)) { setTimeout('checkdef()',100); }
+}
+
+// ---------------------------------------------------------- The wait function
+
+function wait() {
+   if ((finishdone==1) || (tim==1)) {
+      if (tim==0) {
+         clearTimeout(canceltim);
+         if (reqaction=='save') { finishsave(); }
+         if (reqaction=='load') { finishload(); draw(); }
+      } else {
+         alert("Server Communication Timed Out.");
+      }
+   } else {
+      wheelswitch();
+      message('Waiting for server reply: '+funny);
+      setTimeout('wait();',100);
+   }
+}
+
+// ---------------------------------------------------------- Schedule function
+
+function schedule(action) {
+   reqaction=action;
+   tim=0;
+   finishdone=0;
+   canceltim=setTimeout('tim=1;',20000)
+   wait();
+}
+
 // -------------------------------------------------------------- Store changes
 
 function storechange() {
+   var k;
    parent.server.document.forms.storage.submit();
-   load();
+   schedule('save');
+}
+
+function finishsave() {
+   finishload();
    draw();
    stored=1;
 }
 
+// --------------------------------------- Gets called when submission finished
+
+function srvloaded() {
+   finishdone=1;
+   message("Server replied.");
+}
+
 // ---------------------------------------------------------------- Toggle Mode
 
 function togglemode() {
@@ -2255,7 +2340,6 @@ function main() {
       infopen();
       infoclear();
       load();
-      draw();
       stored=1;
       mainrun=1;
    }