Mercurial > emacs

comparison lisp/progmodes/idlw-toolbar.el @ 69820:a26627fd2df2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Update copyright, change version.
author J.D. Smith <jdsmith@as.arizona.edu>
date Thu, 06 Apr 2006 18:42:40 +0000
parents dc49655f57ae
children d229a8453f37
comparison
equal deleted inserted replaced
69819:f5b96aac4371 69820:a26627fd2df2
1 ;;; idlw-toolbar.el --- a debugging toolbar for IDLWAVE 1 ;;; idlw-toolbar.el --- a debugging toolbar for IDLWAVE
2 ;; Copyright (c) 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006 2 ;; Copyright (c) 1999, 2000, 2001, 2002, 2004
3 ;; Free Software Foundation, Inc. 3 ;; Free Software Foundation
4 4
5 ;; Author: Carsten Dominik <dominik@astro.uva.nl> 5 ;; Author: Carsten Dominik <dominik@astro.uva.nl>
6 ;; Maintainer: J.D. Smith <jdsmith@as.arizona.edu> 6 ;; Maintainer: J.D. Smith <jdsmith@as.arizona.edu>
7 ;; Version: 5.7_22 7 ;; Version: 6.0_em22
8 ;; Keywords: processes 8 ;; Keywords: processes
9 9
10 ;; This file is part of GNU Emacs. 10 ;; This file is part of GNU Emacs.
11 11
12 ;; GNU Emacs is free software; you can redistribute it and/or modify 12 ;; GNU Emacs is free software; you can redistribute it and/or modify
41 (defun idlwave-toolbar-make-button (image) 41 (defun idlwave-toolbar-make-button (image)
42 (if (featurep 'xemacs) 42 (if (featurep 'xemacs)
43 (toolbar-make-button-list image) 43 (toolbar-make-button-list image)
44 (list 'image :type 'xpm :data image))) 44 (list 'image :type 'xpm :data image)))
45 45
46 (defvar idlwave-toolbar)
46 (defvar default-toolbar) 47 (defvar default-toolbar)
47 (defvar idlwave-toolbar)
48 (defvar idlwave-toolbar-is-possible) 48 (defvar idlwave-toolbar-is-possible)
49 49
50 (if (not (or (and (featurep 'xemacs) ; This is XEmacs 50 (if (not (or (and (featurep 'xemacs) ; This is XEmacs
51 (featurep 'xpm) ; need xpm 51 (featurep 'xpm) ; need xpm
52 (featurep 'toolbar)) ; ... and the toolbar 52 (featurep 'toolbar)) ; ... and the toolbar