view release on metacpan or  search on metacpan

misc/t-raw.pl  view on Meta::CPAN

  # 
  #     my $datasheet = Gtk2::Ex::Datasheet::DBI->new
  #       ({ dbh => App::Chart::DBI->instance,
  #          sql => { select   => 'date, open, high, low, close, volume, openint',
  #                   from     => 'daily',
  #                   order_by => 'date DESC',
  #                   where    => 'symbol=?',
  #                   bind_values => [ '' ],
  #                 },
  #          treeview => $treeview,
  #          fields => [ { name          => 'date',
  #                        header_markup => __('Date'),
  #                        x_absolute    => $date_width,
  #                        validation    => \&validate_date,
  #                      },
  #                      { name          => 'open',
  #                        header_markup => __('Open'),
  #                        align         => 'right',
  #                        x_absolute    => 9 * $digit_width,
  #                        validation    => \&validate_number,
  #                      },
  #                      { name          => 'high',
  #                        header_markup => __('High'),
  #                        align         => 'right',
  #                        x_absolute    => 9 * $digit_width,
  #                        validation    => \&validate_number,
  #                      },
  #                      { name          => 'low',
  #                        header_markup => __('Low'),
  #                        align         => 'right',
  #                        x_absolute    => 9 * $digit_width,
  #                        validation    => \&validate_number,
  #                      },
  #                      { name          => 'close',
  #                        header_markup => __('Close'),
  #                        align         => 'right',
  #                        x_absolute    => 9 * $digit_width,
  #                        validation    => \&validate_number,
  #                      },
  #                      { name          => 'volume',
  #                        header_markup => __('Volume'),
  #                        align         => 'right',
  #                        x_absolute    => 10 * $digit_width,
  #                        validation    => \&validate_number,
  #                      },
  #                      { name          => 'openint',
  #                        header_markup => __('Open Int'),
  #                        align         => 'right',
  #                        x_absolute    => 8 * $digit_width,
  #                        validation    => \&validate_number,
  #                      },
  #                    ],
  #        });
  #     $scrolled->{'datasheet'} = $datasheet;
  #     push @{$self->{'datasheets'}}, $datasheet;
  # 
  #     foreach my $column ($treeview->get_columns) {
  #       $column->set (sizing => 'fixed',
  #                     resizable => 1);
  #       foreach my $renderer ($column->get_cell_renderers) {
  #         if (my $subr = $renderer->can('set_fixed_height_from_font')) {
  #           $renderer->set_fixed_height_from_font (1);  # one line high
  #         }
  #       }
  #     }
  #     $treeview->set_fixed_height_mode (1);
  #   }