anchor.diff:  
   ;; ;; filtered playlist test
   ;; (create-filtered-playlist 'playlist_0 'ppp
  -;;			  (input-box "Search for:" "Enter query: " ""))
  +;;                        (input-box "Search for:" "Enter query: " ""))
   ;; (playlist-add-column 'ppp "track" 'track 50 20 1000)
   ;; (playlist-add-column 'ppp "album" 'album 200 150 1000)
   ;; (playlist-add-column 'ppp "artist" 'artist 200 150 1000)
  
positive.code:       (start-timer 'update-slider 100)
      (stop-timer 'update-slider)
      (if (playback-finished)
  	(progn
  	  (defvar current-value (ctags-get current-id 0))
  	  (defvar first-play (ctags-get current-id 2))
  	  (if current-value
  		(ctags-set current-id 0 (+ 1 (ctags-get current-id 0))) ;; increase value
  	    (ctags-set current-id 0 1)) ;; init value
  	  (ctags-set current-id 3 (current-time)) ;; set timestamp
  	  (if (not first-play)
  	      (ctags-set current-id 2 (current-time))) ;; set first play date
  	  ;;(message-box "playback-changed callback" "playback finished")
  	  ;;(message-box "Current info" (strs current-playlist " : " current-index))
  	  (on-next)
  	  (repaint-component current-playlist)))))
  
  (defun on-slider-up (time)
    (playback-seek time))
  
negative.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))
    (settings-set "volume" (slider-value 'sl-gain))
    (ctags-save "playback-stats")
    (settings-save "settings")
    ;;(message-box "Exiting" "just exiting")
  