From 9271da9090c901dfc45293d344c445615fae65a5 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Mon, 2 Jul 2007 15:55:10 +0000 Subject: [PATCH] svn: r6799 --- collects/drscheme/private/stick-figures.ss | 1 + 1 file changed, 1 insertion(+) diff --git a/collects/drscheme/private/stick-figures.ss b/collects/drscheme/private/stick-figures.ss index 94e45b9272..72d3cde29a 100644 --- 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)