sub modify_remove_step_dialog() { my $ModRmvStep = $MW->Toplevel(); $ModRmvStep->title("Modifier une étape"); my $MRSFrame1 = $ModRmvStep->Frame(-label => "Sélectionnez une étape à modifier"); $MRSFrame1->pack(-fill => 'both'); # Listbox of available solutions my $StepModRmvScroll = $MRSFrame1->Scrollbar(-orient => 'vertical'); $AvailListbox = $MRSFrame1->Listbox(-yscrollcommand => ['set' => $StepModRmvScroll]); $AvailListbox->pack(-fill => 'both', -side => 'left'); $AvailListbox->insert('end', "Just", "for", "testing", "purposes"); # Configuring available listbox scrollbars $StepModRmvScroll->configure(-command => ['yview' => $AvailListbox]); $StepModRmvScroll->pack(-fill => 'y', -side => 'left'); my $MRSFrame2 = $ModRmvStep->Frame(); $MRSFrame2->pack(-fill => 'both'); my $MRSMod = $MRSFrame2->Button(-text => 'Rien'); $MRSMod->pack(); my $MRSCancel = $MRSFrame2->Button(-text => 'Rien'); $MRSCancel->pack(); my $MRSRmv = $MRSFrame2->Button(-text => 'Cancel', -command => sub{$ModRmvStep->withdraw;}); $MRSRmv->pack(); }