Mercurial > hg > xemacs-beta

comparison lisp/dialog-items.el @ 863:42375619fa45

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2002-06-04 06:03:59 by andyp] merge 21.4 windows changes, minimally tested
author andyp
date Tue, 04 Jun 2002 06:05:53 +0000
parents abe6d1db359e
children 308d34e9f07d
comparison
equal deleted inserted replaced
862:278c743f1578 863:42375619fa45
58 (let ((parent (selected-frame))) 58 (let ((parent (selected-frame)))
59 (make-dialog-box 59 (make-dialog-box
60 'general 60 'general
61 :parent parent 61 :parent parent
62 :title "Search" 62 :title "Search"
63 :autosize t
63 :spec 64 :spec
64 (setq search-dialog 65 (setq search-dialog
65 (make-glyph 66 (make-glyph
66 `[layout 67 `[layout
67 :orientation horizontal :justify left 68 :orientation horizontal
68 ;; neither the following height/width nor the identical one 69 :vertically-justify top
69 ;; below should be necessary! (see below) 70 :horizontally-justify center
70 :height 11 :width 40
71 :border [string :data "Search"] 71 :border [string :data "Search"]
72 :items 72 :items
73 ([layout :orientation vertical :justify left 73 ([layout :orientation vertical
74 :justify top ; implies left also
74 :items 75 :items
75 ([string :data "Search for:"] 76 ([string :data "Search for:"]
76 [button :descriptor "Match Case" 77 [button :descriptor "Match Case"
77 :style toggle 78 :style toggle
78 :selected (not case-fold-search) 79 :selected (not case-fold-search)
90 [button :descriptor "Backwards" 91 [button :descriptor "Backwards"
91 :style radio 92 :style radio
92 :selected (not search-dialog-direction) 93 :selected (not search-dialog-direction)
93 :callback (setq search-dialog-direction nil)] 94 :callback (setq search-dialog-direction nil)]
94 )] 95 )]
95 [layout :orientation vertical :justify left 96 [layout :orientation vertical
96 :items 97 :vertically-justify top
98 :horizontally-justify right
99 :items
97 ([edit-field :width 15 :descriptor "" :active t 100 ([edit-field :width 15 :descriptor "" :active t
98 :face default :initial-focus t] 101 :initial-focus t]
99 [button :width 10 :descriptor "Find Next" 102 [button :width 10 :descriptor "Find Next"
100 :callback-ex 103 :callback-ex
101 (lambda (image-instance event) 104 (lambda (image-instance event)
102 (search-dialog-callback ,parent 105 (search-dialog-callback ,parent
103 image-instance 106 image-instance
106 :callback-ex 109 :callback-ex
107 (lambda (image-instance event) 110 (lambda (image-instance event)
108 (isearch-dehighlight) 111 (isearch-dehighlight)
109 (delete-frame 112 (delete-frame
110 (event-channel event)))])])])) 113 (event-channel event)))])])]))
111 ;; neither this height/width nor the identical one above should 114 ;; These are no longer strictly necessary, but not setting a size
112 ;; be necessary! (in fact, if you omit the one above, the layout 115 ;; at all yields a much more noticeable resize since the initial
113 ;; sizes itself correctly; but the frame as a whole doesn't use 116 ;; frame is so big.
114 ;; the layout's size, as it should.) 117 :properties `(height ,(widget-logical-to-character-height 6)
115 :properties '(height 11 width 40)))) 118 width ,(widget-logical-to-character-width 39))
119 )))