Mercurial > hg > xemacs-beta

comparison lisp/x11/x-toolbar.el @ 189:489f57a838ef r20-3b21

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b21
author cvs
date Mon, 13 Aug 2007 09:57:07 +0200
parents b405438285a2
children a2f645c6b9f8
comparison
equal deleted inserted replaced
188:e29a8e7498d9 189:489f57a838ef
1 ;; Toolbar support for X. 1 ;;; x-toolbar.el -- Runtime initialization of XEmacs toolbar
2 ;; Copyright (C) 1997 Free Software Foundation, Inc.
2 ;; Copyright (C) 1994 Andy Piper <andyp@parallax.demon.co.uk> 3 ;; Copyright (C) 1994 Andy Piper <andyp@parallax.demon.co.uk>
3 ;; Copyright (C) 1995 Board of Trustees, University of Illinois 4 ;; Copyright (C) 1995 Board of Trustees, University of Illinois
4 ;; Copyright (C) 1996 Ben Wing <wing@666.com> 5 ;; Copyright (C) 1996 Ben Wing <wing@666.com>
6
7 ;; Maintainer: XEmacs development team
8 ;; Keywords: frames
5 9
6 ;; This file is part of XEmacs. 10 ;; This file is part of XEmacs.
7 11
8 ;; XEmacs is free software; you can redistribute it and/or modify it 12 ;; XEmacs is free software; you can redistribute it and/or modify it
9 ;; under the terms of the GNU General Public License as published by 13 ;; under the terms of the GNU General Public License as published by
18 ;; You should have received a copy of the GNU General Public License 22 ;; You should have received a copy of the GNU General Public License
19 ;; along with XEmacs; see the file COPYING. If not, write to the 23 ;; along with XEmacs; see the file COPYING. If not, write to the
20 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, 24 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
21 ;; Boston, MA 02111-1307, USA. 25 ;; Boston, MA 02111-1307, USA.
22 26
23 ;; 27 ;;; Synched up: Not synched
28
29 ;;; Commentary:
30
24 ;; Miscellaneous toolbar functions, useful for users to redefine, in 31 ;; Miscellaneous toolbar functions, useful for users to redefine, in
25 ;; order to get different behaviour. 32 ;; order to get different behaviour.
26 ;; 33
34 ;;; Code:
27 35
28 (eval-when-compile 36 (eval-when-compile
29 (require 'pending-del)) 37 (require 'pending-del))
30 38
31 (defgroup toolbar nil 39 (defgroup toolbar nil
386 ;; #### These don't work right - not consistent! 394 ;; #### These don't work right - not consistent!
387 ;; I don't know what's wrong; perhaps `selected-frame' is wrong 395 ;; I don't know what's wrong; perhaps `selected-frame' is wrong
388 ;; sometimes when this is evaluated. Note that I even tried to 396 ;; sometimes when this is evaluated. Note that I even tried to
389 ;; kludge-fix this by calls to `set-specifier-dirty-flag' in 397 ;; kludge-fix this by calls to `set-specifier-dirty-flag' in
390 ;; pop-window-configuration and such. 398 ;; pop-window-configuration and such.
391 399
392 ;;[toolbar-next-win-icon unpop-window-configuration 400 ;;[toolbar-next-win-icon unpop-window-configuration
393 ;;(frame-property (selected-frame) 401 ;;(frame-property (selected-frame)
394 ;; 'window-config-unpop-stack) t "Undo \"Most recent window config\""] 402 ;; 'window-config-unpop-stack) t "Undo \"Most recent window config\""]
395 ;; #### Illicit knowledge? 403 ;; #### Illicit knowledge?
396 404
397 [toolbar-file-icon toolbar-open t "Open a file" ] 405 [toolbar-file-icon toolbar-open t "Open a file"]
398 [toolbar-folder-icon toolbar-dired t "View directory"] 406 [toolbar-folder-icon toolbar-dired t "View directory"]
399 [toolbar-disk-icon toolbar-save t "Save buffer" ] 407 [toolbar-disk-icon toolbar-save t "Save buffer"]
400 [toolbar-printer-icon toolbar-print t "Print buffer" ] 408 [toolbar-printer-icon toolbar-print t "Print buffer"]
401 [toolbar-cut-icon toolbar-cut t "Kill region"] 409 [toolbar-cut-icon toolbar-cut t "Kill region"]
402 [toolbar-copy-icon toolbar-copy t "Copy region"] 410 [toolbar-copy-icon toolbar-copy t "Copy region"]
403 [toolbar-paste-icon toolbar-paste t "Paste from clipboard"] 411 [toolbar-paste-icon toolbar-paste t "Paste from clipboard"]
404 [toolbar-undo-icon toolbar-undo t "Undo edit" ] 412 [toolbar-undo-icon toolbar-undo t "Undo edit"]
405 [toolbar-spell-icon toolbar-ispell t "Spellcheck" ] 413 [toolbar-spell-icon toolbar-ispell t "Spellcheck"]
406 [toolbar-replace-icon toolbar-replace t "Replace text" ] 414 [toolbar-replace-icon toolbar-replace t "Replace text"]
407 [toolbar-mail-icon toolbar-mail t "Mail" ] 415 ;; [toolbar-mail-icon toolbar-mail t "Mail"]
408 [toolbar-info-icon toolbar-info t "Information" ] 416 [toolbar-info-icon toolbar-info t "Information"]
409 [toolbar-compile-icon toolbar-compile t "Compile" ] 417 [toolbar-compile-icon toolbar-compile t "Compile"]
410 [toolbar-debug-icon toolbar-debug t "Debug" ] 418 [toolbar-debug-icon toolbar-debug t "Debug"]
411 [toolbar-news-icon toolbar-news t "News" ]) 419 ;; [toolbar-news-icon toolbar-news t "News"]
420 )
412 "The initial toolbar for a buffer.") 421 "The initial toolbar for a buffer.")
413 422
414 (defun x-init-toolbar-from-resources (locale) 423 (defun x-init-toolbar-from-resources (locale)
415 (x-init-specifier-from-resources 424 (x-init-specifier-from-resources
416 top-toolbar-height 'natnum locale 425 top-toolbar-height 'natnum locale