- Timestamp:
- May 27, 2009, 10:25:22 PM (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
extensions/pLoader/trunk/src/Uploader/GUI/wxHtmlWindow.pm
r2597 r3357 28 28 my $this = $class->SUPER::new( @_ ); 29 29 30 if( -e '../res/intro.html' ){ 31 $this->LoadPage( 32 '../res/intro.html' 33 ); 34 } 30 return $this; 31 } 35 32 36 return $this; 33 sub InitHrefCallbacks { 34 my ( $self, $callbacks ) = @_; 35 36 $callbacks ||={}; 37 $self->{HrefCallbacks} = $callbacks ; 37 38 } 38 39 … … 40 41 my( $this, $link ) = @_; 41 42 42 Wx::LogMessage( 'Link clicked: href="%s"', $link->GetHref() ); 43 $this->SUPER::OnLinkClicked( $link ); 43 my $href = $link->GetHref(); 44 45 $this->{HrefCallbacks}->{$href}->() if exists $this->{HrefCallbacks}->{$href}; 46 44 47 } 45 48
Note: See TracChangeset
for help on using the changeset viewer.