From 9c891ffa9464eed1bd253c29836f319b1fc6fa8e Mon Sep 17 00:00:00 2001 From: freesource Date: Fri, 5 Jan 2001 03:10:39 +0000 Subject: [PATCH] * Improved constructor calls. --- YardBox.pm | 2 +- gBootRoot | 179 +++++++++++++++++++++++------------------------------ 2 files changed, 80 insertions(+), 101 deletions(-) diff --git a/YardBox.pm b/YardBox.pm index 2a1d412..aa822b4 100644 --- a/YardBox.pm +++ b/YardBox.pm @@ -59,7 +59,7 @@ $mnt = $ars->{mnt}; # Freshmeat comes here so the rest of the program needs # to be warned when the template is coming from here. -$changed_text = "$template_dir$template" if $template; +$changed_text = "$template_dir$template" if defined $template; } diff --git a/gBootRoot b/gBootRoot index 8e624cd..ff0b41e 100644 --- a/gBootRoot +++ b/gBootRoot @@ -291,7 +291,7 @@ sub et { print "Using a version of gtk-perl < 0.7002\n"; } -my $window = new Gtk::Window("toplevel"); +my $window = Gtk::Window->new("toplevel"); # special policy $window->set_policy( $false, $true, $true ); $window->set_title("gBootRoot"); @@ -317,9 +317,9 @@ $window->window->set_icon_name("gBootRoot"); ## $window->window->set_decorations(['all', 'menu']); # Zas ## $window->window->set_functions(['all', 'resize']); # Zas -my $tooltips = new Gtk::Tooltips(); +my $tooltips = Gtk::Tooltips->new(); -my $box1 = new Gtk::VBox($false,0); +my $box1 = Gtk::VBox->new($false,0); $window->add($box1); $box1->show(); @@ -328,10 +328,10 @@ hbox(); my $entry = entry($false,0); # Menu - later this may be improved if new methods are added. -my $opt = new Gtk::OptionMenu(); +my $opt = Gtk::OptionMenu->new(); $tooltips->set_tip( $opt, "Choose the Boot method.", "" ); -my $menu = new Gtk::Menu(); -my $item = new Gtk::MenuItem("Method -> lilo" ); +my $menu = Gtk::Menu->new(); +my $item = Gtk::MenuItem->new("Method -> lilo" ); $item->show(); # Eventually get_menu, or something totally different will be used. $item->signal_connect( 'activate',sub { $entry->set_text("lilo"); @@ -370,8 +370,8 @@ button("Device Selection",$entry4,"Device Selection",3,$true); # Fifth row hbox("what"); -my $adj = new Gtk::Adjustment( 1722.0, 0.0, 360000000.0, 282.0, 360.0, 0.0 ); -my $spinner = new Gtk::SpinButton( $adj, 0, 0 ); +my $adj = Gtk::Adjustment->new( 1722.0, 0.0, 360000000.0, 282.0, 360.0, 0.0 ); +my $spinner = Gtk::SpinButton->new( $adj, 0, 0 ); $tooltips->set_tip( $spinner, "Choose the Device Size.", "" ); $spinner->set_wrap( $true ); $spinner->set_numeric( $true ); @@ -385,13 +385,13 @@ $box2->pack_start( $spinner, $true, $true, 0 ); #label("Device Size"); # gz and bz2 radio buttons -my $rbutton = new Gtk::RadioButton( "gz" ); +my $rbutton = Gtk::RadioButton->new( "gz" ); $tooltips->set_tip( $rbutton, "Choose Compression used on the Filesystem.", "" ); $gz_toggle = $rbutton; $rbutton->set_active( $true ); $box2->pack_start( $rbutton, $false, $false, 0 ); $rbutton->show(); -$rbutton = new Gtk::RadioButton( "bz2", $rbutton ); +$rbutton = Gtk::RadioButton->new( "bz2", $rbutton ); $rbutton->set_usize(1,1); $tooltips->set_tip( $rbutton, "Choose Compression used on the Filesystem.", "" ); $bz2_toggle = $rbutton; @@ -399,8 +399,8 @@ $box2->pack_start( $rbutton, $true, $true, 0); $rbutton->show(); # Verbosity adjustment -my $adj1 = new Gtk::Adjustment( 2.0, 0.0, 2.0, 0.0, 1.0, 0.0 ); -my $verbosity_scale = new Gtk::HScale($adj1); +my $adj1 = Gtk::Adjustment->new( 2.0, 0.0, 2.0, 0.0, 1.0, 0.0 ); +my $verbosity_scale = Gtk::HScale->new($adj1); $verbosity_scale->set_value_pos("right"); $verbosity_scale->set_digits(0); $tooltips->set_tip( $verbosity_scale, "Adjust the Verbosity Level.", "" ); @@ -427,7 +427,7 @@ $box2->pack_start( $verbosity_scale, $false, $false, 0); #start_logging_output($yard_temp,$verbosity); # Size status entry -my $entry5 = new Gtk::Entry(); +my $entry5 = Gtk::Entry->new(); $entry5->set_editable( $false ); $tooltips->set_tip( $entry5, "This shows room remaining on the Device.", "" ); $entry5->set_usize(20,20); @@ -440,18 +440,18 @@ my $button_advanced; # The ADVANCED BOOT SECTION ########################### # Separator -$separator = new Gtk::HSeparator(); +$separator = Gtk::HSeparator->new(); $box1->pack_start( $separator, $false, $true, 0 ); $separator->show(); # This is cool how this works. -my $vbox_advanced = new Gtk::VBox($false,0); +my $vbox_advanced = Gtk::VBox->new($false,0); $box1->add($vbox_advanced); $vbox_advanced->show(); # The Advanced Boot Section button hbox_advanced($vbox_advanced); -$button_advanced = new Gtk::Button("Advanced Boot Section"); +$button_advanced = Gtk::Button->new("Advanced Boot Section"); $tooltips->set_tip( $button_advanced, "Change settings for the Boot Disk Image.", "" ); $button_advanced->signal_connect("clicked",\&advanced_boot_section ); @@ -461,12 +461,12 @@ $button_advanced->show(); ########################### # The ADVANCED ROOT SECTION ########################### -my $vbox_advanced_root = new Gtk::VBox($false,0); +my $vbox_advanced_root = Gtk::VBox->new($false,0); $box1->add($vbox_advanced_root); $vbox_advanced_root->show(); hbox_advanced($vbox_advanced_root); -$button_advanced = new Gtk::Button("Advanced Root Section"); +$button_advanced = Gtk::Button->new("Advanced Root Section"); $tooltips->set_tip( $button_advanced, "Generate a Root Filesystem and/or use a different Root Device.", "" ); $button_advanced->signal_connect("clicked",\&advanced_root_section ); @@ -477,12 +477,12 @@ $button_advanced->show(); ############################# # The ADVANCED KERNEL SECTION ############################# -my $vbox_advanced_kernel = new Gtk::VBox($false,0); +my $vbox_advanced_kernel = Gtk::VBox->new($false,0); $box1->add($vbox_advanced_kernel); $vbox_advanced_kernel->show(); hbox_advanced($vbox_advanced_kernel); -$button_advanced = new Gtk::Button("Advanced Kernel Section"); +$button_advanced = Gtk::Button->new("Advanced Kernel Section"); $tooltips->set_tip( $button_advanced, "Retrieve/Make Kernel Sources.", "" ); #$button_advanced->signal_connect("clicked",\&advanced_root_section ); @@ -493,27 +493,27 @@ $button_advanced->show(); # Separator -$separator = new Gtk::HSeparator(); +$separator = Gtk::HSeparator->new(); $box1->pack_start( $separator, $false, $true, 0 ); $separator->show(); # Status bar -my $align = new Gtk::Alignment( 0.5, 0.5, 0, 0 ); +my $align = Gtk::Alignment->new( 0.5, 0.5, 0, 0 ); $box1->pack_start( $align, $false, $false, 5); $align->show(); -my $pbar = new Gtk::ProgressBar(); +my $pbar = Gtk::ProgressBar->new(); $pbar->set_usize(321,10); # 321 10 $align->add($pbar); $pbar->show(); # Separator -$separator = new Gtk::HSeparator(); +$separator = Gtk::HSeparator->new(); $box1->pack_start( $separator, $false, $true, 0 ); $separator->show(); # Submit button hbox(); -my $sbutton = new Gtk::Button("Submit"); +my $sbutton = Gtk::Button->new("Submit"); $sbutton->signal_connect( "clicked", \&submit); $tooltips->set_tip( $sbutton, "Generate the Boot/Root set.", "" ); $sbutton->show(); @@ -521,7 +521,7 @@ $box2->pack_start( $sbutton, $true, $true, 0 ); $box2->show(); # Close button -my $cbutton = new Gtk::Button("Close"); +my $cbutton = Gtk::Button->new("Close"); $cbutton->signal_connect("clicked", sub { unlink "$verbosefn", "$tmp/initrd_image.gz"; @@ -537,7 +537,7 @@ $box2->pack_start( $cbutton, $true, $true, 0 ); $box2->show(); # Help button -my $hbutton = new Gtk::Button("Help"); +my $hbutton = Gtk::Button->new("Help"); $hbutton->signal_connect( "clicked", sub { create_text("help") }); $tooltips->set_tip( $hbutton, "Help about gBootRoot.", "" ); $hbutton->show(); @@ -565,7 +565,7 @@ sub signal { } sub hbox_advanced { - $hbox_advanced = new Gtk::HBox(1,1 ); + $hbox_advanced = Gtk::HBox->new(1,1 ); $hbox_advanced->border_width( 2 ); # was 10 $hbox_advanced->set_usize(321, 20); $_[0]->pack_start( $hbox_advanced, $false, $false, 0 ); @@ -610,7 +610,7 @@ sub advanced_boot_section { my $boolean; # The table section - $table_advanced = new Gtk::Table( 4, 3, $true ); + $table_advanced = Gtk::Table->new( 4, 3, $true ); $vbox_advanced->pack_start( $table_advanced, $true, $true, 0 ); $table_advanced->show(); @@ -619,7 +619,7 @@ sub advanced_boot_section { label_advanced("Stripping:",0,1,0,1,$table_advanced); !defined $lib_strip_check ? ($boolean = 1) : ($boolean = $lib_strip_check->get_active()); - $lib_strip_check = new Gtk::CheckButton("Libraries"); + $lib_strip_check = Gtk::CheckButton->new("Libraries"); $lib_strip_check->set_active($boolean); $lib_strip_check->signal_connect( "button_press_event", \&objcopy_right_click_advanced); @@ -635,7 +635,7 @@ sub advanced_boot_section { # bin_strip_check !defined $bin_strip_check ? ($boolean = 1) : ($boolean = $bin_strip_check->get_active()); - $bin_strip_check = new Gtk::CheckButton("Binaries"); + $bin_strip_check = Gtk::CheckButton->new("Binaries"); $bin_strip_check->set_active($boolean); $tooltips->set_tip( $bin_strip_check, "This is generally a good idea." . @@ -697,14 +697,14 @@ sub advanced_root_section { my $boolean; - $table_advanced_root = new Gtk::Table( 9, 3, $true ); + $table_advanced_root = Gtk::Table->new( 9, 3, $true ); # temp solution? #$table_advanced_root->set_row_spacings( 3 ); $vbox_advanced_root->pack_start( $table_advanced_root, $true, $true, 0 ); #_______________________________________ # Root Device selection - # $::device $device already exists + # $::device $device already exist label_advanced("Root Device:",0,1,0,1,$table_advanced_root); # $_[4] shares with advanced_boot_sections @entry_advanced $ear1 = entry_advanced(1,2,0,1,3,$table_advanced_root); @@ -725,9 +725,9 @@ sub advanced_root_section { # Root Device Size # gBootRoot methods label_advanced("Root Device Size:",0,1,1,2,$table_advanced_root); - $adj2 = new Gtk::Adjustment( 1722.0, 0.0, 360000000.0, 282.0, + $adj2 = Gtk::Adjustment->new( 1722.0, 0.0, 360000000.0, 282.0, 360.0, 0.0 ); - $spinner_advanced = new Gtk::SpinButton( $adj2, 0, 0 ); + $spinner_advanced = Gtk::SpinButton->new( $adj2, 0, 0 ); $table_advanced_root->attach($spinner_advanced,1,2,1,2, ['shrink','fill','expand'],['fill','shrink'], 0,0); @@ -762,7 +762,7 @@ sub advanced_root_section { ars($ars); $tooltips->set_tip( $ear2, "Give the Root Filesystem file a name.", "" ); - my $ear2_save = new Gtk::CheckButton("save"); + my $ear2_save = Gtk::CheckButton->new("save"); $ear2_save->set_active($true); $tooltips->set_tip( $ear2_save, "Save Root File. Press right button to change" . @@ -777,9 +777,9 @@ sub advanced_root_section { # Filesystem Size # $::fs_device label_advanced("Filesystem Size:",0,1,3,4,$table_advanced_root); - $adj3 = new Gtk::Adjustment( 4096.0, 0.0, 1000000000.0, 128.0, + $adj3 = Gtk::Adjustment->new( 4096.0, 0.0, 1000000000.0, 128.0, 1024.0, 0.0 ); - $spinner_size = new Gtk::SpinButton( $adj3, 0, 0 ); + $spinner_size = Gtk::SpinButton->new( $adj3, 0, 0 ); $table_advanced_root->attach($spinner_size,1,2,3,4, ['shrink','fill','expand'],['fill','shrink'], 0,0); @@ -805,20 +805,20 @@ sub advanced_root_section { # gBootRoot methods - my $hbox_between = new Gtk::HBox(0,1); + my $hbox_between = Gtk::HBox->new(0,1); $table_advanced_root->attach($hbox_between,0,3,4,5, ['fill'], ['fill','shrink'],15,0 ); $hbox_between->show; # label - my $label_compression = new Gtk::Label( "Compression:" ); + my $label_compression = Gtk::Label->new( "Compression:" ); $label_compression->set_justify( "right" ); $hbox_between->pack_start( $label_compression, $false, $false, 0 ); $label_compression->show(); # gz - $rbutton = new Gtk::RadioButton( "gz" ); + $rbutton = Gtk::RadioButton->new( "gz" ); $tooltips->set_tip( $rbutton, "Choose Compression used on the Filesystem.", "" ); $gz_toggle_root = $rbutton; @@ -827,7 +827,7 @@ sub advanced_root_section { $rbutton->show(); # bz2 - $rbutton = new Gtk::RadioButton( "bz2", $rbutton ); + $rbutton = Gtk::RadioButton->new( "bz2", $rbutton ); $tooltips->set_tip( $rbutton, "Choose Compression used on the Filesystem.", "" ); $bz2_toggle_root = $rbutton; @@ -835,7 +835,7 @@ sub advanced_root_section { $rbutton->show(); # compression off - $compression_off = new Gtk::CheckButton( "off"); + $compression_off = Gtk::CheckButton->new( "off"); $tooltips->set_tip( $compression_off, "Turn Compression off.", "" ); $hbox_between->pack_start( $compression_off, $true, $false, 0 ); @@ -862,13 +862,13 @@ sub advanced_root_section { "Choose the Root Filesystem Generation Method.", "" ); - my $opt_root = new Gtk::OptionMenu(); + my $opt_root = Gtk::OptionMenu->new(); $tooltips->set_tip( $opt_root, "Choose the Root Filesystem Generation Method.", "" ); - my $menu_root = new Gtk::Menu(); + my $menu_root = Gtk::Menu->new(); - my $yard = new Gtk::MenuItem("Yard" ); + my $yard = Gtk::MenuItem->new("Yard" ); $menu_root->append( $yard ); @@ -899,7 +899,7 @@ sub advanced_root_section { # Template # $::contents_file label_advanced("Template:",0,1,7,8,$table_advanced_root); - $combo = new Gtk::Combo(); + $combo = Gtk::Combo->new(); $combo->entry->set_text($entry_advanced[7]) if $entry_advanced[7]; #$button_count_root_open = 1 + $button_count_root_open; #print $button_count_root_open; @@ -988,27 +988,6 @@ sub Generate { $ars->{template_dir} = $template_dir; # static right now. ars($ars); - print %$ars; - -=pod - - foreach (%$ars) { - print $_, "=>", $ars->{$_}, "\n"; - } return; - - - my $ars = { "device" => $entry_advanced[3], - "device_size" => $root_device_size, - "filename" => $entry_advanced[4], - "filesystem_size" => $filesystem_size, - "kernel" => $container[1], - "template_directory" => $template_dir, - "template" => $entry_advanced[7], - "tmp" => $tmp, - "mnt" => $mnt - }; -=cut - my $template = $ars->{template}; $root_device = $ars->{device}; $root_filename = $ars->{filename}; @@ -1049,7 +1028,7 @@ sub button_advanced { # cretzu should like this my ($left_attach,$right_attach,$top_attach, $bottom_attach,$text,$widget) = @_; - my $button = new Gtk::Button($text); + my $button = Gtk::Button->new($text); $table_advanced_root->attach($button,$left_attach,$right_attach, $top_attach,$bottom_attach, ['shrink','fill','expand'],['fill','shrink'],2,2); @@ -1065,7 +1044,7 @@ sub button_fileselect_advanced { my ($left_attach,$right_attach,$top_attach,$bottom_attach,$text,$ent, $name,$order,$device) = @_; - my $button = new Gtk::Button($text); + my $button = Gtk::Button->new($text); $table_advanced_root->attach($button,$left_attach,$right_attach, $top_attach,$bottom_attach, ['shrink','fill','expand'],['fill','shrink'],2,2); @@ -1088,7 +1067,7 @@ sub button_fileselect_advanced { sub entry_advanced { my $numa = $_[4]; - my $entry_advanced = new Gtk::Entry(); + my $entry_advanced = Gtk::Entry->new(); $entry_advanced->set_editable( $true ); $entry_advanced->signal_connect( "changed", sub { $entry_advanced[$numa] = $entry_advanced->get_text(); @@ -1107,7 +1086,7 @@ sub entry_advanced { sub separator_advanced { - $separator_advanced = new Gtk::HSeparator(); + $separator_advanced = Gtk::HSeparator->new(); $_[0]->pack_start( $separator_advanced, $false, $true, 0 ); $separator_advanced->show(); @@ -1117,7 +1096,7 @@ sub label_advanced { my($text) = @_; - $label_advanced = new Gtk::Label( $text ); + $label_advanced = Gtk::Label->new( $text ); $label_advanced->set_justify( "fill" ); $_[5]->attach($label_advanced,$_[1],$_[2],$_[3],$_[4], ['expand'],['fill','shrink'],0,0); $label_advanced->show(); @@ -1130,7 +1109,7 @@ sub label_advanced { sub create_text { if (not defined $text_window) { - $text_window = new Gtk::Window "toplevel"; + $text_window = Gtk::Window->new("toplevel"); $text_window->signal_connect("destroy", \&destroy_window, \$text_window); $text_window->signal_connect("delete_event", \&destroy_window, @@ -1141,23 +1120,23 @@ sub create_text { $text_window->set_title( "gBootRoot Help" ); $text_window->border_width(0); - my $main_vbox = new Gtk::VBox( $false, 0 ); + my $main_vbox = Gtk::VBox->new( $false, 0 ); $text_window->add( $main_vbox ); $main_vbox->show(); - my $vbox = new Gtk::VBox( $false, 10 ); + my $vbox = Gtk::VBox->new( $false, 10 ); $vbox->border_width( 10 ); $main_vbox->pack_start( $vbox, $true, $true, 0 ); $vbox->show(); - my $table = new Gtk::Table( 2, 2, $false ); + my $table = Gtk::Table->new( 2, 2, $false ); $table->set_row_spacing( 0, 2 ); $table->set_col_spacing( 0, 2 ); $vbox->pack_start( $table, $true, $true, 0 ); $table->show( ); # Create the GtkText widget - my $text = new Gtk::Text( undef, undef ); + my $text = Gtk::Text->new( undef, undef ); $text->set_editable($false); $table->attach( $text, 0, 1, 0, 1, [ 'expand', 'shrink', 'fill' ], @@ -1167,7 +1146,7 @@ sub create_text { $text->show(); # Add a vertical scrollbar to the GtkText widget - my $vscrollbar = new Gtk::VScrollbar( $text->vadj ); + my $vscrollbar = Gtk::VScrollbar->new( $text->vadj ); $table->attach( $vscrollbar, 1, 2, 0, 1, 'fill', [ 'expand', 'shrink', 'fill' ], 0, 0 ); #my $logadj = $vscrollbar->get_adjustment(); @@ -1178,16 +1157,16 @@ sub create_text { $text->insert( undef, undef, undef, help() ); $text->thaw(); - my $separator = new Gtk::HSeparator(); + my $separator = Gtk::HSeparator->new(); $main_vbox->pack_start( $separator, $false, $true, 0 ); $separator->show(); - $vbox = new Gtk::VBox( $false, 10 ); + $vbox = Gtk::VBox->new( $false, 10 ); $vbox->border_width( 10 ); $main_vbox->pack_start( $vbox, $false, $true, 0 ); $vbox->show(); - my $button = new Gtk::Button( "Close" ); + my $button = Gtk::Button->new( "Close" ); $button->signal_connect( 'clicked', sub { destroy $text_window; } ); $vbox->pack_start( $button, $true, $true, 0 ); $button->can_default( $true ); @@ -1206,7 +1185,7 @@ sub create_text { sub verbosity_box { - $verbosity_window = new Gtk::Window "toplevel"; + $verbosity_window = Gtk::Window->new("toplevel"); $verbosity_window->signal_connect("destroy", \&destroy_window, \$verbosity_window); $verbosity_window->signal_connect("delete_event", \&destroy_window, @@ -1216,23 +1195,23 @@ sub verbosity_box { $verbosity_window->set_title( "Verbosity Box" ); $verbosity_window->border_width(0); - my $main_vbox = new Gtk::VBox( $false, 0 ); + my $main_vbox = Gtk::VBox->new( $false, 0 ); $verbosity_window->add( $main_vbox ); $main_vbox->show(); - my $vbox = new Gtk::VBox( $false, 10 ); + my $vbox = Gtk::VBox->new( $false, 10 ); $vbox->border_width( 10 ); $main_vbox->pack_start( $vbox, $true, $true, 0 ); $vbox->show(); - my $table = new Gtk::Table( 2, 2, $false ); + my $table = Gtk::Table->new( 2, 2, $false ); $table->set_row_spacing( 0, 2 ); $table->set_col_spacing( 0, 2 ); $vbox->pack_start( $table, $true, $true, 0 ); $table->show( ); # Create the GtkText widget - my $text = new Gtk::Text( undef, undef ); + my $text = Gtk::Text->new( undef, undef ); $text->set_editable($false); $table->attach( $text, 0, 1, 0, 1, [ 'expand', 'shrink', 'fill' ], @@ -1245,23 +1224,23 @@ sub verbosity_box { text_insert($text,$red,$blue); # yard thing # Add a vertical scrollbar to the GtkText widget - my $vscrollbar = new Gtk::VScrollbar( $text->vadj ); + my $vscrollbar = Gtk::VScrollbar->new( $text->vadj ); $table->attach( $vscrollbar, 1, 2, 0, 1, 'fill', [ 'expand', 'shrink', 'fill' ], 0, 0 ); my $logadj = $vscrollbar->get_adjustment(); logadj($logadj); $vscrollbar->show(); - my $separator = new Gtk::HSeparator(); + my $separator = Gtk::HSeparator->new(); $main_vbox->pack_start( $separator, $false, $true, 0 ); $separator->show(); - $vbox = new Gtk::VBox( $false, 10 ); + $vbox = Gtk::VBox->new( $false, 10 ); $vbox->border_width( 10 ); $main_vbox->pack_start( $vbox, $false, $true, 0 ); $vbox->show(); - #my $button = new Gtk::Button( "Close" ); + #my $button = Gtk::Button->new( "Close" ); #$button->signal_connect( 'clicked', # sub { destroy $verbosity_window; } ); #$vbox->pack_start( $button, $true, $true, 0 ); @@ -1279,7 +1258,7 @@ sub fileselect { if (not defined $file_dialog) { # Create a new file selection widget - $file_dialog = new Gtk::FileSelection( "$name" ); + $file_dialog = Gtk::FileSelection->new( "$name" ); $file_dialog->signal_connect( "destroy", \&destroy_window, \$file_dialog); $file_dialog->signal_connect( "delete_event", @@ -1343,7 +1322,7 @@ sub file_ok_sel { sub hbox { my $homogeneous; defined $_[0] ? ($homogeneous = 0) : ($homogeneous = 1); - $box2 = new Gtk::HBox( $homogeneous, 5 ); + $box2 = Gtk::HBox->new( $homogeneous, 5 ); $box2->border_width( 2 ); # was 10 $box1->pack_start( $box2, $true, $true, 0 ); #$box1->pack_start( $box2, $false, $true, 0 ); @@ -1354,7 +1333,7 @@ sub label { my($text) = @_; - $label = new Gtk::Label( $text ); + $label = Gtk::Label->new( $text ); $label->set_justify( "fill" ); $box2->pack_start( $label, $false, $false, 5 ); $label->show(); @@ -1365,7 +1344,7 @@ sub entry { my($edit,$num) = @_; - my $entry = new Gtk::Entry(); + my $entry = Gtk::Entry->new(); $entry->set_editable( $true ); if ($num == 0) { @@ -1431,7 +1410,7 @@ sub button { my ($text,$ent,$name,$order,$device) = @_; - my $button = new Gtk::Button($text); + my $button = Gtk::Button->new($text); if ($order == 1) { $tooltips->set_tip( $button, "Select the Kernel.", "" ); } @@ -2206,24 +2185,24 @@ sub mtab_window { my ($dialog,$error,$count,$pattern) = @_; if (not defined $mtab) { - $mtab = new Gtk::Dialog; + $mtab = Gtk::Dialog->new(); $mtab->signal_connect("destroy", \&destroy_window, \$mtab); $mtab->signal_connect("delete_event", \&destroy_window, \$mtab); $mtab->set_title("gBootRoot: Device check"); $mtab->border_width(15); $mtab->set_position('center'); - my $label = new Gtk::Label($dialog); + my $label = Gtk::Label->new($dialog); $label->set_justify( 'left' ); $label->set_pattern("_________") if defined $pattern; $mtab->vbox->pack_start( $label, $true, $true, 15 ); $label->show(); - my $button = new Gtk::Button("OK"); + my $button = Gtk::Button->new("OK"); $button->signal_connect("clicked", \&mtab_check, $count); $button->can_default(1); $mtab->action_area->pack_start($button, $false, $false,0); $button->grab_default; $button->show; - $button = new Gtk::Button("Cancel"); + $button = Gtk::Button->new("Cancel"); $button->signal_connect("clicked", sub { destroy $mtab} ); $mtab->action_area->pack_start($button, $false, $false,0); $button->show;