/[emacs]/emacs/lisp/progmodes/idlw-toolbar.el
ViewVC logotype

Diff of /emacs/lisp/progmodes/idlw-toolbar.el

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

revision 3.9.4.3 by miles, Sat Apr 10 06:20:09 2004 UTC revision 3.9.4.4 by miles, Wed Dec 8 23:31:45 2004 UTC
# Line 3  Line 3 
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.
# Line 170  static char * file[] = { Line 170  static char * file[] = {
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
# Line 287  static char * file[] = { Line 248  static char * file[] = {
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 */
# Line 398  static char * file[] = { Line 437  static char * file[] = {
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
# Line 709  static char * file[] = { Line 748  static char * file[] = {
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
# Line 723  static char * file[] = { Line 805  static char * file[] = {
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
# Line 735  static char * file[] = { Line 813  static char * file[] = {
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
# Line 779  static char * file[] = { Line 865  static char * file[] = {
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.
# Line 824  static char * file[] = { Line 914  static char * file[] = {
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)))
# Line 876  static char * file[] = { Line 967  static char * file[] = {
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  

Legend:
Removed from v.3.9.4.3  
changed lines
  Added in v.3.9.4.4

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