MathGroup Archive 2009

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

Search the Archive

Re: Re: Joust in Mathematica

  • To: mathgroup at
  • Subject: [mg98267] Re: [mg98246] Re: Joust in Mathematica
  • From: "David Park" <djmpark at>
  • Date: Fri, 3 Apr 2009 20:11:48 -0500 (EST)
  • References: <gr21m6$lr4$> <6221704.1238754373701.JavaMail.root@m02>

Very nice, Albert!

Maybe a horizontal scrollbar, and then what are the chances of adding an
invisible locator or EventHandler to alter the width of the left hand panel?

David Park
djmpark at  

From: Albert Retey [mailto:awnl at] 


> I've been wondering how to set up something that behaves like the Java
> in Mathematica:  we all use them every day
on on
> windows machines, so I am wondering how to implement something like it in
> Mathematica. At first, I thought of using GraphPlot or TreePlot, but
> then started to wonder if OpenerView and Opener could be trained to behave
a more
> general way. Has anyone thought about this already, or got some
working examples?

I think OpenerView isn't providing the looks, but the functionality,
depending of course what exactly you have in mind. What exactly are you
missing? Here is some code for Mathematica 7 you might want to play with:

tree = "A"["B"["x", "y", "z"], "C"["f"["g"["asdf"]]]]

ov[a_String] := Button[a, content = a]

ov[expr_] := OpenerView[{Head[expr], Column[ov /@ (List @@ expr)]}]

      Pane[ov[tree], ImageSize -> {100, 200},
       Scrollbars -> {False, True}]],
     Panel[Pane[Dynamic[content], ImageSize -> {200, 200}]]}]]}]



  • Prev by Date: Re: Map to nested list
  • Next by Date: Re: Can't figure out how to export Mathematica into Word
  • Previous by thread: Re: Joust in Mathematica
  • Next by thread: Re: Joust in Mathematica