         text (s-text-field s-canned "")]
     (doto frame
       (.setLayout (FlowLayout.))
-                                        ;(.setDefaultCloseOperation JFrame/EXIT_ON_CLOSE)
+      (.setDefaultCloseOperation JFrame/DISPOSE_ON_CLOSE)
       (.add (:jtext text))
       (.add (:jbutton onegai))
       (.add (:jbutton thanks))

                             (.loop value (.hold s-update 0))
                             (doto view
                               (.setLayout (FlowLayout.))
                                        ;(.setDefaultCloseOperation
                                        ;JFrame/EXIT_ON_CLOSE)
                               (.add lbl-value)
                               (.add (:jbutton plus))
                               (.add (:jbutton minus))))))

        label (proxy [JLabel] [""]
                (removeNotify []
                  (.unlisten @l)
                  (proxy-super removeNotify)))]
    (reset! l (.listen (Operational/updates c-text)
                       (handler [t] (if (SwingUtilities/isEventDispatchThread)
                                      (.setText label t)
