novice Prima question

briannz556 has asked for the wisdom of the Perl Monks concerning the following question:

Solved:

use strict;

use Prima qw( Application VB::VBLoader);
my $ret = Prima::VBLoad('H:\My Documents\PERL\Prima\Concepts.fm',
    Populate => {onClick => sub{trythis("writing ...")}},
);
die "$@\n" unless $ret;

sub trythis {
    my ($x) = @_;
    $ret-> textbox-> set(text => $x);
}

our $global = $ret-> textbox-> text;
print "$global\n";
$ret-> execute;
[download]

Just needed to do some trial and error testing and it came out.

Comment on novice Prima question Download Code

Replies are listed 'Best First'.
Re: novice Prima question by jdporter (Paladin) on Oct 22, 2007 at 16:29 UTC
The OP violated one of our cardinal rules and completely replaced the contents of his post. Here is the original content, as horked from a search engine cache: Hi This is my first day with Prima and I'd like some help with a understanding of two concepts that have me baffled at the moment. Question 1. How do I get a click of the button to enter text (say, the word 'Help') in to the textbox? I've tried various lines in the onclick method but all failed. Question 2. How could I get the textbox contents associated with the global variable $capture? Perl Script `use strict; use Prima qw( Application VB::VBLoader); my $ret = Prima::VBLoad('H:\My Documents\PERL\Prima\Concepts.fm'); die "$@\n" unless $ret; use vars qw(@ISA); @ISA = qw(Prima::MainWindow); $ret-> execute; our $capture;` [download] Form # VBForm version file=1.2 builder=0.2 # [preload] sub { return ( 'textbox' => { class => 'Prima::InputLine', module => 'Prima::InputLine', profile => { owner => 'Concepts', text => '', name => 'textbox', origin => [ 92, 72], size => [ 96, 17], }}, 'Concepts' => { class => 'Prima::Window', module => 'Prima::Classes', parent => 1, code => Prima::VB::VBLoader::GO_SUB(''), profile => { width => 386, left => 530, name => 'Concepts', origin => [ 530, 299], height => 177, bottom => 299, size => [ 386, 177], sizeDontCare => 0, originDontCare => 0, }}, 'Populate' => { class => 'Prima::Button', module => 'Prima::Buttons', profile => { owner => 'Concepts', text => 'Add to textbox', name => 'Populate', origin => [ 236, 60], size => [ 96, 36], onClick => Prima::VB::VBLoader::GO_SUB('my $self = $_[0 +];','Populate', 'onClick'), }}, ); } [download] Any help much appreciated. Brian Rowlands	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re: novice Prima question
by jdporter (Paladin) on Oct 22, 2007 at 16:29 UTC

The OP violated one of our cardinal rules and completely replaced the contents of his post. Here is the original content, as horked from a search engine cache:

Hi
This is my first day with Prima and I'd like some help with a understanding of two concepts that have me baffled at the moment.

Question 1. How do I get a click of the button to enter text (say, the word 'Help') in to the textbox? I've tried various lines in the onclick method but all failed.

Question 2. How could I get the textbox contents associated with the global variable $capture?

use strict;

use Prima qw( Application VB::VBLoader);
my $ret = Prima::VBLoad('H:\My Documents\PERL\Prima\Concepts.fm');
die "$@\n" unless $ret;

use vars qw(@ISA);
@ISA = qw(Prima::MainWindow);
$ret-&gt; execute;

our $capture;
[download]

# VBForm version file=1.2 builder=0.2
# [preload] 
sub
{
    return (
    'textbox' =&gt; {
        class   =&gt; 'Prima::InputLine',
        module  =&gt; 'Prima::InputLine',
        profile =&gt; {
            owner =&gt; 'Concepts',
            text =&gt; '',
            name =&gt; 'textbox',
            origin =&gt; [ 92, 72],
            size =&gt; [ 96, 17],
    }},
    'Concepts' =&gt; {
        class   =&gt; 'Prima::Window',
        module  =&gt; 'Prima::Classes',
        parent =&gt; 1,
        code =&gt; Prima::VB::VBLoader::GO_SUB(''),
        profile =&gt; {
            width =&gt; 386,
            left =&gt; 530,
            name =&gt; 'Concepts',
            origin =&gt; [ 530, 299],
            height =&gt; 177,
            bottom =&gt; 299,
            size =&gt; [ 386, 177],
            sizeDontCare =&gt; 0,
            originDontCare =&gt; 0,
    }},
    'Populate' =&gt; {
        class   =&gt; 'Prima::Button',
        module  =&gt; 'Prima::Buttons',
        profile =&gt; {
            owner =&gt; 'Concepts',
            text =&gt; 'Add to textbox',
            name =&gt; 'Populate',
            origin =&gt; [ 236, 60],
            size =&gt; [ 96, 36],
            onClick =&gt; Prima::VB::VBLoader::GO_SUB('my $self = $_[0
+];','Populate', 'onClick'),
    }},
    );
}
[download]

Any help much appreciated.

Brian Rowlands

[reply]
[d/l]
[select]