Bug in frame->set_shadow_type?

[Stefan Kamphausen <kamphausen novelscience com>]

Dear perl-gtk-Gurus,

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

Example:

This works fine

# Setup the style
$font_names{'UIHead2'} = '-adobe-helvetica-bold-r-normal-*-*-140-*-*-p-*-iso8859-1';
my $gui_head2_style = new Gtk::Style;
$gui_head2_style->font(Gtk::Gdk::Font->load($font_names{'UIHead2'}));
...
# Create a frame
$frame = new Gtk::Frame(" Log- und Warnsystem  ");
$frame->set_style($gui_head2_style);
$frame->set_shadow_type( 'etched_out' );


Whereas this doesn't change the frame-shadow:
 
my $fr = new Gtk::Frame($msg_titles[0]);
$fr->set_shadow_type( 'etched_out' );


I found a similar question in the archives:

http://mail.gnome.org/archives/gtk-perl-list/2000-September/msg00018.html
but that thread seems to be D.B.S (dead before solution ;-)


My System:

1. SuSE Linux 7.1 (not very good BTW)

2. perl -version

This is perl, v5.6.0 built for i586-linux

Copyright 1987-2000, Larry Wall
[snip]

3. in Gtk.pm:
$VERSION = '0.7000';



Regards
-- 
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