[racket-dev] [plt] Push #22584: master branch updated
Or possibly not run raco setup so some tools didn't get registered?
Robby
On Sun, May 15, 2011 at 2:58 PM, Robby Findler
<robby at eecs.northwestern.edu> wrote:
> 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}