#!/usr/bin/perl
use strict;
use warnings;
use Glib ':constants';
use Gtk2 -init;
use Gtk2::SimpleList;

=head1
> How can I paste the clipboard (with Control + V) over a gtktreeview 
+ 
> widget (list) ?
> Any idea?

So far as i know, you create a key binding (e.g. with a menu item),  
and then in the handler for that command, pull data from the clipboard
+  
and do the appropriate list insertions.

Instead of spamming the message with lots of boilerplate code to set  
up the accelerators and all that, here's a bunch of GtkBuilder XML.   
The interesting part is the on_paste() callback, near the end, which  
just grabs the clipboard contents as plain text, splits by whitespace,
+  
and inserts each item as its own line.  In a real app, you'd do more  
appropriate parsing and marshaling and whatnot.
=cut

# by muppet on maillist

#
# Gtk2::Builder is cool.  Now we can express the shortcuts and menu it
+ems
# and all that as data instead of as tedious code.
#
my $interface = '<interface>
   <object class="GtkUIManager" id="uimanager">
     <child>
       <object class="GtkActionGroup" id="actions">
         <child>
           <object class="GtkAction" id="file-menu">
             <property name="label">_File</property>
           </object>
         </child>
         <child>
           <object class="GtkAction" id="quit">
             <property name="stock-id">gtk-quit</property>
             <signal name="activate" handler="on_quit" />
           </object>
         </child>
         <child>
           <object class="GtkAction" id="paste">
             <property name="stock-id">gtk-paste</property>
             <signal name="activate" handler="on_paste" />
           </object>
         </child>
         <child>
           <object class="GtkAction" id="clear">
             <property name="stock-id">gtk-delete</property>
             <signal name="activate" handler="on_clear" />
           </object>
         </child>
       </object>
     </child>
     <ui>
       <menubar name="menubar">
         <menu action="file-menu">
           <menuitem action="paste"/>
           <menuitem action="clear"/>
           <menuitem action="quit"/>
         </menu>
       </menubar>
     </ui>
   </object>
   <object class="GtkWindow" id="window">
     <property name="default-width">250</property>
     <property name="default-height">500</property>
     <signal name="destroy" handler="on_window_destroy" />
     <child>
       <object class="GtkVBox" id="vbox">
         <child>
           <object class="GtkMenu" constructor="uimanager" id="menubar
+" />
           <packing>
             <property name="expand">false</property>
           </packing>
         </child>
         <child>
           <object class="GtkScrolledWindow" id="scroller">
             <property name="hscrollbar-policy">automatic</property>
             <property name="vscrollbar-policy">automatic</property>
             <child>
               <object class="GtkTreeView" id="treeview">
                 <property name="headers-visible">false</property>
               </object>
             </child>
           </object>
         </child>
       </object>

     </child>
   </object>
</interface>';


my $builder = Gtk2::Builder->new ();
$builder->add_from_string ($interface);
$builder->connect_signals ();

my $slist = Gtk2::SimpleList->new_from_treeview (
         $builder->get_object ('treeview'),
         Words => 'text',
);


$builder->get_object ('window')->show_all;

Gtk2->main;


sub on_window_destroy { Gtk2->main_quit }
sub on_quit { $builder->get_object ('window')->destroy; }

#
# Here's the interesting part.
#
sub on_paste {
     my $clipboard = Gtk2::Clipboard->get_for_display
                 ($builder->get_object ('window')->get_display (),
                  Gtk2::Gdk->SELECTION_PRIMARY);

     my $text = $clipboard->wait_for_text ();

     foreach (split /\s+/, $text) {
         push @{ $slist->{data} }, $_ if length;
     }
}

sub on_clear {
     @{ $slist->{data} } = ();
}
__END__
[download]