non blocked read in tk

[Arepi]

Hi!

I tryed this script to non blocked read in tk

use Tk;                        
use Term::ReadKey;
 
ReadMode 4, STDIN;
$in = \*STDIN;
 
$mw=MainWindow->new();    
$mw->maxsize(500,800);                                
$mw->minsize(500,800);
 
$text=$mw->Text( -width=>65,            
                 -height=>5,
                );
    $text->place(-x => 20,-y => 700);
$text->focus();
 
$g2 = $mw->Button(-text => "Button",                    
                 -command => sub{ &rutin}
                            );
$g2->place(-x => 240, -y => 100);
 
Mainloop();
 
sub rutin
       {
            while(1)
                  {
                       $k = "";
                $k=ReadKey(-1, $in);
                    if($k ne "")
                        {
                            $text->insert('insert',$k);
                            $text->focus();
                            last;
                        }
                  }
 
       }

It doesnt work just if I change to the prompt shell and there hit a key.
Have anybody idea how possible take non blocked read whithout this

WIN XP, Active Perl 5.10

[Icecrack]

Hi!

I tryed this script to non blocked read in tk

use Tk;                        
use Term::ReadKey;
 
ReadMode 4, STDIN;
$in = \*STDIN;
 
$mw=MainWindow->new();    
$mw->maxsize(500,800);                                
$mw->minsize(500,800);
 
$text=$mw->Text( -width=>65,            
                 -height=>5,
                );
    $text->place(-x => 20,-y => 700);
$text->focus();
 
$g2 = $mw->Button(-text => "Button",                    
                 -command => sub{ &rutin}
                            );
$g2->place(-x => 240, -y => 100);
 
Mainloop();
 
sub rutin
       {
            while(1)
                  {
                       $k = "";
                $k=ReadKey(-1, $in);
                    if($k ne "")
                        {
                            $text->insert('insert',$k);
                            $text->focus();
                            last;
                        }
                  }
 
       }

It doesnt work just if I change to the prompt shell and there hit a key.
Have anybody idea how possible take non blocked read whithout this

WIN XP, Active Perl 5.10

Change This:

$g2 = $mw->Button(-text => "Button",                    
                 -command => sub{ &rutin}
                            );

to:

$g2 = $mw->Button(-text => "Button",                    
                 -command => sub \&rutin
                            );

[KevinADC]

You can't say "sub \&rutin". "sub" needs brackets

sub {anonymous function};
 
sub named_function {
....
}

So this will work:

$command =  sub {&foo};
$command->();
sub foo {
   print "here we are";
}
 

and this will work the same

$command =  \&foo;
$command->();
sub foo {
   print "here we are";
}

[Icecrack]

My Bad, I made a mistake it was meant to be

$g2 = $mw->Button(-text => "Button",                    
                 -command => \&rutin
                            );

Thank you for picking that up kevin

[KevinADC]

My Bad, I made a mistake it was meant to be

$g2 = $mw->Button(-text => "Button",                    
                 -command => \&rutin
                            );

Thank you for picking that up kevin

"Experts" are allowed two mistakes a year otherwise they get demoted to "Amatuer". ;)

[Icecrack]

Also Mainloop(); is wrong

Case its meant to be MainLoop(); with the upper case L in Loop.

MainLoop();

[KevinADC]

Anyways.....

http://www.tek-tips.com/viewthread.c...1508918&page=1

[Icecrack]

"Experts" are allowed two mistakes a year otherwise they get demoted to "Amatuer". ;)

at least i found the problem :P

[Icecrack]

Anyways.....

http://www.tek-tips.com/viewthread.c...1508918&page=1

i guess he found his answer.

[Arepi]

i guess he found his answer.

No im not, my problem is different:
http://www.tek-tips.com/viewthread.c...1508918&page=1

Any idea?

Thanks!