From 6f70fcebcc95a908eca78c91e8da6081ab48fa07 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Wed, 7 Mar 2007 11:34:39 +0000
Subject: split out Gtk2::Mdv::TextView

---
 Rpmdrake/widgets.pm | 52 ++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 52 insertions(+)
 create mode 100755 Rpmdrake/widgets.pm

(limited to 'Rpmdrake/widgets.pm')

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