anchor.diff:    (playlist-add-column id "year" "year" 70 50 1000)
     (playlist-add-column id "count" "0" 50 20 1000)
     (bind-mouse-double-click id 'on-playlist-click '(selected-row
  -						   selected-row-id
  -						   selected-row-index
  -						   component-name))
  +                                                   selected-row-id
  +                                                   selected-row-index
  +                                                   component-name))
     id)
   
   (defun create-playlist-tabs ()
  
positive.code: (defun on-exit ()
    (defvar tabs (tabs-get-components 'playlist-tabs 'playlist))
    (dolist e tabs
  	  (playlist-save (nth 0 e) (strs "playlists/" (nth 0 e))))
    (settings-set "playlist-tabs" tabs)
    (settings-set "current-index" current-index)
    (settings-set "current-playlist" current-playlist)
    (settings-set "main-wnd-state" (main-window-state))
    (ctags-save "playback-stats")
    (settings-save "settings")
    ;;(message-box "Exiting" "just exiting")
  
negative.code: (defun on-next ()
    (if (< (+ 1 current-index) (playlist-items-count current-playlist))
        (progn (setq current-index (+ 1 current-index))
               (play-selected))))
  
  (defun on-prev ()
    (if (>= (- current-index 1) 0)
        (progn (setq current-index (- current-index 1))
               (play-selected))))
  
  (defun on-rand ()
    (progn (setq current-index (rand (playlist-items-count current-playlist)))
           (play-selected)))
  
  (defun on-playlist-click (item-str item-id item-index playlist-name)
    (playback-set-file item-str)
  