Commits

Anonymous committed b592ec6

2002-05-01 Steve Youngs <youngs@xemacs.org>

* package-info.in: Add debug-toolbar.

* Makefile (ELCS): Add debug-toolbar.elc.

* pdb.el (pdb-install-toolbar): Require debug-toolbar.
(pdb-toolbar): Rename eos* to debug*

* gdbsrc.el (gdbsrc-toolbar): Rename eos* to debug*.

* gdb.el ((featurep 'toolbar)): Require debug-toolbar.
(gdb-toolbar): Rename eos* to debug*.
(gdb-set-buffer): Ditto.

* debug-toolbar.el: New file.

  • Participants
  • Parent commits d57fc6c

Comments (0)

Files changed (6)

+2002-05-01  Steve Youngs  <youngs@xemacs.org>
+
+	* package-info.in: Add debug-toolbar.
+
+	* Makefile (ELCS): Add debug-toolbar.elc.
+
+	* pdb.el (pdb-install-toolbar): Require debug-toolbar.
+	(pdb-toolbar): Rename eos* to debug*
+
+	* gdbsrc.el (gdbsrc-toolbar): Rename eos* to debug*.
+
+	* gdb.el ((featurep 'toolbar)): Require debug-toolbar.
+	(gdb-toolbar): Rename eos* to debug*.
+	(gdb-set-buffer): Ditto.
+
+	* debug-toolbar.el: New file.
+
 2000-11-07  Martin Buchholz  <martin@xemacs.org>
 
 	* gdbsrc.el: Doc fixes.
 REQUIRES = xemacs-base
 CATEGORY = standard
 
-ELCS = dbx.elc gdb.elc gdb-highlight.elc gdbsrc.elc gud.elc history.elc pdb.elc
+ELCS = debug-toolbar.elc dbx.elc gdb.elc gdb-highlight.elc gdbsrc.elc \
+	gud.elc history.elc pdb.elc
 
 include ../../XEmacs.rules
 
 (require 'comint)
 (require 'shell)
 
-(condition-case nil
-    (if (featurep 'toolbar)
-	(require 'eos-toolbar "sun-eos-toolbar"))
-  (error nil))
+(if (featurep 'toolbar)
+    (require 'debug-toolbar))
 
 (defvar gdb-last-frame)
 (defvar gdb-delete-prompt-marker)
   "Keymap for gdb-mode.")
 
 (defvar gdb-toolbar
-  '([eos::toolbar-stop-at-icon
+  '([debug::toolbar-stop-at-icon
      gdb-toolbar-break
      t
      "Stop at selected position"]
-    [eos::toolbar-stop-in-icon
+    [debug::toolbar-stop-in-icon
      gdb-toolbar-break
      t
      "Stop in function whose name is selected"]
-    [eos::toolbar-clear-at-icon
+    [debug::toolbar-clear-at-icon
      gdb-toolbar-clear
      t
      "Clear at selected position"]
-    [eos::toolbar-evaluate-icon
+    [debug::toolbar-evaluate-icon
      nil
      nil
      "Evaluate selected expression; shows in separate XEmacs frame"]
-    [eos::toolbar-evaluate-star-icon
+    [debug::toolbar-evaluate-star-icon
      nil
      nil
      "Evaluate selected expression as a pointer; shows in separate XEmacs frame"]
-    [eos::toolbar-run-icon
+    [debug::toolbar-run-icon
      gdb-run
      t
      "Run current program"]
-    [eos::toolbar-cont-icon
+    [debug::toolbar-cont-icon
      gdb-cont
      t
      "Continue current program"]
-    [eos::toolbar-step-into-icon
+    [debug::toolbar-step-into-icon
      gdb-step
      t
      "Step into (aka step)"]
-    [eos::toolbar-step-over-icon
+    [debug::toolbar-step-over-icon
      gdb-next
      t
      "Step over (aka next)"]
-    [eos::toolbar-up-icon
+    [debug::toolbar-up-icon
      gdb-up
      t
      "Stack Up (towards \"cooler\" - less recently visited - frames)"]
-    [eos::toolbar-down-icon
+    [debug::toolbar-down-icon
      gdb-down
      t
      "Stack Down (towards \"warmer\" - more recently visited - frames)"]
-    [eos::toolbar-fix-icon	nil	nil	"Fix (not available with gdb)"]
-    [eos::toolbar-build-icon
+    [debug::toolbar-fix-icon	nil	nil	"Fix (not available with gdb)"]
+    [debug::toolbar-build-icon
      toolbar-compile
      t
      "Build (aka make -NYI)"]
 (defun gdb-set-buffer ()
   (cond ((eq major-mode 'gdb-mode)
 	 (setq current-gdb-buffer (current-buffer))
-	 (if (featurep 'eos-toolbar)
+	 (if (featurep 'debug-toolbar)
 	     (set-specifier default-toolbar (cons (current-buffer)
 						  gdb-toolbar))))))
 
 (add-minor-mode 'gdbsrc-mode " GdbSrc" gdbsrc-mode-map)
 
 (defvar gdbsrc-toolbar
-  '([eos::toolbar-stop-at-icon
+  '([debug::toolbar-stop-at-icon
      gdb-break
      t
      "Stop at selected position"]
-    [eos::toolbar-stop-in-icon
+    [debug::toolbar-stop-in-icon
      gdb-break
      t
      "Stop in function whose name is selected"]
-    [eos::toolbar-clear-at-icon
+    [debug::toolbar-clear-at-icon
      gdbsrc-delete
      t
      "Clear at selected position"]
-    [eos::toolbar-evaluate-icon
+    [debug::toolbar-evaluate-icon
      gdb-print-c-sexp
      t
      "Evaluate selected expression; shows in separate XEmacs frame"]
-    [eos::toolbar-evaluate-star-icon
+    [debug::toolbar-evaluate-star-icon
      gdb-*print-c-sexp
      t
      "Evaluate selected expression as a pointer; shows in separate XEmacs frame"]
-    [eos::toolbar-run-icon
+    [debug::toolbar-run-icon
      gdbsrc-run
      t
      "Run current program"]
-    [eos::toolbar-cont-icon
+    [debug::toolbar-cont-icon
      gdbsrc-cont
      t
      "Continue current program"]
-    [eos::toolbar-step-into-icon
+    [debug::toolbar-step-into-icon
      gdbsrc-step
      t
      "Step into (aka step)"]
-    [eos::toolbar-step-over-icon
+    [debug::toolbar-step-over-icon
      gdbsrc-next
      t
      "Step over (aka next)"]
-    [eos::toolbar-up-icon
+    [debug::toolbar-up-icon
      gdbsrc-up
      t
      "Stack Up (towards \"cooler\" - less recently visited - frames)"]
-    [eos::toolbar-down-icon
+    [debug::toolbar-down-icon
      gdbsrc-down
      t
      "Stack Down (towards \"warmer\" - more recently visited - frames)"]
-    [eos::toolbar-fix-icon
+    [debug::toolbar-fix-icon
      nil
      nil
      "Fix (not available with gdb)"]
-    [eos::toolbar-build-icon
+    [debug::toolbar-build-icon
      toolbar-compile
      t
      "Build (aka make -NYI)"]

File package-info.in

    filename FILENAME
    md5sum MD5SUM
    size SIZE
-   provides (dbx gdb-highlight gdb gdbsrc gud history)
+   provides (dbx debug-toolbar gdb-highlight gdb gdbsrc gud history)
    requires (REQUIRES)
    type regular
 ))
 
 (defvar pdb-toolbar
   '(
-    [eos::toolbar-run-icon
+    [debug::toolbar-run-icon
      gud-finish
      t
      "Finish executing current function"]
-    [eos::toolbar-cont-icon
+    [debug::toolbar-cont-icon
      gud-cont
      t
      "Continue current program"]
-    [eos::toolbar-step-into-icon
+    [debug::toolbar-step-into-icon
      gud-step
      t
      "Step into (aka step)"]
-    [eos::toolbar-step-over-icon
+    [debug::toolbar-step-over-icon
      gud-next
      t
      "Step over (aka next)"]
-    [eos::toolbar-up-icon
+    [debug::toolbar-up-icon
      gud-up
      t
      "Stack Up (towards \"cooler\" - less recently visited - frames)"]
-    [eos::toolbar-down-icon
+    [debug::toolbar-down-icon
      gud-down
      t
      "Stack Down (towards \"warmer\" - more recently visited - frames)"]
 
 (defun pdb-install-toolbar ()
   (interactive)
-      (require 'eos-toolbar "sun-eos-toolbar")
+      (require 'debug-toolbar)
       (set-specifier default-toolbar (cons (current-buffer) pdb-toolbar)))
  
 (add-hook 'pdb-mode-hook 'pdb-install-toolbar)