view release on metacpan or  search on metacpan

Tk/IconCanvas.pm  view on Meta::CPAN

package Tk::IconCanvas;

use Tk;
use Tk::Scrollbar;
use Tk::Frame;

use vars qw ($VERSION $SERIAL_NUMBER @COPYLIST $DRAGDROP $ICON_DEFAULTS);
use base qw (Tk::Derived Tk::Frame Tk::Widget);
use strict;
use Carp;

$SERIAL_NUMBER = 0;
$VERSION = '0.02';
@COPYLIST = ();
$DRAGDROP = 0;

$ICON_DEFAULTS =
   {
    '-font' => '-adobe-times-medium-r-normal--17-*-*-*-*-*-*-*',
    '-title' => '(Untitled)',
    '-pixmap' => undef,
    '-attach' => undef,
    '-menu' => undef,
    '-x' => 50,
    '-y' => 50,
   };

Tk::Widget->Construct ('IconCanvas');

sub Populate
   {
    my $this = shift;

    my $l_Frame = $this->Frame();

    my $l_Canvas = $l_Frame->Scrolled
       (
        'Canvas',
        '-scrollbars' => 'osoe',
        '-scrollregion' => [0, 0, 300, 200],
       );

    $l_Frame->pack
       (
        '-fill' => 'both',
        '-expand' => 'true',
       );

    $l_Canvas->pack
       (
        '-fill' => 'both',
        '-expand' => 'true',
       );

    $l_Canvas = $this->{m_Canvas} = $l_Canvas->Subwidget ('scrolled');

    $this->{'m_NormalCursor'} = $this->cget ('-cursor');

    $this->ConfigSpecs
       (
        'DEFAULT' => [$l_Canvas],
        '-background' => [[$l_Canvas], 'background', 'backGround', 'white'],
        '-normalcolor' => [['PASSIVE'], 'normalcolor', 'normalColor', 'black'],
        '-selectcolor' => [['PASSIVE'], 'selectcolor', 'selectColor', 'red'],
        '-iconspacing' => [['PASSIVE'], 'iconspacing', 'iconSpacing', 20],
        '-dragallowed' => [['PASSIVE'], 'dragallowed', 'dragAllowed', 1],
        '-autoadjust' => [['METHOD'], 'autoadjust', 'autoAdjust', 1],
        '-bg' => [[$l_Canvas], 'bg', 'bg', 'white'],