summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rwxr-xr-xlogdrake56
1 files changed, 31 insertions, 25 deletions
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
#