Mercurial > hg > xemacs-beta
annotate tests/gtk/gtk-extra-test.el @ 1410:44de306310b8
[xemacs-hg @ 2003-04-14 03:40:26 by youngs]
2003-04-14 Steve Youngs <youngs@xemacs.org>
* package-admin.el (package-admin-find-top-directory): Use
'directory-sep-char'.
(package-admin-get-install-dir): Ditto.
This is so PUI won't break on platforms that don't use '/' as the
directory separator.
* package-get.el (package-get-pgp-available-p): New.
(package-get-require-signed-base-updates): Use it.
(package-get-update-base-from-buffer): Move the code that finds
the gpg stuff into `package-get-pgp-available-p'.
Now if you have Mailcrypt and a PGP binary installed and set up on
your system, PUI will automatically default to doing PGP
verification, otherwise it'll default to off.
(package-get-require-base): Use the DATUM arg to `error'.
(package-get-locate-index-file): Ditto.
(package-get-update-base): Ditto.
(package-get-update-base-entries): Ditto.
(package-get-all): Ditto.
(package-get-dependencies): Ditto.
(package-get-info): Ditto.
(package-get): Ditto.
* package-info.el (batch-update-package-info): Use the DATUM arg
to `error'.
* package-net.el (package-net-batch-generate-bin-ini): Use the
DATUM arg to `error'.
* package-ui.el (pui-toggle-package-key): Use the DATUM arg to
`error'.
(pui-toggle-package-delete-key): Ditto.
(pui-install-selected-packages): Ditto.
(pui-add-required-packages): Ditto.
(pui-display-info): Ditto.
(list-packages-mode): Ditto.
* packages.el (package-require): Use the DATUM arg to `error'.
author | youngs |
---|---|
date | Mon, 14 Apr 2003 03:40:27 +0000 |
parents | 0784d089fdc9 |
children | db7068430402 |
rev | line source |
---|---|
462 | 1 (require 'gtk-extra) |
2 | |
3 (gtk-define-test | |
4 "Color Combo" extra color-combo nil | |
5 (let ((combo (gtk-color-combo-new))) | |
6 (gtk-box-pack-start window combo nil nil 0))) | |
7 | |
8 (gtk-define-test | |
9 "Directory Tree" extra dirtree nil | |
10 (let ((dir (gtk-dir-tree-new))) | |
11 (gtk-box-pack-start window dir nil nil 0) | |
12 (gtk-dir-tree-open-dir dir "/"))) | |
13 | |
14 (gtk-define-test | |
15 "File List" extra filelist nil | |
16 (let ((scrolled (gtk-scrolled-window-new nil nil)) | |
17 (list (gtk-file-list-new 32 2 "/"))) | |
18 (gtk-scrolled-window-add-with-viewport scrolled list) | |
19 (put scrolled 'height 200) | |
20 (gtk-box-pack-start window scrolled t t 0))) | |
21 | |
22 (gtk-define-test | |
23 "Font Combo" extra fontcombo nil | |
24 (let ((fc (gtk-font-combo-new))) | |
25 (gtk-box-pack-start window fc t t 0))) | |
26 |