+# a paned hbox is packed as the bottom of the vbox
+my $bhpane = Gtk2::HPaned->new;
+$vbox->pack_end($bhpane, 1, 1, 0);
+
+# now create the lh and rh panes
+my $lhvpane = Gtk2::VPaned->new;
+my $rhvpane = Gtk2::VPaned->new;
+$bhpane->pack1($lhvpane, 1, 0);
+$bhpane->pack2($rhvpane, 1, 0);
+
+# first add a column type for the QRG
+my $font = 'monospace 9';
+my $oddbg = 'light blue';
+my $evenbg = 'white';
+
+Gtk2::SimpleList->add_column_type( 'qrg',
+ type => 'Glib::Scalar',
+ renderer => 'Gtk2::CellRendererText',
+ attr => sub {
+ my ($treecol, $cell, $model, $iter, $col_num) = @_;
+ my $info = $model->get ($iter, $col_num);
+ $cell->set(text => sprintf("%.1f", $info), font => $font, xalign => 1.0);
+ }
+ );
+
+
+Gtk2::SimpleList->add_column_type( 'tt',
+ type => 'Glib::Scalar',
+ renderer => 'Gtk2::CellRendererText',
+ attr => sub {
+ my ($treecol, $cell, $model, $iter, $col_num) = @_;
+ my $info = $model->get ($iter, $col_num);
+ $cell->set(text => $info, font => $font);
+ }
+ );
+
+Gtk2::SimpleList->add_column_type( 'ttlong',
+ type => 'Glib::Scalar',
+ renderer => 'Gtk2::CellRendererText',
+ attr => sub {
+ my ($treecol, $cell, $model, $iter, $col_num) = @_;
+ my $info = $model->get ($iter, $col_num);
+ $Text::Wrap::columns = 80;
+ $cell->set(text => join("\n",wrap("","",$info)), font => $font);
+ }
+ );
+
+Gtk2::SimpleList->add_column_type( 'ttlesslong',
+ type => 'Glib::Scalar',
+ renderer => 'Gtk2::CellRendererText',
+ attr => sub {
+ my ($treecol, $cell, $model, $iter, $col_num) = @_;
+ my $info = $model->get ($iter, $col_num);
+ $Text::Wrap::columns = 65;
+ $cell->set(text => join("\n",wrap("","",$info)), font => $font);
+ }
+ );
+
+Gtk2::SimpleList->add_column_type( 'ttshort',
+ type => 'Glib::Scalar',
+ renderer => 'Gtk2::CellRendererText',
+ attr => sub {
+ my ($treecol, $cell, $model, $iter, $col_num) = @_;
+ my $info = $model->get ($iter, $col_num);
+ $Text::Wrap::columns = 30;
+ $cell->set(text => join("\n",wrap("","",$info)), font => $font);
+ }
+ );