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