In Tk how to set the color of the scrollbar?

[perllee]

Hi:

In Tk how to set the color of the scroll bar? windows XP.

I tried some options, but failed.

$lb = $mw->Scrollbar(-background=>'green',-troughcolor=>'blue');

Thanks.

[zentara]

This works on Linux:

#!/usr/bin/perl
use warnings;
use strict;
use Tk;

my $mw = MainWindow->new();

my $text_box = $mw->Scrolled("Text", -scrollbars => 'osoe',
                                     -relief => 'sunken',
                                     -takefocus => 1)
                                     
                      ->pack(-expand => 1, -fill => 'both');

for(1..1000){
$text_box->insert('end', "$_ test\n");
$text_box->see('end');
}

$text_box -> Subwidget("yscrollbar")->configure(
               -background => "lightgreen", 
               -troughcolor => "black",
           -command => \&scrollcallback,
           );

MainLoop;

#if you specify a scrollcallback, you will override the
#normal scroll behavior.

sub scrollcallback{
    #restore original function
     $text_box->yview(@_);

    #do your stuff here
    print "1\n";

}

[Anonymous Monk]

Naturally it doesn't actually change the colors on winxp, it changes the attributes, the colors remain the same

[BrowserUk]

Tk options start with a minus sign. Eg. -background => 'green' etc.

[perllee]

I'm sorry, typesetting errors.But the problem is still not solved.

[BrowserUk]

You'll be more likely to get help if you post a small, but working program that demonstrates the problem.

In the absence of evidence, opinion is indistinguishable from prejudice.