[bongo-patches] Add `stop' fringe icon in 11 and 18 pixel versions

[Daniel Brockman]

2007-04-09  Daniel Brockman  <address@hidden>

        Add `stop' fringe icon in 11 and 18 pixel versions.

diff -rN -u old-bongo/bongo.el new-bongo/bongo.el
--- old-bongo/bongo.el  2007-04-09 00:21:57.000000000 +0200
+++ new-bongo/bongo.el  2007-04-09 00:21:57.000000000 +0200
@@ -4279,7 +4279,10 @@
 As soon as another track starts playing, this marker is set to
 point to nowhere.")
 (make-variable-buffer-local 'bongo-stopped-track-marker)
-(put 'bongo-stopped-track-marker 'overlay-arrow-bitmap 'filled-square)
+(put 'bongo-stopped-track-marker 'overlay-arrow-bitmap
+     (ecase (bongo-fringe-icon-size)
+       (11 'bongo-stopped-11)
+       (18 'bongo-stopped-18)))
 
 (defcustom bongo-player-process-priority nil
   "The desired scheduling priority of Bongo player processes.
@@ -5899,7 +5902,41 @@
        "..####....####.."
        "................"
        "................"))
-    18 16))
+    18 16)
+
+  (define-fringe-bitmap 'bongo-stopped-18
+    (bongo-fringe-bitmap-from-strings
+     '("................"
+       "................"
+       "................"
+       "..############.."
+       "..############.."
+       "..############.."
+       "..############.."
+       "..############.."
+       "..############.."
+       "..############.."
+       "..############.."
+       "..############.."
+       "..############.."
+       "..############.."
+       "..############.."
+       "................"
+       "................"
+       "................"))
+    18 16)
+
+  (define-fringe-bitmap 'bongo-stopped-11
+    (bongo-fringe-bitmap-from-strings
+     '("........"
+       ".######."
+       ".######."
+       ".######."
+       ".######."
+       ".######."
+       ".######."
+       ".######."
+       "........"))))
 
 (defvar bongo-queued-track-marker nil
   "Marker pointing at the queued track, if any.

-- 
Daniel Brockman <address@hidden>