            save
            (fn []
              (spit filename (.getText (program-source-editor @this)))
-             (.show (Toast/makeText this
-                                    (format "Saved as %s" filename)
-                                    Toast/LENGTH_SHORT)))]
+             (toast-notify this (format "Saved as %s" filename)))]
        (if (.exists (File. filename))
          (let [activity this
                frag-dialog-manager

     button-stop
     (reify android.view.View$OnClickListener
       (onClick [this unused-button]
         (.show (Toast/makeText activity
                                "Stopping turtle"
                                Toast/LENGTH_SHORT))
         (stop-turtle-thread activity))))

    (.setOnClickListener
     button-clear
     (reify android.view.View$OnClickListener
       (onClick [this unused-button]
         (.show (Toast/makeText activity
                                "Clearing"
                                Toast/LENGTH_SHORT))
         (clear-error-output)
         (swap! (.state activity) assoc-in
                [:turtle-state]


  (let [preferences (global-preferences @this)]
    (.setText (program-source-editor @this)
              (.getString preferences
                          preferences-last-program-tag
                          "(use-color magenta)\n(forward 100)\n(left 90)\n(forward 100)\n")))
