Re: [MACTCL] Popup Boxes on MacTclTk

[Daniel A. S. <st...@ic...>]

At 18:49 +1000 on 28/8/01, Daniel A. Steffen wrote:

>There is no need to test for '$tcl_platform(platform) == 
>"macintosh"' as the unsupported1 is just a noop on other platforms.

this turns out to be wrong... sorry

you need to surround the unsupported1 line by a 
$tcl_platform(platform) == "macintosh" like so:

if {$tcl_platform(platform) == "macintosh"} {
   unsupported1 style $the_balloon floating sideTitlebar
}

I've just added all this to the wiki as well: 
http://www.mini.net/cgi-bin/wikit/534.html

Cheers,

Daniel
-- 
** Daniel A. Steffen          **  "And now to something completely
** Department of Mathematics  **   different"    Monty Python
** Macquarie University       ** <mailto:st...@ma...>
** NSW 2109 Australia         ** <http://www.maths.mq.edu.au/~steffen/>