home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / TextEditors&Viewers / Texteditors / FFRED10.LHA / fpl / SwapBuffer.FPL < prev    next >
Encoding:
Text File  |  1994-09-22  |  968 b   |  49 lines
  1. export void SwapBuffer(int direction)
  2. {
  3.   int oldbuffer=GetBufferID();
  4.   int newentry;
  5.  
  6.   if (ReadInfo("buffers")>1) {
  7.     if (direction)
  8.       newentry=NextBuffer(oldbuffer, ReadInfo("type"));
  9.     else
  10.       newentry=PrevBuffer(oldbuffer, ReadInfo("type"));
  11.  
  12.     if (ReadInfo("visible", newentry))
  13.       newentry=DuplicateEntry(newentry);
  14.  
  15.     Activate(newentry, 0);
  16.  
  17.     if (ReadInfo("shared")>1) {
  18.       Visible(0);
  19.       Kill();
  20.     }
  21.     CurrentBuffer(newentry);
  22.     Visible(1);
  23.   }
  24. }
  25.  
  26. export void GetBuffer()
  27. {
  28.   int newentry;
  29.  
  30.   if (ReadInfo("buffers")>1) {
  31.     newentry=PromptBuffer("Select buffer", 1);
  32.  
  33.     if (ReadInfo("visible", newentry))
  34.       newentry=DuplicateEntry(newentry);
  35.  
  36.     Activate(newentry, 0);
  37.  
  38.     if (ReadInfo("shared")>1) {
  39.       Visible(0);
  40.       Kill();
  41.     }
  42.     CurrentBuffer(newentry);
  43.     Visible(1);
  44.   }
  45. }
  46. AssignKey("SwapBuffer(0);", "Alt 'Left'");
  47. AssignKey("SwapBuffer(1);", "Alt 'Right'");
  48. AssignKey("GetBuffer();", "Amiga G");
  49.