Skip to content

Commit

Permalink
Fixed problem with Cancel button in accepting-values.
Browse files Browse the repository at this point in the history 
Thanks to Kilian Sprotte for the patch.
  • Loading branch information
Robert Strandh committed Oct 16, 2009
1 parent 2e325cc commit e3a195f
Showing 1 changed file with 4 additions and 5 deletions.
9 changes: 4 additions & 5 deletions dialog.lisp
View file
Original file line number Original file line Diff line number Diff line change
Expand Up @@ -271,12 +271,11 @@ accept of this query")))
(format stream "OK")))) (format stream "OK"))))
(formatting-cell (stream) (formatting-cell (stream)
(with-output-as-presentation (with-output-as-presentation
(stream nil 'abort-button) (with-output-as-presentation (stream nil 'abort-button)
(stream nil 'exit-button)
(surrounding-output-with-border (surrounding-output-with-border
(stream :shape :rounded :radius 6 (stream :shape :rounded :radius 6
:background +gray80+ :highlight-background +gray90+) :background +gray80+ :highlight-background +gray90+)
(format stream "Cancel"))))))) (format stream "Cancel"))))))
(terpri stream))) (terpri stream)))


(defmethod stream-accept ((stream accepting-values-stream) type (defmethod stream-accept ((stream accepting-values-stream) type
Expand Down

0 comments on commit e3a195f

Please sign in to comment.