summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2002-09-24 15:22:23 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2002-09-24 15:22:23 +0000
commite939764c1c13713245b9ef169e02dfda5487c4e7 (patch)
tree5db8cb6ae33af3407752ad655beb80d059cebda8 /perl-install
parent9e0eeabc4130f9615d36b1a128ef5d88fac65a9e (diff)
downloaddrakx-backup-do-not-use-e939764c1c13713245b9ef169e02dfda5487c4e7.tar
drakx-backup-do-not-use-e939764c1c13713245b9ef169e02dfda5487c4e7.tar.gz
drakx-backup-do-not-use-e939764c1c13713245b9ef169e02dfda5487c4e7.tar.bz2
drakx-backup-do-not-use-e939764c1c13713245b9ef169e02dfda5487c4e7.tar.xz
drakx-backup-do-not-use-e939764c1c13713245b9ef169e02dfda5487c4e7.zip
from dams:
remove his ugly hack for mcc which altered the scrolledwindow's "bordure" to hide it. this used to be done through a gtk timer (hance the ugly flash on first display of notebook pages) now createScrolledWindow take a new optional argument that enable to hide the border the right way thanks dams
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/ugtk.pm15
1 files changed, 9 insertions, 6 deletions
diff --git a/perl-install/ugtk.pm b/perl-install/ugtk.pm
index 5c32c178d..f324ca0c6 100644
--- a/perl-install/ugtk.pm
+++ b/perl-install/ugtk.pm
@@ -359,13 +359,16 @@ sub create_packtable {
}
sub createScrolledWindow {
- my ($W, $policy) = @_;
+ my ($W, $policy, $viewport_shadow) = @_;
my $w = new Gtk::ScrolledWindow(undef, undef);
$policy ||= [ 'automatic', 'automatic'];
$w->set_policy(@{$policy});
- member(ref $W, qw(Gtk::CList Gtk::CTree Gtk::Text)) ?
- $w->add($W) :
- $w->add_with_viewport($W);
+ if(member(ref $W, qw(Gtk::CList Gtk::CTree Gtk::Text))) {
+ $w->add($W)
+ } else {
+ $w->add_with_viewport($W);
+ $viewport_shadow and gtkset_shadow_type($w->child, $viewport_shadow);
+ }
$W->can("set_focus_vadjustment") and $W->set_focus_vadjustment($w->get_vadjustment);
$W->show;
$w
@@ -601,7 +604,7 @@ sub gtkicons_labels_widget {
my $fixed = new Gtk::Fixed;
foreach (@tab) { $fixed->put($_, 75, 65) }
my $is_resized = 0;
- my $w_ret = createScrolledWindow($fixed, ['automatic', 'automatic']);
+ my $w_ret = createScrolledWindow($fixed, undef, 'none');
my $redraw_function;
$redraw_function = sub {
if ($is_resized == 0) {
@@ -622,7 +625,7 @@ sub gtkicons_labels_widget {
$fixed->{redraw_function} = $redraw_function;
$w_ret->vscrollbar->set_usize(19, undef);
- gtkhide(gtkset_border_width($w_ret, -2)); #- ok, this is very very ugly...
+ gtkhide($w_ret);
}
sub n_line_size {