From 1624ce382eb033c2cf3ef1fe6b9c41beb0b0a91b Mon Sep 17 00:00:00 2001
From: Angelo Naselli <anaselli@linux.it>
Date: Mon, 27 Jan 2014 18:20:30 +0100
Subject: Project structure change

---
 lib/AdminPanel/Rpmdragora/widgets.pm | 52 ++++++++++++++++++++++++++++++++++++
 1 file changed, 52 insertions(+)
 create mode 100644 lib/AdminPanel/Rpmdragora/widgets.pm

(limited to 'lib/AdminPanel/Rpmdragora/widgets.pm')

diff --git a/lib/AdminPanel/Rpmdragora/widgets.pm b/lib/AdminPanel/Rpmdragora/widgets.pm
new file mode 100644
index 0000000..8484406
--- /dev/null
+++ b/lib/AdminPanel/Rpmdragora/widgets.pm
@@ -0,0 +1,52 @@
+# vim: set et ts=4 sw=4:
+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: widgets.pm 233986 2008-02-06 14:14:06Z tv $
+
+use strict;
+use MDK::Common::Func 'any';
+use lib qw(/usr/lib/libDrakX);
+
+use Time::HiRes;
+use feature 'state';
+
+
+sub new {
+    my ($_class) = @_;
+    my $w = gtknew('TextView', editable => 0);
+    state $time;
+    $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