New function for gdb-ui.el?

[Nick Roberts]

Is it a good idea to add the function below to gdb-ui.el now/ever?

Nick
  

(defun gdb-mouse-until (event)
  "Execute source lines by dragging the overlay arrow (fringe) with the mouse."
  (interactive "e")
  (let ((startpos (posn-point (event-start event)))
        (endline (line-number-at-pos (posn-point (event-end event)))))
    (if (equal startpos (marker-position gud-overlay-arrow-position))
        (gud-call
         (concat "until " buffer-file-name ":" (number-to-string endline))))))

(define-key gud-minor-mode-map [left-fringe drag-mouse-1]
    'gdb-mouse-until)