            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


  (let [preferences (global-preferences @this)]
    (.setText (program-source-editor @this)
              ;; "(let ((a 100)
      ;; (b (/ a 2)))
  ;; (forward a)
  ;; (left 120)
  ;; (forward b))"

              (.getString preferences
                          preferences-last-program-tag
                          "(use-color magenta)\n(forward 100)\n(left 90)\n(forward 100)\n")))

           filename (.getPath uri)]
       (.setText (program-source-editor @this)
                 ^String (slurp filename))
       (toast-notify this (format "Loaded %s" filename)))
     :else
     ;; ignore it
     nil)))
