MathGroup Archive 2012

[Date Index] [Thread Index] [Author Index]

Search the Archive

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?
>
> Thank you in advance.



  • Prev by Date: Wickham-Jones ExtendGraphics for OS X?
  • Next by Date: Equation solving problem
  • Previous by thread: PopupWindow Problem
  • Next by thread: Re: PopupWindow Problem