From 9f5593c2224d2dc6d167ab14c6adbad35806427e Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Tue, 22 Jun 2010 11:56:59 -0500 Subject: [PATCH] rackety mrlib/name-message --- collects/mrlib/name-message.rkt | 2 +- collects/mrlib/scribblings/name-message.scrbl | 40 +++++++++---------- 2 files changed, 21 insertions(+), 21 deletions(-) diff --git a/collects/mrlib/name-message.rkt b/collects/mrlib/name-message.rkt index aefc4cd4e0..1d964cd3d1 100644 --- a/collects/mrlib/name-message.rkt +++ b/collects/mrlib/name-message.rkt @@ -1,4 +1,4 @@ -#lang scheme/gui +#lang racket/gui ;; min-w, min-h : number -> contract ;; determines if the widths and heights are suitable diff --git a/collects/mrlib/scribblings/name-message.scrbl b/collects/mrlib/scribblings/name-message.scrbl index 1209211ff7..d8cf79d74e 100644 --- a/collects/mrlib/scribblings/name-message.scrbl +++ b/collects/mrlib/scribblings/name-message.scrbl @@ -8,7 +8,7 @@ @defclass[name-message% canvas% ()]{ -A @scheme[name-message%] control displays a filename that the user can +A @racket[name-message%] control displays a filename that the user can click to show the filename's path and select one of the enclosing directories. Override the @method[name-message% on-choose-directory] method to handle the user's selection. @@ -16,7 +16,7 @@ method to handle the user's selection. @defconstructor/auto-super[()]{ -Passes all arguments to @scheme[super-init].} +Passes all arguments to @racket[super-init].} @defmethod[(on-choose-directory [dir path-string?]) @@ -42,7 +42,7 @@ Draws the control's current message.} @defmethod[(set-hidden? [hidden? any/c]) void?]{ -Calling this method with @scheme[#f] causes the name message +Calling this method with @racket[#f] causes the name message to become invisible and to stop responding to mouse movements. Calling it with a true value restores its visibility and @@ -55,19 +55,19 @@ makes it respond to mouse movements again.} Sets the label for the control. -If @scheme[file-name?] is @scheme[#t], @scheme[msg] is treated like a +If @racket[file-name?] is @racket[#t], @racket[msg] is treated like a pathname, and a click on the name-message control creates a popup menu to open a get-file dialog. -If @scheme[file-name?] is @scheme[#f], @scheme[msg] is treated as a +If @racket[file-name?] is @racket[#f], @racket[msg] is treated as a label string. Clicking on the name-message control pops up a dialog saying that there is no file name until the file is saved.} @defmethod[(set-short-title [short-title? boolean?]) void?]{ - Sets the @scheme[short-title?] flag. The flag defaults to @scheme[#f]. + Sets the @racket[short-title?] flag. The flag defaults to @racket[#f]. - If the flag is @scheme[#t], then - the label for the control is simply the string @scheme["/"]. Otherwise, + If the flag is @racket[#t], then + the label for the control is simply the string @racket["/"]. Otherwise, the label is determined by the @method[name-message% set-message]. } @@ -75,7 +75,7 @@ saying that there is no file name until the file is saved.} @defmethod[(get-background-color) (or/c #f (is-a/c color%) string?)]{ The result of this method is used for the background color -when redrawing the name message. If it is @scheme[#f], the +when redrawing the name message. If it is @racket[#f], the OS's default panel background is used. } @@ -104,8 +104,8 @@ Defaultly, the name-message does not allow shrinking. (values real? real?)]{ Calculates the minimum width and height of a button label (when drawn -with @scheme[draw-button-label]). Returns two values: the width -and height. The @scheme[dc] argument is used for sizing.} +with @racket[draw-button-label]). Returns two values: the width +and height. The @racket[dc] argument is used for sizing.} @defproc[(draw-button-label [dc (is-a?/c dc<%>)] @@ -125,19 +125,19 @@ filename buttons in the top-left corner of the DrRacket frame. Use this function to draw similar buttons. The basic idea is to create a canvas object whose on-paint method is -overridden to call this function. The @scheme[dc] argument should be -canvas's drawing context, and @scheme[str] should be the string to -display on the button. The @scheme[width] and @scheme[height] +overridden to call this function. The @racket[dc] argument should be +canvas's drawing context, and @racket[str] should be the string to +display on the button. The @racket[width] and @racket[height] arguments should be the width and height of the button, and the -@scheme[dx] and @scheme[dy] arguments specify an offset into -@scheme[dc] for the button. The @scheme[mouse-over?] argument should -be true when the mouse is over the button, and the @scheme[grabbed?] +@racket[dx] and @racket[dy] arguments specify an offset into +@racket[dc] for the button. The @racket[mouse-over?] argument should +be true when the mouse is over the button, and the @racket[grabbed?] argument should be true when the button has been pressed. The -@scheme[font] and @scheme[background] arguments supply the font to use -in drawing (possibly @scheme[normal-control-font]) and the background +@racket[font] and @racket[background] arguments supply the font to use +in drawing (possibly @racket[normal-control-font]) and the background color to paint (if any). -See @scheme[calc-button-min-sizes] for help calculating the min sizes +See @racket[calc-button-min-sizes] for help calculating the min sizes of the button.} @defproc[(pad-xywh [tx number?]