split out Gtk2::Mdv::TextView

2 files changed, 53 insertions, 24 deletions

diff --git a/Rpmdrake/widgets.pm b/Rpmdrake/widgets.pm
new file mode 100755
index 00000000..aa66e544
--- /dev/null
+++ b/Rpmdrake/widgets.pm
@@ -0,0 +1,52 @@
+package Gtk2::Mdv::TextView;
+#*****************************************************************************
+#
+#  Copyright (c) 2002 Guillaume Cottenceau
+#  Copyright (c) 2002-2007 Thierry Vignaud <tvignaud@mandriva.com>
+#  Copyright (c) 2003, 2004, 2005 MandrakeSoft SA
+#  Copyright (c) 2005-2007 Mandriva SA
+#
+#  This program is free software; you can redistribute it and/or modify
+#  it under the terms of the GNU General Public License version 2, as
+#  published by the Free Software Foundation.
+#
+#  This program is distributed in the hope that it will be useful,
+#  but WITHOUT ANY WARRANTY; without even the implied warranty of
+#  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+#  GNU General Public License for more details.
+#
+#  You should have received a copy of the GNU General Public License
+#  along with this program; if not, write to the Free Software
+#  Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+#
+#*****************************************************************************
+#
+# $Id$
+
+use strict;
+use MDK::Common::Func 'any';
+use lib qw(/usr/lib/libDrakX);
+
+use mygtk2 qw(gtknew);  #- do not import anything else, especially gtkadd() which conflicts with ugtk2 one
+use ugtk2 qw(:all);
+use Time::HiRes;
+
+
+sub new {
+    my ($_class) = @_;
+    my $w = mygtk2::gtknew('TextView');
+    my $time if 0;
+    $w->signal_connect(size_allocate => sub {
+        my ($w, $requisition) = @_;
+        return if !ref($w->{anchors});
+        return if Time::HiRes::clock_gettime() - $time < 0.200;
+        $time = Time::HiRes::clock_gettime();
+        foreach my $anchor (@{$w->{anchors}}) {
+            $_->set_size_request($requisition->width-30, -1) foreach $anchor->get_widgets;
+        }
+        1;
+    });
+    $w;
+}
+
+1;
diff --git a/rpmdrake b/rpmdrake
index 416f4413..0068e0a6 100755
--- a/rpmdrake
+++ b/rpmdrake
@@ -41,6 +41,7 @@ use urpm::media;
 use mygtk2 qw(gtknew);  #- do not import anything else, especially gtkadd() which conflicts with ugtk2 one
 use ugtk2 qw(:all);
 use Gtk2::Gdk::Keysyms;
+use Rpmdrake::widgets;
 
 $ugtk2::wm_icon = "title-$MODE";
 
@@ -152,30 +153,6 @@ sub do_search($$$$$$$) {
     }
 }
 
-package Gtk2::Mdv::TextView;
-
-sub new {
-    my ($_class) = @_;
-    my $w = mygtk2::gtknew('TextView');
-    my $time if 0;
-    require Time::HiRes;
-    $w->signal_connect(size_allocate => sub {
-        my ($w, $requisition) = @_;
-        return if !ref($w->{anchors});
-        return if Time::HiRes::clock_gettime() - $time < 0.200;
-        $time = Time::HiRes::clock_gettime();
-        foreach my $anchor (@{$w->{anchors}}) {
-            $_->set_size_request($requisition->width-30, -1) foreach $anchor->get_widgets;
-        }
-        1;
-    });
-    $w;
-}
-
-1;
-
-package main;
-
 
 sub run_treeview_dialog {
     my ($callback_action) = @_;