Mercurial > hg > xemacs-beta

comparison lisp/w3/w3-toolbar.el @ 116:9f59509498e1 r20-1b10

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b10
author cvs
date Mon, 13 Aug 2007 09:23:06 +0200
parents 0d2f883870bc
children 5a88923fcbfe
comparison
equal deleted inserted replaced
115:f109f7dabbe2 116:9f59509498e1
1 ;;; w3-toolbar.el --- Toolbar functions for emacs-w3 1 ;;; w3-toolbar.el --- Toolbar functions for emacs-w3
2 ;; Author: wmperry 2 ;; Author: wmperry
3 ;; Created: 1997/02/03 15:38:24 3 ;; Created: 1997/03/26 00:01:47
4 ;; Version: 1.8 4 ;; Version: 1.9
5 ;; Keywords: mouse, toolbar 5 ;; Keywords: mouse, toolbar
6 6
7 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 7 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
8 ;;; Copyright (c) 1995, 1996 by William M. Perry (wmperry@cs.indiana.edu) 8 ;;; Copyright (c) 1995, 1996 by William M. Perry (wmperry@cs.indiana.edu)
9 ;;; Copyright (c) 1996, 1997 Free Software Foundation, Inc. 9 ;;; Copyright (c) 1996, 1997 Free Software Foundation, Inc.
161 (setq w3-toolbar-icon-directory 161 (setq w3-toolbar-icon-directory
162 (file-name-as-directory 162 (file-name-as-directory
163 (expand-file-name "w3" data-directory)))) 163 (expand-file-name "w3" data-directory))))
164 (cond 164 (cond
165 ((not (file-exists-p w3-toolbar-icon-directory)) 165 ((not (file-exists-p w3-toolbar-icon-directory))
166 (w3-warn 'files "Toolbar directory does not exist.")) 166 (and w3-running-xemacs
167 (w3-warn 'files "Toolbar directory does not exist.")))
167 ((not (fboundp 'toolbar-make-button-list)) 168 ((not (fboundp 'toolbar-make-button-list))
168 nil) 169 nil)
169 ((eq w3-toolbar-type 'text) 170 ((eq w3-toolbar-type 'text)
170 (w3-toolbar-make-text-buttons)) 171 (w3-toolbar-make-text-buttons))
171 ((boundp 'toolbar-buttons-captioned-p) 172 ((boundp 'toolbar-buttons-captioned-p)