       "restart" (restart!)
       "files" (u/toggle-glass!)
       "stack-trace" (swap! u/stack-trace? not)
-      "copy" nil
+      "copy" (set-clipboard! (error-str))
       nil)
     nil))
 

(defn scrollify
  [widget]
  (scroll-pane widget (style :scroll-pane nil nil nil nil nil)))

(defscreen main-screen
  :on-show

    (->> (for [e entities]
           (case (:id e)
             :text (do
                     (label! (scroll-pane! e :get-widget) :set-text (error-str))
                     (assoc e :width (if (.isVisible (u/glass))
                                       (- (game :width) u/editor-width)
                                       (game :width))))
