fixed bug so that number snips can be loaded outside of drscheme

svn: r1075

original commit: 988dfce4aef81eaaff13010378fb1041cfcedc28
This commit is contained in:
Robby Findler 2005-10-13 21:55:14 +00:00
parent af7c123fb4
commit f39b64807e

View File

@ -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))