Re: In Tk how to set the color of the scrollbar?

[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