App-Chart
view release on metacpan or search on metacpan
lib/App/Chart/Gtk2/RawDialog.pm view on Meta::CPAN
{
my $scrolled = Gtk2::ScrolledWindow->new;
$notebook->append_page ($scrolled, __('Weblinks'));
App::Chart::Gtk2::Ex::NotebookLazyPages::set_init
($notebook, $scrolled, \&_init_weblinks);
}
$notebook->signal_connect ('notify::page' => \&_do_notebook_page);
$notebook->set_current_page (1);
_do_notebook_page ($notebook, undef); # initial button sensitives
my $hbox = Gtk2::HBox->new (0, 0);
$vbox->pack_start ($hbox, 0,0,0);
$hbox->pack_start (Gtk2::Label->new (__('Symbol')), 0,0,0);
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);
lib/App/Chart/Gtk2/RawDialog.pm view on Meta::CPAN
$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);
}
lib/App/Chart/Gtk2/RawDialog.pm view on Meta::CPAN
{ 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,
resizable => 1);
$treeview->append_column ($column);
}
{
my $column = Gtk2::TreeViewColumn->new_with_attributes
(__('URL'), $renderer, text => 1);
$column->set (sizing => 'fixed',
fixed_width => 60*$em,
resizable => 1);
$column->{'menu_func'} = \&_do_weblink_menu_popup;
$treeview->append_column ($column);
}
$scrolled->show_all;
}
sub _do_weblink_row_activate {
my ($treeview, $path, $column) = @_;
my $url = _do_weblink_row_url ($treeview, $path);
require App::Chart::Gtk2::GUI;
App::Chart::Gtk2::GUI::browser_open ($url);
}
sub _do_weblink_row_url {
my ($treeview, $path) = @_;
my $store = $treeview->get_model;
my $iter = $store->get_iter ($path);
return $store->get_value ($iter, 1);
}
sub mnemonic_to_markup {
my ($str) = @_;
$str = Glib::Markup::escape_text($str);
$str =~ s{_(.)}{$1 eq '_' ? '' : "<u>$1</u>"}eg;
return $str;
}
# 'button-press-event' on the weblink TreeView
sub _do_weblink_button_press {
my ($treeview, $event) = @_;
my ($path, $column) = $treeview->get_path_at_pos ($event->x, $event->y);
if (!$path) { return; }
if (my $func = $column->{'menu_func'}) {
$func->($treeview, $event, $path);
}
return Gtk2::EVENT_PROPAGATE;
}
sub _do_weblink_menu_popup {
my ($treeview, $event, $path) = @_;
my $menu = Gtk2::Menu->new;
$menu->set_screen ($treeview->get_screen);
my $url = _do_weblink_row_url ($treeview, $path);
{
my $item = Gtk2::ImageMenuItem->new_from_stock ('gtk-open');
$item->{'url'} = $url;
$item->signal_connect (activate => \&_do_weblink_menu_open);
$menu->append ($item);
}
( run in 1.572 second using v1.01-cache-2.11-cpan-5735350b133 )