Mercurial > hg > xemacs-beta

comparison lisp/toolbar.el @ 272:c5d627a313b1 r21-0b34

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b34
author cvs
date Mon, 13 Aug 2007 10:28:48 +0200
parents 41f2f0e326e9
children 6330739388db
comparison
equal deleted inserted replaced
271:c7b7086b0a39 272:c5d627a313b1
16 ;; WITHOUT ANY WARRANTY; without even the implied warranty of 16 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU 17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
18 ;; General Public License for more details. 18 ;; General Public License for more details.
19 19
20 ;; You should have received a copy of the GNU General Public License 20 ;; You should have received a copy of the GNU General Public License
21 ;; along with XEmacs; see the file COPYING. If not, write to the 21 ;; along with XEmacs; see the file COPYING. If not, write to the
22 ;; Free Software Foundation, 59 Temple Place - Suite 330, 22 ;; Free Software Foundation, 59 Temple Place - Suite 330,
23 ;; Boston, MA 02111-1307, USA. 23 ;; Boston, MA 02111-1307, USA.
24 24
25 ;;; Synched up with: Not in FSF. 25 ;;; Synched up with: Not in FSF.
26 26
35 35
36 (defvar toolbar-icon-directory nil 36 (defvar toolbar-icon-directory nil
37 "Location of standard toolbar icon bitmaps.") 37 "Location of standard toolbar icon bitmaps.")
38 38
39 (defun toolbar-make-button-list (up &optional down disabled cap-up cap-down cap-disabled) 39 (defun toolbar-make-button-list (up &optional down disabled cap-up cap-down cap-disabled)
40 "Calls make-glyph on each arg and returns a list of the results." 40 "Call make-glyph on each arg and return a list of the results."
41 (if (featurep 'x) 41 (if (featurep 'x)
42 (let ((up-glyph (make-glyph up)) 42 (let ((up-glyph (make-glyph up))
43 (down-glyph (and down (make-glyph down))) 43 (down-glyph (and down (make-glyph down)))
44 (disabled-glyph (and disabled (make-glyph disabled))) 44 (disabled-glyph (and disabled (make-glyph disabled)))
45 (cap-up-glyph (and cap-up (make-glyph cap-up))) 45 (cap-up-glyph (and cap-up (make-glyph cap-up)))