Opened by Gast at 2004-06-21 11:46
User since
2004-03-16
6 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2004-03-16
6 Artikel
BenutzerIn
sorry hat etwas länger gedauert, aber ich hatte probleme mit cookies beim anmelden und habs jetzt endlich geschafft *freu*
also ich habe hier mal ein kleines scripts vorbereitet mit welchem sich das problem darstellen lässt. wenn ich das script mit einer älteren perl tk version ausführe sind beide entrys grün. mit der neuen 804.027 wird das untere readonly nur grau dargestellt???
gibt es eine alternative zu browseentrys oder kennt jemand ne lösung wie beide widgets ihre farbe behalten?
also ich habe hier mal ein kleines scripts vorbereitet mit welchem sich das problem darstellen lässt. wenn ich das script mit einer älteren perl tk version ausführe sind beide entrys grün. mit der neuen 804.027 wird das untere readonly nur grau dargestellt???
gibt es eine alternative zu browseentrys oder kennt jemand ne lösung wie beide widgets ihre farbe behalten?
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
use strict;
use Tk;
use Tk::BrowseEntry;
my $top = new MainWindow( -title => "BrowseEntry 2");
main( $top );
$top->geometry("90x90");
MainLoop();
sub main {
my( $top ) = @_;
my @countries = qw( America Belize Canada Denmark Egypt Fruitopia );
my $f = $top->Frame(-bg => "blue")->pack( qw/-side left / );
my $oh = $f->BrowseEntry( -bg => "green",
-choices => \@countries)->pack;
my $be = $f->BrowseEntry( -state => "readonly", bg => "green",
-choices => \@countries,
)->pack;
}