#############################################################################
## Name: lib/Wx/DemoModules/wxRichToolTip.pm
## Purpose: wxPerl demo helper for Wx::RichToolTip
## Author: Mark Dootson
## Modified by:
## Created: 19/03/2012
## RCS-ID: $Id: wxRichToolTip.pm 3229 2012-03-19 04:05:07Z mdootson $
## Copyright: (c) 2012 Mattia Barbon
## Licence: This program is free software; you can redistribute it and/or
## modify it under the same terms as Perl itself
#############################################################################
package Wx::DemoModules::wxRichToolTip;
use strict;
use Wx qw( wxICON_INFORMATION );
use base qw(Wx::Panel);
use Wx::Event qw(EVT_BUTTON);
sub new {
my $class = shift;
my $self = $class->SUPER::new( $_[0], -1 );
my $show = Wx::Button->new( $self, -1, 'Show tip', [20, 20] );
EVT_BUTTON( $self, $show, \&on_show_tip );
return $self;
}
sub on_show_tip {
my( $self, $event ) = @_;
my $tip = Wx::RichToolTip->new('Wx::Demo Tip', qq(You can add a tip with any text\nand newlines if you wish.\nTimeout set for 5 seconds.));
$tip->SetIcon( wxICON_INFORMATION );
$tip->SetTimeout( 5000 ); # milliseconds
$tip->ShowFor( $self ); # tip will be show for this panel
# $tip->SetIcon( Wx::Icon->new($icon));
}
sub add_to_tags { qw(windows new) }
sub title { 'wxRichToolTip' }
#Skip loading if no native wxTreeListCtrl
return defined(&Wx::RichToolTip::new);