svn: r6799

2007-07-02 15:55:10 +00:00 · 2007-07-02 15:55:10 +00:00 · 9271da9090
commit 9271da9090
parent 10d05c3382
1 changed files with 1 additions and 0 deletions
--- a/collects/drscheme/private/stick-figures.ss
+++ b/collects/drscheme/private/stick-figures.ss
@ -294,6 +294,7 @@
    (define f (new frame% [label ""]))
    (define m (new message% [label (get-running-bitmap)] [parent f]))
    (new grow-box-spacer-pane% [parent f])
+    (send (get-running-bitmap) save-file (build-path (collection-path "icons") "run.png") 'png)
    (send f show #t))
  
  #;(edit-points waiting-points)