view release on metacpan or  search on metacpan

chart  view on Meta::CPAN

  unless (binmode(STDIN, ":encoding(console_in)")
          && binmode(STDOUT, ":encoding(console_out)")) {
    warn "Cannot set :encoding on stdin/out: $!\n";
  }
  # Not sure coding on STDERR is a good idea, could loop trying to print.
  # binmode(STDERR, ":encoding(console_out)")

  # Old code:
  #
  # # version 0.06 for bug fix of a struct size for perl 5.10 (there's some
  # # fragile duplication)
  # require Encode;           # Encode::PERLQQ
  # require PerlIO::locale; PerlIO::locale->VERSION(0.06);
  # { no warnings 'once';
  #   local $PerlIO::encoding::fallback = Encode::PERLQQ; # \x{1234} style
  #   (binmode (STDOUT, ':locale') && binmode (STDERR, ':locale'))
  #     or die "Cannot set :encoding on stdout/stderr: $!\n";
  # }
  # Makefile: 'PerlIO::locale' => '0.06',
  # , libperlio-locale-perl (>= 0.06)
}

lib/App/Chart/Manual.pm  view on Meta::CPAN

sub open {
  my ($class, $node, $parent_widget) = @_;
  my $uri;
  if (defined $node && $node =~ /^http:/) {
    $uri = $node;
  } else {
    require URI::file;
    $uri = URI::file->new (App::Chart::datafilename('doc', 'chart.html'));
    if (defined $node) {
      require App::Chart::Texinfo::Util;
      $uri->fragment (App::Chart::Texinfo::Util::node_to_html_anchor($node));
    }
  }
  require App::Chart::Gtk2::GUI;
  App::Chart::Gtk2::GUI::browser_open ($uri, $parent_widget);
}

sub open_for_symbol {
  my ($class, $symbol, $parent_widget) = @_;
  my $node = App::Chart::symbol_source_help ($symbol);
  if (defined $node) {