Help for this page

Select Code to Download


  1. or download this
        if ($type eq 'bitmap') {
        my $bg = ($c->itemconfigure(qw/current -background/))[4];
...
        $c->itemconfigure(qw/current -background SteelBlue2/);
        return;
    }
  2. or download this
    my $bg = ($c->itemconfigure(qw/current -background/))[4];