/[emacs]/emacs/lisp/gdb-ui.el
ViewVC logotype

Diff of /emacs/lisp/gdb-ui.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.39 by nickrob, Mon Jul 28 19:49:30 2003 UTC revision 1.40 by nickrob, Mon Aug 11 21:55:20 2003 UTC
# Line 817  output from the current command if that Line 817  output from the current command if that
817    (setq gdb-display-in-progress nil))    (setq gdb-display-in-progress nil))
818    
819  (define-button-type 'gdb-display-back  (define-button-type 'gdb-display-back
820    'help-echo (purecopy "mouse-2, RET: go back to previous display buffer")    'help-echo "mouse-2, RET: go back to previous display buffer"
821    'action (lambda (button) (gdb-display-go-back)))    'action (lambda (button) (gdb-display-go-back)))
822    
823  (defun gdb-display-go-back ()  (defun gdb-display-go-back ()
# Line 945  output from the current command if that Line 945  output from the current command if that
945          (insert-buffer-substring (gdb-get-buffer          (insert-buffer-substring (gdb-get-buffer
946                                    'gdb-partial-output-buffer)                                    'gdb-partial-output-buffer)
947                                   start end)                                   start end)
948          (put-text-property (- (point) (- end start)) (- (point) 1)          (add-text-properties (- (point) (- end start)) (- (point) 1)
949                             'mouse-face 'highlight)                               `(mouse-face highlight local-map ,gdb-dive-map))))
         (put-text-property (- (point) (- end start)) (- (point) 1)  
                            'local-map gdb-dive-map)))  
950      (delete-region start end)))      (delete-region start end)))
951    
952  (defvar gdb-values nil)  (defvar gdb-values nil)
# Line 1060  output from the current command if that Line 1058  output from the current command if that
1058            (setq array-stop (int-to-string (aref gdb-array-stop num)))            (setq array-stop (int-to-string (aref gdb-array-stop num)))
1059            (setq array-range (concat "[" array-start            (setq array-range (concat "[" array-start
1060                                      ":" array-stop "]"))                                      ":" array-stop "]"))
1061            (put-text-property 1 (+ (length array-start)            (add-text-properties
1062                                    (length array-stop) 2)             1 (+ (length array-start) (length array-stop) 2)
1063                               'mouse-face 'highlight array-range)             `(mouse-face highlight
1064            (put-text-property 1 (+ (length array-start)               local-map ,gdb-array-slice-map
1065                                    (length array-stop) 2)               help-echo "mouse-2, RET: select slice for this index") array-range)
                              'local-map gdb-array-slice-map array-range)  
1066            (goto-char (point-min))            (goto-char (point-min))
1067            (setq array-slice (concat array-slice array-range))            (setq array-slice (concat array-slice array-range))
1068            (setq num (+ num 1)))            (setq num (+ num 1)))
# Line 1342  static char *magick[] = { Line 1339  static char *magick[] = {
1339        (with-current-buffer buffer        (with-current-buffer buffer
1340          (if (and (eq gud-minor-mode 'gdba)          (if (and (eq gud-minor-mode 'gdba)
1341                   (not (string-match "^\*" (buffer-name))))                   (not (string-match "^\*" (buffer-name))))
1342              (if (eq window-system 'x)              (if (display-images-p)
1343                  (remove-images (point-min) (point-max))                  (remove-images (point-min) (point-max))
1344                (gdb-remove-strings (point-min) (point-max))))))                (gdb-remove-strings (point-min) (point-max))))))
1345      (with-current-buffer (gdb-get-buffer 'gdb-breakpoints-buffer)      (with-current-buffer (gdb-get-buffer 'gdb-breakpoints-buffer)
# Line 1360  static char *magick[] = { Line 1357  static char *magick[] = {
1357                        (looking-at "\\(\\S-*\\):\\([0-9]+\\)")                        (looking-at "\\(\\S-*\\):\\([0-9]+\\)")
1358                        (let ((line (match-string 2)) (buffer-read-only nil)                        (let ((line (match-string 2)) (buffer-read-only nil)
1359                              (file (match-string 1)))                              (file (match-string 1)))
1360                          (put-text-property (progn (beginning-of-line) (point))                          (add-text-properties (point-at-bol) (point-at-eol)
1361                                             (progn (end-of-line) (point))                           '(mouse-face highlight
1362                                             'mouse-face 'highlight)                             help-echo "mouse-2, RET: visit breakpoint"))
1363                          (with-current-buffer                          (with-current-buffer
1364                              (find-file-noselect                              (find-file-noselect
1365                               (if (file-exists-p file) file                               (if (file-exists-p file) file
# Line 1383  static char *magick[] = { Line 1380  static char *magick[] = {
1380                              (let ((start (progn (beginning-of-line)                              (let ((start (progn (beginning-of-line)
1381                                                  (- (point) 1)))                                                  (- (point) 1)))
1382                                    (end (progn (end-of-line) (+ (point) 1))))                                    (end (progn (end-of-line) (+ (point) 1))))
1383                                (if (eq window-system 'x)                                (if (display-images-p)
1384                                    (progn                                    (progn
1385                                      (remove-images start end)                                      (remove-images start end)
1386                                      (if (eq ?y flag)                                      (if (eq ?y flag)
# Line 1544  current line." Line 1541  current line."
1541        (let ((buffer-read-only nil))        (let ((buffer-read-only nil))
1542          (goto-char (point-min))          (goto-char (point-min))
1543          (while (< (point) (point-max))          (while (< (point) (point-max))
1544            (put-text-property (progn (beginning-of-line) (point))            (add-text-properties (point-at-bol) (point-at-eol)
1545                               (progn (end-of-line) (point))                               '(mouse-face highlight
1546                               'mouse-face 'highlight)                                 help-echo "mouse-2, RET: Select frame"))
1547            (beginning-of-line)            (beginning-of-line)
1548            (if (or (looking-at "^#[0-9]*\\s-*\\S-* in \\(\\S-*\\)")            (if (or (looking-at "^#[0-9]*\\s-*\\S-* in \\(\\S-*\\)")
1549                    (looking-at "^#[0-9]*\\s-*\\(\\S-*\\)"))                    (looking-at "^#[0-9]*\\s-*\\(\\S-*\\)"))
1550                (if (equal (match-string 1) gdb-current-frame)                (if (equal (match-string 1) gdb-current-frame)
1551                    (put-text-property (progn (beginning-of-line) (point))                    (put-text-property (point-at-bol) (point-at-eol)
1552                                       (progn (end-of-line) (point))                     'face
1553                                       'face                     `(:background ,(face-attribute 'default :foreground)
1554                                       `(:background ,(face-attribute 'default :foreground)                       :foreground ,(face-attribute 'default :background)))))
                                        :foreground ,(face-attribute 'default :background)))))  
1555            (forward-line 1))))))            (forward-line 1))))))
1556    
1557  (defun gdb-stack-buffer-name ()  (defun gdb-stack-buffer-name ()
# Line 1629  the source buffer." Line 1625  the source buffer."
1625      (let ((buffer-read-only nil))      (let ((buffer-read-only nil))
1626        (goto-char (point-min))        (goto-char (point-min))
1627        (while (< (point) (point-max))        (while (< (point) (point-max))
1628          (put-text-property (progn (beginning-of-line) (point))          (add-text-properties (point-at-bol) (point-at-eol)
1629                             (progn (end-of-line) (point))                               '(mouse-face highlight
1630                             'mouse-face 'highlight)                                 help-echo "mouse-2, RET: select thread"))
1631          (forward-line 1)))))          (forward-line 1)))))
1632    
1633  (defun gdb-threads-buffer-name ()  (defun gdb-threads-buffer-name ()
# Line 2160  This arrangement depends on the value of Line 2156  This arrangement depends on the value of
2156            (if (eq gud-minor-mode 'gdba)            (if (eq gud-minor-mode 'gdba)
2157                (if (string-match "^\*.+*$" (buffer-name))                (if (string-match "^\*.+*$" (buffer-name))
2158                    (kill-buffer nil)                    (kill-buffer nil)
2159                  (if (eq window-system 'x)                  (if (display-images-p)
2160                      (remove-images (point-min) (point-max))                      (remove-images (point-min) (point-max))
2161                    (gdb-remove-strings (point-min) (point-max)))                    (gdb-remove-strings (point-min) (point-max)))
2162                  (setq left-margin-width 0)                  (setq left-margin-width 0)
# Line 2323  BUFFER nil or omitted means use the curr Line 2319  BUFFER nil or omitted means use the curr
2319                    (setq gdb-arrow-position (point))                    (setq gdb-arrow-position (point))
2320                    (gdb-put-arrow "=>" (point))))))                    (gdb-put-arrow "=>" (point))))))
2321        ;; remove all breakpoint-icons in assembler buffer before updating.        ;; remove all breakpoint-icons in assembler buffer before updating.
2322        (if (eq window-system 'x)        (if (display-images-p)
2323            (remove-images (point-min) (point-max))            (remove-images (point-min) (point-max))
2324          (gdb-remove-strings (point-min) (point-max))))          (gdb-remove-strings (point-min) (point-max))))
2325      (with-current-buffer (gdb-get-buffer 'gdb-breakpoints-buffer)      (with-current-buffer (gdb-get-buffer 'gdb-breakpoints-buffer)
# Line 2344  BUFFER nil or omitted means use the curr Line 2340  BUFFER nil or omitted means use the curr
2340                    (if (re-search-forward address nil t)                    (if (re-search-forward address nil t)
2341                        (let ((start (progn (beginning-of-line) (- (point) 1)))                        (let ((start (progn (beginning-of-line) (- (point) 1)))
2342                              (end (progn (end-of-line) (+ (point) 1))))                              (end (progn (end-of-line) (+ (point) 1))))
2343                          (if (eq window-system 'x)                          (if (display-images-p)
2344                              (progn                              (progn
2345                                (remove-images start end)                                (remove-images start end)
2346                                (if (eq ?y flag)                                (if (eq ?y flag)

Legend:
Removed from v.1.39  
changed lines
  Added in v.1.40

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26