fixed bug so that number snips can be loaded outside of drscheme
svn: r1075 original commit: 988dfce4aef81eaaff13010378fb1041cfcedc28
This commit is contained in:
parent
af7c123fb4
commit
f39b64807e
|
@ -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))
|
||||
|
|
Loading…
Reference in New Issue
Block a user