Mercurial > hg > xemacs-beta
annotate lisp/dialog-items.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 | abe6d1db359e |
children | 42375619fa45 |
rev | line source |
---|---|
442 | 1 ;;; dialog-items.el --- Dialog-box content for XEmacs |
2 | |
3 ;; Copyright (C) 2000 Andy Piper. | |
4 ;; Copyright (C) 2000 Ben Wing. | |
5 | |
6 ;; Maintainer: XEmacs Development Team | |
7 ;; Keywords: content, gui, internal, dumped | |
8 | |
9 ;; This file is part of XEmacs. | |
10 | |
11 ;; XEmacs is free software; you can redistribute it and/or modify it | |
12 ;; under the terms of the GNU General Public License as published by | |
13 ;; the Free Software Foundation; either version 2, or (at your option) | |
14 ;; any later version. | |
15 | |
16 ;; XEmacs is distributed in the hope that it will be useful, but | |
17 ;; WITHOUT ANY WARRANTY; without even the implied warranty of | |
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU | |
19 ;; General Public License for more details. | |
20 | |
21 ;; You should have received a copy of the GNU General Public License | |
22 ;; along with XEmacs; see the file COPYING. If not, write to the | |
23 ;; Free Software Foundation, 59 Temple Place - Suite 330, | |
24 ;; Boston, MA 02111-1307, USA. | |
25 | |
26 ;;; Synched up with: Not in FSF. | |
27 | |
28 ;;; Commentary: | |
29 | |
30 ;; | |
31 ;; Simple search dialog | |
32 ;; | |
33 (defvar search-dialog-direction t) | |
34 (defvar search-dialog-regexp nil) | |
35 (defvar search-dialog nil) | |
36 | |
37 (defun search-dialog-callback (parent image-instance event) | |
38 (save-selected-frame | |
39 (select-frame parent) | |
40 (let ((domain (frame-selected-window (event-channel event)))) | |
41 (funcall (if search-dialog-direction | |
42 (if search-dialog-regexp | |
43 're-search-forward | |
44 'search-forward) | |
45 (if search-dialog-regexp | |
46 're-search-backward | |
47 'search-backward)) | |
48 (glyph-image-property | |
49 (car (glyph-image-property | |
50 (nth 1 (glyph-image-property | |
51 search-dialog :items domain)) | |
52 :items domain)) :text domain)) | |
53 (isearch-highlight (match-beginning 0) (match-end 0))))) | |
54 | |
55 (defun make-search-dialog () | |
56 "Popup a search dialog box." | |
57 (interactive) | |
58 (let ((parent (selected-frame))) | |
59 (make-dialog-box | |
60 'general | |
61 :parent parent | |
62 :title "Search" | |
63 :spec | |
64 (setq search-dialog | |
65 (make-glyph | |
66 `[layout | |
67 :orientation horizontal :justify left | |
68 ;; neither the following height/width nor the identical one | |
69 ;; below should be necessary! (see below) | |
70 :height 11 :width 40 | |
71 :border [string :data "Search"] | |
72 :items | |
73 ([layout :orientation vertical :justify left | |
74 :items | |
75 ([string :data "Search for:"] | |
76 [button :descriptor "Match Case" | |
77 :style toggle | |
78 :selected (not case-fold-search) | |
79 :callback (setq case-fold-search | |
80 (not case-fold-search))] | |
81 [button :descriptor "Regular Expression" | |
82 :style toggle | |
83 :selected search-dialog-regexp | |
84 :callback (setq search-dialog-regexp | |
85 (not search-dialog-regexp))] | |
86 [button :descriptor "Forwards" | |
87 :style radio | |
88 :selected search-dialog-direction | |
89 :callback (setq search-dialog-direction t)] | |
90 [button :descriptor "Backwards" | |
91 :style radio | |
92 :selected (not search-dialog-direction) | |
93 :callback (setq search-dialog-direction nil)] | |
94 )] | |
95 [layout :orientation vertical :justify left | |
96 :items | |
97 ([edit-field :width 15 :descriptor "" :active t | |
98 :face default :initial-focus t] | |
99 [button :width 10 :descriptor "Find Next" | |
100 :callback-ex | |
101 (lambda (image-instance event) | |
102 (search-dialog-callback ,parent | |
103 image-instance | |
104 event))] | |
105 [button :width 10 :descriptor "Cancel" | |
106 :callback-ex | |
107 (lambda (image-instance event) | |
108 (isearch-dehighlight) | |
109 (delete-frame | |
110 (event-channel event)))])])])) | |
111 ;; neither this height/width nor the identical one above should | |
112 ;; be necessary! (in fact, if you omit the one above, the layout | |
113 ;; sizes itself correctly; but the frame as a whole doesn't use | |
114 ;; the layout's size, as it should.) | |
115 :properties '(height 11 width 40)))) |