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

Rename "drscheme-button*" -> "drracket-button*"; fix bad reference to "drscheme/syncheck-drracket-button".

Browse Source
This commit is contained in:
Eli Barzilay 2010-05-16 16:10:08 -04:00
parent 31923d045e
commit bb263675b6
6 changed files with 12 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/htdp/bsl/reader.rkt
View File

@ -26,9 +26,9 @@
(define ((make-info options) key default use-default)
(case key
[(drscheme:toolbar-buttons)
(list (dynamic-require 'stepper/drscheme-button 'stepper-drscheme-button)
(dynamic-require 'drscheme/syncheck-drracket-button 'syncheck-drracket-button))]
(list (dynamic-require 'stepper/drracket-button 'stepper-drracket-button)
(dynamic-require 'drracket/syncheck-drracket-button 'syncheck-drracket-button))]
[(drscheme:opt-out-toolbar-buttons)
;; opt-out of all of the extra buttons b/c
;; we don't want anything to confuse in the teaching languages.

4
collects/meta/props
View File

@ -1226,7 +1226,7 @@ path/s is either such a string or a list of them.
"collects/schemeunit/gui.rkt" drdr:command-line (gracket-text "-t" *)
"collects/scribble" responsible (mflatt eli)
"collects/scribble/run.rkt" drdr:command-line (mzc *)
"collects/scribble/tools/drscheme-buttons.rkt" drdr:command-line (gracket-text *)
"collects/scribble/tools/drracket-buttons.rkt" drdr:command-line (gracket-text *)
"collects/scribble/tools/private/mk-drs-bitmaps.rkt" drdr:command-line (gracket-text * "skip")
"collects/scribblings" responsible (mflatt eli robby mathias)
"collects/scribblings/framework/standard-menus.scrbl" drdr:command-line #f
@ -1297,7 +1297,7 @@ path/s is either such a string or a list of them.
"collects/srpersist/main.rkt" drdr:command-line #f
"collects/srpersist/srpersist.rkt" drdr:command-line #f
"collects/stepper" responsible (clements)
"collects/stepper/drscheme-button.rkt" drdr:command-line (gracket-text *)
"collects/stepper/drracket-button.rkt" drdr:command-line (gracket-text *)
"collects/stepper/private/display-break-stuff.rkt" drdr:command-line (gracket-text "-t" *)
"collects/stepper/private/mred-extensions.rkt" drdr:command-line (gracket-text "-t" *)
"collects/stepper/private/vertical-separator-snip.rkt" drdr:command-line (gracket-text "-t" *)

2
collects/scribble/base/reader.rkt
View File

@ -33,7 +33,7 @@
(lambda (key defval default)
(case key
[(drscheme:toolbar-buttons)
(dynamic-require 'scribble/tools/drscheme-buttons 'drscheme-buttons)]
(dynamic-require 'scribble/tools/drracket-buttons 'drracket-buttons)]
[else ((scribble-base-reader-info) key defval default)])))
(define (scribble-base-language-info)

4
collects/scribble/tools/drscheme-buttons.rkt → collects/scribble/tools/drracket-buttons.rkt
View File

@ -8,7 +8,7 @@
setup/xref
net/sendurl)
(provide drscheme-buttons)
(provide drracket-buttons)
(define-runtime-path pdf-png-path "pdf.png")
(define-runtime-path html-png-path "html.png")
@ -45,7 +45,7 @@
(message-box "Scribble" (get-output-string p) drs-frame))
(message-box "Not Named" "Cannot render unsaved file"))))))
(define drscheme-buttons
(define drracket-buttons
(let ([html-button
(make-render-button "Scribble HTML" html.png "--html" #".html"
'("++xref-in" "setup/xref" "load-collections-xref"))]

4
collects/stepper/drscheme-button.rkt → collects/stepper/drracket-button.rkt
View File

@ -1,10 +1,10 @@
#lang scheme/base
(require scheme/class string-constants/string-constant
(prefix-in x: "private/mred-extensions.ss"))
(provide stepper-button-callback stepper-drscheme-button)
(provide stepper-button-callback stepper-drracket-button)
(define-local-member-name stepper-button-callback)
(define stepper-drscheme-button
(define stepper-drracket-button
(list
(string-constant stepper-button-label)
x:foot-img/horizontal

4
collects/stepper/stepper-tool.rkt
View File

@ -13,7 +13,7 @@
lang/stepper-language-interface
scheme/pretty
"xml-sig.ss"
"drscheme-button.ss") ;; get the stepper-button-callback private-member-name
"drracket-button.ss") ;; get the stepper-button-callback private-member-name
(import drscheme:tool^ xml^ view-controller^)
(export drscheme:tool-exports^ stepper-frame^)
@ -213,7 +213,7 @@
[stretchable-width #f]
[stretchable-height #f]))
;; called from drscheme-button.ss, installed via the #lang htdp/bsl (& co) reader into drscheme
;; called from drracket-button.rkt, installed via the #lang htdp/bsl (& co) reader into drscheme
(define/public (stepper-button-callback)
(if stepper-frame
(send stepper-frame show #t)