mail-ui: Implement a close-if-not-listener (so gadget. works fine).

mrjbq7 · Apr 17, 2011 · 2e7ea44 · 2e7ea44
1 parent 1c6136a
commit 2e7ea44
Showing 1 changed file with 6 additions and 3 deletions.
diff --git a/mail-ui/mail-ui.factor b/mail-ui/mail-ui.factor
@@ -5,7 +5,7 @@ USING: accessors arrays colors.constants kernel sequences smtp
 splitting ui ui.commands ui.gadgets ui.gadgets.borders
 ui.gadgets.buttons ui.gadgets.editors ui.gadgets.labels
 ui.gadgets.scrollers ui.gadgets.tracks ui.gestures ui.pens.solid
-;
+ui.tools.listener ;
 
 IN: mail-ui
 
@@ -49,15 +49,18 @@ M: mail-gadget focusable-child* to>> ;
 : <body> ( mail -- gadget )
     body>> <scroller> COLOR: gray <solid> >>boundary ;
 
+: close-if-not-listener ( gadget -- )
+    dup find-listener [ drop ] [ close-window ] if ;
+
 : com-send ( mail -- )
     <email>
         over to>> editor-string " " split harvest >>to
         over subject>> editor-string >>subject
         over body>> editor-string >>body
-    send-email close-window ;
+    send-email close-if-not-listener ;
 
 : com-cancel ( mail -- )
-    close-window ;
+    close-if-not-listener ;
 
 mail-gadget "toolbar" f {
     { f com-send }