suzanne.soy/racket
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
This commit is contained in:
Robby Findler 2012-02-14 11:24:27 -06:00
parent 0e543fc66b
commit eda4d294cc
2 changed files with 39 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! 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)

29
collects/tests/drracket/snips.rkt Normal file
View File

@ -0,0 +1,29 @@
#lang racket/base
(require "private/drracket-test-util.rkt"
racket/class
racket/runtime-path
racket/file
racket/gui/base)
(define-runtime-path snip "snip")
(fire-up-drracket-and-run-tests
(λ ()
(define drs (wait-for-drracket-frame))
(define tmpdir (make-temporary-file "drracketsniptest~a" 'directory))
(define defs (queue-callback/res (λ () (send drs get-definitions-text))))
(for ([rfile (in-list (directory-list snip))])
(define file (build-path snip rfile))
(when (file-exists? file) ;; skip subdirectories
(printf " trying ~a\n" rfile)
(queue-callback/res
(λ () (send defs load-file file)))
(save-drracket-window-as (build-path tmpdir rfile))
(define drs2 (wait-for-drracket-frame))
(unless (eq? drs drs2)
(error 'snips.rkt "lost drracket frame while saving ~s" rfile))))
(delete-directory/files tmpdir)))