From f17d85c24a65cf5d3c2d1a66a00509e430cd8b9c Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Fri, 2 May 2008 00:23:32 +0000 Subject: [PATCH] svn: r9582 --- .../mrlib/scribblings/switchable-button.scrbl | 25 +++++++++++++++++++ 1 file changed, 25 insertions(+) create mode 100644 collects/mrlib/scribblings/switchable-button.scrbl diff --git a/collects/mrlib/scribblings/switchable-button.scrbl b/collects/mrlib/scribblings/switchable-button.scrbl new file mode 100644 index 0000000000..5ea1ec644a --- /dev/null +++ b/collects/mrlib/scribblings/switchable-button.scrbl @@ -0,0 +1,25 @@ +#lang scribble/doc +@(require "common.ss" + (for-label mrlib/name-message)) + +@title{Switchable Button} + +@defmodule[mrlib/switchable-button] + +@defclass[switchable-button% canvas% ()]{ + +A @scheme[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%)])]{ +The @scheme[callback] is called when the button +is pressed. The @scheme[string] and @scheme[bitmap] are +used as discussed above.} + +@defmethod[(set-label-visible [visible? boolean?]) void?]{ + Sets the visibility of the string part of the label. +} +} +