Re: PopupWindow Problem

• To: mathgroup at smc.vnet.net
• Subject: [mg125044] Re: PopupWindow Problem
• From: Bob Hanlon <hanlonr357 at gmail.com>
• Date: Sun, 19 Feb 2012 06:31:50 -0500 (EST)
• Delivered-to: l-mathgroup@mail-archive0.wolfram.com
• References: <201202181124.GAA05933@smc.vnet.net>

```thisContent = Row[{
Style["Max. No. on Graph", Bold, 12],
"  This option means ... "}];

PopupWindow["xxx", thisContent,
Background -> LightYellow,
Editable -> False]

Bob Hanlon

On Sat, Feb 18, 2012 at 6:24 AM, Don <donabc at comcast.net> wrote:
> Here is a Popup Window
>
> thisContent = Style["Max. No. on Graph", Bold];
> PopupWindow["xxx",  thisContent,  Background->LightYellow]
>
> I would like to add to thisContent an explanation of what "Max. No. on Graph" means
> in Plain text.
>
> For example:
>
> "Max. No. on Graph -  This option means ... "
> where only "Max. No. on Graph" is in Bold and
> "This option means ... " is in Plain text.
>
>
> The simple, intuitive solution,
>
> thisContent =  StringJoin[Style["Max. No. on Graph", Bold], " This option means... "]
>
> does not work.
>
>
> thisContent = {Style["Max. No. on Graph", Bold], "  This option means... "};
> PopupWindow["xxx",  thisContent, Background->LightYellow]
>
> and
>
> thisContent = {Style["Max. No. on Graph", Bold], "  This option means... "};
> thisContent = Apply[Sequence, thisContent];
> PopupWindow["xxx",  thisContent, Background->LightYellow]
>
> do not work either.
>
> How can I do this?
>