[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp/progmodes gdb-ui.el [EMACS_23_1_RC]
From: |
Nick Roberts |
Subject: |
[Emacs-diffs] emacs/lisp/progmodes gdb-ui.el [EMACS_23_1_RC] |
Date: |
Wed, 01 Jul 2009 12:06:37 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Branch: EMACS_23_1_RC
Changes by: Nick Roberts <nickrob> 09/07/01 12:06:37
Modified files:
lisp/progmodes : gdb-ui.el
Log message:
(gdb-set-header): New function.
(gdb-propertize-header): Use it to distinguish select and unselected
tabs
in gdb buffers.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/progmodes/gdb-ui.el?cvsroot=emacs&only_with_tag=EMACS_23_1_RC&r1=1.256.2.1&r2=1.256.2.2
Patches:
Index: gdb-ui.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/progmodes/Attic/gdb-ui.el,v
retrieving revision 1.256.2.1
retrieving revision 1.256.2.2
diff -u -b -r1.256.2.1 -r1.256.2.2
--- gdb-ui.el 1 Jul 2009 06:11:12 -0000 1.256.2.1
+++ gdb-ui.el 1 Jul 2009 12:06:36 -0000 1.256.2.2
@@ -2156,11 +2156,11 @@
(define-key map (vector 'header-line 'down-mouse-1) 'ignore)
map))
-(defmacro gdb-propertize-header (name buffer)
+(defmacro gdb-propertize-header (name buffer help-echo mouse-face face)
`(propertize ,name
- 'help-echo "mouse-1: select"
- 'mouse-face 'mode-line-highlight
- 'face 'mode-line
+ 'help-echo ,help-echo
+ 'mouse-face ',mouse-face
+ 'face ',face
'local-map
(gdb-make-header-line-mouse-map
'mouse-1
@@ -2170,13 +2170,47 @@
(set-window-dedicated-p (selected-window) nil)
(switch-to-buffer
(gdb-get-buffer-create ',buffer))
- (set-window-dedicated-p (selected-window) t))))))
+ (setq gdb-header (gdb-set-header ',buffer))
+ (setq header-line-format gdb-header))
+ (set-window-dedicated-p (selected-window) t)))))
+
+(defun gdb-set-header (buffer)
+ (cond ((eq buffer 'gdb-locals-buffer)
+ (list
+ (gdb-propertize-header "Locals" gdb-locals-buffer
+ nil nil mode-line)
+ " "
+ (gdb-propertize-header "Registers" gdb-registers-buffer
+ "mouse-1: select" mode-line-highlight
mode-line-inactive)))
+ ((eq buffer 'gdb-registers-buffer)
+ (list
+ (gdb-propertize-header "Locals" gdb-locals-buffer
+ "mouse-1: select" mode-line-highlight
mode-line-inactive)
+ " "
+ (gdb-propertize-header "Registers" gdb-registers-buffer
+ nil nil mode-line)))
+ ((eq buffer 'gdb-breakpoints-buffer)
+ (list
+ (gdb-propertize-header "Breakpoints" gdb-breakpoints-buffer
+ nil nil mode-line)
+ " "
+ (gdb-propertize-header "Threads" gdb-threads-buffer
+ "mouse-1: select" mode-line-highlight
mode-line-inactive)))
+ ((eq buffer 'gdb-threads-buffer)
+ (list
+ (gdb-propertize-header "Breakpoints" gdb-breakpoints-buffer
+ "mouse-1: select" mode-line-highlight
mode-line-inactive)
+ " "
+ (gdb-propertize-header "Threads" gdb-threads-buffer
+ nil nil mode-line)))))
(defvar gdb-breakpoints-header
(list
- (gdb-propertize-header "Breakpoints" gdb-breakpoints-buffer)
+ (gdb-propertize-header "Breakpoints" gdb-breakpoints-buffer
+ nil nil mode-line)
" "
- (gdb-propertize-header "Threads" gdb-threads-buffer)))
+ (gdb-propertize-header "Threads" gdb-threads-buffer
+ "mouse-1: select" mode-line-highlight
mode-line-inactive)))
(defun gdb-breakpoints-mode ()
"Major mode for gdb breakpoints.
@@ -2590,9 +2624,11 @@
(defvar gdb-locals-header
(list
- (gdb-propertize-header "Locals" gdb-locals-buffer)
+ (gdb-propertize-header "Locals" gdb-locals-buffer
+ nil nil mode-line)
" "
- (gdb-propertize-header "Registers" gdb-registers-buffer)))
+ (gdb-propertize-header "Registers" gdb-registers-buffer
+ "mouse-1: select" mode-line-highlight
mode-line-inactive)))
(defun gdb-registers-mode ()