/[mcclim]/mcclim/dialog.lisp
ViewVC logotype

Diff of /mcclim/dialog.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.10 by moore, Tue Jan 20 16:07:25 2004 UTC revision 1.11 by moore, Wed Mar 24 09:30:29 2004 UTC
# Line 233  accept of this query"))) Line 233  accept of this query")))
233    (declare (ignore view))    (declare (ignore view))
234    (apply #'prompt-for-accept-1 stream type :display-default nil args))    (apply #'prompt-for-accept-1 stream type :display-default nil args))
235    
236  (define-command (com-query-exit :command-table accepting-values :name nil)  (define-command (com-query-exit :command-table accepting-values
237                                    :name nil
238                                    :provide-output-destination-keyword nil)
239      ()      ()
240    (signal 'av-exit))    (signal 'av-exit))
241    
242  (define-command (com-query-abort :command-table accepting-values :name nil)  (define-command (com-query-abort :command-table accepting-values
243                                     :name nil
244                                     :provide-output-destination-keyword nil)
245      ()      ()
246    (and (find-restart 'abort)    (and (find-restart 'abort)
247         (invoke-restart 'abort)))         (invoke-restart 'abort)))
248    
249  (define-command (com-change-query :command-table accepting-values :name nil)  (define-command (com-change-query :command-table accepting-values
250                                      :name nil
251                                      :provide-output-destination-keyword nil)
252      ((query-identifier t)      ((query-identifier t)
253       (value t))       (value t))
254    (when *accepting-values-stream*    (when *accepting-values-stream*
# Line 260  a query is selected for input." )) Line 266  a query is selected for input." ))
266    (:documentation "Deselect a query field: turn the cursor off, turn off    (:documentation "Deselect a query field: turn the cursor off, turn off
267  highlighting, etc." ))  highlighting, etc." ))
268    
269  (define-command (com-select-query :command-table accepting-values :name nil)  (define-command (com-select-query :command-table accepting-values
270                                      :name nil
271                                      :provide-output-destination-keyword nil)
272      ((query-identifier t))      ((query-identifier t))
273    (when *accepting-values-stream*    (when *accepting-values-stream*
274      (with-accessors ((selected-query selected-query))      (with-accessors ((selected-query selected-query))
# Line 284  highlighting, etc." )) Line 292  highlighting, etc." ))
292                (throw-object-ptype '(com-deselect-query)                (throw-object-ptype '(com-deselect-query)
293                                    '(command :command-table accepting-values))))))))                                    '(command :command-table accepting-values))))))))
294    
295  (define-command (com-deselect-query :command-table accepting-values :name nil)  (define-command (com-deselect-query :command-table accepting-values
296                                        :name nil
297                                        :provide-output-destination-keyword nil)
298      ()      ()
299    (when *accepting-values-stream*    (when *accepting-values-stream*
300      (with-accessors ((selected-query selected-query))      (with-accessors ((selected-query selected-query))

Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11

  ViewVC Help
Powered by ViewVC 1.1.5