672910f27b
I started from tabs that are not on the beginning of lines, and in several places I did further cleanings. If you're worried about knowing who wrote some code, for example, if you get to this commit in "git blame", then note that you can use the "-w" flag in many git commands to ignore whitespaces. For example, to see per-line authors, use "git blame -w <file>". Another example: to see the (*much* smaller) non-whitespace changes in this (or any other) commit, use "git log -p -w -1 <sha1>".
44 lines
1.4 KiB
Racket
44 lines
1.4 KiB
Racket
#lang scribble/doc
|
|
@(require "common.rkt" (for-label mrlib/switchable-button))
|
|
|
|
@title{Switchable Button}
|
|
|
|
@defmodule[mrlib/switchable-button]
|
|
|
|
@defclass[switchable-button% canvas% ()]{
|
|
|
|
A @racket[switchable-button%] control displays
|
|
and icon and a string label. It toggles between
|
|
display of just the icon and a display with the
|
|
label and the icon side-by-side.
|
|
|
|
@defconstructor/auto-super[([label string?]
|
|
[callback (-> (is-a?/c switchable-button%) any/c)]
|
|
[bitmap (is-a?/c bitmap%)]
|
|
[alternate-bitmap (is-a?/c bitmap%) bitmap]
|
|
[vertical-tight? boolean? #f])]{
|
|
The @racket[callback] is called when the button
|
|
is pressed. The @racket[string] and @racket[bitmap] are
|
|
used as discussed above.
|
|
|
|
If @racket[alternate-bitmap] is supplied, then it is used
|
|
when the button is switched to the view that just shows the bitmap.
|
|
If it is not supplied, both modes show the same bitmap.
|
|
|
|
If the @racket[vertical-tight?] argument is @racket[#t], then the button takes up
|
|
as little as possible vertical space.
|
|
}
|
|
|
|
@defmethod[(set-label-visible [visible? boolean?]) void?]{
|
|
Sets the visibility of the string part of the label.
|
|
}
|
|
|
|
@defmethod[(command) void?]{
|
|
Calls the button's callback function.
|
|
}
|
|
|
|
@defmethod[(get-button-label) string?]{
|
|
Returns the label of this button.
|
|
}
|
|
}
|