summaryrefslogtreecommitdiffstats
path: root/drakconsole
diff options
context:
space:
mode:
Diffstat (limited to 'drakconsole')
-rwxr-xr-xdrakconsole13
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;