diff options
Diffstat (limited to 'drakconsole')
| -rwxr-xr-x | drakconsole | 13 |
1 files changed, 10 insertions, 3 deletions
diff --git a/drakconsole b/drakconsole index cb258667..6b161df9 100755 --- a/drakconsole +++ b/drakconsole @@ -22,12 +22,19 @@ use lib qw(/usr/lib/libDrakX); use common; use standalone; #- warning, standalone must be loaded very first, for 'explanations' use ugtk3 qw(:create :wrappers); -use Gnome2::Vte; +use Gtk3; +use Glib::Object::Introspection; + +Glib::Object::Introspection->setup ( + basename => 'Vte', + version => '2.90', + package => 'Gtk3::Vte'); + my $w = ugtk3->new(N("DrakConsole")); $w->{rwindow}->add(gtkpack_(Gtk3::VBox->new(0, 0), - 1, my $vte = gtksignal_connect(Gnome2::Vte::Terminal->new, 'child-exited' => sub { ugtk3->exit }), + 1, my $vte = gtksignal_connect(Gtk3::Vte::Terminal->new, 'child-exited' => sub { ugtk3->exit }), 0, gtkpack__(create_hbox('end'), gtksignal_connect(Gtk3::Button->new(N("Close")), clicked => sub { ugtk3->exit }) ) @@ -37,6 +44,6 @@ $w->{rwindow}->show_all; $vte->grab_focus(); #$ENV{PS1} = qq(Type "exit"\n); -$vte->fork_command($ENV{SHELL}, [ $ENV{SHELL} ], [ map { "$_=$ENV{$_}" } keys %ENV ], $ENV{PWD}, 0, 0, 0); +$vte->fork_command_full('default', undef, [ $ENV{SHELL} ], undef, 'default', undef); $w->main; |