view release on metacpan or  search on metacpan

lib/Gtk3/Ex/DBI/Datasheet.pm  view on Meta::CPAN

#        $self->{treeview}->signal_connect( 'key_press_event'    => sub
#            {
#                my ( $window, $event ) = @_;
#                my $keyval = $event->keyval;
#                if ( $event->state =~ /control-mask/ ) { # CTRL key held down
#                    if ( $keyval == &Gtk3::Gdk::KEY_C || $keyval == &Gtk3::Gdk::KEY_c ) {
#                        my ( $x , $y ) = $event->get_coords;
#                        my ( $path, $column, $cell_x, $cell_y ) = $self->{treeview}->get_path_at_pos( $event->get_root_coords->{x}, $event->get_root_coords->{y} );
#                        my $column_name = $column->{definition}->{name};
#                        my $value = $self->get_colummn_value( $column_name );
#                        my $clipboard = Gtk3::Clipboard::get( Gtk3::Gdk::Atom::intern( 'CLIPBOARD', 0 ) );
#                        $clipboard->set_text( $value, length $value );
#                        return TRUE;
#                    }
#                }
#                return FALSE;
#            }
#        );
#    }

    # Set up icons for use in the record status column
    if ( $treeview_type eq "treeview" ) {