view release on metacpan or  search on metacpan

ccc/ccc  view on Meta::CPAN

  if( not defined($page_num) or
      $notebook->page_num($object->widget()) == $page_num ) {
    $object->prepare();
    $object->activate();
    $bg_sched->set_active_object($object);
  }
}

#--------------------------------------------------------------------
$| = 1;
Gtk2->set_locale();
Gtk2->init();
POSIX::setlocale(LC_NUMERIC, 'POSIX');

# Create toplevel window
$topwindow = new Gtk2::Window('toplevel');
$topwindow->set_title('Corba Control Center: Interface repository');
$topwindow->realize();

# create status line
my $status_line = status_line_create();

# create menu