Re: How to avoid the duplicate selection in perl tk

in reply to How to avoid the duplicate selection in perl tk

To flesh out AnonyMonk's reply, maintain a hash of items inserted and add a little logic to your double-click call-back.

...
my %inserted = map { $_ => 0 } @list;
...
        $txt_scroll->insert( 'end', "SELECTED IP : $current_ip\n" )
           unless $inserted{ $current_ip } ++;
...
[download]

I hope this is helpful.

Cheers,

JohnGG

Comment on Re: How to avoid the duplicate selection in perl tk Download Code

Replies are listed 'Best First'.
Re^2: How to avoid the duplicate selection in perl tk by Anonymous Monk on Jan 20, 2011 at 10:45 UTC
`if( not $txt_scroll->search(qw' -forwards -exact ', $current_ip, '1.0' +) ){ $txt_scroll->insert( 'end', "SELECTED IP : $current_ip\n" ); }` [download]	[reply] [d/l]

In Section Seekers of Perl Wisdom