anchor.diff:  (bind-mouse-click 'b-play 'on-play)
   (bind-mouse-click 'b-pause 'on-pause)
   (bind-mouse-click 'b-stop 'on-stop)
  +(bind-mouse-click 'b-prev 'on-prev)
  +(bind-mouse-click 'b-next 'on-next)
  +(bind-mouse-click 'b-rand 'on-rand)
   (bind-mouse-click 'b-new-playlist 'on-new-playlist)
   (bind-slider-drag-end 'sl-seek 'on-slider-up '(slider-value))
   (bind-slider-changed 'sl-gain 'on-slider-gain '(slider-value))
  
positive.code:   (layout-add-component 'l-buttons 'b-play 30.0 30.0 30.0)
    (layout-add-component 'l-buttons 'b-pause 30.0 30.0 30.0)
    (layout-add-component 'l-buttons 'b-stop 30.0 30.0 30.0)
    (layout-add-component 'l-buttons 'b-options 80.0 80.0 80.0)
    (layout-add-component 'l-buttons 'b-interpreter 80.0 80.0 80.0)
    (layout-add-component 'l-buttons 'b-new-playlist 80.0 80.0 80.0)
  
negative.code: 	  (if current-value
  	      (ctags-set current-id 0 (+ 1 (ctags-get current-id 0))) ;; increase value
  	    (ctags-set current-id 0 1)) ;; init value
  	  ;;(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))
  