Just needed to do some trial and error testing and it came out.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;
In reply to novice Prima question by briannz556
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |