Re: [perl-win32-gui] Controls

[Aldo \"dada\" Calpini]

Jason Fairfax wrote:
> Hi all,
> 
> My first post ... love the GUI module, great work.
> 
> Ok, a couple of quick questions:
> 
> I have looked everywhere but can't seem to find info on some controls /
> widgets I need, especially a control to use as a volume control. The
> AddSlider, can it have a style attached to it, or is there another
> 'conventional' slider bar type widget?

the styles defined for Sliders are:

    -vertical => 0/1
    -noticks  => 0/1
    -nothumb  => 0/1

but what do you mean with 'conventional' type?

> Also, is there a way to 'lock' the mouse into an area ( say after a
> double click within that area, another double click to 'unlock' the
> mouse ) ...?

not currently. I could implement the SetCursorPos() API, but it does
not sound so easy anyway.
 
> Is there an event for a label for a right button click?

no, not by design. you can use an interactive Graphic control for 
this, example follows:

    $Label = new Win32::GUI::Graphic(
        $Window,
        -name => "Label",
        -pos => [0, 0],
        -size => [100, 20],
        -interactive => 1,
    );

    sub Label_Paint {
        my($G) = @_;
        $G->TextOut(0, 0, "example");
    }

    sub Label_RButtonDown {
        print "got right button click!\n";
    }

cheers,
Aldo

__END__
# Aldo Calpini
%_ = split undef, join ' ', qw(fahokem 
xritajbugne csuctawer jhdtlrnpqloevkshpr
); print map $_{$_}, sort keys %_;