# HG changeset patch
# User Nick Roberts <nickrob@snap.net.nz>
# Date 1072211551 0
# Node ID d0090d33e7d899c062a3bc2e810f7174e526986a
# Parent  97802d013c5cbf1fe00675c72583b0f645bc393d
(gud-speedbar-buttons): Use speed-bar-edit-line
to edit values when there are no children.

diff -r 97802d013c5c -r d0090d33e7d8 lisp/progmodes/gud.el
--- a/lisp/progmodes/gud.el	Tue Dec 23 20:31:21 2003 +0000
+++ b/lisp/progmodes/gud.el	Tue Dec 23 20:32:31 2003 +0000
@@ -326,7 +326,7 @@
 		       (goto-char (point-min))
 		       (let ((case-fold-search t))
 			 (looking-at "Watch Expressions:")))))
- 	(erase-buffer)
+	(erase-buffer)
 	(insert "Watch Expressions:\n")
 	(let ((var-list gdb-var-list))
 	  (while var-list
@@ -337,17 +337,21 @@
 		      start (1+ (match-beginning 0))))
 	      (if (equal (nth 2 var) "0")
 		  (speedbar-make-tag-line 'bracket ?? nil nil
-					  (concat (car var) "    " (nth 4 var))
-					  'gdb-var-delete
-					  nil 'speedbar-directory-face depth)
+					  (concat (car var) "\t" (nth 4 var))
+					  'gdb-edit-value
+					  nil 
+					  (if (and (nth 5 var) 
+						   gdb-show-changed-values)
+					      'font-lock-warning-face
+					    nil) depth)
 		(if (and (cadr var-list)
 			 (string-match varnum (cadr (cadr var-list))))
 		    (setq char ?-))
 		(speedbar-make-tag-line 'bracket char
 					'gdb-speedbar-expand-node varnum
-					(concat (car var) "    " (nth 3 var))
+					(concat (car var) "\t" (nth 3 var))
 					'gdb-var-delete
-					nil 'speedbar-directory-face depth)))
+					nil nil depth)))
 	    (setq var-list (cdr var-list))))
 	(setq gdb-var-changed nil)))
      (t (if (and (save-excursion