Permalink
Browse files

Support for components in dialogs

  • Loading branch information...
odyssomay committed Jun 21, 2011
1 parent 1debd08 commit 6dff0c7072e7cc632d4d1ec3258c5223533212c3
Showing with 1 addition and 1 deletion.
  1. +1 −1 src/Hafni/swing/dialog.clj
@@ -12,7 +12,7 @@ Options:
:title - the title of the dialog | String"
[message_type & options]
(let [opts (parse-options options)]
- (JOptionPane/showMessageDialog (component (:parent opts)) (:message opts) (:title opts) message_type)))
+ (JOptionPane/showMessageDialog (component (:parent opts)) (component (:message opts)) (:title opts) message_type)))
(defn message
"Show a simple message dialog."

0 comments on commit 6dff0c7

Please sign in to comment.