summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2003-07-06 18:00:44 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2003-07-06 18:00:44 +0000
commit37af076e7dd776eb86e3c51f1708b15378c7f071 (patch)
treec43fc913422f05465b6b830f3c644981594a1f1e /perl-install/standalone
parent8bcf945dbec5accd4011940ad8a166d19145d8f1 (diff)
downloaddrakx-backup-do-not-use-37af076e7dd776eb86e3c51f1708b15378c7f071.tar
drakx-backup-do-not-use-37af076e7dd776eb86e3c51f1708b15378c7f071.tar.gz
drakx-backup-do-not-use-37af076e7dd776eb86e3c51f1708b15378c7f071.tar.bz2
drakx-backup-do-not-use-37af076e7dd776eb86e3c51f1708b15378c7f071.tar.xz
drakx-backup-do-not-use-37af076e7dd776eb86e3c51f1708b15378c7f071.zip
let columns be sortable (lmontel request)
Diffstat (limited to 'perl-install/standalone')
-rwxr-xr-xperl-install/standalone/drakconnect5
-rwxr-xr-xperl-install/standalone/drakfloppy1
-rwxr-xr-xperl-install/standalone/drakperm1
3 files changed, 6 insertions, 1 deletions
diff --git a/perl-install/standalone/drakconnect b/perl-install/standalone/drakconnect
index 3338133fd..79c8f3516 100755
--- a/perl-install/standalone/drakconnect
+++ b/perl-install/standalone/drakconnect
@@ -167,7 +167,10 @@ my $button_internet = gtksignal_connect(Gtk2::Button->new(N("Configure Internet
my $tree_model = Gtk2::TreeStore->new(Gtk2::GType->OBJECT, map { Gtk2::GType->STRING } 2..6);
my $list = Gtk2::TreeView->new_with_model($tree_model);
$list->append_column(Gtk2::TreeViewColumn->new_with_attributes(undef, Gtk2::CellRendererPixbuf->new, 'pixbuf' => 0));
-each_index { $list->append_column(Gtk2::TreeViewColumn->new_with_attributes($_, Gtk2::CellRendererText->new, 'text' => $::i + 1)) } (N("Interface"), N("IP address"), N("Protocol"), N("Driver"), N("State"));
+each_index {
+ $list->append_column(my $col = Gtk2::TreeViewColumn->new_with_attributes($_, Gtk2::CellRendererText->new, 'text' => $::i + 1));
+ $col->set_sort_column_id($::i);
+} (N("Interface"), N("IP address"), N("Protocol"), N("Driver"), N("State"));
build_list();
diff --git a/perl-install/standalone/drakfloppy b/perl-install/standalone/drakfloppy
index 4f5d87886..44f00fdc6 100755
--- a/perl-install/standalone/drakfloppy
+++ b/perl-install/standalone/drakfloppy
@@ -44,6 +44,7 @@ my $list_model = Gtk2::ListStore->new((Gtk2::GType->STRING) x 2);
my $list = Gtk2::TreeView->new_with_model($list_model);
each_index {
$list->append_column(my $col = Gtk2::TreeViewColumn->new_with_attributes($_, Gtk2::CellRendererText->new, 'text' => $::i));
+ $col->set_sort_column_id($::i);
$col->set_min_width((200, 50)[$::i]);
# $col->set_alignment(1.0) if $::i == 1;
} (N("Module name"), N("Size"));
diff --git a/perl-install/standalone/drakperm b/perl-install/standalone/drakperm
index 3a9c27205..2cdb6ca4d 100755
--- a/perl-install/standalone/drakperm
+++ b/perl-install/standalone/drakperm
@@ -40,6 +40,7 @@ my @column_sizes = (150, 100, 100, 15, -1);
each_index {
my $col = Gtk2::TreeViewColumn->new_with_attributes($_, Gtk2::CellRendererText->new, 'text' => $::i);
$col->set_min_width($column_sizes[$::i]);
+ $col->set_sort_column_id($::i);
$permList->append_column($col);
} (N("path"), N("user"), N("group"), N("permissions"));