3 Einträge, 1 Seite |
$widget = $parent->Scrolled('Listbox', -scrollbars => 'osoe', ...)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
#!/usr/bin/perl
use strict;
use warnings;
use Tk;
my $mw = tkinit();
my $scr_lb = $mw->Scrolled('Listbox')->pack();
$scr_lb->Subwidget('xscrollbar')->configure(-bg => 'blue');
$scr_lb->Subwidget('yscrollbar')->configure(-bg => 'red');
$scr_lb->Subwidget('listbox')->configure(-bg => 'yellow');
MainLoop();
3 Einträge, 1 Seite |