From 98e0bde070ff7c13bc7850bf05687cf38011c4d4 Mon Sep 17 00:00:00 2001
From: Yves Duret <yduret@mandriva.com>
Date: Wed, 1 Aug 2001 13:19:14 +0000
Subject: ask_many_from_list

---
 logdrake | 56 +++++++++++++++++++++++++++++++-------------------------
 1 file changed, 31 insertions(+), 25 deletions(-)

(limited to 'logdrake')

diff --git a/logdrake b/logdrake
index c2df9287..999d43e9 100755
--- a/logdrake
+++ b/logdrake
@@ -20,10 +20,8 @@
 # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
 
 use lib qw(/usr/lib/libDrakX);
-
 use interactive;
 use standalone;
-use common qw(:common :file :functional :system);
 use any;
 use my_gtk qw(:helpers :wrappers);
 
@@ -34,17 +32,12 @@ setlocale (LC_ALL, "");
 Locale::GetText::textdomain ("DrakConf");
 import Locale::GetText I_;
 
+use MDK::Common;
+
 use Gtk;
 use Config;
 init Gtk;
 
-# for i18n
-#sub _ {
-#    my $s = shift @_; my $t = I_($s);
-#    $t && ref $t or return sprintf $t, @_;
-#    my ($T, @p) = @$t;
-#    sprintf $T, @_[@p];
-#}
 
 $::isInstall and die "Not supported during install.\n";
 
@@ -154,22 +147,32 @@ fill_tree ("");
 
 gtkadd($window,
        gtkpack_(new Gtk::VBox(0,5),
-		0, _("see your log"),
-		1, gtkadd(new Gtk::Frame(_("Choose a file")),
-			  gtkpack_(new Gtk::VBox(0,5),
-				  1, createScrolledWindow($tree),
-				  0, gtkpack(new Gtk::HBox(0,5),
-					  gtksignal_connect(new Gtk::Button("syslog"),   clicked => \&select_item, "/var/log/syslog"),
-					  gtksignal_connect(new Gtk::Button("dmesg"),    clicked => \&select_item, "/var/log/dmesg"),
-					  gtksignal_connect(new Gtk::Button("user.log"), clicked => \&select_item, "/var/log/user.log")
-					 )
-				 )
-			 ),
-		1, gtkadd(new Gtk::Frame(_("Content of the file")),
-			  createScrolledWindow(my $log = new Gtk::Text(undef, undef)) 
-			 )
-
-	       )
+			 0, _("see your log"),
+			 1, gtkadd(new Gtk::Frame(_("toi aussi choisi")),
+					 $in->ask_many_from_list("drakxservices",
+								_("Choose which services should be automatically started at boot time"),
+								{
+								 list => [ "l2", "l1" ,"l3"],
+								 help => sub { $_; },
+								 values => [ "v2", "v1" ,"v3"],
+								 sort => 1,
+								})
+					),
+			 1, gtkadd(new Gtk::Frame(_("Choose a file")),
+					 gtkpack_(new Gtk::VBox(0,5),
+							1, createScrolledWindow($tree),
+							0, gtkpack(new Gtk::HBox(0,5),
+									 gtksignal_connect(new Gtk::Button("syslog"),   clicked => \&select_item, "/var/log/syslog"),
+									 gtksignal_connect(new Gtk::Button("dmesg"),    clicked => \&select_item, "/var/log/dmesg"),
+									 gtksignal_connect(new Gtk::Button("user.log"), clicked => \&select_item, "/var/log/user.log")
+									)
+						    )
+					),
+			 1, gtkadd(new Gtk::Frame(_("Content of the file")),
+					 createScrolledWindow(my $log = new Gtk::Text(undef, undef)) 
+					)
+			 
+			)
       );
 
 $window->realize;
@@ -390,6 +393,9 @@ sub destroy_window {
 
 # log
 # $Log$
+# Revision 1.9  2001/08/01 13:19:14  yduret
+# ask_many_from_list
+#
 # Revision 1.8  2001/07/19 13:24:54  pablo
 # updated Croatian file
 #
-- 
cgit v1.2.1