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;


##</code><code>##

# 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'),
    }},
    );
}