anchor.diff:  (defun spawn-interpreter ()
     (if (not (tabs-index 'playlist-tabs "Interpreter"))
         (progn
  -	(tabs-add-component 'playlist-tabs (get-interpreter) "Interpreter" |0.5 0.9 0.5 0.9|)
  -	(tabs-index 'playlist-tabs "Interpreter"))))
  +        (tabs-add-component 'playlist-tabs (get-interpreter) "Interpreter" |0.5 0.9 0.5 0.9|)
  +        (tabs-index 'playlist-tabs "Interpreter"))))
  +
  +(defun create-new-playlist (name)
  +  (tabs-add-component 'playlist-tabs
  +                      (init-playlist (unique-id "playlist"))
  +                      name
  +                      |0.5 0.5 0.5 0.9|)
  +  (tabs-index 'playlist-tabs (- (tabs-count 'playlist-tabs) 1)))
   
   (defun on-new-playlist ()
  -  (tabs-add-component 'playlist-tabs
  -		      (init-playlist (unique-id "playlist"))
  -		      (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)))
  +  (input-box "Playlist Name" "Enter new playlist name: " "New Playlist" 'create-new-playlist))
   
   (defun on-stop ()
     (playback-stop)
  
positive.code: 
  ;; ;; filtered playlist test
  ;; (create-filtered-playlist 'playlist_0 'ppp
  ;;			  (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)
  
negative.code: (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
                              (init-playlist (nth 0 e))
                              (nth 1 e) |0.5 0.5 0.5 0.9|)
          (playlist-load (nth 0 e) (strs "playlists/" (nth 0 e))))
  
  ;; restore window layout and position
  (if (settings-get "main-wnd-state")
      (main-window-state (settings-get "main-wnd-state")))
  
  ;; load volume
  (if (settings-get "volume")
      (slider-value 'sl-gain (settings-get "volume")))
  
  ;; init audio settings
  (audio-settings)
  