—

              
HideShow 11 lines of Pod
=pod
=head1 NAME
examples/macro.pl - macro recording
=head1 FEATURES
Demonstration and test of the mouse_event() function 
=cut
use strict;
use warnings;
use Prima qw(Buttons MsgBox Dialog::FileDialog Application);
my $state = 'empty';
my $wtx   = 'Macros';
my @data  = ();
my @savepos  = ();
my $ipos  = 0;
my $mstate;
my $doMouseMove = 0;
sub mopen
{
        my $f = Prima::open_file(
                filter    => [
                        ['Macro record' => '*.mrec'],
                        ['All files' => '*']
                ],
        );
        return unless defined $f;
        if ( open F, $f) {
                stop();
                @data = ();
                while (<F>) {
                        push ( @data, [ split(' ', $_)]);
                }
                close F;
                update();
        } else {
                message("Cannot load $f");
        }
}
sub msave
{
        unless ( scalar @data) {
                message("Nothing to save");
                return;
        }
        my $f = Prima::save_file(
                filter    => [
                        ['Macro record' => '*.mrec'],
                        ['All files' => '*']
                ],
        );
        return unless defined $f;
        if ( open F, "> $f") {
                for ( @data) {
                        print F "@$_\n";
                }
                close F;
        } else {
                message("Cannot save $f");
        }
}
my $w = Prima::MainWindow-> new(
        text => $wtx,
        size => [ 436, 54],
        designScale => [ 7, 16 ],
        menuItems => [[ '~File' => [
                        ['~Open...' => 'F3' => 'F3' => \&mopen],
                        ['~Save...' => 'F2' => 'F2' => \&msave],
                ],
        ]],
);
sub tick
{
        if ( $state eq 'rec') {
                push( @data, [
                        $::application-> pointerPos,
                        $::application-> get_mouse_state,
                        $::application-> get_shift_state
                ]);
                return;
        }
# play
        if ( ++$ipos >= scalar @data) {
                stop();
                return;
        }
        my $d = $data[$ipos];
        $::application-> pointerPos( $$d[0], $$d[1]);
        my $v = $::application-> get_widget_from_point( $$d[0], $$d[1]);
        if ( $v) {
                my ( $x, $y) = $v-> screen_to_client( $$d[0], $$d[1]);
                if ( $mstate != $$d[2]) {
                        my $btn  = $mstate > $$d[2] ? ( $mstate - $$d[2]) : ( $$d[2] - $mstate);
                        my $cmd  = $mstate > $$d[2] ? cm::MouseUp : cm::MouseDown;
                        $v-> select if $cmd == cm::MouseDown && $btn == mb::Left;
                        $v-> mouse_event( $cmd, $btn, $$d[3], $x, $y, 0, 0);
                        $mstate = $$d[2];
                } elsif ( $doMouseMove) {
                        $v-> mouse_event( cm::MouseMove, $$d[3], $x, $y, 0, 0);
                }
        }
}
$w-> insert( Timer =>
        timeout => 10,
        name    => 'Timer1',
        onTick  => \&tick,
);
sub update
{
        if ( $state eq 'empty') {
                $w-> Start -> enabled(0);
                $w-> Stop  -> enabled(0);
                $w-> Record-> enabled(1);
                $w-> Clean -> enabled(0);
                $w-> text( "$wtx");
        } elsif ( $state eq 'rec') {
                $w-> Start -> enabled(0);
                $w-> Stop  -> enabled(1);
                $w-> Record-> enabled(0);
                $w-> Clean -> enabled(0);
                $w-> text( "$wtx - recording");
        } elsif ( $state eq 'stop') {
                $w-> Start -> enabled(1);
                $w-> Stop  -> enabled(0);
                $w-> Record-> enabled(1);
                $w-> Clean -> enabled(1);
                $w-> text( "$wtx - stopped");
        } elsif ( $state eq 'play') {
                $w-> Start -> enabled(0);
                $w-> Stop  -> enabled(1);
                $w-> Record-> enabled(0);
                $w-> Clean -> enabled(0);
                $w-> text( "$wtx - playing");
        }
}
sub record
{
        clean();
        $state = 'rec';
        update;
        $w-> Timer1-> start;
}
sub start
{
        $state = 'play';
        update;
        @savepos = $::application-> pointerPos;
        $mstate  = $::application-> get_mouse_state;
        $w-> Timer1-> start;
}
sub stop
{
        $w-> Timer1-> stop;
        $::application-> pointerPos( @savepos) if $state eq 'play';
        $state = 'stop';
        update;
        $ipos = 0;
}
sub clean
{
        $w-> Timer1-> stop;
        $state = 'empty';
        update;
        @data = ();
        $ipos = 0;
}
$w-> insert( [ Button =>
        text    => '~Start',
        pack    => { side => 'left', padx => 10 },
        name    => 'Start',
        selectable => 0,
        onClick => \&start,
], [ Button =>
        text    => 'S~top',
        pack    => { side => 'left', padx => 10 },
        name    => 'Stop',
        selectable => 0,
        onClick => \&stop,
], [ Button =>
        text    => '~Record',
        pack    => { side => 'left', padx => 10 },
        name    => 'Record',
        selectable => 0,
        onClick => \&record,
], [ Button =>
        text    => '~Clean',
        pack    => { side => 'left', padx => 10 },
        name    => 'Clean',
        selectable => 0,
        onClick => \&clean,
],
);
update;
Prima->run;