From b1c73da41d223ba78cc047e482e22af923b5805c Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 29 Mar 2001 17:27:28 +0000
Subject: (reallyChooseGroups): created

---
 perl-install/install_steps_gtk.pm | 60 ++++++++++++++++++++++++++++++++++++++-
 1 file changed, 59 insertions(+), 1 deletion(-)

(limited to 'perl-install')

diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm
index ba4c3efdb..e76950567 100644
--- a/perl-install/install_steps_gtk.pm
+++ b/perl-install/install_steps_gtk.pm
@@ -154,7 +154,7 @@ sub selectInstallClass1 {
     my $w = my_gtk->new('');
     my $focused;
     gtkadd($w->{window},
-	   gtkpack($o->create_box_with_title(_("Please, choose one of the following classes of installation:")),
+	   gtkpack($w->create_box_with_title(_("Please, choose one of the following classes of installation:")),
 		   (my @radios = gtkradio(@$l, $def)),
 		   gtkadd(create_hbox(),
 			  map { my $v = $_; 
@@ -249,6 +249,64 @@ a percentage of %d%% will install as many packages as possible.", $percentage, $
     $spin->grab_focus();
     $w->main and $val + 1; #- add a single byte (hack?) to make selection of 0 bytes ok.
 }
+
+sub reallyChooseGroups {
+    my ($o, $size_to_display, $individual, $val) = @_;
+
+    my $w = my_gtk->new('');
+    my $tips = new Gtk::Tooltips;
+
+    my ($path);
+    my $w_size = new Gtk::Label(&$size_to_display);
+    gtkadd($w->{window},
+	   gtkpack_($w->create_box_with_title(_("Package Group Selection")),
+		   0, $w_size,
+		   0, '',
+		   1, createScrolledWindow(gtkpack(new Gtk::VBox(0,0),
+		     map {
+			 my $e = $_;
+			 my $text = translate($o->{compssUsers}{$e}{label});
+			 my $help = translate($o->{compssUsers}{$e}{descr});
+
+			 my $file = do {
+			     my $f = "/usr/share/icons/" . ($o->{compssUsers}{$e}{icons} || 'default');
+			     -e "$f.png" or $f .= "_section";
+			     -e "$f.png" or $f = '/usr/share/icons/default_section';
+			     "$f.png";
+			 };
+			 my $check = Gtk::CheckButton->new($text);
+			 $check->set_active($val->{$e});
+			 $check->signal_connect(clicked => sub { 
+			     $val->{$e} = $check->get_active;
+			     print "Size is now ", &$size_to_display, "\n";
+			     $w_size->set(&$size_to_display);
+			 });
+			 $tips->set_tip($check, $help);
+
+			 my $old = $path;
+			 $path = $o->{compssUsers}{$e}{path};
+			 (
+			  if_($old ne $path, new Gtk::Label($path)),
+			  gtkpack_(new Gtk::HBox(0,0), 0, gtkpng($file), 1, $check),
+			 )
+		     } @{$o->{compssUsersSorted}})),
+		    0, gtkadd(create_hbox(1), 
+			   gtksignal_connect(new Gtk::Button(_("Ok")), clicked => sub { Gtk->main_quit }),
+			   if_($individual, do {
+			       my $check = Gtk::CheckButton->new(_("Individual package selection"));
+			       $check->set_active($$individual);
+			       $check->signal_connect(clicked => sub { $$individual = $check->get_active });
+			       $check;
+			   }),
+		    ),
+		   ),
+	  );
+    $w->{rwindow}->set_default_size($::windowwidth * 0.8, $::windowheight * 0.8);
+    $w->main;
+    1;    
+}
+
+
 sub choosePackagesTree {
     my ($o, $packages) = @_;
 
-- 
cgit v1.2.1