Mercurial > hg > xemacs-beta

comparison lisp/w3/w3-toolbar.el @ 20:859a2309aef8 r19-15b93

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b93
author cvs
date Mon, 13 Aug 2007 08:50:05 +0200
parents 0293115a14e9
children 8d2a9b52c682
comparison
equal deleted inserted replaced
19:ac1f612d5250 20:859a2309aef8
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/01/10 00:13:05 3 ;; Created: 1997/02/03 15:38:24
4 ;; Version: 1.7 4 ;; Version: 1.8
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.
77 77
78 Only has any meaning in XEmacs 19.12 when w3-toolbar-orientation is 78 Only has any meaning in XEmacs 19.12 when w3-toolbar-orientation is
79 not `none'.") 79 not `none'.")
80 80
81 (defvar w3-toolbar 81 (defvar w3-toolbar
82 '([w3-toolbar-back-icon w3-backward-in-history t "Back in history"] 82 '([w3-toolbar-back-icon w3-history-backward (car (w3-history-find-url-internal (url-view-url t))) "Back in history"]
83 [w3-toolbar-forw-icon w3-forward-in-history t "Forward in history"] 83 [w3-toolbar-forw-icon w3-history-forward (cdr (w3-history-find-url-internal (url-view-url t))) "Forward in history"]
84 [w3-toolbar-home-icon w3 t "Go home"] 84 [w3-toolbar-home-icon w3 t "Go home"]
85 [:style 2d :size 5] 85 [:style 2d :size 5]
86 [w3-toolbar-reld-icon w3-reload-document t "Reload document"] 86 [w3-toolbar-reld-icon w3-reload-document t "Reload document"]
87 [w3-toolbar-hotl-icon w3-show-hotlist t "View hotlist"] 87 [w3-toolbar-hotl-icon w3-show-hotlist t "View hotlist"]
88 [w3-toolbar-imag-icon w3-load-delayed-images w3-delayed-images 88 [w3-toolbar-imag-icon w3-load-delayed-images w3-delayed-images