Hi All

I am still a beginner with Perl and Tk. I wrote one GUI scripts in Linux (Red Hat). I have problem with Entry command. The real problem was some other Linux (Red Hat) system taking the Entry value from Key board. But in One system did not take any value for Keyboard. Please let me know what’s wrong with my program or system.

Take a look and see if you can help me.

$fra_left2 = $frame_mid2->Frame(-width=>265,-height=>100,-borderwidth=
+>0, -relief=>'groove')->pack(-side=>'left');
$frame3= $fra_left2->LabFrame(-label => "Select Tolerance",-fg=>'#4A14
+0A')->pack();
$frame_left3 = $frame3->Frame(-width=>250, -height=>25,-borderwidth=>1
+,-relief=>'flat',)->pack();
$sel_tol1 = $frame_left3->Frame(-width=>250, -height=>25,-borderwidth=
+>1,-relief=>'flat',)->pack(-side=>'left');
$sel_tol2 = $frame_left3->Frame(-width=>250, -height=>25,-borderwidth=
+>1,-relief=>'flat',)->pack(-side=>'left');
$sel_tol1 ->Label(-text=>"Comparision Tolerance", -anchor=>'c',-width=
+>20, -fg=>'#996633',)->pack(-expand=>'both',-fill=>'both',-side=>'lef
+t');
$sel_tol2->Entry(-width=>10,-font=>'{times} 14 bold',-fg=>'red',  -bg=
+>'#DBDBDB',-textvariable=>\$sele_tol)->pack(-side=>'left');
[download]

Ramesh Babu K C