source: extras/pLoader/trunk/src/Uploader/GUI/wxHtmlWindow.pm @ 2597

Last change on this file since 2597 was 2597, checked in by ronosman, 16 years ago

pLoader initial release

  • Property svn:eol-style set to LF
File size: 1.8 KB
Line 
1# +-----------------------------------------------------------------------+
2# | pLoader - a Perl photo uploader for Piwigo                            |
3# +-----------------------------------------------------------------------+
4# | Copyright(C) 2008      Piwigo Team                  http://piwigo.org |
5# +-----------------------------------------------------------------------+
6# | This program is free software; you can redistribute it and/or modify  |
7# | it under the terms of the GNU General Public License as published by  |
8# | the Free Software Foundation                                          |
9# |                                                                       |
10# | This program is distributed in the hope that it will be useful, but   |
11# | WITHOUT ANY WARRANTY; without even the implied warranty of            |
12# | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU      |
13# | General Public License for more details.                              |
14# |                                                                       |
15# | You should have received a copy of the GNU General Public License     |
16# | along with this program; if not, write to the Free Software           |
17# | Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, |
18# | USA.                                                                  |
19# +-----------------------------------------------------------------------+
20package Uploader::GUI::wxHtmlWindow;
21
22use strict;
23use Wx::Html;
24use base qw(Wx::HtmlWindow);
25
26sub new {
27  my $class = shift;
28  my $this = $class->SUPER::new( @_ );
29
30  if( -e '../res/intro.html' ){
31      $this->LoadPage( 
32          '../res/intro.html' 
33      );
34  }
35
36  return $this;
37}
38
39sub OnLinkClicked {
40  my( $this, $link ) = @_;
41
42  Wx::LogMessage( 'Link clicked: href="%s"', $link->GetHref() );
43  $this->SUPER::OnLinkClicked( $link );
44}
45
461;
Note: See TracBrowser for help on using the repository browser.