[racket-dev] [plt] Push #22584: master branch updated
I'm not seeing it with the latest.
Did you disable some tools?
Robby
On Sun, May 15, 2011 at 2:42 PM, Stephen Chang <stchang at ccs.neu.edu> wrote:
> I just pulled the latest from git, started drracket, selected
> Beginning Student language,
> pressed run, and I got this error msg:
>
>
>
> send: no such method: get-test-window for class: ...per\stepper-tool.rkt:235:4
>
> === context ===
> C:\plt\collects\racket\private\class-internal.rkt:4550:0: obj-error
> C:\plt\collects\test-engine\test-display.scm:36:4: report-success
> method in test-display%
> C:\plt\collects\mred\private\wx\common\queue.rkt:430:6
> C:\plt\collects\mred\private\wx\common\queue.rkt:470:32
> C:\plt\collects\mred\private\wx\common\queue.rkt:607:3
>
>
>
>
> Does anyone else get this error? I'm running 5.1.1.5 on windows 7.
>
>
>
>
>
>
> On Thu, Apr 28, 2011 at 4:22 PM, <clements at racket-lang.org> wrote:
>> clements has updated `master' from fc531c4dbf to d2a21d717c.
>> http://git.racket-lang.org/plt/fc531c4dbf..d2a21d717c
>>
>> =====[ 3 Commits ]======================================================
>>
>> Directory summary:
>> 28.6% collects/stepper/private/
>> 14.9% collects/stepper/scribblings/
>> 56.4% collects/stepper/
>>
>> ~~~~~~~~~~
>>
>> 437baf9 John Clements <clements at racket-lang.org> 2011-04-26 11:36
>> :
>> | added simple scribblings from old doc.txt
>> :
>> M collects/stepper/info.rkt | 2 ++
>> A collects/stepper/scribblings/stepper.scrbl
>>
>> ~~~~~~~~~~
>>
>> e4a834e John Clements <clements at racket-lang.org> 2011-04-28 11:36
>> :
>> | housekeeping, changed to drracket-tool, moved files to private
>> :
>> R collects/stepper/{ => private}/view-controller.rkt (96%)
>> R collects/stepper/{ => private}/xml-sig.rkt (100%)
>> D collects/stepper/break.rkt
>> M collects/stepper/info.rkt | 12 +---
>> M collects/stepper/stepper-tool.rkt | 78 +++++++++++-----------
>> M collects/stepper/stepper+xml-tool.rkt | 38 +++++------
>> M collects/stepper/tests/test-docs-complete.rkt | 4 -
>> M collects/stepper/xml-tool.rkt | 53 +++++++--------
>>
>> ~~~~~~~~~~
>>
>> d2a21d7 John Clements <clements at racket-lang.org> 2011-04-28 13:21
>> :
>> | refactored stepper tool to work with tabs instead of frames
>> :
>> M collects/stepper/private/view-controller.rkt | 6 +-
>> M collects/stepper/stepper-tool.rkt | 206 +++++++++++++---------
>>
>> =====[ Overall Diff ]===================================================
>>
>> collects/stepper/break.rkt
>> ~~~~~~~~~~~~~~~~~~~~~~~~~~
>> --- OLD/collects/stepper/break.rkt
>> +++ /dev/null
>> @@ -1,25 +0,0 @@
>> -(module break mzscheme
>> -
>> - (require mzlib/contract)
>> -
>> - (provide current-breakpoint-handler)
>> -
>> - (define (default-current-breakpoint-handler)
>> - (error 'default-current-breakpoint-handler
>> - "The current-breakpoint-handler parameter has not yet been set in this thread."))
>> -
>> - (define current-breakpoint-handler
>> - (make-parameter
>> - default-current-breakpoint-handler
>> - (lambda (new-handler)
>> - (if (and (procedure? new-handler)
>> - (procedure-arity-includes? new-handler 0))
>> - new-handler
>> - (error 'current-breakpoint-handler
>> - "Bad value for current-breakpoint-handler: ~e"
>> - new-handler)))))
>> -
>> - (provide/contract [break (-> any)])
>> -
>> - (define (break)
>> - ((current-breakpoint-handler))))
>>
>> collects/stepper/info.rkt
>> ~~~~~~~~~~~~~~~~~~~~~~~~~
>> --- OLD/collects/stepper/info.rkt
>> +++ NEW/collects/stepper/info.rkt
>> @@ -1,15 +1,11 @@
>> #lang setup/infotab
>>
>> -(define tools '(("stepper+xml-tool.ss")
>> - ;; ("debugger-tool.ss")
>> - ))
>> +(define drracket-tools '(("stepper+xml-tool.ss")))
>>
>> -(define tool-names (list "The Stepper"
>> - ;; "The Debugger"
>> - ))
>> +(define drracket-tool-names (list "The Stepper"))
>>
>> -(define tool-icons (list '("foot-up.png" "icons")
>> - ;; #f
>> - ))
>> +(define drracket-tool-icons (list '("foot-up.png" "icons")))
>>
>> (define compile-omit-paths '("debugger-tool.ss"))
>> +
>> +(define scribblings '(("scribblings/stepper.scrbl")))
>>
>> collects/stepper/scribblings/stepper.scrbl
>> ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
>> --- /dev/null
>> +++ NEW/collects/stepper/scribblings/stepper.scrbl
>> @@ -0,0 +1,177 @@
>> +#lang scribble/doc
>> +
>> +@(require scribble/manual)
>> +
>> + at title{The Stepper}
>> +
>> + at section{What is the Stepper?}
>> +
>> +DrRacket includes an "algebraic stepper," a tool which proceeds
>> +through the evaluation of a set of definitions and expressions,
>> +one step at a time. This evaluation shows the user how DrRacket
>> +evaluates expressions and definitions, and can help in debugging
>> +programs. Currently, the Stepper is available in the "Beginning
>> +Student" and "Intermediate Student" language levels.
>> +
>> + at section{How do I use the Stepper?}
>> +
>> +The Stepper operates on the contents of the frontmost DrRacket
>> +window. A click on the "Step" button brings up the stepper
>> +window. The stepper window has two panes, arranged as follows:
>> +
>> + at verbatim{
>> +------------------
>> +| | |
>> +| before -> after|
>> +| | |
>> +------------------
>> +}
>> +
>> +The first, "before," box, shows the current expression. The
>> +region highlighted in green is known as the "redex". You may
>> +pronounce this word in any way you want. It is short for
>> +"reducible expression," and it is the expression which is the
>> +next to be simplified.
>> +
>> +The second, "after," box shows the result of the reduction. The
>> +region highlighted in purple is the new expression which is
>> +substituted for the green one as a result of the reduction. For
>> +most reductions, the only difference between the left- and right-hand
>> +sides should be the contents of the green and purple boxes.
>> +
>> +Please note that the stepper only steps through the expressions
>> +in the definitions window, and does not allow the user to enter
>> +additional expressions. So, for instance, a definitions buffer
>> +which contains only procedure definitions will not result in
>> +any reductions.
>> +
>> + at section{How Does the Stepper work?}
>> +
>> +In order to discover all of the steps that occur during the evaluation
>> +of your code, the Stepper rewrites (or "instruments") your code.
>> +The inserted code uses a mechanism called "continuation marks" to
>> +store information about the program's execution as it is running,
>> +and makes calls to the Stepper before, after and during the evaluation
>> +of each expression, indicating the current shape of the program.
>> +
>> +What does this instrumented code look like? For the curious, here's the
>> +expanded version of @racket[(define (f x) (+ 3 x))] in the beginner
>> +language [*]:
>> +
>> + at racketblock[
>> +(module #%htdp (lib "lang/htdp-beginner.ss")
>> + (#%plain-module-begin
>> + (define-syntaxes (f)
>> + (#%app make-first-order-function
>> + (quote procedure)
>> + (quote 1)
>> + (quote-syntax f)
>> + (quote-syntax #%app)))
>> + (define-values (test~object) (#%app namespace-variable-value (quote test~object)))
>> + (begin
>> + (define-values (f)
>> + (with-continuation-mark "#<debug-key-struct>"
>> + (#%plain-lambda () (#%plain-app "#<procedure:...rivate/marks.rkt:70:2>"))
>> + (#%plain-app
>> + call-with-values
>> + (#%plain-lambda ()
>> + (with-continuation-mark "#<debug-key-struct>"
>> + (#%plain-lambda () (#%plain-app
>> + "#<procedure:...rivate/marks.rkt:70:2>"
>> + (#%plain-lambda () beginner:+)))
>> + (#%plain-app
>> + "#<procedure:closure-storing-proc>"
>> + (#%plain-lambda (x)
>> + (begin
>> + (let-values (((arg0-1643 arg1-1644 arg2-1645)
>> + (#%plain-app
>> + values
>> + "#<*unevaluated-struct*>"
>> + "#<*unevaluated-struct*>"
>> + "#<*unevaluated-struct*>")))
>> + (with-continuation-mark "#<debug-key-struct>"
>> + (#%plain-lambda ()
>> + (#%plain-app
>> + "#<procedure:...rivate/marks.rkt:70:2>"
>> + (#%plain-lambda () beginner:+)
>> + (#%plain-lambda () x)
>> + (#%plain-lambda () arg0-1643)
>> + (#%plain-lambda () arg1-1644)
>> + (#%plain-lambda () arg2-1645)))
>> + (begin
>> + (#%plain-app "#<procedure:result-exp-break>")
>> + (begin
>> + (set! arg0-1643
>> + (with-continuation-mark "#<debug-key-struct>"
>> + (#%plain-lambda ()
>> + (#%plain-app
>> + "#<procedure:...rivate/marks.rkt:70:2>"))
>> + beginner:+))
>> + (set! arg1-1644
>> + (with-continuation-mark "#<debug-key-struct>"
>> + (#%plain-lambda ()
>> + (#%plain-app
>> + "#<procedure:...rivate/marks.rkt:70:2>"))
>> + (quote 3)))
>> + (set! arg2-1645
>> + (with-continuation-mark "#<debug-key-struct>"
>> + (#%plain-lambda ()
>> + (#%plain-app
>> + "#<procedure:...rivate/marks.rkt:70:2>")) x))
>> + (begin
>> + (#%plain-app "#<procedure:normal-break>")
>> + (with-continuation-mark "#<debug-key-struct>"
>> + (#%plain-lambda ()
>> + (#%plain-app
>> + "#<procedure:...rivate/marks.rkt:70:2>"
>> + (#%plain-lambda () arg0-1643)
>> + (#%plain-lambda () arg1-1644)
>> + (#%plain-lambda () arg2-1645)))
>> + (if (#%plain-app
>> + "#<procedure:annotated-proc?>"
>> + arg0-1643)
>> + (#%plain-app
>> + arg0-1643
>> + arg1-1644
>> + arg2-1645)
>> + (#%plain-app
>> + call-with-values
>> + (#%plain-lambda ()
>> + (#%plain-app arg0-1643 arg1-1644 arg2-1645))
>> + (#%plain-lambda args
>> + (#%plain-app
>> + "#<procedure:result-value-break>"
>> + args)
>> + (#%plain-app
>> + "#<procedure:apply>"
>> + values
>> + args))))))))))))
>> + (#%plain-lambda ()
>> + (#%plain-app
>> + "#<procedure:...rivate/marks.rkt:70:2>"
>> + (#%plain-lambda () beginner:+))) #f)))
>> + (#%plain-lambda args
>> + (#%plain-app "#<procedure:apply>" values args)))))
>> + (#%plain-app "#<procedure:exp-finished-break>"
>> + (#%plain-app
>> + list
>> + (#%plain-app
>> + list
>> + "#<procedure:...ate/annotate.rkt:1256:93>"
>> + #f
>> + (#%plain-lambda () (#%plain-app list f))))))))
>> +
>> +(let-values (((done-already?) (quote #f)))
>> + (#%app dynamic-wind void
>> + (lambda () (#%app dynamic-require (quote (quote #%htdp)) (quote #f)))
>> + (lambda () (if done-already?
>> + (#%app void)
>> + (let-values ()
>> + (set! done-already? (quote #t))
>> + (#%app test*)
>> + (#%app current-namespace
>> + (#%app module->namespace
>> + (quote (quote #%htdp)))))))))]
>> +
>> +
>> +[*] : In order to allow things like @verbatim{#<procedure:apply>} in scribble, I've taken the cheap solution of wrapping them in quotes. These are not actually strings, they're opaque 3D syntax elements.
>> \ No newline at end of file
>>
>> collects/stepper/stepper+xml-tool.rkt
>> ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
>> --- OLD/collects/stepper/stepper+xml-tool.rkt
>> +++ NEW/collects/stepper/stepper+xml-tool.rkt
>> @@ -1,25 +1,19 @@
>> -(module stepper+xml-tool mzscheme
>> - (require mzlib/unit
>> - drscheme/tool
>> - "stepper-tool.ss"
>> - "xml-tool.ss"
>> - "view-controller.ss"
>> - "private/shared.ss")
>> +#lang racket
>>
>> - (provide tool@)
>> +(require drracket/tool
>> + "stepper-tool.rkt"
>> + "xml-tool.rkt"
>> + "private/view-controller.rkt")
>>
>> - ;; the xml and stepper tools are combined, so that the stepper can create XML
>> - ;; snips. note that both of these tools provide 'void' for phase1 and phase2
>> - ;; (which together make up the tool-exports^), so we can provide either one
>> - ;; of these for the compound unit. Doesn't matter.
>> -
>> - ;; NNNURRRG! This is not true any more. But that should be okay, because the
>> - ;; stepper-tool phase1 is the non-void one. -- JBC, 2006-09-28
>> +(provide tool@)
>>
>> - (define tool@
>> - (compound-unit/infer
>> - (import drscheme:tool^)
>> - (export STEPPER-TOOL)
>> - (link xml-tool@
>> - view-controller@
>> - [((STEPPER-TOOL : drscheme:tool-exports^)) stepper-tool@]))))
>> +;; the xml and stepper tools are combined, so that the stepper can create XML
>> +;; snips.
>> +
>> +(define tool@
>> + (compound-unit/infer
>> + (import drracket:tool^)
>> + (export STEPPER-TOOL)
>> + (link xml-tool@
>> + view-controller@
>> + [((STEPPER-TOOL : drracket:tool-exports^)) stepper-tool@])))
>> \ No newline at end of file
>>
>> collects/stepper/stepper-tool.rkt
>> ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
>> --- OLD/collects/stepper/stepper-tool.rkt
>> +++ NEW/collects/stepper/stepper-tool.rkt
>> @@ -1,27 +1,26 @@
>> #lang racket/unit
>>
>> -(require scheme/class
>> - drscheme/tool
>> +(require racket/class
>> + drracket/tool
>> mred
>> - mzlib/pconvert
>> - string-constants
>> (prefix-in frame: framework)
>> mrlib/switchable-button
>> - (file "private/my-macros.ss")
>> - (prefix-in x: "private/mred-extensions.ss")
>> - "private/shared.ss"
>> + mzlib/pconvert
>> + racket/pretty
>> + string-constants
>> lang/stepper-language-interface
>> - scheme/pretty
>> - "xml-sig.ss"
>> + (prefix-in x: "private/mred-extensions.rkt")
>> + "private/shared.rkt"
>> + "private/xml-sig.rkt"
>> "drracket-button.ss") ;; get the stepper-button-callback private-member-name
>>
>> -(import drscheme:tool^ xml^ view-controller^)
>> -(export drscheme:tool-exports^ stepper-frame^)
>> +(import drracket:tool^ xml^ view-controller^)
>> +(export drracket:tool-exports^ stepper-frame^)
>>
>> ;; tool magic here:
>> (define (phase1)
>> ;; experiment with extending the language... parameter-like fields for stepper parameters
>> - (drscheme:language:extend-language-interface
>> + (drracket:language:extend-language-interface
>> stepper-language<%>
>> (lambda (superclass)
>> (class* superclass (stepper-language<%>)
>> @@ -67,7 +66,7 @@
>> (send definitions-text get-next-settings))
>>
>> (define (settings->language-level settings)
>> - (drscheme:language-configuration:language-settings-language settings))
>> + (drracket:language-configuration:language-settings-language settings))
>>
>> (define (stepper-works-for? language-level)
>> (or (send language-level stepper:supported?)
>> @@ -76,10 +75,10 @@
>> ;; the stepper's frame:
>>
>> (define stepper-frame%
>> - (class (drscheme:frame:basics-mixin
>> + (class (drracket:frame:basics-mixin
>> (frame:frame:standard-menus-mixin frame:frame:basic%))
>>
>> - (init-field drscheme-frame)
>> + (init-field drracket-tab)
>>
>> ;; PRINTING-PROC
>> ;; I frankly don't think that printing (i.e., to a printer) works
>> @@ -114,7 +113,7 @@
>> (define/augment (on-close)
>> (when custodian
>> (custodian-shutdown-all custodian))
>> - (send drscheme-frame on-stepper-close)
>> + (send drracket-tab on-stepper-close)
>> (inner (void) on-close))
>>
>> ;; WARNING BOXES:
>> @@ -153,20 +152,91 @@
>> [height stepper-initial-height])))
>>
>>
>> - ;; stepper-unit-frame<%> : the interface that the extended drscheme frame
>> + ;; stepper-unit-frame<%> : the interface that the extended drracket frame
>> ;; fulfils
>> - (define stepper-unit-frame<%>
>> + (define stepper-tab<%>
>> (interface ()
>> get-stepper-frame
>> on-stepper-close))
>>
>> - ;; stepper-unit-frame-mixin : the mixin that is applied to the drscheme
>> - ;; frame to interact with a possible stepper window
>> + ;; stepper-unit-frame-mixin : the mixin that is applied to the drracket
>> + ;; frame to interact with a possible stepper window. Specifically, this
>> + ;; mixin needs to manage the creation and visibility of the stepper button.
>> (define (stepper-unit-frame-mixin super%)
>> - (class* super% (stepper-unit-frame<%>)
>> + (class* super% ()
>> + (inherit get-button-panel register-toolbar-button get-current-tab get-tabs)
>> +
>> + (super-new)
>> +
>> + ;; STEPPER BUTTON
>> +
>> + (define/public (get-stepper-button) stepper-button)
>> +
>> + (define stepper-button-parent-panel
>> + (new horizontal-panel%
>> + [parent (get-button-panel)]
>> + [stretchable-width #f]
>> + [stretchable-height #f]))
>> +
>> + (define stepper-button
>> + (new switchable-button%
>> + [parent stepper-button-parent-panel]
>> + [label (string-constant stepper-button-label)]
>> + [bitmap x:foot-img/horizontal]
>> + [alternate-bitmap x:foot-img/vertical]
>> + [callback (lambda (dont-care) (send (get-current-tab)
>> + stepper-button-callback))]))
>> +
>> + (register-toolbar-button stepper-button)
>> +
>> + (define (stepper-button-show)
>> + (unless (send stepper-button is-shown?)
>> + (send (send stepper-button get-parent)
>> + add-child stepper-button)))
>> +
>> + (define (stepper-button-hide)
>> + (when (send stepper-button is-shown?)
>> + (send (send stepper-button get-parent)
>> + delete-child stepper-button)))
>> +
>> + ;; when the window closes, notify all of the stepper frames.
>> + (define/augment (on-close)
>> + (for ([tab (in-list (get-tabs))])
>> + (define possible-stepper-frame (send tab get-stepper-frame))
>> + (when possible-stepper-frame
>> + (send possible-stepper-frame original-program-gone)))
>> + (inner (void) on-close))
>> +
>> + ;; when we change tabs, show or hide the stepper button.
>> + (define/augment (on-tab-change old new)
>> + (show/hide-stepper-button)
>> + (inner (void) on-tab-change old new))
>> +
>> + ;; add the stepper button to the button panel:
>> + (send (get-button-panel) change-children
>> + (lambda (x)
>> + (cons stepper-button-parent-panel
>> + (remq stepper-button-parent-panel x))))
>>
>> - (inherit get-button-panel register-toolbar-button get-interactions-text get-definitions-text)
>> + ;; show or hide the stepper button depending
>> + ;; on the language level
>> + (define/public (show/hide-stepper-button)
>> + (cond [(send (get-current-tab) current-lang-supports-stepper?)
>> + (stepper-button-show)]
>> + [else
>> + (stepper-button-hide)]))
>>
>> + ;; hide stepper button if it's not supported for the initial language:
>> + (show/hide-stepper-button)))
>> +
>> + ;; stepper-tab-mixin : the mixin that is applied to drracket tabs, to
>> + ;; interact with a possible stepper window.
>> + (define (stepper-tab-mixin super%)
>> + (class* super% (stepper-tab<%>)
>> +
>> + (inherit get-ints get-defs get-frame)
>> +
>> + ;; a reference to a possible stepper frame.
>> (define stepper-frame #f)
>> (define/public (on-stepper-close)
>> (set! stepper-frame #f))
>> @@ -178,14 +248,14 @@
>> ;; definitions window one at a time and calls 'iter' on each one
>> (define (program-expander init iter)
>> (let* ([lang-settings
>> - (send (get-definitions-text) get-next-settings)]
>> - [lang (drscheme:language-configuration:language-settings-language lang-settings)]
>> - [settings (drscheme:language-configuration:language-settings-settings lang-settings)])
>> - (drscheme:eval:expand-program
>> - (drscheme:language:make-text/pos
>> - (get-definitions-text)
>> + (send (get-defs) get-next-settings)]
>> + [lang (drracket:language-configuration:language-settings-language lang-settings)]
>> + [settings (drracket:language-configuration:language-settings-settings lang-settings)])
>> + (drracket:eval:expand-program
>> + (drracket:language:make-text/pos
>> + (get-defs)
>> 0
>> - (send (get-definitions-text) last-position))
>> + (send (get-defs) last-position))
>> lang-settings
>> #f
>> (lambda ()
>> @@ -203,108 +273,75 @@
>> void ; kill
>> iter)))
>>
>> - ;; STEPPER BUTTON
>> -
>> - (define/public (get-stepper-button) stepper-button)
>> -
>> - (define stepper-button-parent-panel
>> - (new horizontal-panel%
>> - [parent (get-button-panel)]
>> - [stretchable-width #f]
>> - [stretchable-height #f]))
>> -
>> - ;; called from drracket-button.rkt, installed via the #lang htdp/bsl (& co) reader into drscheme
>> +
>> + ;; called from drracket-button.rkt, installed via the #lang htdp/bsl (& co) reader into drracket
>> (define/public (stepper-button-callback)
>> - (if stepper-frame
>> - (send stepper-frame show #t)
>> - (let* ([language-level
>> - (extract-language-level (get-definitions-text))]
>> - [language-level-name (language-level->name language-level)])
>> - (if (or (stepper-works-for? language-level)
>> - (is-a? language-level drscheme:module-language:module-language<%>))
>> - (set! stepper-frame
>> - (go this
>> - program-expander
>> - (+ 1 (send (get-definitions-text) get-start-position))
>> - (+ 1 (send (get-definitions-text) get-end-position))))
>> - (message-box
>> - (string-constant stepper-name)
>> - (format (string-constant stepper-language-level-message)
>> - language-level-name))))))
>> + (cond
>> + [stepper-frame (send stepper-frame show #t)]
>> + [else (create-new-stepper)]))
>>
>> - (define stepper-button
>> - (new switchable-button%
>> - [parent stepper-button-parent-panel]
>> - [label (string-constant stepper-button-label)]
>> - [bitmap x:foot-img/horizontal]
>> - [alternate-bitmap x:foot-img/vertical]
>> - [callback (lambda (dont-care) (stepper-button-callback))]))
>> + ;; open a new stepper window, start it running
>> + (define (create-new-stepper)
>> + (let* ([language-level
>> + (extract-language-level (get-defs))]
>> + [language-level-name (language-level->name language-level)])
>> + (if (or (stepper-works-for? language-level)
>> + (is-a? language-level drracket:module-language:module-language<%>))
>> + (set! stepper-frame
>> + (go this
>> + program-expander
>> + (+ 1 (send (get-defs) get-start-position))
>> + (+ 1 (send (get-defs) get-end-position))))
>> + (message-box
>> + (string-constant stepper-name)
>> + (format (string-constant stepper-language-level-message)
>> + language-level-name)))))
>>
>> - (register-toolbar-button stepper-button)
>> + (define/override (enable-evaluation)
>> + (super enable-evaluation)
>> + (send (send (get-frame) get-stepper-button) enable #t))
>>
>> - (define/augment (enable-evaluation)
>> - (send stepper-button enable #t)
>> - (inner (void) enable-evaluation))
>> + (define/override (disable-evaluation)
>> + (super enable-evaluation)
>> + (send (send (get-frame) get-stepper-button) enable #f))
>>
>> - (define/augment (disable-evaluation)
>> - (send stepper-button enable #f)
>> - (inner (void) disable-evaluation))
>> + (define/public (current-lang-supports-stepper?)
>> + (stepper-works-for? (extract-language-level (get-defs))))
>> +
>> + (define/public (notify-stepper-frame-of-change)
>> + (when stepper-frame
>> + (send stepper-frame original-program-changed)))
>>
>> (define/augment (on-close)
>> (when stepper-frame
>> - (send stepper-frame original-program-gone))
>> + (send stepper-frame original-program-gone))
>> (inner (void) on-close))
>> -
>> - (define/augment (on-tab-change old new)
>> - (check-current-language-for-stepper)
>> - (inner (void) on-tab-change old new))
>> -
>> - (define/public (check-current-language-for-stepper)
>> - (if (stepper-works-for?
>> - (extract-language-level (get-definitions-text)))
>> - (unless (send stepper-button is-shown?)
>> - (send (send stepper-button get-parent)
>> - add-child stepper-button))
>> - (when (send stepper-button is-shown?)
>> - (send (send stepper-button get-parent)
>> - delete-child stepper-button))))
>> -
>> - ;; add the stepper button to the button panel:
>> - (send (get-button-panel) change-children
>> - (lx (cons stepper-button-parent-panel
>> - (remq stepper-button-parent-panel _))))
>> -
>> - ;; hide stepper button if it's not supported for the initial language:
>> - (check-current-language-for-stepper)))
>> +
>> + ))
>> +
>> +
>>
>> ;; stepper-definitions-text-mixin : a mixin for the definitions text that
>> ;; alerts thet stepper when the definitions text is altered or destroyed
>> (define (stepper-definitions-text-mixin %)
>> (class %
>>
>> - (inherit get-top-level-window)
>> - (define/private (notify-stepper-frame-of-change)
>> - (let ([win (get-top-level-window)])
>> - ;; should only be #f when win is #f
>> - (when (is-a? win stepper-unit-frame<%>)
>> - (let ([stepper-window (send win get-stepper-frame)])
>> - (when stepper-window
>> - (send stepper-window original-program-changed))))))
>> + (inherit get-tab get-top-level-window)
>>
>> (define/augment (on-insert x y)
>> (unless metadata-changing-now?
>> - (notify-stepper-frame-of-change))
>> + (send (get-tab) notify-stepper-frame-of-change))
>> (inner (void) on-insert x y))
>>
>> (define/augment (on-delete x y)
>> (unless metadata-changing-now?
>> - (notify-stepper-frame-of-change))
>> + (send (get-tab) notify-stepper-frame-of-change))
>> (inner (void) on-delete x y))
>>
>> (define/augment (after-set-next-settings s)
>> (let ([tlw (get-top-level-window)])
>> (when tlw
>> - (send tlw check-current-language-for-stepper)))
>> + (send tlw show/hide-stepper-button)))
>> (inner (void) after-set-next-settings s))
>>
>> (define metadata-changing-now? #f)
>> @@ -321,28 +358,29 @@
>>
>> (super-new)))
>>
>> - ;; apply the mixins dynamically to the drscheme unit frame and
>> + ;; apply the mixins dynamically to the drracket unit frame and
>> ;; definitions text:
>> - (drscheme:get/extend:extend-unit-frame stepper-unit-frame-mixin)
>> - (drscheme:get/extend:extend-definitions-text stepper-definitions-text-mixin)
>> + (drracket:get/extend:extend-unit-frame stepper-unit-frame-mixin)
>> + (drracket:get/extend:extend-definitions-text stepper-definitions-text-mixin)
>> + (drracket:get/extend:extend-tab stepper-tab-mixin)
>>
>> - ;; COPIED FROM drscheme/private/language.ss
>> + ;; COPIED FROM drracket/private/language.ss
>> ;; simple-module-based-language-convert-value : TST STYLE boolean -> TST
>> (define (simple-module-based-language-convert-value value settings)
>> - (case (drscheme:language:simple-settings-printing-style settings)
>> + (case (drracket:language:simple-settings-printing-style settings)
>> [(print) value]
>> [(write trad-write) value]
>> [(constructor)
>> (parameterize
>> ([constructor-style-printing #t]
>> - [show-sharing (drscheme:language:simple-settings-show-sharing settings)]
>> + [show-sharing (drracket:language:simple-settings-show-sharing settings)]
>> [current-print-convert-hook
>> (leave-snips-alone-hook (current-print-convert-hook))])
>> (stepper-print-convert value))]
>> [(quasiquote)
>> (parameterize
>> ([constructor-style-printing #f]
>> - [show-sharing (drscheme:language:simple-settings-show-sharing settings)]
>> + [show-sharing (drracket:language:simple-settings-show-sharing settings)]
>> [current-print-convert-hook
>> (leave-snips-alone-hook (current-print-convert-hook))])
>> (stepper-print-convert value))]
>> @@ -381,19 +419,19 @@
>> [(is-a? exp snip%)
>> (send exp copy)]
>> #;
>> - [((drscheme:rep:use-number-snip) exp)
>> + [((drracket:rep:use-number-snip) exp)
>> (let ([number-snip-type
>> - (drscheme:language:simple-settings-fraction-style
>> + (drracket:language:simple-settings-fraction-style
>> simple-settings)])
>> (cond
>> [(eq? number-snip-type 'repeating-decimal)
>> - (drscheme:number-snip:make-repeating-decimal-snip exp #f)]
>> + (drracket:number-snip:make-repeating-decimal-snip exp #f)]
>> [(eq? number-snip-type 'repeating-decimal-e)
>> - (drscheme:number-snip:make-repeating-decimal-snip exp #t)]
>> + (drracket:number-snip:make-repeating-decimal-snip exp #t)]
>> [(eq? number-snip-type 'mixed-fraction)
>> - (drscheme:number-snip:make-fraction-snip exp #f)]
>> + (drracket:number-snip:make-fraction-snip exp #f)]
>> [(eq? number-snip-type 'mixed-fraction-e)
>> - (drscheme:number-snip:make-fraction-snip exp #t)]
>> + (drracket:number-snip:make-fraction-snip exp #t)]
>> [else
>> (error 'which-number-snip
>> "expected either 'repeating-decimal, 'repeating-decimal-e, 'mixed-fraction, or 'mixed-fraction-e got : ~e"
>>
>> collects/stepper/tests/test-docs-complete.rkt
>> ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
>> --- OLD/collects/stepper/tests/test-docs-complete.rkt
>> +++ NEW/collects/stepper/tests/test-docs-complete.rkt
>> @@ -1,6 +1,2 @@
>> #lang racket/base
>> (require tests/utils/docs-complete)
>> -(check-docs (quote stepper/xml-sig))
>> -(check-docs (quote stepper/view-controller))
>> -(check-docs (quote stepper/drracket-button))
>> -(check-docs (quote stepper/break))
>>
>> collects/stepper/xml-tool.rkt
>> ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
>> --- OLD/collects/stepper/xml-tool.rkt
>> +++ NEW/collects/stepper/xml-tool.rkt
>> @@ -1,27 +1,26 @@
>> +#lang racket
>>
>> -(module xml-tool mzscheme
>> - (require "private/xml-snip-helpers.rkt"
>> - "private/find-tag.rkt"
>> - "xml-sig.ss"
>> - mzlib/unit
>> - mzlib/contract
>> - mzlib/class
>> - mred
>> - framework
>> - drscheme/tool
>> - xml/xml
>> - string-constants)
>> +(require "private/xml-snip-helpers.rkt"
>> + "private/find-tag.rkt"
>> + "private/xml-sig.ss"
>> + mred
>> + framework
>> + drracket/tool
>> + xml/xml
>> + string-constants)
>>
>> (provide xml-tool@)
>>
>> (define orig (current-output-port))
>> (define-unit xml-tool@
>> - (import drscheme:tool^)
>> + (import drracket:tool^)
>> (export xml^)
>> - (define (phase1) (void))
>> - (define (phase2) (void))
>> -
>> - (preferences:set-default 'drscheme:xml-eliminate-whitespace #t boolean?)
>> +
>> + ;; these were necessary when this was a stand-alone tool:
>> + #;(define (phase1) (void))
>> + #;(define (phase2) (void))
>> +
>> + (preferences:set-default 'drracket:xml-eliminate-whitespace #t boolean?)
>>
>> (define xml-box-color "forest green")
>> (define scheme-splice-box-color "blue")
>> @@ -74,7 +73,7 @@
>> (define/private (set-eliminate-whitespace-in-empty-tags? new)
>> (unless (eq? eliminate-whitespace-in-empty-tags? new)
>> (set! eliminate-whitespace-in-empty-tags? new)
>> - (preferences:set 'drscheme:xml-eliminate-whitespace new)
>> + (preferences:set 'drracket:xml-eliminate-whitespace new)
>> (reset-min-sizes)
>> (let ([admin (get-admin)])
>> (when admin
>> @@ -109,7 +108,7 @@
>> (define/override (make-snip stream-in)
>> (instantiate xml-snip% ()
>> [eliminate-whitespace-in-empty-tags?
>> - (preferences:get 'drscheme:xml-eliminate-whitespace)]))
>> + (preferences:get 'drracket:xml-eliminate-whitespace)]))
>> (super-instantiate ())))
>>
>> ;; this snipclass is for old, saved files (no snip has it set)
>> @@ -196,7 +195,7 @@
>> (define (get-scheme-box-text%)
>> (unless scheme-box-text%
>> (set! scheme-box-text%
>> - (class ((drscheme:unit:get-program-editor-mixin)
>> + (class ((drracket:unit:get-program-editor-mixin)
>> (add-file-keymap-mixin
>> scheme:text%))
>> (inherit copy-self-to)
>> @@ -306,7 +305,7 @@
>> (let ([xml-text% #f])
>> (lambda ()
>> (unless xml-text%
>> - (set! xml-text% (class ((drscheme:unit:get-program-editor-mixin)
>> + (set! xml-text% (class ((drracket:unit:get-program-editor-mixin)
>> (xml-text-mixin
>> plain-text%))
>> (inherit copy-self-to)
>> @@ -375,8 +374,8 @@
>> (lambda ()
>> (instantiate xml-snip% ()
>> [eliminate-whitespace-in-empty-tags?
>> - (preferences:get 'drscheme:xml-eliminate-whitespace)]))))))
>> - (register-capability-menu-item 'drscheme:special:xml-menus (get-insert-menu))
>> + (preferences:get 'drracket:xml-eliminate-whitespace)]))))))
>> + (register-capability-menu-item 'drracket:special:xml-menus (get-insert-menu))
>> (instantiate menu:can-restore-menu-item% ()
>> (label (string-constant xml-tool-insert-scheme-box))
>> (parent menu)
>> @@ -385,7 +384,7 @@
>> (lambda (menu evt)
>> (insert-snip
>> (lambda () (instantiate scheme-snip% () (splice? #f)))))))
>> - (register-capability-menu-item 'drscheme:special:xml-menus (get-insert-menu))
>> + (register-capability-menu-item 'drracket:special:xml-menus (get-insert-menu))
>> (instantiate menu:can-restore-menu-item% ()
>> (label (string-constant xml-tool-insert-scheme-splice-box))
>> (parent menu)
>> @@ -394,10 +393,10 @@
>> (lambda (menu evt)
>> (insert-snip
>> (lambda () (instantiate scheme-snip% () (splice? #t)))))))
>> - (register-capability-menu-item 'drscheme:special:xml-menus (get-insert-menu)))
>> + (register-capability-menu-item 'drracket:special:xml-menus (get-insert-menu)))
>>
>> (frame:reorder-menus this)))
>>
>> - (drscheme:language:register-capability 'drscheme:special:xml-menus (flat-contract boolean?) #t)
>> + (drracket:language:register-capability 'drracket:special:xml-menus (flat-contract boolean?) #t)
>>
>> - (drscheme:get/extend:extend-unit-frame xml-box-frame-extension)))
>> + (drracket:get/extend:extend-unit-frame xml-box-frame-extension))
>>
>> *** See above for renames and copies ***
>>
>
> _________________________________________________
> For list-related administrative tasks:
> http://lists.racket-lang.org/listinfo/dev
>
![[logo]](/logo.png){kind=logo}