        label (s-label reversed)]
    (doto frame
      (.setLayout (FlowLayout.))
-                                        ;(.setDefaultCloseOperation JFrame/EXIT_ON_CLOSE)
+     (.setDefaultCloseOperation JFrame/DISPOSE_ON_CLOSE)
      (.add (:jtext msg))
      (.add label)
      (.setSize 400 160)

       label (s-label (:cell msg))]
   (doto frame
     (.setLayout (FlowLayout.))
                                        ;(.setDefaultCloseOperation JFrame/EXIT_ON_CLOSE)
     (.add (:jtext msg))
     (.add label)
     (.setSize 400 160)

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