annotate tests/gtk/gtk-extra-test.el @ 578:190b164ddcac
[xemacs-hg @ 2001-05-25 11:26:50 by ben]
device-msw.c, eldap.c, emodules.c, hpplay.c, process-unix.c, sound.h, tooltalk.c, win32.c: Revert Martin's attempted compile-warnings fix. It does fix
the warnings, but not the right way. We are trying to eliminate
the raw use of `char' and `unsigned char' absolutely everywhere.
There is never an occasion to reintroduce these.
buffer.h: Instead, we fix these macros so they don't care about the type of
their lvalues. We already do this for the non-C-string
equivalents of these, and it's correct because it should be OK to
pass in an SBufbyte *, for example. In any case, we do not need
any type-correctness checking here -- errors will be caught for
sure as soon as we remove the -Wno-sign-compare switch.
mule-charset.c: Use invalid_argument, not generic signal_error (Qerror, ).
alloc.c, chartab.c, console-gtk.c, console-msw.c, console-stream.c, console-stream.h, console-tty.c, console-tty.h, console-x.c, console.c, console.h, device-x.c, device.c, elhash.c, eval.c, faces.c, faces.h, fns.c, glyphs.c, glyphs.h, gui.c, gui.h, lisp.h, lread.c, nt.c, objects-gtk.c, objects-gtk.h, objects-msw.c, objects-tty.c, objects-x.c, objects.c, process-unix.c, rangetab.c, search.c, specifier.c, toolbar.c, window.c, window.h:
Rename Error_behavior to Error_Behavior, to be consistent with
general naming practices (Lisp_Object, Char_Binary, etc.).
author |
ben |
date |
Fri, 25 May 2001 11:27:01 +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
|