     (define-key map [menu-bar debugger view breakpoints]
       (rdebug-menu-item common-map
                         "Breakpoints" 'rdebug-display-breakpoints-buffer))
+
+    (define-key map [menu-bar debugger view source]
+      (rdebug-menu-item common-map
+                        "Source" 'rdebug-display-source-buffer))
     menu))
 
 

;; that window.


(defun rdebug-pick-source-window-categorize-window (win)
  "Return how suiteable this window is to display the source buffer.
The higher score the better."
  (let ((buffer (window-buffer win)))

  (define-key map "B" 'rdebug-display-breakpoints-buffer)
  (define-key map "C" 'rdebug-display-cmd-buffer)
  (define-key map "O" 'rdebug-display-output-buffer)
  (define-key map "S" 'rdebug-display-source-buffer)
  (define-key map "T" 'rdebug-display-stack-buffer)
  (define-key map "V" 'rdebug-display-variables-buffer)
  (define-key map "W" 'rdebug-display-watch-buffer)
