From 0508c7d55d4566c542880317373f1f66ff1db814 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Wed, 7 May 2008 00:51:07 +0000 Subject: [PATCH] tool-tip frame size svn: r9711 original commit: f77bd13540583d2f9ad1753e716d83edb353f52e --- collects/mrlib/switchable-button.ss | 13 ++++++++----- 1 file changed, 8 insertions(+), 5 deletions(-) diff --git a/collects/mrlib/switchable-button.ss b/collects/mrlib/switchable-button.ss index 1c2d4c80..31871329 100644 --- a/collects/mrlib/switchable-button.ss +++ b/collects/mrlib/switchable-button.ss @@ -16,10 +16,11 @@ (let ([dc (get-dc)]) (let ([pen (send dc get-pen)] [brush (send dc get-brush)] - [font (send dc get-font)]) + [font (send dc get-font)] + [yellow (make-object color% 255 255 200)]) - (send dc set-pen "yellow" 1 'transparent) - (send dc set-brush "yellow" 'solid) + (send dc set-pen yellow 1 'transparent) + (send dc set-brush yellow 'solid) (let-values ([(cw ch) (get-client-size)]) (send dc draw-rectangle 0 0 cw ch) @@ -126,9 +127,11 @@ (unless float-window (set! float-window (new frame% [label ""] - [style '(no-caption float)])) + [style '(no-caption float)] + [stretchable-width #f] + [stretchable-height #f])) (new yellow-message% [parent float-window] [label label])) - + ;; position the floating window (let loop ([window this] [x 0]