Tk Drag&Drop aus Webbrowser - #102438 (Graphische Oberflächen)

Spieler

2007-11-15 15:28

User since
2007-09-24
70 Artikel
BenutzerIn
[default_avatar]

Hallo,

das ist jetzt wahrscheinlich keine befriedigende Antwort. So würde wenigstens ein paste (Ctrl-v) funktionieren (nicht auf unerwünschte Nebenwirkungen getestet):

Code: (dl )

use strict;
use warnings;
package Tk::MyLB;
require Tk::Listbox;
our @ISA = qw /Tk::Listbox Tk::Clipboard/;
Tk::Widget->Construct('MyLB');
sub ClassInit{
    my ($class,$mw) = @_;
    $class->SUPER::ClassInit($mw);
    $mw->bind($class,'<Control-v>','insert_from_cb');
}
sub insert_from_cb{
    my $self = shift;
    $self->insert('end',$self->clipboardGet());
}
package main;
use Tk;
use strict;
use vars qw($top $drop);
 
$top = new MainWindow;
$top->Label(-text => "The drop area:")->pack;
$drop = $top->Scrolled('MyLB',
                       -scrollbars => "osoe",
                       -takefocus => 1,
                   )->pack;

MainLoop;

PS: kann man die Anzeige der Zeilennummern für [perl] ge'tag'ten code irgendwie unterbinden? Ich mache jetzt z.B.

Code: (dl )

perl -pi'*.ori' -e"s/^\d+://" test.pl

damit, aber ich finde das lästig.

Christoph