view release on metacpan or  search on metacpan

lib/App/PLab/prlens.fm  view on Meta::CPAN

# VBForm version file=1.1 builder=0.1
# [preload] 
sub
{
	return (
	'Label7' => {
		class   => 'Prima::Label',
		module  => 'Prima::Label',
		siblings => [qw(focusLink)],
		profile => {
			origin => [ 6, 328],
			name => 'Label7',
			owner => 'Form1',
			size => [ 72, 22],
			text => '~Dilations:',
			focusLink => 'Dilations',
	}},
	'Form1' => {
		class   => 'Prima::Window',
		module  => 'Prima::Classes',
		parent => 1,
		profile => {
			width => 176,
			name => 'Form1',
			text => 'Recognition setup',
			bottom => 370,
			originDontCare => 0,
			origin => [ 523, 370],
			height => 356,
			borderIcons => bi::SystemMenu | bi::Minimize | bi::TitleBar,
			left => 523,
			sizeDontCare => 0,
			size => [ 176, 356],
			onSetup => Prima::VB::VBLoader::GO_SUB('my $self = $_[0];                
my $i = $self-> PD1-> image;
$self-> PD2-> image( $i);
$self-> PD3-> image( $i);   ','Form1', 'onSetup'),
			borderStyle => bs::Single,
	}},
	'Dilations' => {
		class   => 'Prima::SpinEdit',
		module  => 'Prima::Sliders',
		profile => {
			name => 'Dilations',
			hint => 'Amount of grayscale dilations
before the processing start',
			onChange => Prima::VB::VBLoader::GO_SUB('my $self = $_[0];','Dilations', 'onChange'),
			tabOrder => 4,
			min => 0,
			max => 10,
			origin => [ 82, 328],
			owner => 'Form1',
			size => [ 60, 22],
	}},
	'Label_From' => {
		class   => 'Prima::Label',
		module  => 'Prima::Label',
		siblings => [qw(focusLink)],
		profile => {
			origin => [ 8, 64],
			name => 'Label_From',
			owner => 'UF',
			size => [ 44, 22],
			text => '~From:',
			focusLink => 'From',
	}},
	'UF' => {
		class   => 'Prima::GroupBox',
		module  => 'Prima::Buttons',
		profile => {
			origin => [ 6, 204],
			name => 'UF',
			owner => 'Form1',
			size => [ 168, 116],
			text => 'Union find',
	}},
	'From' => {
		class   => 'Prima::SpinEdit',
		module  => 'Prima::Sliders',
		profile => {
			origin => [ 56, 68],
			name => 'From',
			owner => 'UF',
			tabOrder => 4,
			hint => 'Start of \'union find\' algorithm 
 threshold multiplied by Step value',
			size => [ 100, 22],
			min => 1,
	}},
	'FLT' => {