Mercurial > hg > xemacs-beta
annotate tests/gtk/toolbar-test.el @ 608:4d7fdf497470
[xemacs-hg @ 2001-06-04 16:59:51 by wmperry]
2001-06-04 William M. Perry <wmperry@gnu.org>
* gpmevent.c (KG_CTRL): Just define these unconditionally. The
linux headers are so lame that they do not expose these to
userland programs and you cannot gracefully include the kernel
headers.
2001-06-03 William M. Perry <wmperry@gnu.org>
* scrollbar-gtk.c (gtk_create_scrollbar_instance): Make calling of
gtk_size_request unconditional.
2001-06-02 William M. Perry <wmperry@gnu.org>
* emacs-marshals.c: Regenerated.
2001-06-01 William M. Perry <wmperry@gnu.org>
* glyphs-shared.c (read_bitmap_data): Common definition of
read_bitmap_data_from_file added. This does not attempt to use
the Xmu based code at all - lets us be consistent across
platforms.
* glyphs-gtk.c: Removed definition of read_bitmap_data_from_file -
this is now in glyphs-shared.c
* glyphs-msw.c: Ditto.
* glyphs-x.c: Ditto.
2001-06-03 William M. Perry <wmperry@gnu.org>
* dialog-gtk.el (popup-builtin-open-dialog): Yikes - don't forget
to return the filename!
* font.el (font-window-system-mappings): Add gtk entry - just an
alias to the X code)
2001-06-02 William M. Perry <wmperry@gnu.org>
* gtk-marshal.el: Fix for removing of the string_hash utility
functions in hash.c
author | wmperry |
---|---|
date | Mon, 04 Jun 2001 17:00:02 +0000 |
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) |