summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/drakfont
diff options
context:
space:
mode:
authorDamien Chaumette <dchaumette@mandriva.com>2003-02-05 18:55:49 +0000
committerDamien Chaumette <dchaumette@mandriva.com>2003-02-05 18:55:49 +0000
commit2302833888a72557ef6c9be2a805a19a7b234f9d (patch)
treef45dcd4a50fff8316e2a3477fdbd302bf84de957 /perl-install/standalone/drakfont
parente0765d3503f60c6ee201478880b472e07da5be72 (diff)
downloaddrakx-2302833888a72557ef6c9be2a805a19a7b234f9d.tar
drakx-2302833888a72557ef6c9be2a805a19a7b234f9d.tar.gz
drakx-2302833888a72557ef6c9be2a805a19a7b234f9d.tar.bz2
drakx-2302833888a72557ef6c9be2a805a19a7b234f9d.tar.xz
drakx-2302833888a72557ef6c9be2a805a19a7b234f9d.zip
almost full Gtk2 :p
Diffstat (limited to 'perl-install/standalone/drakfont')
-rwxr-xr-xperl-install/standalone/drakfont95
1 files changed, 52 insertions, 43 deletions
diff --git a/perl-install/standalone/drakfont b/perl-install/standalone/drakfont
index 6efc6c003..08288e2f9 100755
--- a/perl-install/standalone/drakfont
+++ b/perl-install/standalone/drakfont
@@ -130,6 +130,7 @@ my $label4;
my $list_path;
my $path_list;
my $current_path;
+my $model;
my $list;
my $list_all_font_path;
@@ -893,22 +894,27 @@ sub file_ok_sel {
print "-- @install\n";
if (!member($file_name, @install)) {
push @install, $file_name;
- $list->add(gtkshow(new Gtk2::ListItem($file_name)));
+ $model->append_set(undef, [ 0 => $file_name]);
}
}
sub list_remove {
- my ($_widget, $list) = @_;
- my @to_remove;
- push @to_remove, $list->child_position($_) foreach $list->selection;
- splice @install, $_, 1 foreach reverse sort @to_remove;
- $list->remove_items($list->selection);
+ my ($treeStore, $iter) = ($list->get_selection->get_selected);
+ my $to_remove = $treeStore->_get($iter, 0);
+ my ($index) = map_index { if_($_ eq $to_remove, $::i) } @install;
+ splice @install, $index, 1;
+ $treeStore->remove($iter);
}
sub advanced_install {
my $adv_box;
- $list = new Gtk2::List();
- $list->set_selection_mode('extended');
+
+ $model = Gtk2::TreeStore->new(Gtk2::GType->STRING);
+ $list = Gtk2::TreeView->new_with_model($model);
+ $list->append_column(Gtk2::TreeViewColumn->new_with_attributes(undef, Gtk2::CellRendererText->new, 'text' => 0));
+ $list->set_headers_visible(0);
+ $list->get_selection->set_mode('browse');
+ $list->set_rules_hint(1);
gtkpack(
$font_box,
@@ -925,9 +931,8 @@ sub advanced_install {
),
gtksignal_connect(
new Gtk2::Button(N("Remove Selected")),
- clicked => \&list_remove,
- $list
- ),
+ clicked => \&list_remove
+ ),
gtksignal_connect(
new Gtk2::Button(N("Install List")),
clicked => sub {
@@ -942,7 +947,7 @@ sub advanced_install {
$adv_box->show_all();
}
-sub list_to_remove {
+sub list_to_remove { #- fucked for the moment, will fix it tomorrow
my @number_to_remove;
my @files_path = grep(!/fonts/, all($current_path));
gtkflush();
@@ -957,8 +962,15 @@ sub list_to_remove {
sub show_list_to_remove {
my $show_box;
- my $show_list = new Gtk2::List();
- $show_list->add(gtkshow(new Gtk2::ListItem($_))) foreach @uninstall;
+ my $model = Gtk2::TreeStore->new(Gtk2::GType->STRING);
+ my $list = Gtk2::TreeView->new_with_model($model);
+ $list->append_column(Gtk2::TreeViewColumn->new_with_attributes(undef, Gtk2::CellRendererText->new, 'text' => 0));
+ $list->set_headers_visible(0);
+ $list->get_selection->set_mode('browse');
+ $list->set_rules_hint(1);
+
+ $model->append_set(undef, [ 0 => $_ ]) foreach @uninstall;
+
gtkpack(
$font_box,
$show_box = gtkpack_(
@@ -966,7 +978,7 @@ sub show_list_to_remove {
1,
gtkpack_(
new Gtk2::HBox(0, 4),
- 1, create_scrolled_window($show_list)
+ 1, create_scrolled_window($list)
),
0,
gtkadd(
@@ -992,54 +1004,51 @@ sub show_list_to_remove {
sub uninstall {
my $uninst_box;
+ my ($left_model, $right_model);
+ my ($left_list, $right_list);
@install = ();
@installed_fonts_path = ();
list_fontpath();
chk_empty_xfs_path();
- $list_path = new Gtk2::List();
- $list_path->set_selection_mode('extended');
-
- foreach (@installed_fonts_path) {
- my $t = $_;
- $list_path->add(
- gtkshow(
- gtksignal_connect(
- new Gtk2::ListItem($t),
- select => sub {
- $current_path = $t;
- $path_list->clear_items(0, -1);
- $path_list->append_items(
- map { /fonts/ ? () : gtkshow(new Gtk2::ListItem($_)) } all($t)
- );
- }
- )
- )
- );
- }
- $list_path->set_selection_mode('single');
- $path_list = new Gtk2::List();
- $path_list->set_selection_mode('extended');
+
+ #- left part
+ $left_model = Gtk2::TreeStore->new(Gtk2::GType->STRING);
+ $left_list = Gtk2::TreeView->new_with_model($left_model);
+ $left_list->append_column(Gtk2::TreeViewColumn->new_with_attributes(undef, Gtk2::CellRendererText->new, 'text' => 0));
+ $left_list->set_headers_visible(0);
+ $left_list->set_rules_hint(1);
+ $left_list->get_selection->set_mode('multiple');
+
+ $left_model->append_set(undef, [ 0 => $_ ]) foreach @installed_fonts_path;
+
+ #- right part
+ $right_model = Gtk2::TreeStore->new(Gtk2::GType->STRING);;
+ $right_list = Gtk2::TreeView->new_with_model($right_model);
+ $right_list->append_column(Gtk2::TreeViewColumn->new_with_attributes(undef, Gtk2::CellRendererText->new, 'text' => 0));
+ $right_list->set_headers_visible(0);
+ $right_list->get_selection->set_mode('multiple');
+ $right_list->set_rules_hint(1);
gtkpack(
- $font_box,
+ $font_box,
$uninst_box = gtkpack_(
new Gtk2::VBox(0, 10),
1,
gtkpack_(
new Gtk2::HBox(0, 4), 1,
- create_scrolled_window($list_path), 1,
- create_scrolled_window($path_list)
+ 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")),
- clicked => sub { $path_list->unselect_all() }
+ clicked => sub { $left_list->get_selection->unselect_all() }
),
gtksignal_connect(
new Gtk2::Button(N("Selected All")),
- clicked => sub { $path_list->select_all() }
+ clicked => sub { $left_list->get_selection->select_all() }
),
gtksignal_connect(
new Gtk2::Button(N("Remove List")),