anchor.diff:                                                        "*.mp3"))
            (new-mp3-file (read-mp3-file filename))
            (sduration (mp3-file-duration-in-seconds new-mp3-file))
  -         (tframes (ceiling (* sduration 30))))
  +         (tframes (ceiling (* sduration *fps*))))
       (setf (slot-value viz-widget 'current-location) 0)
       (setf (slot-value viz-widget 'the-mp3) (copy-mp3-file new-mp3-file))
       (setf (slot-value viz-widget 'song-duration) sduration)
       (setf (slot-value viz-widget 'total-frames) tframes)
  -    (setf (q+:current-source media-object) (q+:make-phonon-mediasource (uiop:native-namestring filename)))
  -    (q+:play media-object)
  +    (setf (q+:current-source (slot-value main-window 'media-object)) (q+:make-phonon-mediasource (uiop:native-namestring filename)))
  +    (q+:play (slot-value main-window 'media-object))
       ))
   
   
   (define-initializer (main-window setup)
     "Set the window title and set the fft-controls to be the central widget."
     (setf (q+:window-title main-window) "Interactive FFT Explorer")
  +
  +  (setf (slot-value main-window 'media-object) (q+:make-phonon-mediaobject main-window))
  +  (q+:set-tick-interval (slot-value main-window 'media-object) 1000)
  +
  +  (setf (slot-value main-window 'audio-output) (q+:make-phonon-audiooutput (q+:phonon.music-category) main-window))
  +  (q+:phonon-create-path (slot-value main-window 'media-object) (slot-value main-window 'audio-output))
  +  
     (setf (q+:central-widget main-window) viz-widget))
   
   (defun main ()
  
positive.code:   (with-main-window (window (make-instance 'main-window))))
  
  
  
negative.code: (define-subwidget (main-window viz-widget) (make-instance 'fft-drawer)
    "The fft-drawer itself.")
  
  ;; (define-subwidget (main-window media-object) 
  ;;   (q+:set-tick-interval media-object 1000))
  
  ;; (define-subwidget (main-window audio-output) 
  ;;   (q+:phonon-create-path media-object audio-output))
  
  (define-slot (main-window open open-file) ()
    (let* ((filename (q+:qfiledialog-get-open-file-name main-window "Select File"
  