MathGroup Archive 2010

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

Search the Archive

Re: Dynamic window popup question

  • To: mathgroup at
  • Subject: [mg110356] Re: Dynamic window popup question
  • From: John Fultz <jfultz at>
  • Date: Tue, 15 Jun 2010 02:28:45 -0400 (EDT)

Here's the beginnings of some code which does what you're looking for.  The
critical insights are to use Button[] instead of PopupWindow[] (Button holds its
second argument), and to use DynamicModule[] to make guarantee that the function
you use in Button[] is properly initialized.

 Tooltip[Table[{RandomReal[], RandomReal[], RandomReal[]}, {50}]],
 PlotStyle -> {PointSize[.02]}]

 % /. Tooltip[arg_, ___] :> Button[arg, myMakeGraphics[arg]],
 Initialization :> {myMakeGraphics[Point[{a_, b_, c_}]] :==
    CreateDocument[Plot[a Sin[b x^c], {x, 0, 2 \[Pi]}],
     WindowSize -> Fit, WindowElements -> {}]}]


John Fultz
jfultz at
User Interface Group
Wolfram Research, Inc.

On Sun, 13 Jun 2010 18:53:10 -0400 (EDT), Arturas Acus wrote:
> Dear group,
> I have phase space points ListPointPlot3D[data].
> Clicking on point I want the solution, which represents that point to
> appear.
> I can achieve this simply by replacing each point by
> PopupWindow[point, myMakeGraphics[point]]
> construction, where myMakeGraphics generates this graphics.
> Thought this approach works, it tries to generate all required graphics
> immediatelly, and then hides them into ListPointPlot3D output.
> This take much time and memory. How can I force the graphics to be
> generated only after pushing Shift+Enter in the appeared popup window?
> I want the popup window with myMakeGraphics[point] appear, then pressing
> shift+enter the graphics to be generated in the same popup notebook.
> So far I was able to generate graphics this way only in Messages notebook
> :).
> Sincerely, Arturas Acus

  • Next by Date: Re: Dynamic window popup question
  • Previous by thread: Re: Reading Binary Data from SQL Request
  • Next by thread: Re: Dynamic window popup question