Alexander Nusov > Tkx-WinIco > Tkx::WinIco

Download:
Tkx-WinIco-0.01.tar.gz

Dependencies

Annotate this POD

View/Report Bugs
Module Version: 0.01   Source  

NAME ^

Tkx::WinIco - The taskbar extension for Tkx on Win.

VERSION ^

Version 0.01

SYNOPSIS ^

Quick summary of what the module does. Perhaps a little code snippet.

    use Tkx;
    use Tkx::WinIco;
    
    # Some Tk Stuff.
    Tkx::option_add('*Menu.tearOff', 0);
    
    # Get reference to "." and create context menu.
    my $mw   = Tkx::widget->new('.');
    my $menu = $mw->new_menu();
    
    $menu->add_command(
        -label   => 'Quit',
        -command => sub {
            $mw->g_destroy();
        },
    );
    
    # Create icon resource.
    my $icon = Tkx::WinIco->new('./icons/1.ico');
    
    # Add icon to taskbar.
    $icon->taskbar_add(text => 'Tooltip');
    
    # Change tooltip.
    $icon->taskbar_modify(-text => 'New tooltip');
    
    # Hide icon.
    $icon->taskbar_delete();
    
    # Restore icon.
    $icon->taskbar_add();
    
    # Bind events.
    $icon->bind('WM_RBUTTONUP' => sub {
        my ($ico, $message, $x, $y) = @_;
        $menu->g_tk___popup($x, $y);
    });
    
    # Main loop.
    Tkx::MainLoop();
    1;

INSTALLATION ^

Install Tkx::WinIco as usual perl package.

Download winico06.zip module from http://sourceforge.net/projects/tktable/files/winico/0.6/ then extract Winico06.dll from archive and put it into same directory as a script.

However, you can specify any other path using

    use Tkx::WinIco {dll => './libs/winico.dll'};

METHODS ^

new

bind

taskbar_add

taskbar_modify

taskbar_delete

info

AUTHOR ^

Alexander Nusov, <alexander.nusov+cpan at gmail.com>

BUGS ^

Please report any bugs or feature requests to bug-tkx-winico at rt.cpan.org, or through the web interface at http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Tkx-WinIco. I will be notified, and then you'll automatically be notified of progress on your bug as I make changes.

SUPPORT ^

You can find documentation for this module with the perldoc command.

    perldoc Tkx::WinIco

You can also look for information at:

ACKNOWLEDGEMENTS ^

Leo Schubert, Brueckner&Jarosch Ing.-GmbH

Pat Thoyts.

LICENSE AND COPYRIGHT ^

Copyright 2010 Alexander Nusov.

This program is free software; you can redistribute it and/or modify it under the terms of either: the GNU General Public License as published by the Free Software Foundation; or the Artistic License.

See http://dev.perl.org/licenses/ for more information.

syntax highlighting: