Delaying changes to widget layout with Perl/Tk

[merrymonk]

I have a GUI built using the grid method to place the widgets.
I make changes to the GUI depending on user selections that remove (i.e. make invisible)
and reinstate other widgets. Is there a way of ‘freezing’ the GUI (that is preventing the effect
that is obtained by wg->update) until all the work to make the changes has been done?

[strat]

Are $mw->Busy; at the beginning and $mw->Unbusy; at the end of the rearrangement enough?

[merrymonk]

Thanks for that suggestion.
However, perhaps not.
I just tried by adding $mw->Busy but the GUI was updated.
Should this have happened?

[zentara]

You can withdraw the $mw while reconfiguring it, and pop up a "please wait" toplevel, something like below. Otherwise, you can packForget all the widgets, rebuild them without packing, then pack them all at once.

#!/usr/bin/perl
use warnings;
use strict;
use Tk;

my $config;

my $mw = MainWindow->new(-title=>"Demo");
$mw->withdraw;

get_config($mw);
MainLoop;

sub setup_mw{
 my $label = $mw->Label(-text=> $config)->pack();
 $mw->deiconify;
 $mw->raise;
}

sub get_config {
   my $parent = shift;

   #collect your config here
   $config = 'hoohah';
   
   my $win  = $parent->Toplevel(-title=>'config window');
   my $Bttn = $win->Button(
       -text=>"I'm done configuring, so press me",
       -command=> sub{
         $win->destroy;
     setup_mw();
       
       }
   )->pack( );
}
__END__

[merrymonk]

I would prefer not to minimise the GUI.
I am using the grid method to place the widgets.
Is there a way I can set the grid values but then make
these effective (so that the new form of the GUI
is obtained) at one go?

[zentara]

I use pack almost exclusively, but have you read "perldoc Tk::grid" ? There is gridForget and gridPropagate, etc, so you should be able to find a way.