User Profile

stiffyamit · Mar 12 '12, 10:08 AM

Code:

use Thread;
use warnings;
use Tk;
my $x=10;
my $mw=new MainWindow;
$mw->Label(-text=>"honeywell")->place(-x=>$x,-y=>50);
my $thr = new Thread \&sub1;
sub sub1 { 
  for($i=0;$i<20;$i++){
      $x+=20;
      sleep(2);			
      $mw->update;
	}
}
	MainLoop;

I am trying to update the label so that the text appears...

stiffyamit · Mar 5 '12, 05:42 AM

$text->SetCursor( position );
this is used to move cursor at the given posoiton.

Is there any way so that i can move the cursor by a given offset value??

thanks,

stiffyamit · Mar 1 '12, 07:54 PM

hi,
i have created a text field in perl.Now i want to add a functionality to it.The data in text field are all hexadecimal numbers.I want to select(highligh t) some of the number and then automatically a pop-up should appear which should contain their decimal value.
can any one please explain me how to add this funtionality.

thanks,
amit

User Profile

Profile Sidebar

updating label using thread

Moving cursor position by offset value

using highlighted text and using pop up menus