From: Nick Roberts <nickrob@snap.net.nz>
Date: Wed, 9 Mar 2005 23:20:07 +0000 (+0000)
Subject: (gdb-var-create-handler, gdb-get-location):
X-Git-Tag: ttn-vms-21-2-B4~1858
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2e8c13b41b278bfa9a52c3818ab2fd1c46c363af;p=emacs.git

(gdb-var-create-handler, gdb-get-location):
Use message-box.
---

diff --git a/lisp/progmodes/gdb-ui.el b/lisp/progmodes/gdb-ui.el
index a040395acb9..fea1bbce69a 100644
--- a/lisp/progmodes/gdb-ui.el
+++ b/lisp/progmodes/gdb-ui.el
@@ -351,7 +351,7 @@ detailed description of this mode.
 				  ,(nth 1 var) nil))))
 	    (setq gdb-var-changed t)))
       (if (re-search-forward "Undefined command" nil t)
-	  (message "Watching expressions requires gdb 6.0 onwards")
+	  (message-box "Watching expressions requires gdb 6.0 onwards")
 	(message "No symbol %s in current context." expr)))))
 
 (defun gdb-var-evaluate-expression-handler (varnum changed)
@@ -2119,13 +2119,8 @@ Put in buffer and place breakpoint icon."
 	    (push (cons bptno (match-string 0)) gdb-location-list))
       (gdb-resync)
       (push (cons bptno "File not found") gdb-location-list)
-      (if (eq window-system 'x)
-	  (x-popup-dialog
-	   t '("Cannot find source file for breakpoint location.\n\
-Add directory to search path for source files using the GDB command, dir."
-	       ("Ok" . nil)))
-	(message "Cannot find source file for breakpoint location.\n\
-Add directory to search path for source files using the GDB command, dir."))
+      (message-box "Cannot find source file for breakpoint location.\n\
+Add directory to search path for source files using the GDB command, dir.")
       (throw 'file-not-found nil))
     (with-current-buffer
 	(find-file-noselect (match-string 0))