Mercurial > hg > xemacs-beta
annotate tests/gtk/statusbar-test.el @ 1330:4542b72c005e
[xemacs-hg @ 2003-03-01 07:25:26 by ben]
build patch
Makefile.in.in: Move src deletions to src/Makefile.in.in.
dump-paths.el, dumped-lisp.el: Delete. Combine stuff into setup-paths.el.
find-paths.el: Removed.
Make this file contain generic routines only. Move stuff to
compute Emacs roots to setup-paths.el.
startup.el: Removed.
Move these variables into setup-paths.el.
setup-paths.el, startup.el: Removed.
Combine all high-level code for computing the paths into
setup-paths.el. Create new function startup-find-load-path to
encapsulate all logic for computing `load-path'. Eliminate
invocation-directory and invocation-name parameters since
there is no point (false generality) -- the code references
other globals, which cannot be specified. Eliminate some code
duplicated between setup-paths.el and startup.el. Clean up
the debug-paths code and output load-path in addition.
Add logic to paths-emacs-root-p to support separated source
and build trees.
loadup.el, make-docfile.el, update-elc-2.el, update-elc.el: Rewrite to allow for separated source and build trees, as may occur
in MS Windows.
NOTE TO BUILD HACKERS:
loadup.el, make-docfile.el, update-elc.el and update-elc-2.el made two
assumptions that are no longer correct:
(1) The source and build trees are in the same place.
(2) They can make assumptions about where `.' is.
These files now compute the locations of the source and build
roots at the top of the file. *ALL* constant file names or path
snippets must now be made absolute using expand-file-name and one
of these roots.
dumped-lisp.el, packages.el: Removed.
Remove some unused lists of Lisp files. packages-hardcoded-lisp
(empty, in any case) moved to dumped-lisp.el.
startup.el: When a compiled init file is out-of-date wrt the uncompiled
version, load the uncompiled version and issue a nasty warning.
update-elc-2.el: Force touching of auto-autoloads files when REBUILD_AUTOLOADS
was set.
update-elc.el: Fix code that checks whether dumping is necessary to check against
xemacs.dmp, not xemacs.exe, when Unix and pdump.
lwlib-Xm.c: Fix compile warning.
README, config.inc.samp, xemacs.mak: -- Major reorganization and cleanup.
-- Add support for separated build tree and source tree.
-- Delete all support for X Windows building, since it's
totally bit-rotten and will never be fixed up. Instruct
people to use Cygwin if they want such support.
make-build-dir: New script to create a skeleton build tree for use with
separated build and source tree compilation.
m/acorn.h, m/alliant-2800.h, m/alliant.h, m/altos.h, m/amdahl.h, m/arm.h, m/att3b.h, m/aviion.h, m/clipper.h, m/cnvrgnt.h, m/convex.h, m/cydra5.h, m/delta.h, m/delta88k.h, m/dpx2.h, m/elxsi.h, m/ews4800r.h, m/gould.h, m/hp800.h, m/hp9000s300.h, m/i860.h, m/ibmps2-aix.h, m/ibmrs6000.h, m/ibmrt-aix.h, m/ibmrt.h, m/intel386.h, m/iris4d.h, m/iris5d.h, m/iris6d.h, m/irist.h, m/m68k.h, m/masscomp.h, m/mg1.h, m/mips-nec.h, m/mips-siemens.h, m/mips.h, m/nh3000.h, m/nh4000.h, m/ns32000.h, m/plexus.h, m/powerpc.h, m/sequent-ptx.h, m/sequent.h, m/sgi-challenge.h, m/stride.h, m/tad68k.h, m/targon31.h, m/tekxd88.h, m/template.h, m/tower32.h, m/tower32v3.h, m/ustation.h, m/wicat.h, m/xps100.h, data.c, doc.c, editfns.c, emacs.c, lrecord.h, ntheap.c, process-unix.c, sysdep.c, unexec.c: Delete all support for bit-rotten CANNOT_DUMP. Just use pdump.
Makefile.in.in: Lots o' cleanup. Use names like LISP, SRC instead of
lispdir, srcdir, for consistency with xemacs.mak and the
conventions in the rest of the file. Eliminate use of ${...}
in favor of $(...), to make it easier to move code between
this file and xemacs.mak. Fix dependency handling wrt
NEEDTODUMP to eliminate problems some people (e.g. Vin) have
been seeing with non-GNU makes. Write a long section about
the subtle but oh-so-important differences in dependency
processing between nmake, make, and GNU make. Add
unicode-encapsulate target, from xemacs.mak.
chartab.c, lrecord.h: Fix crash due to attempt to free objects across dump/undump.
author | ben |
---|---|
date | Sat, 01 Mar 2003 07:25:56 +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)))) |