Tell me more ×
Mathematica Stack Exchange is a question and answer site for users of Mathematica. It's 100% free, no registration required.

I have three plots in an OpenerView named "PopupWindow", "MouseOver" .

   With[{z1 = .25, z2 = 1, x = 1}, 
   a = Manipulate[PopupWindow[
Labeled[Graphics[
  l = DiscretePlot[Sin[a t], {t, 0, 2 Pi, Pi/6}, 
    ExtentSize -> Full, ImageSize -> Scaled[x], 
     AspectRatio -> z1/z2]], "PopupWindow Plot", Top, 
 LabelStyle -> 
  Directive[FontFamily -> "Helvetica", 
   FontSize -> Scaled[.02]]], {a}], 
OpenerView[{"Vertical", 
 Column[{Control[{{a, 1, "a Manipulator"}, 1, 20}]}]}], 
 ControlPlacement -> Bottom]]; With[{z1 = .25, z2 = 1,  x = 1}, 
  b = Manipulate[
 Mouseover[
 Labeled[q = 
   Graphics[
    DiscretePlot[Sin[g t], {t, 0, 2 Pi, Pi/6}, ExtentSize -> Full,
      PlotStyle -> Orange, AspectRatio -> z1/z2, 
     ImageSize -> Scaled[x], ImageMargins -> 0, 
     ImagePadding -> 0]], "MouseOver Plot", Top, 
  LabelStyle -> 
   Directive[FontFamily -> "Helvetica", FontSize -> Scaled[.02]]],
  Labeled[
  Graphics[
   Plot[Sin[h k], {k, 0, 2 Pi}, PlotStyle -> Pink, 
    Filling -> Axis, FillingStyle -> Pink, ImageSize -> Scaled[x],
     AspectRatio -> z1/z2, ImageSize -> {200}, ImageMargins -> 0, 
    ImagePadding -> 0]], "MouseOver Plot", Top, 
  LabelStyle -> 
   Directive[FontFamily -> "Helvetica", 
    FontSize -> Scaled[.02]]]] OpenerView[{"Vertical", 
  Column[{Control[{{g, 1, "g Manipulator"}, 1, 20}], 
    Control[{{h, 0, "h Manipulator"}, 0, 10}]}]}], 
  ControlPlacement -> Bottom]]
   Grid[{{PopupMenu[
Dynamic[p], {a -> 
  Labeled[l, "PopupWindow Plot", {Right}, 
   LabelStyle -> Directive[Bold, FontFamily -> "Helvetica"]], 
 b -> Labeled[q, "MouseOver Plot", {Right}, 
   LabelStyle -> Directive[Bold, FontFamily -> "Helvetica"]]}, 
FieldSize -> {20, 6}, ImageMargins -> 0, FrameMargins -> 0, 
ContentPadding -> False, 
Alignment -> {Center, Center}]}, {Dynamic[p]}}, Spacings -> 20, 
Alignment -> {Left, Top}]

I am facing some problems with it.

  1. When I select "MouseOver Plot", it is aligned very much to the left in Popupmenu. I wanted all the plots to be aligned in one order.

  2. When I click on "PopupMenu", the image size of PopupWindow plot is less than the other plot. How can I rectify this?

share|improve this question
3  
I think you will get much better answers if you trim down your code to the minimal example that illustrates your problem. I think very few people will take the time to read through a full page of code. – Ajasja Jul 13 '12 at 9:15
@Ajasja: I have trimmed my code but I wanted to ask from 3 plots so I had to write a full page of code. – Jennifer Jul 13 '12 at 9:48
@Ajasja: I have removed one of my plots to reduce the code. – Jennifer Jul 13 '12 at 12:21
Have you tried the code you have posted here? It doesn't seem to work for me. I get two manipulate graphs and a popup menu with two items called l PopupWindow Plot and q MouseOver Plot but no actual plot appears in the Popup menu. I assume that is what you wanted. – Matariki Jul 14 '12 at 7:14

Know someone who can answer? Share a link to this question via email, Google+, Twitter, or Facebook.

Your Answer

 
discard

By posting your answer, you agree to the privacy policy and terms of service.

Browse other questions tagged or ask your own question.