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
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:
RT: CPAN's request tracker
AnnoCPAN: Annotated CPAN documentation
CPAN Ratings
Search CPAN
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.