From bdd3c581cde1d9fed4cf5c42062a83cec3fbb1ce Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Wed, 9 Jul 2003 16:01:00 +0000 Subject: switch from gtk2-perl to gtk2-perl-xs --- perl-install/standalone/drakfont | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'perl-install/standalone/drakfont') diff --git a/perl-install/standalone/drakfont b/perl-install/standalone/drakfont index d954eed58..d2ccbc9f2 100755 --- a/perl-install/standalone/drakfont +++ b/perl-install/standalone/drakfont @@ -726,7 +726,7 @@ sub list_remove() { #- TODO : multi-selection sub advanced_install() { my $adv_box; - $model = Gtk2::TreeStore->new(Gtk2::GType->STRING); + $model = Gtk2::TreeStore->new("Glib::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); @@ -765,7 +765,7 @@ sub list_to_remove() { sub show_list_to_remove() { my $show_box; - my $model = Gtk2::TreeStore->new(Gtk2::GType->STRING); + my $model = Gtk2::TreeStore->new("Glib::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); @@ -802,7 +802,7 @@ sub uninstall() { #- TODO : add item to right list with gtksignal_connect chk_empty_xfs_path(); #- left part - $left_model = Gtk2::TreeStore->new(Gtk2::GType->STRING); + $left_model = Gtk2::TreeStore->new("Glib::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); @@ -812,7 +812,7 @@ sub uninstall() { #- TODO : add item to right list with gtksignal_connect $left_model->append_set(undef, [ 0 => $_ ]) foreach @installed_fonts_path; #- right part - $right_model = Gtk2::TreeStore->new(Gtk2::GType->STRING);; + $right_model = Gtk2::TreeStore->new("Glib::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); -- cgit v1.2.1