suzanne.soy/gui
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Lost the snipclass with the name (lib "collapsed-snipclass.ss" "framework")

Browse Source 
somewhere between 5.1.3 and 5.2.1. Bring it back.

closes PR 12563

original commit: eda4d294cc08a37fb1e94161fbd1fa9440381bdb
This commit is contained in:
Robby Findler 2012-02-14 11:24:27 -06:00
parent bc8232d8c2
commit 6878919906
1 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
collects/framework/private/racket.rkt
View File

@ -142,16 +142,22 @@
(set-box/f! spaceb a) (set-box/f! spaceb a)
(set-box/f! lspaceb 0) (set-box/f! lspaceb 0)
(set-box/f! rspaceb 0))) (set-box/f! rspaceb 0)))
(super-instantiate ()) (super-new)
(inherit set-snipclass) (inherit set-snipclass)
(set-snipclass lib-snip-class))) (set-snipclass 2lib-snip-class)))
(define sexp-snipclass% (make-sexp-snipclass% sexp-snip%)) (define sexp-snipclass% (make-sexp-snipclass% sexp-snip%))
;; old snips (from old versions of drracket) use this snipclass ;; old snips (from old versions of drracket) use this snipclass
(define lib-snip-class (make-object sexp-snipclass%)) (define 2lib-snip-class (make-object sexp-snipclass%))
(send lib-snip-class set-classname (format "~s" '((lib "collapsed-snipclass.ss" "framework") (send 2lib-snip-class set-classname (format "~s" '((lib "collapsed-snipclass.ss" "framework")
(lib "collapsed-snipclass-wxme.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 lib-snip-class set-version 0)
(send (get-the-snip-class-list) add lib-snip-class) (send (get-the-snip-class-list) add lib-snip-class)