diff options
| -rwxr-xr-x | logdrake | 56 |
1 files changed, 31 insertions, 25 deletions
@@ -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 # |