home *** CD-ROM | disk | FTP | other *** search
/ Business Shareware / Business Shareware.iso / start / wordproc / me_cd25 / hidebuf.mut < prev    next >
Encoding:
Text File  |  1992-11-09  |  1.7 KB  |  82 lines
  1.   ;; C Durland    Public Domain
  2.  
  3. (include me2.h)
  4.  
  5. (defun
  6.   prev-buffer  { (nex-buffer -1) }
  7.   next-buffer  { (nex-buffer  1) }
  8.   nex-buffer (int tick) HIDDEN
  9.   {
  10.     (int bid i n)
  11.  
  12.     (n (nth-buffer))
  13.     (while TRUE
  14.     {
  15.       (if (<= (+= n tick) 0) (n (buffers)))
  16.       
  17.       (bid (nth-buffer n))
  18.       (if (== (current-buffer) bid) (done))        ;; no previous buffer
  19.       (if (buffer-not-hidden bid)
  20.         {
  21.       (current-buffer bid TRUE)
  22.       (done)
  23.     })
  24.     })
  25. ;(current-buffer (nth-buffer -1 tick BFHidden) TRUE)
  26. ;    (current-buffer
  27. ;      (nth-buffer (+ tick (nth-buffer -1 BFHidden)) BFHidden)
  28. ;      TRUE)
  29.   }
  30.   Nth-buffer HIDDEN
  31.   {
  32.     (int j)
  33.  
  34.     (for (j 0) (< j (buffers)) (+= j 1)
  35.       (if (== (nth-buffer j) (current-buffer)) { j (done) }))
  36.   }
  37.   buffer-not-hidden (int bid) HIDDEN
  38.   {
  39.     (== 0 (bit-and (buffer-flags bid)
  40.                (bit-or BFHidden BFHidden2)))
  41.   }
  42.   MAIN
  43.   {
  44.     (bind-to-key "next-buffer"     "F-2")
  45. ;    (bind-to-key "prev-buffer"     "~")
  46.   }
  47. )
  48.  
  49.  
  50. (defun
  51.   hide-buffer
  52.   {
  53.     (int bid)
  54.  
  55.     (bid (current-buffer))
  56.     (msg "Hiding " (buffer-name bid))
  57.     (buffer-flags -1 (bit-or BFHidden2 (buffer-flags -1)))
  58.     (next-buffer)
  59.     (msg "Hid " (buffer-name bid))
  60.   }
  61.   reset-hide-bit (int bid) HIDDEN
  62.   {
  63.     (buffer-flags bid
  64. ;      (bit-and (bit-not BFHidden2) (buffer-flags bid)))
  65.       (bit-and (bit-xor 0xFFFFFFFF BFHidden2) (buffer-flags bid)))
  66.   }
  67.   unhide-buffer
  68.   {
  69.     (reset-hide-bit (attached-buffer (complete CC_BUF "Unhide buffer: ")))
  70.   }
  71.   unhide-buffers        ;; unhide all buffers
  72.   {
  73.     (int j)
  74.  
  75.     (for (j 0) (< j (buffers)) (+= j 1) (reset-hide-bit (nth-buffer j)))
  76.   }
  77.   MAIN
  78.   {
  79.     (bind-to-key "hide-buffer"     "M-h")
  80.   }
  81. )
  82.