Re: Bug in frame->set_shadow_type?

[Stefan Kamphausen <kamphausen novelscience com>]

Paolo Molaro writes:
> On 04/11/01 Stefan Kamphausen wrote:
> > I have just noticed that I can't set the shadow_style of a frame to 
> > anything but the default if I don't use a style for that frame
> [...]

> The following program works for me. Gtk-Perl version 0.7006, Gtk+
> version 1.2.9, 1.2.10.
> [snip]
> Gtk->main;

This works for me, too (well, I needed to fix the init because of my
old Gtk.pm) ... that is strange

Let me bring an example programm I just created:

#################################################################
#! /usr/bin/perl -w
use strict;
use Gtk;
init Gtk;

# setup a style
my $font = '-adobe-helvetica-medium-r-normal-*-*-140-*-*-p-*-iso8859-1';
my $style = new Gtk::Style;
$style->font(Gtk::Gdk::Font->load($font));

### Main Window and MainVBox
my $win = new Gtk::Window( "toplevel" );
$win->signal_connect( "destroy", \&main_quit );
$win->signal_connect( "delete_event", \&main_quit );

my $main_vb = new Gtk::VBox(0,5);
$main_vb->border_width( 1 );
$win->add($main_vb);

my $label;
#### 1. Line should work
my $frame1 = new Gtk::Frame("Etched Out ");
$label = new Gtk::Label("works here");
$frame1->add($label);
$frame1->set_style($style);
$frame1->set_shadow_type( 'etched_out' );

#### 2. Line shouldn't
my $frame2 = new Gtk::Frame("But here ");
$label = new Gtk::Label("it doesn't");
$frame2->add($label);
$frame2->set_shadow_type( 'etched_out' );

$main_vb->pack_start_defaults($frame1);
$main_vb->pack_start_defaults($frame2);
$win->show_all();
main Gtk;
#################################################################


Here it won't work...




> > 3. in Gtk.pm:
> > $VERSION = '0.7000';
>
> This is very old, please use 0.7006 instead.

Uhm, I can't ... it's a long story with 3 networks, me being root on
just one of them, many users and such .... actually I need to use the 
machines just as they are :-(((


Regards
Stefan
-- 
Stefan Kamphausen              <kamphausen novelscience com>
                                   http://www.skamphausen.de
Novel Science International GmbH
____________________________________________________________

Postfach    2944                 Tel:   +49 551 / 50 41 6- 0
37019 Goettingen                 Fax:   +49 551 / 50 41 6-99
Germany                          http://www.novelscience.com