summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/standalone')
-rwxr-xr-xperl-install/standalone/drakfont156
1 files changed, 78 insertions, 78 deletions
diff --git a/perl-install/standalone/drakfont b/perl-install/standalone/drakfont
index 32e293647..c80eec424 100755
--- a/perl-install/standalone/drakfont
+++ b/perl-install/standalone/drakfont
@@ -489,7 +489,7 @@ sub backend_mod() {
sub create_fontsel() {
my $font_sel;
- gtkpack($font_box, $font_sel = new Gtk2::FontSelection,);
+ gtkpack($font_box, $font_sel = Gtk2::FontSelection->new,);
$central_widget = \$font_sel;
}
@@ -498,10 +498,10 @@ sub display_error {
my $error_box;
$$central_widget->destroy;
gtkpack($font_box,
- $error_box = gtkpack_(new Gtk2::VBox(0, 0),
- 1, new Gtk2::Label($message),
- 0, gtkadd(gtkset_layout(new Gtk2::HButtonBox, 'spread'),
- gtksignal_connect(new Gtk2::Button(N("OK")),
+ $error_box = gtkpack_(Gtk2::VBox->new(0, 0),
+ 1, Gtk2::Label->new($message),
+ 0, gtkadd(gtkset_layout(Gtk2::HButtonBox->new, 'spread'),
+ gtksignal_connect(Gtk2::Button->new(N("OK")),
clicked => sub { $$central_widget->destroy; create_fontsel() }
),
),
@@ -524,45 +524,45 @@ sub interactive_mode() {
my $disable = sub { my ($b) = @_; $button->{$_}->set_sensitive($_ ne $b) foreach keys %$button };
gtkadd($window1->{window},
- gtkpack_(new Gtk2::VBox(0, 2),
+ gtkpack_(Gtk2::VBox->new(0, 2),
if_(!$::isEmbedded, 0, gtkcreate_img("drakfont.620x57")),
- 1, gtkpack_(new Gtk2::HBox(0, 2),
- 1, gtkpack_(new Gtk2::VBox(0, 2),
- 1, gtkpack($font_box = new Gtk2::VBox(0, 5), $font_sel = new Gtk2::FontSelection,),
- 1, gtkpack_(new Gtk2::HBox(0, 2),
- 0, gtkadd(gtkset_layout(new Gtk2::VButtonBox, 'end'),
- gtksignal_connect($button->{windows} = new Gtk2::Button(N("Get Windows Fonts")),
+ 1, gtkpack_(Gtk2::HBox->new(0, 2),
+ 1, gtkpack_(Gtk2::VBox->new(0, 2),
+ 1, gtkpack($font_box = Gtk2::VBox->new(0, 5), $font_sel = Gtk2::FontSelection->new,),
+ 1, gtkpack_(Gtk2::HBox->new(0, 2),
+ 0, gtkadd(gtkset_layout(Gtk2::VButtonBox->new, 'end'),
+ gtksignal_connect($button->{windows} = Gtk2::Button->new(N("Get Windows Fonts")),
clicked => sub {
$disable->('windows');
$$central_widget->destroy;
$windows = 1;
appli_choice();
}),
- gtksignal_connect($button->{uninstall} = new Gtk2::Button(N("Uninstall Fonts")),
+ gtksignal_connect($button->{uninstall} = Gtk2::Button->new(N("Uninstall Fonts")),
clicked => sub {
$disable->('uninstall');
$$central_widget->destroy;
uninstall();
}),
),
- 0, gtkadd(gtkset_layout(new Gtk2::VButtonBox, 'end'),
- gtksignal_connect($button->{adv_option} = new Gtk2::Button(N("Advanced Options")),
+ 0, gtkadd(gtkset_layout(Gtk2::VButtonBox->new, 'end'),
+ gtksignal_connect($button->{adv_option} = Gtk2::Button->new(N("Advanced Options")),
clicked => sub {
$disable->('adv_option');
$$central_widget->destroy;
$windows = 0;
advanced_install();
}),
- gtksignal_connect($button->{font_list} = new Gtk2::Button(N("Font List")),
+ gtksignal_connect($button->{font_list} = Gtk2::Button->new(N("Font List")),
clicked => sub {
$disable->('font_list');
$$central_widget->destroy;
create_fontsel();
}),
),
- 1, new Gtk2::HBox(0, 2),
- 0, gtkadd(gtkset_layout(new Gtk2::VButtonBox, 'end'),
- gtksignal_connect(new Gtk2::Button(N("About")), clicked => \&help),
+ 1, Gtk2::HBox->new(0, 2),
+ 0, gtkadd(gtkset_layout(Gtk2::VButtonBox->new, 'end'),
+ gtksignal_connect(Gtk2::Button->new(N("About")), clicked => \&help),
gtksignal_connect(Gtk2::Button->new(N("Close")), clicked => sub { Gtk2->main_quit }),
),
),
@@ -585,12 +585,12 @@ sub text_view {
my ($text) = @_;
my $box;
gtkpack($font_box,
- $box = gtkpack_(new Gtk2::VBox(0,10),
- 1, gtkpack(new Gtk2::HBox(0,0),
- create_scrolled_window(gtktext_insert(new Gtk2::TextView, [ [ $text ] ]))
+ $box = gtkpack_(Gtk2::VBox->new(0,10),
+ 1, gtkpack(Gtk2::HBox->new(0,0),
+ create_scrolled_window(gtktext_insert(Gtk2::TextView->new, [ [ $text ] ]))
),
- 0, gtkadd(gtkset_layout(new Gtk2::HButtonBox, 'spread'),
- gtksignal_connect(new Gtk2::Button(N("OK")),
+ 0, gtkadd(gtkset_layout(Gtk2::HButtonBox->new, 'spread'),
+ gtksignal_connect(Gtk2::Button->new(N("OK")),
clicked => sub { $$central_widget->destroy }),
),
)
@@ -634,53 +634,53 @@ sub help() {
sub appli_choice() {
my $choice_box;
- my $text = new Gtk2::TextView;
+ my $text = Gtk2::TextView->new;
gtkpack($font_box,
- $choice_box = gtkpack_(new Gtk2::HBox(0, 10),
- 0, new Gtk2::VBox(0, 10),
- 0, new Gtk2::VBox(0, 10),
- 1, gtkpack_(new Gtk2::VBox(0, 10),
- 1, gtkpack_(new Gtk2::VBox(0, 10),
- 1, gtkpack(new Gtk2::HBox(0, 10),
- new Gtk2::HBox(0, 10),
+ $choice_box = gtkpack_(Gtk2::HBox->new(0, 10),
+ 0, Gtk2::VBox->new(0, 10),
+ 0, Gtk2::VBox->new(0, 10),
+ 1, gtkpack_(Gtk2::VBox->new(0, 10),
+ 1, gtkpack_(Gtk2::VBox->new(0, 10),
+ 1, gtkpack(Gtk2::HBox->new(0, 10),
+ Gtk2::HBox->new(0, 10),
N("Choose the applications that will support the fonts:"),
- new Gtk2::HBox(0, 10),
+ Gtk2::HBox->new(0, 10),
),
- 0, new Gtk2::HBox(0, 10),
- 0, gtkpack_(new Gtk2::HBox(0, 10),
+ 0, Gtk2::HBox->new(0, 10),
+ 0, gtkpack_(Gtk2::HBox->new(0, 10),
0, N("Ghostscript"),
- 1, new Gtk2::HBox(0, 10),
- 0, my $check11 = new Gtk2::CheckButton(),
+ 1, Gtk2::HBox->new(0, 10),
+ 0, my $check11 = Gtk2::CheckButton->new(),
),
- 0, gtkpack_(new Gtk2::HBox(0, 10),
+ 0, gtkpack_(Gtk2::HBox->new(0, 10),
0, N("StarOffice"),
- 1, new Gtk2::HBox(0, 10),
- 0, my $check22 = new Gtk2::CheckButton(),
+ 1, Gtk2::HBox->new(0, 10),
+ 0, my $check22 = Gtk2::CheckButton->new(),
),
- 0, gtkpack_(new Gtk2::HBox(0, 10),
+ 0, gtkpack_(Gtk2::HBox->new(0, 10),
0, N("Abiword"),
- 1, new Gtk2::HBox(0, 10),
- 0, my $check33 = new Gtk2::CheckButton(),
+ 1, Gtk2::HBox->new(0, 10),
+ 0, my $check33 = Gtk2::CheckButton->new(),
),
- 0, gtkpack_(new Gtk2::HBox(0, 10),
+ 0, gtkpack_(Gtk2::HBox->new(0, 10),
0, N("Generic Printers"),
- 1, new Gtk2::HBox(0, 10),
- 0, my $check44 = new Gtk2::CheckButton(),
+ 1, Gtk2::HBox->new(0, 10),
+ 0, my $check44 = Gtk2::CheckButton->new(),
),
),
- 0, gtkpack_(new Gtk2::HBox(0, 10),
+ 0, gtkpack_(Gtk2::HBox->new(0, 10),
1, gtktext_insert(gtkset_editable($text, 0),
[ [ N("Before installing any fonts, be sure that you have the right to use and install them on your system.\n\n-You can install the fonts the normal way. In rare cases, bogus fonts may hang up your X Server.") ] ]
),
- 0, new Gtk2::VBox(0, 10),
+ 0, Gtk2::VBox->new(0, 10),
),
- 0, gtkadd(gtkset_layout(new Gtk2::HButtonBox, 'spread'),
- gtksignal_connect(new Gtk2::Button(N("OK")),
+ 0, gtkadd(gtkset_layout(Gtk2::HButtonBox->new, 'spread'),
+ gtksignal_connect(Gtk2::Button->new(N("OK")),
clicked => sub {
$$central_widget->destroy;
import_status();
}),
- gtksignal_connect(new Gtk2::Button(N("Cancel")),
+ gtksignal_connect(Gtk2::Button->new(N("Cancel")),
clicked => sub {
@install = ();
$$central_widget->destroy;
@@ -688,8 +688,8 @@ sub appli_choice() {
}),
),
),
- 0, new Gtk2::VBox(0, 10),
- 0, new Gtk2::VBox(0, 10),
+ 0, Gtk2::VBox->new(0, 10),
+ 0, Gtk2::VBox->new(0, 10),
),
);
foreach ([ $check11, \$gs ], [ $check22, \$so ], [ $check33, \$abi ], [ $check44, \$printer ]) {
@@ -705,7 +705,7 @@ my $select_font_msg;
sub font_choice() {
my $file_dialog;
$select_font_msg = N("Select the font file or directory and click on 'Add'");
- $file_dialog = gtksignal_connect(new Gtk2::FileSelection(N("File Selection")), destroy => sub { $file_dialog->destroy });
+ $file_dialog = gtksignal_connect(Gtk2::FileSelection->new(N("File Selection")), destroy => sub { $file_dialog->destroy });
$file_dialog->ok_button->signal_connect(clicked => \&file_ok_sel, $file_dialog);
$file_dialog->ok_button->set_label(N("Add"));
$file_dialog->cancel_button->signal_connect(clicked => sub { $file_dialog->destroy });
@@ -746,12 +746,12 @@ sub advanced_install() {
$list->set_rules_hint(1);
gtkpack($font_box,
- $adv_box = gtkpack_(new Gtk2::VBox(0, 10),
- 1, gtkpack_(new Gtk2::HBox(0, 4), 1, create_scrolled_window($list),),
- 0, gtkadd(gtkset_layout(new Gtk2::HButtonBox, 'spread'),
- gtksignal_connect(new Gtk2::Button(N("Add")), clicked => \&font_choice),
- gtksignal_connect(new Gtk2::Button(N("Remove Selected")), clicked => \&list_remove),
- gtksignal_connect(new Gtk2::Button(N("Install List")),
+ $adv_box = gtkpack_(Gtk2::VBox->new(0, 10),
+ 1, gtkpack_(Gtk2::HBox->new(0, 4), 1, create_scrolled_window($list),),
+ 0, gtkadd(gtkset_layout(Gtk2::HButtonBox->new, 'spread'),
+ gtksignal_connect(Gtk2::Button->new(N("Add")), clicked => \&font_choice),
+ gtksignal_connect(Gtk2::Button->new(N("Remove Selected")), clicked => \&list_remove),
+ gtksignal_connect(Gtk2::Button->new(N("Install List")),
clicked => sub {
if (@install) {
$$central_widget->destroy;
@@ -787,15 +787,15 @@ sub show_list_to_remove() {
$model->append_set(undef, [ 0 => $_ ]) foreach @uninstall;
gtkpack($font_box,
- $show_box = gtkpack_(new Gtk2::VBox(0, 10),
- 1, gtkpack_(new Gtk2::HBox(0, 4), 1, create_scrolled_window($list)),
- 0, gtkadd(gtkset_layout(new Gtk2::HButtonBox, 'spread'),
- gtksignal_connect(new Gtk2::Button(N("click here if you are sure.")),
+ $show_box = gtkpack_(Gtk2::VBox->new(0, 10),
+ 1, gtkpack_(Gtk2::HBox->new(0, 4), 1, create_scrolled_window($list)),
+ 0, gtkadd(gtkset_layout(Gtk2::HButtonBox->new, 'spread'),
+ gtksignal_connect(Gtk2::Button->new(N("click here if you are sure.")),
clicked => sub {
$$central_widget->destroy;
import_status_uninstall();
}),
- gtksignal_connect(new Gtk2::Button(N("here if no.")),
+ gtksignal_connect(Gtk2::Button->new(N("here if no.")),
clicked =>
sub { $$central_widget->destroy; create_fontsel() }
),
@@ -832,19 +832,19 @@ sub uninstall() { #- TODO : add item to right list with gtksignal_connect
$right_list->set_rules_hint(1);
gtkpack($font_box,
- $uninst_box = gtkpack_(new Gtk2::VBox(0, 10),
- 1, gtkpack_(new Gtk2::HBox(0, 4),
+ $uninst_box = gtkpack_(Gtk2::VBox->new(0, 10),
+ 1, gtkpack_(Gtk2::HBox->new(0, 4),
1, create_scrolled_window($left_list),
#1, create_scrolled_window($right_list)
),
- 0, gtkadd(gtkset_layout(new Gtk2::HButtonBox, 'spread'),
- gtksignal_connect(new Gtk2::Button(N("Unselected All")),
+ 0, gtkadd(gtkset_layout(Gtk2::HButtonBox->new, 'spread'),
+ gtksignal_connect(Gtk2::Button->new(N("Unselected All")),
clicked => sub { $left_list->get_selection->unselect_all }
),
- gtksignal_connect(new Gtk2::Button(N("Selected All")),
+ gtksignal_connect(Gtk2::Button->new(N("Selected All")),
clicked => sub { $left_list->get_selection->select_all }
),
- gtksignal_connect(new Gtk2::Button(N("Remove List")), clicked => sub { list_to_remove() }),
+ gtksignal_connect(Gtk2::Button->new(N("Remove List")), clicked => sub { list_to_remove() }),
),
)
);
@@ -854,10 +854,10 @@ sub uninstall() { #- TODO : add item to right list with gtksignal_connect
sub import_status() {
my $table;
- $pbar = new Gtk2::ProgressBar;
- $pbar1 = new Gtk2::ProgressBar;
- $pbar2 = new Gtk2::ProgressBar;
- $pbar3 = new Gtk2::ProgressBar;
+ $pbar = Gtk2::ProgressBar->new;
+ $pbar1 = Gtk2::ProgressBar->new;
+ $pbar2 = Gtk2::ProgressBar->new;
+ $pbar3 = Gtk2::ProgressBar->new;
gtkpack(
$font_box,
$table = create_packtable({ col_spacings => 10, row_spacings => 50 },
@@ -876,9 +876,9 @@ sub import_status() {
sub import_status_uninstall() {
my $table;
- $pbar = new Gtk2::ProgressBar;
- $pbar1 = new Gtk2::ProgressBar;
- $pbar2 = new Gtk2::ProgressBar;
+ $pbar = Gtk2::ProgressBar->new;
+ $pbar1 = Gtk2::ProgressBar->new;
+ $pbar2 = Gtk2::ProgressBar->new;
gtkpack(
$font_box,
$table = create_packtable({ col_spacings => 10, row_spacings => 50 },