Chinaunix

标题: 请教Perl鼠标操作的包 [打印本页]

---

作者: perllover007    时间: 2014-05-21 18:10
标题: 请教Perl鼠标操作的包


请教各位，如何实现用鼠标选中文字内容后直接获取到文本框自动检索，就像有道词典一样，鼠标选择文字后，自动搜索。
我想用鼠标取词后自动调入一个文本框中，再进行文本框内容的其他操作。不知道我描述清楚了没有？
如有可能，请请给个代码，多谢！

---

作者: rubyish    时间: 2014-05-23 03:19


yige small example:
1: shishi INPUT, perl, Perl, Burl, Ruby, pupy....
2: shishi SELECT, perl, Perl, Python, python...

1. #!/usr/bin/perl
   
2. 
   
3. use Gtk2 '-init';
   
4. 
   
5. my %data = (
   
6.     Perl   => 'Larry Wall',
   
7.     Rust   => 'Graydon Hoare',
   
8.     Php    => 'Rasmus Lerdorf',
   
9.     Ruby   => 'Yukihiro Matsumoto',
   
10.     Python => 'Guido van Rossum',
    
11. );
    
12. 
    
13. my ( $TRUE, $FALSE ) = ( 1, 0 );
    
14. my $win = Gtk2::Window->new('toplevel');
    
15. my $vbo = Gtk2::VBox->new( $FALSE, 20 );
    
16. my $ent = Gtk2::Entry->new;
    
17. my $fra = Gtk2::Frame->new;
    
18. my $lab = Gtk2::Label->new("$/select or input$/$/");
    
19. my $but = Gtk2::Button->new('    quit    ');
    
20. my $cli = Gtk2::Clipboard->get( Gtk2::Gdk->SELECTION_PRIMARY );
    
21. my $sep = Gtk2::HSeparator->new;
    
22. my $hbo = Gtk2::HBox->new( $FALSE, 0 );
    
23. 
    
24. $win->set_title('a small example');
    
25. $win->set_border_width(20);
    
26. $win->resize( 200, 200 );
    
27. $win->set_keep_above($TRUE);
    
28. $hbo->pack_start( $but, $FALSE, $FALSE, 50 );
    
29. $vbo->pack_start( $_, $FALSE, $TRUE, 2 ) for $fra, $ent, $sep, $hbo;
    
30. $fra->add($lab);
    
31. $win->add($vbo);
    
32. 
    
33. $win->signal_connect( destroy => sub { Gtk2::main_quit } );
    
34. $but->signal_connect( clicked => sub { Gtk2::main_quit } );
    
35. $cli->signal_connect( 'owner-change' => \&Select );
    
36. $ent->signal_connect( 'activate'     => \&Input );
    
37. 
    
38. $win->show_all;
    
39. Gtk2->main;
    
40. 
    
41. sub Select {
    
42.     my $select = $cli->wait_for_text();
    
43.     $ent->set_text($select);
    
44.     Input();
    
45. }
    
46. 
    
47. sub Input {
    
48.     my $text = $ent->get_text();
    
49.     my $output = $data{$text} || 'Not Found';
    
50.     $output = "$/$output$/$/";
    
51.     $lab->set_text($output);
    
52. }
    
53. 
    
54. 
    
55. __DATA__
    
56. 
    

复制代码

---

作者: perllover007    时间: 2014-05-23 08:37
非常感谢！！！ 回复 2# rubyish


   

---

欢迎光临 Chinaunix (http://bbs.chinaunix.net/)

Powered by Discuz! X3.2