home *** CD-ROM | disk | FTP | other *** search
/ Aminet 10 / aminetcdnumber101996.iso / Aminet / text / edit / FrexxEdA.lha / FrexxEd / fpl / RememberView.FPL < prev    next >
Text File  |  1995-07-19  |  1KB  |  48 lines
  1. int rv_number=0;
  2. int rv_entryid[10];
  3. int rv_viewpos[10];
  4. int rv_currententry;
  5.  
  6. export RememberView()
  7. {
  8.   int views=ReadInfo("views");
  9.   int id, count;
  10.  
  11.   if (views>1) {
  12.     rv_number=0;
  13.     resize rv_entryid[views];
  14.     resize rv_viewpos[views];
  15.     rv_currententry=GetEntryID();
  16.     id=PrevView(-1);
  17.     for(count=0; count<views; count++) {
  18.       rv_entryid[count]=id;
  19.       rv_viewpos[count]=ReadInfo("top_offset", id);
  20.       id=PrevView(id);
  21.     }
  22.     MaximizeView();
  23.   }
  24.   rv_number=views;
  25. }
  26.  
  27. export RememberView_get()
  28. {
  29.   int count;
  30.   int curr_id=GetEntryID();
  31.  
  32.   if (rv_number>1) {
  33.     Visible(0);
  34.     MaximizeView();
  35.     Activate(rv_entryid[0], 0);
  36.     for(count=1; count<rv_number; count++) {
  37.       CurrentBuffer(rv_entryid[count-1]);
  38.       Activate(rv_entryid[count], 1);
  39.       SetInfo(rv_entryid[count], "top_offset", rv_viewpos[count]);
  40.     }
  41.     CurrentBuffer(curr_id);
  42.     Activate(curr_id, 0, rv_currententry);
  43.   } else if (ReadInfo("views")==1)
  44.     ResizeView(ReadInfo("view_lines")/2);
  45. }
  46. AssignKey("RememberView();", "Amiga 1");
  47. AssignKey("RememberView_get();", "Amiga 2");
  48.