3 |
|
|
4 |
;; Author: Carsten Dominik <dominik@astro.uva.nl> |
;; Author: Carsten Dominik <dominik@astro.uva.nl> |
5 |
;; Maintainer: J.D. Smith <jdsmith@as.arizona.edu> |
;; Maintainer: J.D. Smith <jdsmith@as.arizona.edu> |
6 |
;; Version: 4.15 |
;; Version: 5.5 |
7 |
;; Keywords: processes |
;; Keywords: processes |
8 |
|
|
9 |
;; This file is part of GNU Emacs. |
;; This file is part of GNU Emacs. |
170 |
\" \"};") |
\" \"};") |
171 |
"The Stop At icon.") |
"The Stop At icon.") |
172 |
|
|
|
(defvar idlwave-toolbar-stop-in-icon |
|
|
(idlwave-toolbar-make-button |
|
|
"/* XPM */ |
|
|
static char * file[] = { |
|
|
\"28 28 4 1\", |
|
|
\" c None s backgroundToolBarColor\", |
|
|
\"_ c #FFFFFFFFFFFF\", |
|
|
\". c #000000000000\", |
|
|
\"R c #FFFF00000000\", |
|
|
\" \", |
|
|
\" \", |
|
|
\" \", |
|
|
\" \", |
|
|
\" ........ \", |
|
|
\" .RRRRRRRR. \", |
|
|
\" .RRRRRRRRRR. \", |
|
|
\" .RRRRRRRRRRRR. \", |
|
|
\" .RRR___RR___RRR. \", |
|
|
\" .RRRR__RRRR__RRRR. \", |
|
|
\" .RRRRR__RRRR__RRRRR. \", |
|
|
\" .RRRRR__RRRR__RRRRR. \", |
|
|
\" .RRRRR__RRRR__RRRRR. \", |
|
|
\" .RRRR__RRRRRR__RRRR. \", |
|
|
\" .RRRRR__RRRR__RRRRR. \", |
|
|
\" .RRRRR__RRRR__RRRRR. \", |
|
|
\" .RRRRR__RRRR__RRRRR. \", |
|
|
\" .RRRRR__RRRR__RRRRR. \", |
|
|
\" .RRRR___RR___RRRR. \", |
|
|
\" .RRRRRRRRRRRRRR. \", |
|
|
\" .RRRRRRRRRRRR. \", |
|
|
\" .RRRRRRRRRR. \", |
|
|
\" .RRRRRRRR. \", |
|
|
\" ........ \", |
|
|
\" \", |
|
|
\" \", |
|
|
\" \", |
|
|
\" \"};") |
|
|
"The Stop in icon.") |
|
|
|
|
173 |
|
|
174 |
(defvar idlwave-toolbar-clear-at-icon |
(defvar idlwave-toolbar-clear-at-icon |
175 |
(idlwave-toolbar-make-button |
(idlwave-toolbar-make-button |
248 |
\" \"};") |
\" \"};") |
249 |
"The Clear-All icon.") |
"The Clear-All icon.") |
250 |
|
|
251 |
|
(defvar idlwave-toolbar-stop-beginning-icon |
252 |
|
(idlwave-toolbar-make-button |
253 |
|
"/* XPM */ |
254 |
|
static char * file[] = { |
255 |
|
\"28 28 4 1\", |
256 |
|
\" c None s backgroundToolBarColor\", |
257 |
|
\". c #000000000000\", |
258 |
|
\"X c #FFFF00000000\", |
259 |
|
\"_ c #FFFFFFFFFFFF\", |
260 |
|
\" \", |
261 |
|
\" \", |
262 |
|
\" \", |
263 |
|
\" \", |
264 |
|
\" ........ \", |
265 |
|
\" .XXXXXXXX. \", |
266 |
|
\" .XXXXXXXXXX. \", |
267 |
|
\" .XXXXXXXXXXXX. \", |
268 |
|
\" .XX..XXXXXXXXXX. \", |
269 |
|
\" .XX.XX.X______XXX. \", |
270 |
|
\" .XXX.XX.X______XXXX. \", |
271 |
|
\" .XXXX..XXXXXXXXXXXX. \", |
272 |
|
\" .XXXXXXXXXX____XXXX. \", |
273 |
|
\" .XXXXXXXXXX____XXXX. \", |
274 |
|
\" .XXXXXXXXXXXXXXXXXX. \", |
275 |
|
\" .XXXXXXXXXX____XXXX. \", |
276 |
|
\" .XXXXXXXXXX____XXXX. \", |
277 |
|
\" .XXXXXXXXXXXXXXXXXX. \", |
278 |
|
\" .XXXXXXXXX____XXX. \", |
279 |
|
\" .XXXXXXXX____XX. \", |
280 |
|
\" .XXXXXXXXXXXX. \", |
281 |
|
\" .XXXXXXXXXX. \", |
282 |
|
\" .XXXXXXXX. \", |
283 |
|
\" ........ \", |
284 |
|
\" \", |
285 |
|
\" \", |
286 |
|
\" \", |
287 |
|
\" \"};") |
288 |
|
"The Stop at Beginning icon.") |
289 |
|
|
290 |
|
(defvar idlwave-toolbar-stop-in-icon |
291 |
|
(idlwave-toolbar-make-button |
292 |
|
"/* XPM */ |
293 |
|
static char * file[] = { |
294 |
|
\"28 28 4 1\", |
295 |
|
\" c None s backgroundToolBarColor\", |
296 |
|
\"_ c #FFFFFFFFFFFF\", |
297 |
|
\". c #000000000000\", |
298 |
|
\"R c #FFFF00000000\", |
299 |
|
\" \", |
300 |
|
\" \", |
301 |
|
\" \", |
302 |
|
\" \", |
303 |
|
\" ........ \", |
304 |
|
\" .RRRRRRRR. \", |
305 |
|
\" .RRRRRRRRRR. \", |
306 |
|
\" .RRRRRRRRRRRR. \", |
307 |
|
\" .RRR___RR___RRR. \", |
308 |
|
\" .RRRR__RRRR__RRRR. \", |
309 |
|
\" .RRRRR__RRRR__RRRRR. \", |
310 |
|
\" .RRRRR__RRRR__RRRRR. \", |
311 |
|
\" .RRRRR__RRRR__RRRRR. \", |
312 |
|
\" .RRRR__RRRRRR__RRRR. \", |
313 |
|
\" .RRRRR__RRRR__RRRRR. \", |
314 |
|
\" .RRRRR__RRRR__RRRRR. \", |
315 |
|
\" .RRRRR__RRRR__RRRRR. \", |
316 |
|
\" .RRRRR__RRRR__RRRRR. \", |
317 |
|
\" .RRRR___RR___RRRR. \", |
318 |
|
\" .RRRRRRRRRRRRRR. \", |
319 |
|
\" .RRRRRRRRRRRR. \", |
320 |
|
\" .RRRRRRRRRR. \", |
321 |
|
\" .RRRRRRRR. \", |
322 |
|
\" ........ \", |
323 |
|
\" \", |
324 |
|
\" \", |
325 |
|
\" \", |
326 |
|
\" \"};") |
327 |
|
"The Stop in icon.") |
328 |
|
|
329 |
(defvar idlwave-toolbar-edit-cmd-icon |
(defvar idlwave-toolbar-edit-cmd-icon |
330 |
(idlwave-toolbar-make-button |
(idlwave-toolbar-make-button |
331 |
"/* XPM */ |
"/* XPM */ |
437 |
\" \", |
\" \", |
438 |
\" \", |
\" \", |
439 |
\" \"};") |
\" \"};") |
440 |
"The Cont icon.") |
"The Cont icon.") |
441 |
|
|
442 |
(defvar idlwave-toolbar-to-here-icon |
(defvar idlwave-toolbar-to-here-icon |
443 |
(idlwave-toolbar-make-button |
(idlwave-toolbar-make-button |
748 |
\" \"};") |
\" \"};") |
749 |
"The Reset icon.") |
"The Reset icon.") |
750 |
|
|
751 |
|
(defvar idlwave-toolbar-electric-debug-icon |
752 |
|
(idlwave-toolbar-make-button |
753 |
|
"/* XPM */ |
754 |
|
static char * file[] = { |
755 |
|
\"28 28 8 1\", |
756 |
|
\" c None s backgroundToolBarColor\", |
757 |
|
\". c #CFC854\", |
758 |
|
\"+ c #EEDB0E\", |
759 |
|
\"@ c #D2C739\", |
760 |
|
\"# c #A39C54\", |
761 |
|
\"$ c #CDC020\", |
762 |
|
\"% c #020202\", |
763 |
|
\"& c #D60E36\", |
764 |
|
\" \", |
765 |
|
\" \", |
766 |
|
\" .. \", |
767 |
|
\" +++++@ \", |
768 |
|
\" ++++++ \", |
769 |
|
\" +++++@ \", |
770 |
|
\" +++++ \", |
771 |
|
\" #++++@ \", |
772 |
|
\" $+++@ %% %% \", |
773 |
|
\" ++++++$ % % \", |
774 |
|
\" #+++++$ % % \", |
775 |
|
\" #++$# %%% \", |
776 |
|
\" #+++ %%%%%%% \", |
777 |
|
\" .++ %%%%%%%%%%% \", |
778 |
|
\" ++$$ %%%%%%%%%%% \", |
779 |
|
\" .+@# &&%%%%%%%&& \", |
780 |
|
\" .++++# &&&&&%%%&&&&& \", |
781 |
|
\" +++++$ &&%%&&&&&%%&& \", |
782 |
|
\" $+++$ &&%%&&&&&%%&& \", |
783 |
|
\" $++@ &&&&&&%&&&&&& \", |
784 |
|
\" $+@ &&&&&&%&&&&&& \", |
785 |
|
\" @+ &&%%&&&&&%%&& \", |
786 |
|
\" ++. &%%&&%&&%%& \", |
787 |
|
\" +. &&&&%%%&&&& \", |
788 |
|
\" .+ &&%%%%%&& \", |
789 |
|
\" ++ %%%%%%% \", |
790 |
|
\" . %%% \", |
791 |
|
\" \"};") |
792 |
|
"The electric debug icon.") |
793 |
|
|
794 |
(defvar idlwave-toolbar |
(defvar idlwave-toolbar |
795 |
'( |
'( |
796 |
[idlwave-toolbar-compile-icon |
[idlwave-toolbar-compile-icon |
805 |
idlwave-shell-break-here |
idlwave-shell-break-here |
806 |
(eq major-mode 'idlwave-mode) |
(eq major-mode 'idlwave-mode) |
807 |
"Set Breakpoint at selected position"] |
"Set Breakpoint at selected position"] |
|
[idlwave-toolbar-stop-in-icon |
|
|
idlwave-shell-break-in |
|
|
t |
|
|
"Stop in Function with name near at point"] |
|
808 |
[idlwave-toolbar-clear-at-icon |
[idlwave-toolbar-clear-at-icon |
809 |
idlwave-shell-clear-current-bp |
idlwave-shell-clear-current-bp |
810 |
t |
t |
813 |
idlwave-shell-clear-all-bp |
idlwave-shell-clear-all-bp |
814 |
t |
t |
815 |
"Clear all Breakpoints"] |
"Clear all Breakpoints"] |
816 |
|
[idlwave-toolbar-stop-beginning-icon |
817 |
|
idlwave-shell-break-this-module |
818 |
|
(eq major-mode 'idlwave-mode) |
819 |
|
"Stop at beginning of enclosing Routine"] |
820 |
|
[idlwave-toolbar-stop-in-icon |
821 |
|
idlwave-shell-break-in |
822 |
|
t |
823 |
|
"Stop in Routine with name near point"] |
824 |
[idlwave-toolbar-edit-cmd-icon |
[idlwave-toolbar-edit-cmd-icon |
825 |
idlwave-shell-edit-default-command-line |
idlwave-shell-edit-default-command-line |
826 |
t |
t |
865 |
idlwave-shell-reset |
idlwave-shell-reset |
866 |
t |
t |
867 |
"Reset IDL (RETALL & CLOSE,/ALL and more)"] |
"Reset IDL (RETALL & CLOSE,/ALL and more)"] |
868 |
|
[idlwave-toolbar-electric-debug-icon |
869 |
|
idlwave-shell-electric-debug-mode |
870 |
|
(eq major-mode 'idlwave-mode) |
871 |
|
"Toggle Electric Debug Mode"] |
872 |
)) |
)) |
873 |
|
|
874 |
;; When the shell exits, arrange to remove the special toolbar everywhere. |
;; When the shell exits, arrange to remove the special toolbar everywhere. |
914 |
(mapcar (lambda (x) |
(mapcar (lambda (x) |
915 |
(let* ((icon (aref x 0)) |
(let* ((icon (aref x 0)) |
916 |
(func (aref x 1)) |
(func (aref x 1)) |
917 |
;;(show (aref x 2)) |
(show (aref x 2)) |
918 |
(help (aref x 3)) |
(help (aref x 3)) |
919 |
(key (vector 'tool-bar func)) |
(key (vector 'tool-bar func)) |
920 |
(def (list 'menu-item |
(def (list 'menu-item |
921 |
"a" |
"a" |
922 |
func |
func |
923 |
:image (symbol-value icon) |
:image (symbol-value icon) |
924 |
|
:visible show |
925 |
:help help))) |
:help help))) |
926 |
(define-key idlwave-mode-map key def) |
(define-key idlwave-mode-map key def) |
927 |
(define-key idlwave-shell-mode-map key def))) |
(define-key idlwave-shell-mode-map key def))) |
967 |
(provide 'idlw-toolbar) |
(provide 'idlw-toolbar) |
968 |
(provide 'idlwave-toolbar) |
(provide 'idlwave-toolbar) |
969 |
|
|
970 |
|
;; arch-tag: ec9a3717-c44c-4716-9bda-cdacbe5ddb62 |
971 |
;;; idlw-toolbar.el ends here |
;;; idlw-toolbar.el ends here |
|
|
|
|
|
|
|
;;; arch-tag: ec9a3717-c44c-4716-9bda-cdacbe5ddb62 |
|