/ 
Tkx-WinIco-0.01
River stage zero No dependents
/ Tkx::WinIco

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.