Services & ResourcesWolfram ForumsMathGroup Archive

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

Re: Using BarChart in a Widget

• To: mathgroup at smc.vnet.net
• Subject: [mg56539] Re: Using BarChart in a Widget
• From: "Brett Patterson" <muckle.moose at gmail.com>
• Date: Thu, 28 Apr 2005 02:40:40 -0400 (EDT)
• References: <d4kl1t$edj$1@smc.vnet.net><d4mrr2$1u9$1@smc.vnet.net>
• Sender: owner-wri-mathgroup at wolfram.com

Hi David,

Thanks for the reply.

Perhaps you could tell me what's wrong with the bar orientation in the
following:

GUIRun[Widget["Panel", {

      Widget["MathPanel", {"preferredSize" ->
      Widget["Dimension", {"width" -> 300, "
        height" -> 300}]}, Name -> "zplot",
            WidgetLayout -> {"Stretching" -> {True, Maximize}}],

      BindEvent["componentResized", Script[updateZernikes[]]],

      Script[updateZernikes[] := Block[{$DisplayFunction = Identity},
            Needs["Graphics`Graphics`"];
            expr = Show[ToExpression["
      Graphics`Graphics`BarChart"][bardata = Table[Random[] - 0.5, {
        13}], BarOrientation -> Horizontal]];
            SetPropertyValue[{"zplot", "
      mathCommand"}, ToString[expr, InputForm]]]
        ]
      }
    ]
  ]

The problem is that the bars are display vertically, even though I
specify BarOrientation -> Horizontal!

Thanks for your help.

Regards,
Brett Patterson

• Follow-Ups:
  • Re: Re: Using BarChart in a Widget
    • From: Jeff Adams <jeffa@wolfram.com>