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

rackety mrlib/name-message

Browse Source
This commit is contained in:
Robby Findler 2010-06-22 11:56:59 -05:00
parent c5b0c73111
commit 9f5593c222
2 changed files with 21 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/mrlib/name-message.rkt
View File

@ -1,4 +1,4 @@
#lang scheme/gui
#lang racket/gui
;; min-w, min-h : number -> contract
;; determines if the widths and heights are suitable

40
collects/mrlib/scribblings/name-message.scrbl
View File

@ -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?]