#!/usr/bin/perl -w

use strict;
use warnings;

use Gtk2		'-init';
use Glib		qw (TRUE FALSE );


    Gtk2::Rc->parse_string(<<__);

style "main-window"	{ bg[NORMAL] = "wheat" }
class "GtkWindow" style "main-window"

style "event-box"	{ bg[NORMAL] = "blue" }
class "GtkEventBox" style "event-box"

style "view-port"	{ bg[NORMAL] = "pink" }
class "GtkViewport" style "view-port"
__


    my $f_main = Gtk2::Window->new ();

    my $f_outer = Gtk2::VBox->new ( FALSE, 0 );
    $f_main->add ( $f_outer );

    my $f_top = Gtk2::HBox->new ();
    $f_top->set_size_request ( 300, 100 );
    $f_outer->pack_start ( $f_top, FALSE, FALSE, 0 );

    my $f_middle = Gtk2::ScrolledWindow->new ();
    $f_outer->pack_start ( $f_middle, FALSE, FALSE, 0 );
    $f_middle->set_size_request ( -1, 100 );
    $f_middle->set_policy ( 'never', 'always' );

    my $view_port = Gtk2::Viewport->new ( undef, undef );
#@#    $view_port->modify_bg ( 'normal', Gtk2::Gdk::Color->parse ( 'green' ) );
    $f_middle->add ( $view_port );

#    my $e_box = Gtk2::EventBox->new();
#    $view_port->add ( $e_box );


    $f_main->show_all;

Gtk2->main;
