From f5e08315f4fa329ff0ade7285045881507ed3d5c Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Mon, 18 Nov 2013 02:46:29 +0100
Subject: use introspection for Vte too

---
 drakconsole | 13 ++++++++++---
 1 file changed, 10 insertions(+), 3 deletions(-)

(limited to 'drakconsole')

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;
-- 
cgit v1.2.1