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:   (create-text-button 'b-play ">" "Play")
    (create-text-button 'b-pause "||" "Pause")
    (create-text-button 'b-stop "[ ]" "Stop playback")
    (create-text-button 'b-options "Options" "Audio options")
    (create-text-button 'b-interpreter "Interpreter" "GLISP Interpreter")
    (create-text-button 'b-new-playlist "New Playlist" "Create new playlist")
  
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))
  