anchor.diff:  ;; (refresh-interface)
   
   (defvar current-id "")
  -(defvar playlist-id 0)
   (defvar current-index 0)
   (defvar current-playlist nil)
   
  
positive.code: 	(tabs-index 'playlist-tabs "Interpreter"))))
  
  (defun on-new-playlist ()
    (setq playlist-id (+ 1 playlist-id))
    (tabs-add-component 'playlist-tabs
  		      (init-playlist (to-id (strs "playlist_" playlist-id)))
  		      (input-box "Playlist Name" "Enter new playlist name: " "New Playlist")
  		      |0.5 0.5 0.5 0.9|)
    (tabs-index 'playlist-tabs (- (tabs-count 'playlist-tabs) 1)))
  
negative.code: (settings-load "settings")
  
  ;; load playlist from settings
  (setq current-id (or (settings-get "current-index") 0))
  (setq current-playlist (or (settings-get "current-playlist") nil))
  (dolist e (or (settings-get "playlist-tabs") '())
  	(message-box "playlist element: " (strs (nth 0 e) " / " (nth 1 e)))
  	(tabs-add-component 'playlist-tabs
  