Mercurial > hg > xemacs-beta
annotate tests/gtk/toolbar-test.el @ 4506:bd28481bb0e1
Port #'window-buffer-height, #'fit-window-to-buffer, & window, buf, functions.
lisp/ChangeLog addition:
2008-08-31 Aidan Kehoe <kehoea@parhasard.net>
* window.el (only-window-p): New.
Check if WINDOW is the only window in some context, normally its
frame.
(one-window-p):
Implemented this in terms of #'only-window-p, calling it on the
selected window.
(window-buffer-height): Uncomment this, make it work.
(count-screen-lines): Support a BUFFER argument.
(fit-window-to-buffer): Uncomment this, correct its implementation
to work with XEmacs.
* help.el (temp-buffer-resize-mode): New. Name taken from GNU,
implementation our own.
* (resize-temp-buffer-window): New. GNU-compatible alias for
#'shrink-window-if-larger-than-buffer.
* dumped-lisp.el (preloaded-file-list): Move easy-mmode before
help, now that the latter uses #'define-minor-mode.
* frame.el: Point to #'temp-buffer-resize-mode in a comment.
Some of this code is from GNU; help.el CVS version 1.327 of
2007-03-21, window.el CVS version 1.122, of 2007-06-24. Both these
are GPLV2 or later.
author | Aidan Kehoe <kehoea@parhasard.net> |
---|---|
date | Sun, 31 Aug 2008 12:26:46 +0200 |
parents | 0784d089fdc9 |
children | db7068430402 |
rev | line source |
---|---|
462 | 1 (require 'gtk-widgets) |
2 (require 'gnome-widgets) | |
3 | |
4 (defvar gnomeified-toolbar | |
5 ;; [CAPTION TOOLTIP ICON CALLBACK ENABLED] | |
6 '(["Open" "Open a file" new toolbar-open t] | |
7 ["Dired" "Edit a directory" open toolbar-dired t] | |
8 ["Save" "Save buffer" save toolbar-save t] | |
9 ["Print" "Print Buffer" print toolbar-print t] | |
10 ["Cut" "Kill region" cut toolbar-cut t] | |
11 ["Copy" "Copy region" copy toolbar-copy t] | |
12 ["Paste" "Paste from clipboard" paste toolbar-paste t] | |
13 ["Undo" "Undo edit" undo toolbar-undo t] | |
14 ["Spell" "Check spelling" spellcheck toolbar-ispell t] | |
15 ["Replace" "Search & Replace" srchrpl toolbar-replace t] | |
16 ["Mail" "Read mail" mail toolbar-mail t] | |
17 ; info | |
18 ; compile | |
19 ; debug | |
20 ; news | |
21 )) | |
22 | |
23 (setq x (gtk-toolbar-new 'horizontal 'both)) | |
24 (gnome-app-set-toolbar (frame-property nil 'shell-widget) x) | |
25 | |
26 (mapc (lambda (descr) | |
27 (gtk-toolbar-append-item x | |
28 (aref descr 0) | |
29 (aref descr 1) | |
30 "" | |
31 (gnome-stock-pixmap-widget-new x (aref descr 2)) | |
32 `(lambda (&rest ignored) | |
33 (,(aref descr 3))))) | |
34 gnomeified-toolbar) |