annotate tests/gtk/gtk-extra-test.el @ 2420:ad56e5a6d09f

[xemacs-hg @ 2004-12-06 03:46:06 by ben] (none) README.packages: Document use of --package-prefix. Fix error in specifying standard package location. make-docfile.c: Use QXE_PATH_MAX. info.el: Correct doc string giving example package path. menubar-items.el: Move Prefix Rectangle command up one level. xemacs/packages.texi: Add long form of Lisp Reference Manual to links. Add links pointing to Lisp Reference Manual for more detailed package discussion. lispref/range-tables.texi: Document range-table changes. internals/internals.texi: Update history section. elhash.c, elhash.h, profile.c: Create inchash_eq() to allow direct incrementing of hash-table entry. Use in profile.c to try to reduce profiling overhead. Increase initial size of profile hash tables to reduce profiling overhead. buffer.c, device-msw.c, dialog-msw.c, dired-msw.c, editfns.c, event-msw.c, events.c, glyphs-msw.c, keymap.c, objects-msw.c, process-nt.c, syswindows.h, text.c, text.h, unexnt.c: Rename xetcs* -> qxetcs* for consistency with qxestr*. Rename ei*_c(_*) -> ei*_ascii(_*) since they work with ASCII-only strings not "C strings", whatever those are. This is the last place where "c" was incorrectly being used for "ascii". dialog-msw.c, dumper.c, event-msw.c, fileio.c, glyphs-gtk.c, glyphs-x.c, nt.c, process-nt.c, realpath.c, sysdep.c, sysfile.h, unexcw.c, unexnext.c, unexnt.c: Try to avoid differences in systems that do or do not include final null byte in PATH_MAX. Create PATH_MAX_INTERNAL and PATH_MAX_EXTERNAL and use them everywhere. Rewrite code in dumper.c to avoid use of PATH_MAX. When necessary in nt.c, use _MAX_PATH instead of MAX_PATH to be consistent with other places. text.c: Code to short-circuit when binary or Unicode was not working due to EOL wrapping. Fix this code to work when either no EOL autodetection or no CR's or LF's in the text. lisp.h, rangetab.c, rangetab.h, regex.c, search.c: Implement different types of ranges (open/closed start and end). Change default to be start-closed, end-open.
author ben
date Mon, 06 Dec 2004 03:46:07 +0000
parents 0784d089fdc9
children db7068430402
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1 (require 'gtk-extra)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
3 (gtk-define-test
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
4 "Color Combo" extra color-combo nil
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
5 (let ((combo (gtk-color-combo-new)))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
6 (gtk-box-pack-start window combo nil nil 0)))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
7
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
8 (gtk-define-test
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
9 "Directory Tree" extra dirtree nil
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
10 (let ((dir (gtk-dir-tree-new)))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
11 (gtk-box-pack-start window dir nil nil 0)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
12 (gtk-dir-tree-open-dir dir "/")))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
13
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
14 (gtk-define-test
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
15 "File List" extra filelist nil
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
16 (let ((scrolled (gtk-scrolled-window-new nil nil))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
17 (list (gtk-file-list-new 32 2 "/")))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
18 (gtk-scrolled-window-add-with-viewport scrolled list)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
19 (put scrolled 'height 200)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
20 (gtk-box-pack-start window scrolled t t 0)))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
21
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
22 (gtk-define-test
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
23 "Font Combo" extra fontcombo nil
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
24 (let ((fc (gtk-font-combo-new)))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
25 (gtk-box-pack-start window fc t t 0)))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
26