Mercurial > hg > xemacs-beta
comparison tests/gtk/toolbar-test.el @ 462:0784d089fdc9 r21-2-46
Import from CVS: tag r21-2-46
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 11:44:37 +0200 |
| parents | |
| children | db7068430402 |
comparison
equal
deleted
inserted
replaced
| 461:120ed4009e51 | 462:0784d089fdc9 |
|---|---|
| 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) |