# VBForm version file=1.1 builder=0.1
# [preload] Prima::ComboBox
sub
{
return (
'TabbedNotebook1' => {
class => 'Prima::TabbedNotebook',
module => 'Prima::Notebooks',
extras => {
Radio1 => '0',
Radio2 => '0',
Radio3 => '0',
VBool => '1',
Radio4 => '0',
CopyCount => '0',
Radio6 => '2',
Radio7 => '2',
LPRadio => '2',
Orientation => '0',
HelpBtn => '1',
AddBtn => '3',
LParams => '2',
Label1 => '0',
VList => '1',
Label2 => '0',
Label3 => '0',
Label4 => '0',
RenameBtn => '3',
ImportBtn => '3',
Scaling => '0',
Profiles => '3',
ImageViewer1 => '0',
ValueBox => '1',
VCombo => '1',
ImageViewer2 => '0',
ImageViewer3 => '0',
ValueBook => '1',
ImageViewer4 => '0',
VHint => '1',
Spool => '2',
PaperSize => '0',
SaveBtn => '3',
Resolution => '0',
DelBtn => '3',
VText => '1',
LPLabel => '2',
CmdLine => '2',
Color => '0',
},
actions => {
onChild => Prima::VB::VBLoader::GO_SUB('$_[2]-> defaultInsertPage( $_[1]-> {extras}-> {$_[3]})
','TabbedNotebook1', 'onChild'),
onChildCreate => Prima::VB::VBLoader::GO_SUB('$_[3]-> origin( $_[3]->left-$_[3]->owner->left, $_[3]-> bottom-$_[3]->owner->bottom);
','TabbedNotebook1', 'onChildCreate'),
},
profile => {
origin => [ 0, 64],
name => 'TabbedNotebook1',
tabs => ['Page setup', 'Advanced ', 'Spooling ', 'Profiles', ],
size => [ 329, 366],
owner => 'Form1',
growMode => gm::GrowHiX | gm::GrowHiY,
}},
'Form1' => {
class => 'Prima::Window',
module => 'Prima::Classes',
parent => 1,
profile => {
width => 330,
onExecute => Prima::VB::VBLoader::GO_SUB('my $self = $_[0];
my $x = $self-> TabbedNotebook1-> Notebook;
$x-> HelpBtn-> notify(\'Click\') if
$x-> ValueBox-> ValueBook-> pageIndex == 3;
','Form1', 'onExecute'),
name => 'Form1',
onCreate => Prima::VB::VBLoader::GO_SUB('my $self = $_[0];
$self-> {imgConvProc} = sub {
my $self = $_[0];
my $a = $self-> image-> dup;
$a-> set( rop => rop::Whiteness, rop2 => rop::Blackness);
$a-> map( $a-> pixel( $a-> width - 1, $a-> height - 1));
my $x = $self-> image-> dup;
$x-> set( rop2 => rop::NoOper, rop => rop::Blackness);
$x-> map( $x-> pixel( $x-> width - 1, $a-> height - 1));
my $i = Prima::Icon-> create;
$i-> combine( $x, $a);
$self-> image( $i);
};
','Form1', 'onCreate'),
text => 'PostScript printer settings',
bottom => 348,
originDontCare => 0,
origin => [ 440, 348],
height => 430,
size => [ 330, 430],
sizeDontCare => 0,
left => 440,
}},
'Label1' => {
class => 'Prima::Label',
module => 'Prima::Label',
siblings => [qw(focusLink)],
profile => {
origin => [ 20, 252],
name => 'Label1',
owner => 'TabbedNotebook1',
size => [ 100, 20],
growMode => gm::GrowHiX,
text => 'Paper si~ze:',
}},
'PaperSize' => {
class => 'Prima::ComboBox',
module => 'Prima::ComboBox',
profile => {
origin => [ 125, 252],
style => cs::DropDownList,
name => 'PaperSize',
owner => 'TabbedNotebook1',
size => [ 183, 21],
growMode => gm::GrowLoX,
}},
'Label3' => {
class => 'Prima::Label',
module => 'Prima::Label',
siblings => [qw(focusLink)],
profile => {
origin => [ 20, 200],
name => 'Label3',
size => [ 100, 20],
owner => 'TabbedNotebook1',
growMode => gm::GrowHiX,
text => '~Scaling, %:',
}},
'Scaling' => {
class => 'Prima::SpinEdit',
module => 'Prima::Sliders',
profile => {
name => 'Scaling',
min => 1,
growMode => gm::GrowLoX,
max => 1000,
origin => [ 125, 201],
size => [ 183, 20],
owner => 'TabbedNotebook1',
step => 10,
value => 100,
}},
'Label4' => {
class => 'Prima::Label',
module => 'Prima::Label',
siblings => [qw(focusLink)],
profile => {
origin => [ 20, 174],
name => 'Label4',
size => [ 100, 20],
owner => 'TabbedNotebook1',
growMode => gm::GrowHiX,
text => '~Resolution:',
}},
'Label2' => {
class => 'Prima::Label',
module => 'Prima::Label',
siblings => [qw(focusLink)],
profile => {
origin => [ 20, 226],
name => 'Label2',
size => [ 100, 20],
owner => 'TabbedNotebook1',
growMode => gm::GrowHiX,
text => '~Copy count:',
}},
'Resolution' => {
class => 'Prima::SpinEdit',
module => 'Prima::Sliders',
profile => {
name => 'Resolution',
growMode => gm::GrowLoX,
min => 25,
max => 32000,
origin => [ 125, 175],
size => [ 183, 20],
owner => 'TabbedNotebook1',
step => 100,
value => 300,
}},
'Orientation' => {
class => 'Prima::RadioGroup',
module => 'Prima::Buttons',
profile => {
origin => [ 19, 97],
name => 'Orientation',
size => [ 287, 76],
owner => 'TabbedNotebook1',
growMode => gm::GrowHiX,
text => 'Orientation',
}},
'CopyCount' => {
class => 'Prima::SpinEdit',
module => 'Prima::Sliders',
profile => {
name => 'CopyCount',
min => 1,
growMode => gm::GrowLoX,
max => 1000,
origin => [ 125, 226],
size => [ 183, 20],
owner => 'TabbedNotebook1',
value => 1,
}},
'ImageViewer1' => {
class => 'Prima::ImageViewer',
module => 'Prima::ImageViewer',
profile => {
origin => [ 12, 17],
onCreate => Prima::VB::VBLoader::GO_SUB('$_[0]-> owner-> owner-> owner-> owner-> {imgConvProc}->($_[0]);
','ImageViewer1', 'onCreate'),
name => 'ImageViewer1',
owner => 'Orientation',
image => Prima::Image->create( width=>24, height=>29, type => im::bpp4,
palette => [ 0,0,0,0,0,128,0,128,0,0,128,128,128,0,0,128,0,128,128,128,0,128,128,128,192,192,192,0,0,255,0,255,0,0,255,255,255,0,0,255,0,255,255,255,0,255,255,255],
data =>
"\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00x\x88\x88\x88\x88\x88\x88\x88".
"\x88\x88\x88\x80\x7f\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x80\x7f\xff\xff\xff".
"\xff\xff\xff\xff\xff\xff\xff\x80\x7f\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x80".
"\x7f\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x80\x7f\xff\xff\xff\xff\xff\xff\xff".
"\xff\xff\xff\x80\x7f\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x80\x7f\xff\xf7w".
"\x7f\xff\xf7ww\x7f\xff\x80\x7f\xff\xff\x87\xff\xff\xff\x87x\xff\xff\x80".
"\x7f\xff\xff\xf7\x8f\xff\xffw\x7f\xff\xff\x80\x7f\xff\xff\xf8\x7f\xff\xf8w".
"\x8f\xff\xff\x80\x7f\xff\xff\xffwwww\xff\xff\xff\x80\x7f\xff\xff\xff".
"x\xff\x87x\xff\xff\xff\x80\x7f\xff\xff\xff\x87\xffw\x7f\xff\xff\xff\x80".
"\x7f\xff\xff\xff\xf7\x8fw\x8f\xff\xff\xff\x80\x7f\xff\xff\xff\xf8ww\xff".
"\xff\xff\xff\x80\x7f\xff\xff\xff\xffwx\xff\xff\xff\xff\x80\x7f\xff\xff\xff".
"\xff\x87\x7f\xff\xff\xff\xff\x80\x7f\xff\xff\xff\xff\xf7\x8f\xff\xff\xff\xff\x80".
"\x7f\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x80\x7f\xff\xff\xff\xff\xff\xff\xff".
"\xff\xff\xff\x80\x7f\xff\xff\xff\xff\xff\xff\xff\xf7\x00\x00\x00\x7f\xff\xff\xff".
"\xff\xff\xff\xff\xf7\xff\x87\x0d\x7f\xff\xff\xff\xff\xff\xff\xff\xf7\xf8p\xdd".
"\x7f\xff\xff\xff\xff\xff\xff\xff\xf7\x87\x0d\xdd\x7f\xff\xff\xff\xff\xff\xff\xff".
"\xf7p\xdd\xdd\x7f\xff\xff\xff\xff\xff\xff\xff\xf7\x0d\xdd\xddwwww".
"wwwww\xdd\xdd\xdd".
''),
size => [ 24, 29],
}},
'Radio1' => {
class => 'Prima::Radio',
module => 'Prima::Buttons',
profile => {
origin => [ 47, 12],
name => 'Radio1',
owner => 'Orientation',
size => [ 89, 36],
text => '~Portrait',
}},
'ImageViewer2' => {
class => 'Prima::ImageViewer',
module => 'Prima::ImageViewer',
profile => {
origin => [ 142, 19],
onCreate => Prima::VB::VBLoader::GO_SUB('$_[0]-> owner-> owner-> owner-> owner-> {imgConvProc}->($_[0]);
','ImageViewer2', 'onCreate'),
name => 'ImageViewer2',
owner => 'Orientation',
image => Prima::Image->create( width=>29, height=>23, type => im::bpp4,
palette => [ 0,0,0,0,0,128,0,128,0,0,128,128,128,0,0,128,0,128,128,128,0,128,128,128,192,192,192,0,0,255,0,255,0,0,255,255,255,0,0,255,0,255,255,255,0,255,255,255],
data =>
"\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x01x\x88\x88\x88".
"\x88\x88\x88\x88\x88\x88\x88\x88\x88\x88\x00\x01\x7f\xff\xff\xff\xff\xff\xff\xff".
"\xff\xff\xff\xff\xff\xf8\x00\x01\x7f\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff".
"\xff\xf8\x00\x01\x7f\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xf8\x00\x01".
"\x7f\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xf8\x00\x01\x7f\xff\xff\xf7".
"w\x7f\xff\xf7ww\x7f\xff\xff\xf8\x00\x01\x7f\xff\xff\xff\x87\xff\xff\xff".
"\x87x\xff\xff\xff\xf8\x00\x01\x7f\xff\xff\xff\xf7\x8f\xff\xffw\x7f\xff\xff".
"\xff\xf8\x00\x01\x7f\xff\xff\xff\xf8\x7f\xff\xf8w\x8f\xff\xff\xff\xf8\x00\x01".
"\x7f\xff\xff\xff\xffwwww\xff\xff\xff\xff\xf8\x00\x01\x7f\xff\xff\xff".
"\xffx\xff\x87x\xff\xff\xff\xff\xf8\x00\x01\x7f\xff\xff\xff\xff\x87\xffw".
"\x7f\xff\xff\xff\xff\xf8\x00\x01\x7f\xff\xff\xff\xff\xf7\x8fw\x8f\xff\xff\xff".
"\xff\xf8\x00\x01\x7f\xff\xff\xff\xff\xf8ww\xff\xff\xff\xff\xff\xf8\x00\x01".
"\x7f\xff\xff\xff\xff\xffwx\xff\xff\xff\xff\xff\xf8\x00\x01\x7f\xff\xff\xff".
"\xff\xff\x87\x7f\xff\xff\xffp\x00\x00\x00\x01\x7f\xff\xff\xff\xff\xff\xf7\x8f".
"\xff\xff\xff\x7f\xf8p\xd0\x01\x7f\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x7f".
"\x87\x0d\xd0\x01\x7f\xff\xff\xff\xff\xff\xff\xff\xff\xff\xffxp\xdd\xd0\x01".
"\x7f\xff\xff\xff\xff\xff\xff\xff\xff\xff\xffw\x0d\xdd\xd0\x01\x7f\xff\xff\xff".
"\xff\xff\xff\xff\xff\xff\xffw\xdd\xdd\xd0\x01wwwwwwww".
"www}\xdd\xdd\xd0\x01".
''),
size => [ 29, 24],
}},
'Radio2' => {
class => 'Prima::Radio',
module => 'Prima::Buttons',
profile => {
origin => [ 181, 12],
name => 'Radio2',
owner => 'Orientation',
size => [ 100, 36],
text => '~Landscape',
}},
'Color' => {
class => 'Prima::RadioGroup',
module => 'Prima::Buttons',
profile => {
origin => [ 19, 20],
name => 'Color',
size => [ 287, 76],
owner => 'TabbedNotebook1',
growMode => gm::GrowHiX,
text => 'Color appearance',
}},
'ImageViewer3' => {
class => 'Prima::ImageViewer',
module => 'Prima::ImageViewer',
profile => {
origin => [ 11, 18],
onCreate => Prima::VB::VBLoader::GO_SUB('$_[0]-> owner-> owner-> owner-> owner-> {imgConvProc}->($_[0]);
','ImageViewer3', 'onCreate'),
name => 'ImageViewer3',
owner => 'Color',
image => Prima::Image->create( width=>26, height=>32, type => im::bpp4,
palette => [ 0,0,0,0,0,128,0,128,0,0,128,128,128,0,0,128,0,128,128,128,0,128,128,128,192,192,192,0,0,255,0,255,0,0,255,255,255,0,0,255,0,255,255,255,0,255,255,255],
data =>
"\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00x\x88\x88\x88".
"\x88\x88\x88\x88\x88\x88\x88\x88\x80\x00\x00\x00\x7f\xff\xff\xff\xff\xff\xff\xff".
"\xff\xff\xff\xff\x80\x00\x00\x00\x7f\xf8\x88\x88\x88\x8f\xff\x00\x00\x00\x00\xff".
"\x80\x00\x00\x00\x7f\x88\x88\x88\x88\x88\xf0\x00\x00\x00\x00\x0f\x80\x00\x00\x00".
"\x7f\x88\x88\x88\x88\x88\xf0\x00\x00\x00\x00\x0f\x80\x00\x00\x00\x7f\x88\x88\x88".
"\x88\x88\xf0\x00\x00\x00\x00\x0f\x80\x00\x00\x00\x7f\x88\x88\x88\x88\x88\xf0\x00".
"\x00\x00\x00\x0f\x80\x00\x00\x00\x7f\xf8\x88\x88\x88\x8f\xff\x00\x00\x00\x00\xff".
"\x80\x00\x00\x00\x7f\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x80\x00\x00\x00".
"\x7f\xf7www\x7f\xffxxxx\xff\x80\x00\x00\x00\x7fwww".
"ww\xf7\x87\x87\x87\x87\x8f\x80\x00\x00\x00\x7fwwwww\xf8x".
"xxx\x7f\x80\x00\x00\x00\x7fwwwww\xf7\x87\x87\x87\x87\x8f".
"\x80\x00\x00\x00\x7fwwwww\xf8xxxx\x7f\x80\x00\x00\x00".
"\x7f\xf7www\x7f\xff\x87\x87\x87\x87\xff\x80\x00\x00\x00\x7f\xff\xff\xff".
"\xff\xff\xff\xff\xff\xff\xff\xff\x80\x00\x00\x00\x7f\xff\x8f\x8f\x8f\x8f\xffp".
"ppp\xff\x80\x00\x00\x00\x7f\xf8\xf8\xf8\xf8\xf8\xf7\x07\x07\x07\x07\x0f".
"\x80\x00\x00\x00\x7f\x8f\x8f\x8f\x8f\x8f\xf0pppp\x7f\x80\x00\x00\x00".
"\x7f\xf8\xf8\xf8\xf8\xf8\xf7\x07\x07\x07\x07\x0f\x80\x00\x00\x00\x7f\x8f\x8f\x8f".
"\x8f\x8f\xf0pppp\x7f\x80\x00\x00\x00\x7f\xf8\xf8\xf8\xf8\xff\xff\x07".
"\x07\x07\x07\xff\x80\x00\x00\x00\x7f\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff".
"\x80\x00\x00\x00\x7f\xf7www\x7f\xff\x0f\x0f\x0f\x0f\xff\x80\x00\x00\x00".
"\x7fwwwww\xf0\xf0\xf0\xf7\x00\x00\x00\x00\x00\x00\x7fwww".
"ww\xff\x0f\x0f\x07\xff\xf7\x0d\x00\x00\x00\x7fwwwww\xf0\xf0".
"\xf0\xf7\xffp\xdd\x00\x00\x00\x7fwwwww\xff\x0f\x0f\x07\xf7\x0d".
"\xdd\x00\x00\x00\x7f\xf7www\x7f\xff\xf0\xf0\xf7p\xdd\xdd\x00\x00\x00".
"\x7f\xff\xff\xff\xff\xff\xff\xff\xff\xf7\x0d\xdd\xdd\x00\x00\x00wwww".
"wwwwww\xdd\xdd\xdd\x00\x00\x00".
''),
size => [ 26, 32],
onMouseClick => Prima::VB::VBLoader::GO_SUB('my ($self, $btn, $mod, $x, $y, $dblclk) = @_;
','ImageViewer3', 'onMouseClick'),
}},
'ImageViewer4' => {
class => 'Prima::ImageViewer',
module => 'Prima::ImageViewer',
profile => {
origin => [ 141, 18],
onCreate => Prima::VB::VBLoader::GO_SUB('$_[0]-> owner-> owner-> owner-> owner-> {imgConvProc}->($_[0]);
','ImageViewer4', 'onCreate'),
name => 'ImageViewer4',
owner => 'Color',
image => Prima::Image->create( width=>26, height=>32, type => im::bpp4,
palette => [ 0,0,0,0,0,128,0,128,0,0,128,128,128,0,0,128,0,128,128,128,0,128,128,128,192,192,192,0,0,255,0,255,0,0,255,255,255,0,0,255,0,255,255,255,0,255,255,255],
data =>
"\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00x\x88\x88\x88".
"\x88\x88\x88\x88\x88\x88\x88\x88\x80\x00\x00\x00\x7f\xff\xff\xff\xff\xff\xff\xff".
"\xff\xff\xff\xff\x80\x00\x80\@\x7f\xfe\xee\xee\xee\xef\xff\x11\x11\x11\x11\xff".
"\x80\x00\x00\x00\x7f\xee\xee\xee\xee\xee\xf1\x11\x11\x11\x11\x1f\x80\x00\x00\x00".
"\x7f\xee\xee\xee\xee\xee\xf1\x11\x11\x11\x11\x1f\x80\x00\x80\@\x7f\xee\xee\xee".
"\xee\xee\xf1\x11\x11\x11\x11\x1f\x80\x00\x00\x00\x7f\xee\xee\xee\xee\xee\xf1\x11".
"\x11\x11\x11\x1f\x80\x00\x00\x00\x7f\xfe\xee\xee\xee\xef\xff\x11\x11\x11\x11\xff".
"\x80\x00\x80\@\x7f\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x80\x00\x00\x00".
"\x7f\xf5UUU_\xff\xaa\xaa\xaa\xaa\xff\x80\x00\x00\x00\x7fUUU".
"UU\xfa\xaa\xaa\xaa\xaa\xaf\x80\x00\x80\@\x7fUUUUU\xfa\xaa".
"\xaa\xaa\xaa\xaf\x80\x00\x00\x00\x7fUUUUU\xfa\xaa\xaa\xaa\xaa\xaf".
"\x80\x00\x00\x00\x7fUUUUU\xfa\xaa\xaa\xaa\xaa\xaf\x80\x00\x80\@".
"\x7f\xf5UUU_\xff\xaa\xaa\xaa\xaa\xff\x80\x00\x00\x00\x7f\xff\xff\xff".
"\xff\xff\xff\xff\xff\xff\xff\xff\x80\x00\x00\x00\x7f\xfb\xbb\xbb\xbb\xbf\xff\xcc".
"\xcc\xcc\xcc\xff\x80\x00\x80\@\x7f\xbb\xbb\xbb\xbb\xbb\xfc\xcc\xcc\xcc\xcc\xcf".
"\x80\x00\x00\x00\x7f\xbb\xbb\xbb\xbb\xbb\xfc\xcc\xcc\xcc\xcc\xcf\x80\x00\x00\x00".
"\x7f\xbb\xbb\xbb\xbb\xbb\xfc\xcc\xcc\xcc\xcc\xcf\x80\x00\x80\@\x7f\xbb\xbb\xbb".
"\xbb\xbb\xfc\xcc\xcc\xcc\xcc\xcf\x80\x00\x00\x00\x7f\xfb\xbb\xbb\xbb\xbf\xff\xcc".
"\xcc\xcc\xcc\xff\x80\x00\x00\x00\x7f\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff".
"\x80\x00\@\@\x7f\xf9\x99\x99\x99\x9f\xff3333\xff\x80\x00\x00\x00".
"\x7f\x99\x99\x99\x99\x99\xf3337\x00\x00\x00\x00\x00\x00\x7f\x99\x99\x99".
"\x99\x99\xf3337\xff\xf7\x0d\x00\xe0\@\x7f\x99\x99\x99\x99\x99\xf33".
"37\xffp\xdd\x00\x00\x00\x7f\x99\x99\x99\x99\x99\xf3337\xf7\x0d".
"\xdd\x00\x00\x00\x7f\xf9\x99\x99\x99\x9f\xff337p\xdd\xdd\x00\x80\@".
"\x7f\xff\xff\xff\xff\xff\xff\xff\xff\xf7\x0d\xdd\xdd\x00\x00\x00wwww".
"wwwwww\xdd\xdd\xdd\x00\x00\x00".
''),
size => [ 26, 32],
}},
'Radio3' => {
class => 'Prima::Radio',
module => 'Prima::Buttons',
profile => {
origin => [ 47, 12],
name => 'Radio3',
owner => 'Color',
size => [ 89, 36],
text => '~Gray',
}},
'Radio4' => {
class => 'Prima::Radio',
module => 'Prima::Buttons',
profile => {
origin => [ 180, 12],
name => 'Radio4',
owner => 'Color',
size => [ 100, 36],
text => 'C~olor',
}},
'VList' => {
class => 'Prima::DetailedList',
module => 'Prima::DetailedList',
profile => {
columns => 2,
onCreate => Prima::VB::VBLoader::GO_SUB('my $self = $_[0];
$self-> widths([($self->width / 2 ) x 2]);
$self-> {helpData} = {
UseDeviceFonts => < < < < < < < < < < < < <{helpData}->{$_} =~ s/\\n/ /g for keys %{$self->{helpData}};
','VList', 'onCreate'),
name => 'VList',
items => [['UseDeviceFonts', ' ', '1', '1', ],['UseDeviceFontsOnly', ' ', '1', '0', ],['MediaType', ' ', '0', ' ', ],['MediaColor', ' ', '0', ' ', ],['MediaWeight', ' ', '0', ' ', ],['MediaClass', ' ', '0', ' ', ],['InsertSheet', ' ', '1', '0', ],['LeadingEdge', ' ', '2', '0', ],['ManualFeed', ' ', '1', '0', ],['TraySwitch', ' ', '1', '0', ],['MediaPosition', ' ', '0', ' ', ],['DeferredMediaSelection', ' ', '1', '0', ],['MatchAll', ' ', '1', '0', ],],
dragable => 0,
growMode => gm::GrowHiX | gm::GrowLoY,
scalable => 1,
origin => [ 13, 89],
clickable => 0,
owner => 'TabbedNotebook1',
size => [ 299, 188],
headers => ['Item', 'Setting', ],
onSelectItem => Prima::VB::VBLoader::GO_SUB('my ( $self, $index, $selectState) = @_;
my @i = @{$self-> get_items( $$index[0])};
my $vbox = $self-> owner-> ValueBox;
$vbox-> text( "Change \'$i[0]\' setting");
if ( $vbox-> ValueBook-> pageIndex == 3) {
$vbox-> ValueBook-> lock;
$self-> owner-> HelpBtn-> notify(q(Click));
$self-> owner-> HelpBtn-> notify(q(Click));
$vbox-> ValueBook-> unlock;
return;
}
$vbox-> ValueBook-> pageIndex( $i[2]);
my @vdt = qw(VText VBool VCombo);
my @vdv = qw(text checked focusedItem);
$vbox-> ValueBook-> bring($vdt[$i[2]])-> set( $vdv[$i[2]] => $i[3]);
','VList', 'onSelectItem'),
}},
'ValueBox' => {
class => 'Prima::GroupBox',
module => 'Prima::Buttons',
profile => {
origin => [ 15, 14],
name => 'ValueBox',
size => [ 266, 66],
owner => 'TabbedNotebook1',
growMode => gm::GrowHiX | gm::GrowHiY,
text => '',
}},
'ValueBook' => {
class => 'Prima::Notebook',
module => 'Prima::Notebooks',
extras => {
VBool => '1',
VCombo => '2',
VHint => '3',
VText => '0',
},
actions => {
onChild => Prima::VB::VBLoader::GO_SUB('$_[2]-> defaultInsertPage( $_[1]-> {extras}-> {$_[3]})
','ValueBook', 'onChild'),
},
profile => {
origin => [ 2, 3],
name => 'ValueBook',
size => [ 260, 47],
owner => 'ValueBox',
growMode => gm::GrowHiX | gm::GrowHiY,
pageIndex => 4,
pageCount => 5,
}},
'HelpBtn' => {
class => 'Prima::Button',
module => 'Prima::Buttons',
profile => {
origin => [ 286, 52],
name => 'HelpBtn',
size => [ 20, 20],
owner => 'TabbedNotebook1',
onClick => Prima::VB::VBLoader::GO_SUB('my $self = $_[0];
my $x = $self-> owner-> ValueBox-> ValueBook;
if ( $x-> pageIndex == 3) {
$x-> pageIndex( $self-> {opa});
} else {
my $y = $self-> owner-> VList;
my $i = $y-> get_items( $y-> focusedItem);
$self-> {opa} = $x-> pageIndex;
if ( exists $y-> {helpData}-> {$$i[0]}) {
$x-> VHint-> text( $y-> {helpData}-> {$$i[0]});
$x-> pageIndex( 3);
}
}
','HelpBtn', 'onClick'),
growMode => gm::GrowLoX,
text => '?',
font => {style => fs::Bold, },
}},
'VText' => {
class => 'Prima::InputLine',
module => 'Prima::InputLine',
profile => {
origin => [ 9, 15],
name => 'VText',
owner => 'ValueBook',
onChange => Prima::VB::VBLoader::GO_SUB('my $self = $_[0];
my $x = $self-> owner-> owner-> owner-> VList;
my $i = $x-> get_items( $x-> focusedItem);
my $t = $self-> text;
if ( $i-> [0] eq \'MediaPosition\' ||
$i-> [0] eq \'MediaWeight\' ) {
$t =~ s/^\\s*//; $t =~ s/\\s*$//;
if ( length $t) {
if ( $i-> [0] eq \'MediaWeight\') {
return unless $t =~ m/^\\s*([+-]?)(?=\\d|\\.\\d)\\d*(\\.\\d*)?([Ee]([+-]?\\d+))?\\s*$/;
} else {
return unless $t =~ m/^\\d+$/;
}
}
}
$i-> [1] = $i-> [3] = $t;
$x-> redraw_items( $x-> focusedItem);
','VText', 'onChange'),
size => [ 240, 20],
text => '',
growMode => gm::Client,
}},
'VCombo' => {
class => 'Prima::ComboBox',
module => 'Prima::ComboBox',
profile => {
origin => [ 13, 14],
style => cs::DropDownList,
name => 'VCombo',
items => ['None', 'Short edge, top of page', 'Long edge, right side of page', 'Short edge, bottom of page', 'Long edge, left side of page', ],
owner => 'ValueBook',
onChange => Prima::VB::VBLoader::GO_SUB('my $self = $_[0];
my $x = $self-> owner-> owner-> owner-> VList;
my $i = $x-> get_items( $x-> focusedItem);
$i->[1] = $self-> text;
$i-> [3] = $self-> focusedItem;
$x-> redraw_items( $x-> focusedItem);
','VCombo', 'onChange'),
size => [ 233, 23],
growMode => gm::Client,
}},
'VBool' => {
class => 'Prima::CheckBox',
module => 'Prima::Buttons',
profile => {
origin => [ 10, 8],
name => 'VBool',
owner => 'ValueBook',
onCheck => Prima::VB::VBLoader::GO_SUB('my $self = $_[0];
my $x = $self-> owner-> owner-> owner-> VList;
my $i = $x-> get_items( $x-> focusedItem);
$i-> [3] = $self-> checked;
$i->[1] = $i-> [3] ? \'Yes\' : \'No\';
$x-> redraw_items( $x-> focusedItem);
','VBool', 'onCheck'),
size => [ 100, 36],
growMode => gm::Client,
text => '',
}},
'VHint' => {
class => 'Prima::Edit',
module => 'Prima::Edit',
profile => {
origin => [ 0, 0],
backColor => wc::Dialog | cl::Back,
name => 'VHint',
owner => 'ValueBook',
size => [ 260, 47],
text => '',
growMode => gm::Client,
vScroll => 1,
readOnly => 1,
wordWrap => 1,
}},
'LPRadio' => {
class => 'Prima::Radio',
module => 'Prima::Buttons',
profile => {
origin => [ 14, 148],
name => 'LPRadio',
onCreate => Prima::VB::VBLoader::GO_SUB('my $self = $_[0];
$self-> enabled( 0) if
Prima::Application-> get_system_info->{apc} != apc::Unix;
','LPRadio', 'onCreate'),
size => [ 272, 36],
owner => 'Spool',
growMode => gm::GrowHiX,
text => 'Unix ~line printer (LP)',
}},
'Spool' => {
class => 'Prima::RadioGroup',
module => 'Prima::Buttons',
profile => {
origin => [ 16, 16],
name => 'Spool',
owner => 'TabbedNotebook1',
size => [ 293, 208],
growMode => gm::GrowHiX,
text => 'Output',
}},
'Profiles' => {
class => 'Prima::ListBox',
module => 'Prima::Lists',
profile => {
origin => [ 15, 16],
name => 'Profiles',
size => [ 193, 259],
owner => 'TabbedNotebook1',
growMode => gm::GrowHiX | gm::GrowHiY,
}},
'LPLabel' => {
class => 'Prima::Label',
module => 'Prima::Label',
siblings => [qw(focusLink)],
profile => {
origin => [ 14, 121],
onCreate => Prima::VB::VBLoader::GO_SUB('my $self = $_[0];
$self-> enabled( 0) if
Prima::Application-> get_system_info->{apc} != apc::Unix;
','LPLabel', 'onCreate'),
name => 'LPLabel',
owner => 'Spool',
size => [ 74, 20],
text => '~Parameters',
}},
'LParams' => {
class => 'Prima::InputLine',
module => 'Prima::InputLine',
profile => {
origin => [ 92, 122],
name => 'LParams',
onCreate => Prima::VB::VBLoader::GO_SUB('my $self = $_[0];
$self-> enabled( 0) if
Prima::Application-> get_system_info->{apc} != apc::Unix;
','LParams', 'onCreate'),
size => [ 186, 20],
owner => 'Spool',
growMode => gm::GrowHiX,
text => '',
}},
'AddBtn' => {
class => 'Prima::Button',
module => 'Prima::Buttons',
profile => {
origin => [ 213, 240],
name => 'AddBtn',
owner => 'TabbedNotebook1',
size => [ 96, 36],
growMode => gm::GrowLoX | gm::GrowLoY,
text => '~Add',
}},
'DelBtn' => {
class => 'Prima::Button',
module => 'Prima::Buttons',
profile => {
origin => [ 213, 161],
name => 'DelBtn',
size => [ 96, 36],
owner => 'TabbedNotebook1',
growMode => gm::GrowLoX | gm::GrowLoY,
text => '~Remove',
}},
'Radio6' => {
class => 'Prima::Radio',
module => 'Prima::Buttons',
profile => {
origin => [ 14, 79],
name => 'Radio6',
size => [ 272, 36],
owner => 'Spool',
growMode => gm::GrowHiX,
text => '~File',
}},
'Radio7' => {
class => 'Prima::Radio',
module => 'Prima::Buttons',
profile => {
origin => [ 14, 41],
name => 'Radio7',
size => [ 272, 36],
owner => 'Spool',
growMode => gm::GrowHiX,
text => '~Command',
}},
'SaveBtn' => {
class => 'Prima::Button',
module => 'Prima::Buttons',
profile => {
origin => [ 214, 120],
name => 'SaveBtn',
owner => 'TabbedNotebook1',
size => [ 96, 36],
growMode => gm::GrowLoX | gm::GrowLoY,
text => '~Save',
}},
'ImportBtn' => {
class => 'Prima::Button',
module => 'Prima::Buttons',
profile => {
origin => [ 214, 81],
name => 'ImportBtn',
onCreate => Prima::VB::VBLoader::GO_SUB('my $self = $_[0];
$self-> enabled( 0) if
Prima::Application-> get_system_info->{apc} != apc::Unix;
','ImportBtn', 'onCreate'),
size => [ 96, 36],
owner => 'TabbedNotebook1',
growMode => gm::GrowLoX | gm::GrowLoY,
text => '~Import...',
}},
'RenameBtn' => {
class => 'Prima::Button',
module => 'Prima::Buttons',
profile => {
origin => [ 213, 200],
name => 'RenameBtn',
owner => 'TabbedNotebook1',
size => [ 96, 36],
growMode => gm::GrowLoX | gm::GrowLoY,
text => 'Re~name',
}},
'CmdLine' => {
class => 'Prima::InputLine',
module => 'Prima::InputLine',
profile => {
origin => [ 37, 18],
name => 'CmdLine',
size => [ 241, 20],
owner => 'Spool',
growMode => gm::GrowHiX,
text => '',
}},
'OK' => {
class => 'Prima::Button',
module => 'Prima::Buttons',
profile => {
origin => [ 5, 5],
name => 'OK',
owner => 'Form1',
size => [ 96, 36],
text => '~OK',
default => 1,
}},
'Cancel' => {
class => 'Prima::Button',
module => 'Prima::Buttons',
profile => {
origin => [ 110, 5],
name => 'Cancel',
owner => 'Form1',
onClick => Prima::VB::VBLoader::GO_SUB('my $self = $_[0];
$self-> owner-> cancel;
','Cancel', 'onClick'),
size => [ 96, 36],
text => 'Cancel',
}},
);
}