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

Diff of /mcclim/dialog.lisp

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

revision 1.32 by gbaumann, Sat Aug 1 22:17:02 2009 UTC revision 1.33 by rstrandh, Fri Oct 16 04:57:00 2009 UTC
# Line 271  accept of this query"))) Line 271  accept of this query")))
271                (format stream "OK"))))                (format stream "OK"))))
272          (formatting-cell (stream)          (formatting-cell (stream)
273            (with-output-as-presentation            (with-output-as-presentation
274                (stream nil 'abort-button) (with-output-as-presentation                (stream nil 'abort-button)
               (stream nil 'exit-button)  
275              (surrounding-output-with-border              (surrounding-output-with-border
276                  (stream :shape :rounded :radius 6               (stream :shape :rounded :radius 6
277                          :background +gray80+ :highlight-background +gray90+)                       :background +gray80+ :highlight-background +gray90+)
278                (format stream "Cancel")))))))               (format stream "Cancel"))))))
279      (terpri stream)))      (terpri stream)))
280    
281  (defmethod stream-accept ((stream accepting-values-stream) type  (defmethod stream-accept ((stream accepting-values-stream) type

Legend:
Removed from v.1.32  
changed lines
  Added in v.1.33

  ViewVC Help
Powered by ViewVC 1.1.5