From 68789199060ca7585eae8c173ca7667f13c8ab5f Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Tue, 14 Feb 2012 11:24:27 -0600 Subject: [PATCH] Lost the snipclass with the name (lib "collapsed-snipclass.ss" "framework") somewhere between 5.1.3 and 5.2.1. Bring it back. closes PR 12563 original commit: eda4d294cc08a37fb1e94161fbd1fa9440381bdb --- collects/framework/private/racket.rkt | 14 ++++++++++---- 1 file changed, 10 insertions(+), 4 deletions(-) diff --git a/collects/framework/private/racket.rkt b/collects/framework/private/racket.rkt index 186dbdc4..dc5e36c1 100644 --- a/collects/framework/private/racket.rkt +++ b/collects/framework/private/racket.rkt @@ -142,16 +142,22 @@ (set-box/f! spaceb a) (set-box/f! lspaceb 0) (set-box/f! rspaceb 0))) - (super-instantiate ()) + (super-new) (inherit set-snipclass) - (set-snipclass lib-snip-class))) + (set-snipclass 2lib-snip-class))) (define sexp-snipclass% (make-sexp-snipclass% sexp-snip%)) ;; old snips (from old versions of drracket) use this snipclass -(define lib-snip-class (make-object sexp-snipclass%)) -(send lib-snip-class set-classname (format "~s" '((lib "collapsed-snipclass.ss" "framework") +(define 2lib-snip-class (make-object sexp-snipclass%)) +(send 2lib-snip-class set-classname (format "~s" '((lib "collapsed-snipclass.ss" "framework") (lib "collapsed-snipclass-wxme.ss" "framework")))) +(send 2lib-snip-class set-version 0) +(send (get-the-snip-class-list) add 2lib-snip-class) + +;; old snips (from old versions of drracket) use this snipclass +(define lib-snip-class (make-object sexp-snipclass%)) +(send lib-snip-class set-classname (format "~s" '(lib "collapsed-snipclass.ss" "framework"))) (send lib-snip-class set-version 0) (send (get-the-snip-class-list) add lib-snip-class)