[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.

(defvar statusbar-hashtable (make-hashtable 29))
(defvar statusbar-gnome-p nil)

(defmacro get-frame-statusbar (frame)
  `(gethash (or ,frame (selected-frame)) statusbar-hashtable))

(defun add-frame-statusbar (frame)
  "Stick a GTK (or GNOME) statusbar at the bottom of the frame."
  (if (windowp (frame-property frame 'minibuffer))
      (puthash frame (get-frame-statusbar (window-frame (frame-property frame 'minibuffer)))
	       statusbar-hashtable)
    (let ((sbar nil)
	  (shell (frame-property frame 'shell-widget)))
      (if (string-match "Gnome" (gtk-type-name (gtk-object-type shell)))
	  (progn
	    (require 'gnome-widgets)
	    (setq sbar (gnome-appbar-new t t 0)
		  statusbar-gnome-p t)
	    (gtk-progress-set-format-string sbar "%p%%")
	    (gnome-app-set-statusbar shell sbar))
	(setq sbar (gtk-statusbar-new))
	(gtk-box-pack-end (frame-property frame 'container-widget)
			  sbar nil nil 0))
      (puthash frame sbar statusbar-hashtable))))

(add-hook 'create-frame-hook 'add-frame-statusbar)
(add-hook 'delete-frame-hook (lambda (f)
			       (remhash f statusbar-hashtable)))
			       

(defun clear-message (&optional label frame stdout-p no-restore)
  (let ((sbar (get-frame-statusbar frame)))
    (if sbar
	(if statusbar-gnome-p
	    (gnome-appbar-pop sbar)
	  (gtk-statusbar-pop sbar 1)))))

(defun append-message (label message &optional frame stdout-p)
  (let ((sbar (get-frame-statusbar frame)))
    (if sbar
	(if statusbar-gnome-p
	    (gnome-appbar-push sbar message)
	  (gtk-statusbar-push sbar 1 message)))))

(defun progress-display (fmt &optional value &rest args)
  "Print a progress gauge and message in the bottom gutter area of the frame.
The arguments are the same as to `format'.

If the only argument is nil, clear any existing progress gauge."
  (let ((sbar (get-frame-statusbar nil)))
    (apply 'message fmt args)
    (if statusbar-gnome-p
	(progn
	  (gtk-progress-set-show-text (gnome-appbar-get-progress sbar) t)
	  (gnome-appbar-set-progress sbar (/ value 100.0))
	  (gdk-flush)))))

(defun lprogress-display (label fmt &optional value &rest args)
  "Print a progress gauge and message in the bottom gutter area of the frame.
First argument LABEL is an identifier for this progress gauge.  The rest of the
arguments are the same as to `format'."
    (if (and (null fmt) (null args))
	(prog1 nil
	  (clear-progress-display label nil))
      (let ((str (apply 'format fmt args)))
	(progress-display str value)
	str)))

(defun clear-progress-display (&rest ignored)
  (if statusbar-gnome-p
      (let* ((sbar (get-frame-statusbar nil))
	     (progress (gnome-appbar-get-progress sbar)))
	(gnome-appbar-set-progress sbar 0)
	(gtk-progress-set-show-text progress nil))))