view release on metacpan or  search on metacpan

bin/lm_gui  view on Meta::CPAN

   } elsif ($name eq 'manage_set') {
      manage_set_create();
   }
}

# Unpacks the main window.
#
sub unpack_main {
   my($frame) = @_;

   # Save the current geometry

   my $geometry = $main_window->geometry();
   $geometry    =~ /^(\d+)x(\d+)([+-]\d+)([+-]\d+)$/;
   my($wid,$hei,$x,$y) = ($1,$2,$3,$4);
   $data{'wid'} = $wid;
   $data{'hei'} = $hei;
   $data{'x'}   = $x;
   $data{'y'}   = $y;

   # Unpack the main window

   $main_window->withdraw();
   my @w = $main_window->packSlaves;
   foreach my $frame (@w) {
      $frame->packForget;
   }

   # Unpack any parts of the operation specific frame

   if      ($frame eq 'select_operation') {
      select_operation_unpack();
   } elsif ($frame eq 'create_set') {
      create_set_unpack();
   } elsif ($frame eq 'manage_set') {
      manage_set_unpack();
   }
}

# Adds a frame to the main window.
#
sub pack_frame {
   my($frame,$err) = @_;

   # Pack the main frame

   my $f = $widgets{"frame_$frame"};
   $f->pack();

   # Pack any parts of the operation specific frame

   if      ($frame eq 'select_operation') {
      select_operation_pack($err);
   } elsif ($frame eq 'create_set') {
      create_set_pack($err);
   } elsif ($frame eq 'manage_set') {
      manage_set_pack($err);
   }
}

sub update_window {
   my $geometry;
   $geometry .= "$data{x}$data{y}";
   $main_window->geometry($geometry);
   $main_window->update;
   $main_window->deiconify;
   $main_window->raise;
}

# Local Variables:
# mode: cperl
# indent-tabs-mode: nil
# cperl-indent-level: 3
# cperl-continued-statement-offset: 2
# cperl-continued-brace-offset: 0
# cperl-brace-offset: 0
# cperl-brace-imaginary-offset: 0
# cperl-label-offset: 0
# End: