anchor.diff:  (defvar current-id "") ;; item unique ID (you may wish to use it to tracks unique ID key)
   (defvar current-index 0)
   (defvar current-playlist nil)
  +(defvar selected-playlist nil)
  +(defvar selected-index -1)
   
   (defun playlist-column-count-group (playlist-name row width height)
     (g-set-color |0.0 0.9 0.1 1.0|)
  
positive.code: (bind-key "F3" 'on-f3)
  (bind-key "escape" 'on-disable-filter)
  
  ;; make things visible
  (set-main-component 'l-main)
  (refresh-interface)
  
negative.code:   (component-enabled 'sl-seek t)
    (playback-start))
  
  (defun on-playlist-select (item-index playlist-name)
    (setq selected-playlist playlist-name)
    (setq selected-index item-index))
  
  (defun playback-changed ()
    (repaint-component 'pan)
  