Permalink
Browse files

Fixed problem with Cancel button in accepting-values.

Thanks to Kilian Sprotte for the patch.
  • Loading branch information...
1 parent 2e325cc commit e3a195f51cf6792ebc6ab0da601dc4a977b8acc0 Robert Strandh committed Oct 16, 2009
Showing with 4 additions and 5 deletions.
  1. +4 −5 dialog.lisp
View
@@ -271,12 +271,11 @@ accept of this query")))
(format stream "OK"))))
(formatting-cell (stream)
(with-output-as-presentation
- (stream nil 'abort-button) (with-output-as-presentation
- (stream nil 'exit-button)
+ (stream nil 'abort-button)
(surrounding-output-with-border
- (stream :shape :rounded :radius 6
- :background +gray80+ :highlight-background +gray90+)
- (format stream "Cancel")))))))
+ (stream :shape :rounded :radius 6
+ :background +gray80+ :highlight-background +gray90+)
+ (format stream "Cancel"))))))
(terpri stream)))
(defmethod stream-accept ((stream accepting-values-stream) type

0 comments on commit e3a195f

Please sign in to comment.