It dosn't come up white for me just under the LabFrame's top line/edge... and the text has a white background, that looks like its on top of that same line ????? About your comment on changeing the colour... I'm also trying to get this working to change it:

$init_label->configure(-bg => $mw->chooseColor(-initialcolor => 'gray'
+,
                 -title => "Choose color"));


to output it's colour to a file... as of:
                 
### 
my $infile4ccc = "C:\\Perl\\tk\\prog2\\colour.txt";         # var from
+ choise should be but in here ???
open(OUTFILEcc,  "> $infile4ccc") or die "Can't open colour.txt: $!";
print OUTFILEcc "white";       # print to the file the chosen colour f
+rom the above choosecolor thingy
close OUTFILEcc;

# then without reading from the file, I want to set $colour (globaly/*
+***) to the chosen colour too.
[download]

I can get $init_label's background on my $mw to change to the colour choise... or is that the other way around, but I want to set a var to the color chosen if that makes sence.