annotate lisp/gtk.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 7039e6323819
children b4f4e0cc90f1
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
502
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 462
diff changeset
1 (globally-declare-fboundp
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 462
diff changeset
2 '(gtk-import-function-internal gtk-call-function gtk-type-name))
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 462
diff changeset
3
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 462
diff changeset
4 (globally-declare-boundp
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 462
diff changeset
5 '(gtk-enumeration-info))
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 462
diff changeset
6
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
7 (gtk-import-function nil "gdk_flush")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
8
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
9 (defun gtk-describe-enumerations ()
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
10 "Show a list of all GtkEnum or GtkFlags objects available from lisp."
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
11 (interactive)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
12 (set-buffer (get-buffer-create "*GTK Enumerations*"))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
13 (erase-buffer)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
14 (let ((separator (make-string (- (window-width) 3) ?-)))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
15 (maphash (lambda (key val)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
16 (insert
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
17 separator "\n"
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
18 (if (stringp key)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
19 key
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
20 (gtk-type-name key)) "\n")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
21 (mapc (lambda (cell)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
22 (insert (format "\t%40s == %d\n" (car cell) (cdr cell)))) val))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
23 gtk-enumeration-info))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
24 (goto-char (point-min))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
25 (display-buffer (current-buffer)))