App-Chart
view release on metacpan or search on metacpan
lib/App/Chart/Gtk2/RawDialog.pm view on Meta::CPAN
my $entry = $self->{'entry'} = Gtk2::Entry->new;
$hbox->pack_start ($entry, 1, 1, 0.5 * Gtk2::Ex::Units::em($entry));
$entry->signal_connect (activate => \&_do_entry_activate);
$entry->grab_focus;
$vbox->show_all;
# Size per a sensible height for the notebook.
# With all the scrolleds in 'never' mode they give their contained
# treeviews as their width.
# FIXME: ... which is not true any more ...
Gtk2::Ex::Units::set_default_size_with_subsizes
($self, [$notebook, -1, '25 lines']);
}
sub _init_series {
my ($notebook, $scrolled, $pagenum) = @_;
$scrolled->{'dirty'} = 1;
$scrolled->set (hscrollbar_policy => 'automatic');
my $treeview = $scrolled->{'seriestreeview'}
= App::Chart::Gtk2::SeriesTreeView->new;
$scrolled->add ($treeview);
$scrolled->show_all;
}
sub _init_dividends {
my ($notebook, $vbox, $pagenum) = @_;
my $self = $notebook->get_toplevel;
my $scrolled = Gtk2::ScrolledWindow->new;
$scrolled->set (hscrollbar_policy => 'never');
$vbox->pack_start ($scrolled, 1,1,0);
my $treeview = Gtk2::TreeView->new;
$scrolled->add ($treeview);
require App::Chart::DBI;
my $dbh = App::Chart::DBI->instance;
my $em = Gtk2::Ex::Units::em($self);
my $date_width = App::Chart::Gtk2::GUI::string_width ($treeview, '2099-99-99 ');
my $date_width_editable = $date_width * 1.4; # diff font, and pulldown
my $digit_width = Gtk2::Ex::Units::digit_width ($self);
my $datasheet = Gtk2::Ex::Datasheet::DBI->new
({ dbh => $dbh,
sql => { select => 'ex_date, record_date, pay_date, amount, imputation, type, qualifier, note',
from => 'dividend',
order_by => 'ex_date DESC',
where => 'symbol=?',
bind_values => [ '' ],
},
treeview => $treeview,
fields => [ { name => 'ex_date',
header_markup => __('Ex'),
x_absolute => $date_width_editable,
validation => \&validate_date,
# renderer => 'date',
},
{ name => 'record_date',
header_markup => __('Record'),
x_absolute => $date_width_editable,
validation => \&validate_date,
# renderer => 'date',
},
{ name => 'pay_date',
header_markup => __('Pay'),
x_absolute => $date_width_editable,
validation => \&validate_date,
# renderer => 'date',
},
{ name => 'amount',
header_markup => __('Amount'),
align => 'right',
x_absolute => 8 * $digit_width,
validation => \&validate_number,
},
{ name => 'imputation',
header_markup => __('Imputation'),
align => 'right',
x_absolute => 8 * $digit_width,
validation => \&validate_number,
},
{ name => 'type',
header_markup => __('Type'),
x_absolute => 6 * $em,
},
{ name => 'qualifier',
header_markup => __('Qualifier'),
x_absolute => 6 * $em,
},
{ name => 'note',
header_markup => __('Note'),
x_absolute => 10 * $em,
},
],
});
$vbox->{'insert_defaults'} = \&_dividends_insert_defaults;
_datasheet_init ($self, $vbox, $datasheet);
}
sub _dividends_insert_defaults {
my ($self, $pagewidget) = @_;
my $datasheet = $pagewidget->{'datasheet'};
my $num = $datasheet->{'column_name_to_number_mapping'};
return ($num->{'ex_date'}, $self->default_date,
$num->{'amount'}, 0,
$num->{'note'}, '');
}
sub default_date {
my ($self) = @_;
my $symbol = $self->{'symbol'} // '';
my $timezone = App::Chart::TZ->for_symbol ($symbol);
require App::Chart::Download;
my $tdate = App::Chart::Download::tdate_today ($timezone);
return App::Chart::tdate_to_iso($tdate);
}
sub _init_splits {
my ($notebook, $vbox, $pagenum) = @_;
my $self = $notebook->get_toplevel;
my $scrolled = Gtk2::ScrolledWindow->new;
$scrolled->set (hscrollbar_policy => 'never');
$vbox->pack_start ($scrolled, 1,1,0);
my $treeview = Gtk2::TreeView->new;
$scrolled->add ($treeview);
require App::Chart::DBI;
my $dbh = App::Chart::DBI->instance;
my $em = Gtk2::Ex::Units::em($self);
my $date_width = App::Chart::Gtk2::GUI::string_width ($treeview, '2099-99-99 ');
my $date_width_editable = $date_width * 1.4; # diff font, and pulldown
my $digit_width = Gtk2::Ex::Units::digit_width ($self);
my $datasheet = Gtk2::Ex::Datasheet::DBI->new
({ dbh => $dbh,
sql => { select => 'date, new, old, note',
from => 'split',
order_by => 'date DESC',
where => 'symbol=?',
bind_values => [ '' ],
},
treeview => $treeview,
fields => [ { name => 'date',
header_markup => __('Date'),
x_absolute => $date_width_editable,
validation => \&validate_date,
# renderer => 'date',
},
{ name => 'new',
header_markup => __('New'),
align => 'right',
x_absolute => 3 * $digit_width,
validation => \&validate_number,
},
{ name => 'old',
header_markup => __('Old'),
align => 'right',
x_absolute => 3 * $digit_width,
validation => \&validate_number,
},
{ name => 'note',
header_markup => __('Note'),
x_absolute => 10 * $em,
},
],
});
_datasheet_init ($self, $vbox, $datasheet);
$vbox->{'insert_defaults'} = \&_splits_insert_defaults;
}
sub _splits_insert_defaults {
my ($self, $pagewidget) = @_;
my $datasheet = $pagewidget->{'datasheet'};
my $num = $datasheet->{'column_name_to_number_mapping'};
return ($num->{'date'}, $self->default_date,
$num->{'new'}, 1,
$num->{'old'}, 1,
$num->{'note'}, '');
}
sub _init_latest {
my ($notebook, $scrolled, $pagenum) = @_;
$scrolled->{'dirty'} = 1;
$scrolled->set (hscrollbar_policy => 'never'); # label wrap
my $viewport = Gtk2::Viewport->new;
$scrolled->add ($viewport);
my $rawlatest = $scrolled->{'rawlatest'} = App::Chart::Gtk2::RawLatest->new;
$viewport->add ($rawlatest);
$scrolled->show_all;
}
sub _init_info {
my ($notebook, $scrolled, $pagenum) = @_;
$scrolled->{'dirty'} = 1;
$scrolled->set (hscrollbar_policy => 'never'); # label wrap
my $viewport = Gtk2::Viewport->new;
$scrolled->add ($viewport);
my $rawinfo = $scrolled->{'rawinfo'} = App::Chart::Gtk2::RawInfo->new;
$viewport->add ($rawinfo);
$scrolled->show_all;
}
sub _init_extra {
my ($notebook, $scrolled, $pagenum) = @_;
my $self = $notebook->get_toplevel;
$scrolled->set (hscrollbar_policy => 'automatic');
my $treeview = Gtk2::TreeView->new;
$scrolled->add ($treeview);
require App::Chart::DBI;
lib/App/Chart/Gtk2/RawDialog.pm view on Meta::CPAN
from => 'extra',
order_by => 'key ASC',
where => 'symbol=?',
bind_values => [ '' ],
},
treeview => $treeview,
fields => [
{ name => 'key',
header_markup => __('Key'),
x_absolute => 15 * $em,
},
{ name => 'value',
header_markup => __('Value'),
x_absolute => 15 * $em,
},
],
});
$scrolled->{'insert_defaults'} = \&_extra_insert_defaults;
_datasheet_init ($self, $scrolled, $datasheet);
}
sub _extra_insert_defaults {
my ($self, $pagewidget) = @_;
return;
}
sub _init_intraday {
my ($notebook, $scrolled, $pagenum) = @_;
my $self = $notebook->get_toplevel;
$scrolled->set (hscrollbar_policy => 'automatic');
my $treeview = Gtk2::TreeView->new;
$scrolled->add ($treeview);
require App::Chart::DBI;
my $dbh = App::Chart::DBI->instance;
my $em = Gtk2::Ex::Units::em($self);
my $digit_width = Gtk2::Ex::Units::digit_width ($self);
my $datasheet = Gtk2::Ex::Datasheet::DBI->new
({ dbh => $dbh,
sql => { select => 'mode, error, fetch_timestamp, url, etag, last_modified',
from => 'intraday_image',
order_by => 'mode ASC',
where => 'symbol=?',
bind_values => [ '' ],
},
treeview => $treeview,
fields => [ { name => 'mode',
header_markup => __('Mode'),
x_absolute => 4 * $em,
},
{ name => 'error',
header_markup => __('Error'),
x_absolute => 10 * $em,
},
{ name => 'fetch_timestamp',
header_markup => __('Fetch Timestamp'),
x_absolute => (length('2009-03-09 22:01:31+00:00')
* $digit_width),
validation => \&validate_integer,
},
{ name => 'url',
header_markup => __('URL'),
x_absolute => 10 * $em,
},
{ name => 'etag',
header_markup => __('ETag'),
x_absolute => 10 * $em,
},
{ name => 'last_modified',
header_markup => __('Last Modified'),
x_absolute => 10 * $em,
},
],
multi_select => 1,
});
_datasheet_init ($self, $scrolled, $datasheet);
}
sub _init_lines {
my ($notebook, $scrolled, $pagenum) = @_;
my $self = $notebook->get_toplevel;
$scrolled->set (hscrollbar_policy => 'automatic');
my $treeview = Gtk2::TreeView->new;
$scrolled->add ($treeview);
require App::Chart::DBI;
my $dbh = App::Chart::DBI->instance;
my $date_width = App::Chart::Gtk2::GUI::string_width ($treeview, '2099-99-99 ');
my $date_width_editable = $date_width * 1.4; # diff font, and pulldown
my $em = Gtk2::Ex::Units::em($treeview);
my $digit_width = Gtk2::Ex::Units::digit_width ($self);
my $datasheet = Gtk2::Ex::Datasheet::DBI->new
({ dbh => $dbh,
sql => { select => 'id,date1,price1,date2,price2,horizontal',
from => 'line',
order_by => 'id ASC',
where => 'symbol=?',
bind_values => [ '' ],
},
treeview => $treeview,
fields => [
{ name => 'id',
header_markup => __('Id'),
x_absolute => 3 * $em,
},
{ name => 'date1',
header_markup => __('Date1'),
x_absolute => $date_width_editable,
validation => \&validate_date,
# renderer => 'date',
},
{ name => 'price1',
header_markup => __('Price1'),
x_absolute => 15 * $digit_width,
validation => \&validate_number,
},
{ name => 'date2',
header_markup => __('Date2'),
x_absolute => $date_width_editable,
validation => \&validate_date,
# renderer => 'date',
},
{ name => 'price2',
header_markup => __('Price2'),
x_absolute => 15 * $digit_width,
validation => \&validate_number,
},
{ name => 'horizontal',
header_markup => __('Horizontal'),
# validation => \&validate_boolean,
},
],
});
_datasheet_init ($self, $scrolled, $datasheet);
$scrolled->{'insert_defaults'} = \&_lines_insert_defaults;
}
sub _lines_insert_defaults {
my ($self, $pagewidget) = @_;
my $datasheet = $pagewidget->{'datasheet'};
my $num = $datasheet->{'column_name_to_number_mapping'};
#### $num
my $date = $self->default_date;
return ($num->{'date1'}, $date,
$num->{'price1'}, 0,
$num->{'date2'}, $date,
$num->{'price2'}, 1);
}
sub _init_alerts {
my ($notebook, $scrolled, $pagenum) = @_;
my $self = $notebook->get_toplevel;
$scrolled->set (hscrollbar_policy => 'automatic');
my $treeview = Gtk2::TreeView->new;
$scrolled->add ($treeview);
require App::Chart::DBI;
my $dbh = App::Chart::DBI->instance;
my $em = Gtk2::Ex::Units::em($treeview);
my $digit_width = Gtk2::Ex::Units::digit_width ($self);
my $datasheet = Gtk2::Ex::Datasheet::DBI->new
({ dbh => $dbh,
sql => { select => 'id,price,above',
from => 'alert',
order_by => 'id ASC',
where => 'symbol=?',
bind_values => [ '' ],
},
treeview => $treeview,
fields => [
{ name => 'id',
header_markup => __('Id'),
x_absolute => 3 * $em,
},
{ name => 'price1',
header_markup => __('Price1'),
x_absolute => 15 * $digit_width,
validation => \&validate_number,
},
{ name => 'above',
header_markup => __('Above'),
# validation => \&validate_boolean,
},
],
});
_datasheet_init ($self, $scrolled, $datasheet);
}
sub _datasheet_init {
my ($self, $pagewidget, $datasheet) = @_;
my $scrolled = $pagewidget;
if ($pagewidget->isa ('Gtk2::VBox')) {
($scrolled) = $pagewidget->get_children;
if ($datasheet->{'read_only'}) {
$pagewidget->pack_start (Gtk2::Label->new(__('*** Read only ***')),
0,0,0);
}
}
$pagewidget->{'dirty'} = 1;
$pagewidget->{'datasheet'} = $datasheet;
push @{$self->{'datasheets'}}, $datasheet;
my $treeview = $scrolled->get_child;
foreach my $column ($treeview->get_columns) {
$column->set (resizable => 1);
$column->set_sizing ('fixed');
}
$treeview->set_fixed_height_mode (1);
$pagewidget->show_all;
_refresh_page ($pagewidget);
}
sub _init_weblinks {
my ($notebook, $scrolled, $pagenum) = @_;
$scrolled->set (hscrollbar_policy => 'automatic');
my $treeview = Gtk2::TreeView->new;
$treeview->set (tooltip_column => 2);
$treeview->signal_connect (row_activated => \&_do_weblink_row_activate);
$treeview->signal_connect (button_press_event => \&_do_weblink_button_press);
$scrolled->add ($treeview);
my $store = $scrolled->{'weblinks_store'}
= Gtk2::ListStore->new ('Glib::String', 'Glib::String', 'Glib::String');
$treeview->set_model ($store);
my $renderer = Gtk2::CellRendererText->new;
$renderer->set (xalign => 0,
ypad => 0);
$renderer->set_fixed_height_from_font (1);
my $em = Gtk2::Ex::Units::em($treeview);
{
my $column = Gtk2::TreeViewColumn->new_with_attributes
(__('Name'), $renderer, markup => 0);
$column->set (sizing => 'fixed',
fixed_width => 20*$em,
lib/App/Chart/Gtk2/RawDialog.pm view on Meta::CPAN
});
_do_notebook_page ($notebook); # redraw current page
}
# 'response' signal on ourselves
sub _do_response {
my ($self, $response) = @_;
if ($response eq RESPONSE_REFRESH) {
$self->refresh;
} elsif ($response eq RESPONSE_INSERT) {
my $notebook = $self->{'notebook'};
my $pagenum = $notebook->get_current_page;
my $pagewidget = $notebook->get_nth_page ($pagenum);
if ((my $datasheet = $pagewidget->{'datasheet'})
&& (my $defaults_func = $pagewidget->{'insert_defaults'})) {
$datasheet->insert ($defaults_func->($self, $pagewidget));
}
} elsif ($response eq RESPONSE_DELETE) {
my $notebook = $self->{'notebook'};
my $pagenum = $notebook->get_current_page;
my $pagewidget = $notebook->get_nth_page ($pagenum);
if (my $datasheet = $pagewidget->{'datasheet'}) {
$datasheet->delete;
}
} elsif ($response eq RESPONSE_APPLY) {
foreach my $datasheet (@{$self->{'datasheets'}}) {
$datasheet->apply;
}
} elsif ($response eq RESPONSE_UNDO) {
my $notebook = $self->{'notebook'};
my $pagenum = $notebook->get_current_page;
my $pagewidget = $notebook->get_nth_page ($pagenum);
if (my $datasheet = $pagewidget->{'datasheet'}) {
$datasheet->undo;
}
} elsif ($response eq 'close') {
# as per a keyboard close, defaults to raising 'delete-event', which in
# turn defaults to a destroy
$self->signal_emit ('close');
} elsif ($response eq 'help') {
require App::Chart::Manual;
App::Chart::Manual->open(__p('manual-node','Raw Data'), $self);
}
}
# 'activate' signal on the Gtk2::Entry widget
sub _do_entry_activate {
my ($entry) = @_;
my $self = $entry->get_toplevel;
$self->set_symbol ($entry->get_text);
}
# return true if $str is a valid ISO format date like 2008-05-27
sub validate_date {
my ($str) = @_;
return ($str =~ /^[0-9][0-9][0-9][0-9]-[0-9][0-9]-[0-9][0-9]$/);
}
# return true if $str is a valid number
sub validate_number {
my ($str) = @_;
return ($str =~ /^[0-9]*(.[0-9]*)?$/);
}
# return true if $str is a valid number
sub validate_integer {
my ($str) = @_;
return ($str =~ /^[0-9]*$/);
}
sub popup {
my ($class, $symbol, $parent) = @_;
if (! defined $symbol) { $symbol = ''; }
require App::Chart::Gtk2::Ex::ToplevelBits;
return App::Chart::Gtk2::Ex::ToplevelBits::popup
($class,
properties => { symbol => $symbol },
screen => $parent);
}
1;
__END__
=for stopwords RawDialog
=head1 NAME
App::Chart::Gtk2::RawDialog -- raw data display dialog
=head1 SYNOPSIS
use App::Chart::Gtk2::RawDialog;
App::Chart::Gtk2::RawDialog->popup();
=head1 WIDGET HIERARCHY
C<App::Chart::Gtk2::RawDialog> is a subclass of C<Gtk2::Dialog>.
Gtk2::Widget
Gtk2::Container
Gtk2::Bin
Gtk2::Window
Gtk2::Dialog
App::Chart::Gtk2::RawDialog
=head1 DESCRIPTION
A C<App::Chart::Gtk2::RawDialog> widget displays raw daily date, open, high, low,
etc from the database.
=head1 FUNCTIONS
=over 4
=item C<< App::Chart::Gtk2::RawDialog->new (key=>value,...) >>
Create and return a new RawDialog dialog widget.
=item C<< App::Chart::Gtk2::RawDialog->popup () >>
=item C<< App::Chart::Gtk2::RawDialog->popup ($symbol, $parent) >>
Create and open a C<RawDialog> dialog showing the data for C<$symbol>.
C<$symbol> can be omitted, or C<undef>, or the empty string, to display
nothing initially.
( run in 1.685 second using v1.01-cache-2.11-cpan-39bf76dae61 )