From f39b64807e380f8d5036e57cbf88a4bc6fc9bfa8 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Thu, 13 Oct 2005 21:55:14 +0000 Subject: [PATCH] fixed bug so that number snips can be loaded outside of drscheme svn: r1075 original commit: 988dfce4aef81eaaff13010378fb1041cfcedc28 --- collects/framework/private/number-snip.ss | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) diff --git a/collects/framework/private/number-snip.ss b/collects/framework/private/number-snip.ss index 9f606e03..6b527bc4 100644 --- a/collects/framework/private/number-snip.ss +++ b/collects/framework/private/number-snip.ss @@ -55,9 +55,14 @@ snip)) (super-new))) + (define old-number-snipclass (new -snip-class%)) + (send old-number-snipclass set-version 3) + (send old-number-snipclass set-classname "drscheme:number") + (send (get-the-snip-class-list) add old-number-snipclass) + (define number-snipclass (new -snip-class%)) - (send number-snipclass set-version 3) - (send number-snipclass set-classname "drscheme:number") + (send number-snipclass set-version 1) + (send number-snipclass set-classname (format "~s" '(lib "number-snip.ss" "drscheme" "private"))) (send (get-the-snip-class-list) add number-snipclass) (define arrow-cursor (make-object cursor% 'arrow))