Mark,
Thanks for your input. I am really grateful.
Just to complete the story, SetForegroundColour also has no effect on
a statusbar in Windows, even with an explicit Refresh. (I wonder
about others, like SetCursor or SetFont...)
As you suggest, I need to think of another solution. Still, I would
appreciate understanding why this is implemented so differently on
Windows as on linux.
The moral of this story (and of my other recent questions on this
list) is that things must be carefully tested when moving between
platforms. Wx's promise of cross-platform GUI development is
delivered on admirably 99% of the time, but there are little details
here and there that will be surprising.
B
On Monday, April 04, 2011 06:41:52 pm Mark Dootson wrote:
> Oh Dear
>
> Changing the background colour of a StatusBar on Windows seems pointless
> - has no effect. I'd assume the control drawing routines take a
> background colour based on theme or system element. Etc.
>
> Looks like you would need some custom StatusBar drawing if you wanted to
> achieve this. Or maybe add a control that you could change the
> background colour of.
>
> Mark
>
> On 04/04/2011 22:37, Mark Dootson wrote:
> > Hi,
> >
> > Changing background colour does not automatically cause a window refresh
> > or repaint. It appears it does on Linux in this case. But that's an
> > exception / effect you should not rely on.
> >
> > To have any window redraw and reflect your updates for background colour
> >
> > $frame->{statusbar}->SetBackgroundColour($color);
> > $frame->{statusbar}->Refresh;
> >
> > if you want the changes to appear without waiting for the event loop
> > $frame->{statusbar}->Update;
> >
> > btw , you can call
> >
> > $frame->GetStatusBar->Refresh;
> > rather than hanging on to a ref to the status bar.
> >
> > Personally, I always do an explicit 'Refresh' after changing things that
> > affect the window appearance, even if on some platforms it appears not
> > to be necessary.
> >
> > Regards
> >
> > Mark
> >
> > On 04/04/2011 22:22, Bruce Ravel wrote:
> >> Hi,
> >>
> >> I continue to be surprised by small differences in behavior on linux
> >> and Windows.
> >>
> >> This time, the thing I'd like to do is to change the background color
> >> of a StatusBar to indicate how urgently the status message should be
> >> considered by the user. In the following script, I try to change the
> >> StatusBar background using a callback attached to a RadioBox. This
> >> works as I expect on Linux -- the StatusBar changes to ugly green and
> >> red colors when those buttons are clicked. On Windows, however,
> >> nothing happens. The callback is called, but the StatusBar background
> >> color is unchanged.
> >>
> >> Am I misunderstanding something about how the StatusBar is intended to
> >> be used? Or about how it is implemented on Windows?
> >>
> >> Thanks again!
> >> Bruce
> >>
> >>
> >>
> >> #!/usr/bin/perl
> >> package MyApp;
> >> use base 'Wx::App';
> >> use Wx qw(:everything);
> >> use Wx::Event qw(EVT_RADIOBOX);
> >>
> >> sub OnInit {
> >> my $frame = Wx::Frame -> new(undef, -1, 'demo', [-1,-1], [250,150]);
> >> my $sizer = Wx::BoxSizer->new(wxVERTICAL);
> >> $frame->{statusbar} = $frame->CreateStatusBar;
> >> $frame->{radio} = Wx::RadioBox->new($frame, -1, "Colors",
> >> wxDefaultPosition, wxDefaultSize,
> >> ['normal', 'green', 'red']);
> >> $sizer -> Add($frame->{radio}, 0, wxALL 5);
> >> $frame->{radio} -> SetSelection(0);
> >> EVT_RADIOBOX($frame, $frame->{radio}, \&change_color);
> >>
> >> $frame -> SetSizer($sizer);
> >> $frame->{statusbar} -> PushStatusText("Started!");
> >> $frame -> Show(1);
> >> 1;
> >> };
> >>
> >> sub change_color {
> >> my ($frame, $event) = @_;
> >> my $choice = $frame->{radio}->GetSelection;
> >> my $color = ($choice == 1) ? Wx::Colour->new(0, 255, 0)
> >>
> >> : ($choice == 2) ? Wx::Colour->new(255, 0, 0)
> >> : wxNullColour;
> >>
> >> $frame->{statusbar} -> SetBackgroundColour($color);
> >> };
> >>
> >> package main;
> >> use Wx qw(:everything);
> >> my $app = MyApp->new->MainLoop;
--
Bruce Ravel ------------------------------------ bra...@bnl.gov
National Institute of Standards and Technology
Synchrotron Methods Group at NSLS --- Beamlines U7A, X24A, X23A2
Building 535A
Upton NY, 11973
My homepage: http://xafs.org/BruceRavel
EXAFS software: http://cars9.uchicago.edu/~ravel/software/exafs/
