diff options
author | Maarten Vanraes <alien@mageia.org> | 2016-03-17 20:43:00 +0100 |
---|---|---|
committer | Maarten Vanraes <alien@mageia.org> | 2016-05-14 09:25:24 +0200 |
commit | 14823e6597afe0458a53966b0552cfa2c763b822 (patch) | |
tree | eba8498c3d9b1a357a14d187883f04e8bb308c78 | |
parent | 15442b9b297c3a767b0f284492fedcc9a3d7e4ec (diff) | |
download | manatools-14823e6597afe0458a53966b0552cfa2c763b822.tar manatools-14823e6597afe0458a53966b0552cfa2c763b822.tar.gz manatools-14823e6597afe0458a53966b0552cfa2c763b822.tar.bz2 manatools-14823e6597afe0458a53966b0552cfa2c763b822.tar.xz manatools-14823e6597afe0458a53966b0552cfa2c763b822.zip |
Disk module: add ExtList implementation
-rw-r--r-- | lib/ManaTools/Module/Disk.pm | 20 |
1 files changed, 19 insertions, 1 deletions
diff --git a/lib/ManaTools/Module/Disk.pm b/lib/ManaTools/Module/Disk.pm index 8eccf468..bc735b17 100644 --- a/lib/ManaTools/Module/Disk.pm +++ b/lib/ManaTools/Module/Disk.pm @@ -62,6 +62,7 @@ use ManaTools::Shared::GUI; use ManaTools::Shared::GUI::Dialog; use ManaTools::Shared::GUI::ReplacePoint; use ManaTools::Shared::GUI::Properties; +use ManaTools::Shared::GUI::ExtList; use ManaTools::Shared::GUI::ExtTab; use File::ShareDir ':ALL'; use ManaTools::Shared::Locales; @@ -249,7 +250,24 @@ sub _rebuildList { my $eventHandler = shift; my $container = shift; my @items = @_; - my $list = undef; + my $list = ManaTools::Shared::GUI::ExtList->new(eventHandler => $eventHandler, parentWidget => $container); + for my $i (@items) { + $list->addSelectorItem($i->label(), $i, sub { + my $self = shift; + my $parent = shift; + my $backendItem = shift; + my $dialog = $self->parentDialog(); + my $module = $dialog->module(); + my $factory = $dialog->factory(); + my $vbox = $factory->createVBox($parent); + $self->addWidget($backendItem->label() .': button 1', $factory->createPushButton($vbox, $backendItem->label() .': button 1'), sub { my $backendItem = shift; print STDERR "backendItem: ". $backendItem->label() ."::button1\n"; }); + $self->addWidget($backendItem->label() .': button 2', $factory->createPushButton($vbox, $backendItem->label() .': button 2'), sub { my $backendItem = shift; print STDERR "backendItem: ". $backendItem->label() ."::button2\n"; }); + $self->addWidget($backendItem->label() .': button 3', $factory->createPushButton($vbox, $backendItem->label() .': button 3'), sub { my $backendItem = shift; print STDERR "backendItem: ". $backendItem->label() ."::button3\n"; }); + $factory->createHStretch($vbox); + $factory->createVStretch($vbox); + }); + } + $list->finishedSelectorItems(); return $list; } |