1 ;;; dialog-items.el --- Dialog-box content for XEmacs
3 ;; Copyright (C) 2000 Andy Piper.
4 ;; Copyright (C) 2000 Ben Wing.
6 ;; Maintainer: XEmacs Development Team
7 ;; Keywords: content, gui, internal, dumped
9 ;; This file is part of XEmacs.
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)
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.
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.
26 ;;; Synched up with: Not in FSF.
31 ;; Simple search dialog
33 (defvar search-dialog-direction t)
34 (defvar search-dialog-regexp nil)
35 (defvar search-dialog nil)
37 (defun search-dialog-callback (parent image-instance event)
40 (let ((domain (frame-selected-window (event-channel event))))
41 (funcall (if search-dialog-direction
42 (if search-dialog-regexp
45 (if search-dialog-regexp
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)))))
55 (defun make-search-dialog ()
56 "Popup a search dialog box."
58 (let ((parent (selected-frame)))
68 :orientation horizontal
69 :vertically-justify top
70 :horizontally-justify center
71 :border [string :data "Search"]
73 ([layout :orientation vertical
74 :justify top ; implies left also
76 ([string :data "Search for:"]
77 [button :descriptor "Match Case"
79 :selected (not case-fold-search)
80 :callback (setq case-fold-search
81 (not case-fold-search))]
82 [button :descriptor "Regular Expression"
84 :selected search-dialog-regexp
85 :callback (setq search-dialog-regexp
86 (not search-dialog-regexp))]
87 [button :descriptor "Forwards"
89 :selected search-dialog-direction
90 :callback (setq search-dialog-direction t)]
91 [button :descriptor "Backwards"
93 :selected (not search-dialog-direction)
94 :callback (setq search-dialog-direction nil)]
96 [layout :orientation vertical
97 :vertically-justify top
98 :horizontally-justify right
100 ([edit-field :width 15 :descriptor "" :active t
102 [button :width 10 :descriptor "Find Next"
104 (lambda (image-instance event)
105 (search-dialog-callback ,parent
108 [button :width 10 :descriptor "Cancel"
110 (lambda (image-instance event)
111 (isearch-dehighlight)
113 (event-channel event)))])])]))
114 ;; These are no longer strictly necessary, but not setting a size
115 ;; at all yields a much more noticeable resize since the initial
117 :properties `(height ,(widget-logical-to-character-height 6)
118 width ,(widget-logical-to-character-width 39))