Mercurial > hg > xemacs-beta
annotate tests/gtk/statusbar-test.el @ 780:578cb2932d72
[xemacs-hg @ 2002-03-18 10:07:30 by ben]
config.inc.samp, xemacs.mak: Deal with never-ending perl quoting problems.
README: Include a long, long description of the suggested directory layout
for developing XEmacs. This should probably go as part of a
larger document, a "Getting Started with Developing XEmacs". ####
Does such a document exist?
etc\unicode\mule-ucs\*: New directory, containing translation
files for the remaining charsets that are not in
unicode\unicode-consortium but are in mule-ucs.
etc\unicode\other\*: New directory, containing translation
files made up on an ad-hoc basis.
etc\unicode\README: Update.
* Some ChangeLog entries from stuff that got applied long ago
never got checked in, due to the nasty SCCS "oops, i forgot again
..." bug.
mule\lao.el: Convert stuff to XEmacs-style.
mule\thai-xtis.el: Move thai-xtis-chars.el stuff to here, since we can now handle
encountering characters of a charset before the charset is defined.
mule\thai-xtis-chars.el: Removed, moved into thai-xtis.el.
mule\mule-msw-init.el: Move some stuff into mule-msw-init-late.el,
which references charsets and thus needs to be delayed until after
all charsets have been created.
mule\mule-msw-init-late.el: New file, some stuff from
mule-msw-init.el.
dumped-lisp.el: Load the remaining languages -- lao, indian, devanagari, tibetan.
Load new file mule-msw-init-late.
unicode.el: Load the new tables for Ethiopic, Vietnamese, and other languages
extracted from mule-ucs.
mule\lao.el: Convert stuff to XEmacs-style.
mule\thai-xtis.el: Move thai-xtis-chars.el stuff to here, since we can now handle
encountering characters of a charset before the charset is defined.
mule\thai-xtis-chars.el: Removed, moved into thai-xtis.el.
mule\mule-msw-init.el: Move some stuff into mule-msw-init-late.el,
which references charsets and thus needs to be delayed until after
all charsets have been created.
mule\mule-msw-init-late.el: New file, some stuff from
mule-msw-init.el.
mule\lao.el: Convert stuff to XEmacs-style.
mule\thai-xtis.el: Move thai-xtis-chars.el stuff to here, since we can now handle
encountering characters of a charset before the charset is defined.
mule\thai-xtis-chars.el: Removed, moved into thai-xtis.el.
mule\mule-msw-init.el: Move some stuff into mule-msw-init-late.el,
which references charsets and thus needs to be delayed until after
all charsets have been created.
mule\mule-msw-init-late.el: New file, some stuff from
mule-msw-init.el.
dumped-lisp.el: Load the remaining languages -- lao, indian, devanagari, tibetan.
Load new file mule-msw-init-late.
unicode.el: Load the new tables for Ethiopic, Vietnamese, and other languages
extracted from mule-ucs.
mule\lao.el: Convert stuff to XEmacs-style.
mule\thai-xtis.el: Move thai-xtis-chars.el stuff to here, since we can now handle
encountering characters of a charset before the charset is defined.
mule\thai-xtis-chars.el: Removed, moved into thai-xtis.el.
mule\mule-msw-init.el: Move some stuff into mule-msw-init-late.el,
which references charsets and thus needs to be delayed until after
all charsets have been created.
mule\mule-msw-init-late.el: New file, some stuff from
mule-msw-init.el.
fns.c, lread.c: Add variable require-prints-loading-message to cause loading
messages to get printed when a file is loading during a `require',
which normally doesn't happen. This can be set using env var
XEMACSDEBUG to debug problems with non-interactive compilation.
Modify load-internal so it prints "Requiring: ..." instead of
"Loading: ..." when appropriate.
author | ben |
---|---|
date | Mon, 18 Mar 2002 10:07:39 +0000 |
parents | 0784d089fdc9 |
children | db7068430402 |
rev | line source |
---|---|
462 | 1 (defvar statusbar-hashtable (make-hashtable 29)) |
2 (defvar statusbar-gnome-p nil) | |
3 | |
4 (defmacro get-frame-statusbar (frame) | |
5 `(gethash (or ,frame (selected-frame)) statusbar-hashtable)) | |
6 | |
7 (defun add-frame-statusbar (frame) | |
8 "Stick a GTK (or GNOME) statusbar at the bottom of the frame." | |
9 (if (windowp (frame-property frame 'minibuffer)) | |
10 (puthash frame (get-frame-statusbar (window-frame (frame-property frame 'minibuffer))) | |
11 statusbar-hashtable) | |
12 (let ((sbar nil) | |
13 (shell (frame-property frame 'shell-widget))) | |
14 (if (string-match "Gnome" (gtk-type-name (gtk-object-type shell))) | |
15 (progn | |
16 (require 'gnome-widgets) | |
17 (setq sbar (gnome-appbar-new t t 0) | |
18 statusbar-gnome-p t) | |
19 (gtk-progress-set-format-string sbar "%p%%") | |
20 (gnome-app-set-statusbar shell sbar)) | |
21 (setq sbar (gtk-statusbar-new)) | |
22 (gtk-box-pack-end (frame-property frame 'container-widget) | |
23 sbar nil nil 0)) | |
24 (puthash frame sbar statusbar-hashtable)))) | |
25 | |
26 (add-hook 'create-frame-hook 'add-frame-statusbar) | |
27 (add-hook 'delete-frame-hook (lambda (f) | |
28 (remhash f statusbar-hashtable))) | |
29 | |
30 | |
31 (defun clear-message (&optional label frame stdout-p no-restore) | |
32 (let ((sbar (get-frame-statusbar frame))) | |
33 (if sbar | |
34 (if statusbar-gnome-p | |
35 (gnome-appbar-pop sbar) | |
36 (gtk-statusbar-pop sbar 1))))) | |
37 | |
38 (defun append-message (label message &optional frame stdout-p) | |
39 (let ((sbar (get-frame-statusbar frame))) | |
40 (if sbar | |
41 (if statusbar-gnome-p | |
42 (gnome-appbar-push sbar message) | |
43 (gtk-statusbar-push sbar 1 message))))) | |
44 | |
45 (defun progress-display (fmt &optional value &rest args) | |
46 "Print a progress gauge and message in the bottom gutter area of the frame. | |
47 The arguments are the same as to `format'. | |
48 | |
49 If the only argument is nil, clear any existing progress gauge." | |
50 (let ((sbar (get-frame-statusbar nil))) | |
51 (apply 'message fmt args) | |
52 (if statusbar-gnome-p | |
53 (progn | |
54 (gtk-progress-set-show-text (gnome-appbar-get-progress sbar) t) | |
55 (gnome-appbar-set-progress sbar (/ value 100.0)) | |
56 (gdk-flush))))) | |
57 | |
58 (defun lprogress-display (label fmt &optional value &rest args) | |
59 "Print a progress gauge and message in the bottom gutter area of the frame. | |
60 First argument LABEL is an identifier for this progress gauge. The rest of the | |
61 arguments are the same as to `format'." | |
62 (if (and (null fmt) (null args)) | |
63 (prog1 nil | |
64 (clear-progress-display label nil)) | |
65 (let ((str (apply 'format fmt args))) | |
66 (progress-display str value) | |
67 str))) | |
68 | |
69 (defun clear-progress-display (&rest ignored) | |
70 (if statusbar-gnome-p | |
71 (let* ((sbar (get-frame-statusbar nil)) | |
72 (progress (gnome-appbar-get-progress sbar))) | |
73 (gnome-appbar-set-progress sbar 0) | |
74 (gtk-progress-set-show-text progress nil)))) |