wie kann man notebook tab Reihenfolge dynamisch ändern?

Inhalt:

hier ein einfaches Notebook Beispiel:

#!/perl -w

use Tk; use Tk::NoteBook;

my $mw = new MainWindow?;

my $nb = $mw->NoteBook()->pack();

my $page1 = $nb->add('PageID-1', -label => 'ReiterEins'); my $page2 = $nb->add('PageID-2', -label => 'ReiterZwei'); my $page3 = $nb->add('PageID-3', -label => 'ReiterDrei');

$page1->Label(-text => 'In Seite 1')->pack(); $page2->Label(-text => 'In Seite 2')->pack(); $page3->Label(-text => 'In Seite 2')->pack();

MainLoop?();

Weiß jemand, wie man die Reihenfolge von Tabs mit dem Mouse ändern kann? das heißt, ich möchte einfach auf ein tab mit dem Mouse clicken und sie zu einem anderen Platz ziehen. Geht so was überhaupt?

Danke für eure Hilfe, Yannick