App-PLab
view release on metacpan or search on metacpan
packageCenWindow;@ISA=qw(App::PLab::Calibrations);# WINsubwin_inidefaults{my$w=$_[0];return($w-> SUPER::win_inidefaults,forwardLookup=> 0,lookupEnabled=> 0,StdPointerShape=> 0,);}subwin_newframe{my$w=$_[0];$w-> SUPER::win_newframe;returnunlessdefined$w-> {file};$w-> win_extwarnifdefined$w-> {ini}-> {path} &&defined$w-> {oldPath} &&$w-> {oldPath} ne$w-> {ini}-> {path};$w-> {oldPath} =$w-> {ini}-> {path};my$cenname=$w-> win_extname($w-> {file});if(openF,"< $cenname") {$w-> {points} =$w-> rpt_read(*F);closeF;
$w-> IV-> repaint;Prima::MsgBox::message("Queue processed", mb::OK|mb::Information);}elsif(defined$jump) {$w-> {ambiguity} = \@ambiguityif$w-> win_loadfile($jump) &&scalar(@ambiguity);}}subwin_closeframe{my$w=$_[0];$w-> SUPER::win_closeframe;$w-> rpt_clear();}subwin_framechanged{my$w=$_[0];$w-> SUPER::win_framechanged;$w-> sb_points();$w-> win_untemp(0);}subwin_newextras{my$w=$_[0];$w-> SUPER::win_newextras;my$cenname=$w->{ini}-> {forwardLookup} ?$w-> {nextFile} :$w-> {prevFile};if(defined$cenname) {$cenname=$w-> win_extname($cenname);if(openF,"< $cenname") {$w-> {extraPoints} =$w-> rpt_read(*F);closeF;}}}subwin_closeextras{my$w=$_[0];$w-> SUPER::win_closeextras;$w-> rptex_clear();}subwin_extraschanged{my$w=$_[0];$w-> win_untemp;$w-> SUPER::win_extraschanged;$w-> sb_points();}subwin_extpathchanged{my$w=$_[0];if(defined$w-> {file}) {my$i;my@pt=defined$w-> {points} ? @{$w->{points}} : ();
$w-> win_newextras;$w-> win_extraschanged;$w-> IV-> repaint;}}subon_create{my$self=$_[0];my$w=$_[0];$self-> SUPER::on_create;$self-> {dataExt} ='cen';$self-> win_pointerchanged();my$scale= $::application-> uiScaling;$scale= 1if$scale< 1;my$tb=$self-> ToolBar;my$cck=$tb-> insert(Label=>origin=> [ 120 *$scale, 1],size=> [$tb-> width - 138 *$scale, 36 *$scale],
'Points'=> [ cl::LightGreen,'Points'],'ExtraPoints'=> [ cl::LightRed,'Crosses'],'Pointer'=> [ cl::Black,'Cursor and selection'],'Label'=> [ cl::Black,'Label'],}}subopt_keys{return{%{$_[0]-> SUPER::opt_keys()},EditClearPoints=> [ kb::NoKey,'Remove all points'],EditToggleLookup=> [ kb::Space,'Turn on or off neighbour points lookup'],HelpAbout=> [ kb::NoKey,'Standard about box'],HelpPlabApps=> [ kb::NoKey,'Online PlabApps overview'],HelpContents=> [ kb::NoKey,'Online ManCen overview'],}}subopt_propcreate{my($w,$dlg,$nb,$nbpages) =@_;$w-> SUPER::opt_propcreate($dlg,$nb,$nbpages);my$mh= 0;for($nbpages-> widgets_from_page(1)) {my$y=$_-> top;$mh=$yif$mh<$y;}$nb-> insert_to_page( 1,CheckBox=>origin=> [ 10,$mh+ 10],size=> [ 300, 36],text=>'Default ~cursor shape',name=>'CursorShape',
size=> [ 300, 36],text=>'~Display neighbour .cen',name=>'LookupEnabled',hint=>'Draws next or previous data points with crosses',]);}subopt_proppush{my($w,$dlg,$nb,$nbpages) =@_;$w-> SUPER::opt_proppush($dlg,$nb,$nbpages);$nbpages-> CursorShape-> checked($w->{ini}->{StdPointerShape});$nbpages-> ForwardLookup-> checked($w->{ini}->{forwardLookup});$nbpages-> LookupEnabled-> checked($w->{ini}->{lookupEnabled});}subopt_proppop{my($w,$dlg,$nb,$nbpages,$mr) =@_;$w-> SUPER::opt_proppop($dlg,$nb,$nbpages,$mr);if($mr) {$w->{ini}->{StdPointerShape} =$nbpages-> CursorShape-> checked;$w-> win_pointerchanged;my$newlookup=$nbpages-> ForwardLookup-> checked;if($newlookup!=$w->{ini}->{forwardLookup}) {$w->{ini}->{forwardLookup} =$newlookup;$w-> ToolBar-> Lookup-> repaint;if($w->{file}) {$w-> win_closeextras;$w-> win_newextras;
if($btn== mb::Right && !$self->{transaction} &&defined$w-> rpt_is($self-> screen2point($x,$y))) {$w-> {lastPopupPoint} = [$self-> screen2point($x,$y)];$w-> iv_cancelmode($self);$self-> PointPopup-> popup($self-> pointerPos);$self-> clear_event;return;}$w-> SUPER::IV_MouseDown($self,$btn,$mod,$x,$y);returnunless$self-> eventFlag;if($btn== mb::Left && !$self->{transaction}) {my($ax,$ay) =$self-> screen2point($x,$y);if($ax>= 0 &&$ay>= 0 &&$ax<$w->{IVx} &&$ay<$w->{IVy}) {if($w-> rpt_toggle($ax,$ay)) {$self-> begin_paint;$self-> color($w->{ini}->{Color_Points});my$p= ( 6 *$self-> zoom < 1) ? 1 : ( 6 *$self-> zoom);
$r[2] =$x;$r[3] =$y;@r[0,2] =@r[2,0]if$r[0] >$r[2];@r[1,3] =@r[3,1]if$r[1] >$r[3];@r=$self-> screen2point(@r);$w-> rpt_exclude(@r);$self-> repaint;return;}$w-> SUPER::IV_MouseUp($self,$btn,$mod,$x,$y);}subIV_MouseMove{my($w,$self,$mod,$x,$y) =@_;if($self->{transaction} &&$self->{transaction} == 4) {$w-> IV_xorrect($self);$self-> {xorData}-> [2] =$x;$self-> {xorData}-> [3] =$y;$w-> IV_xorrect($self);$self-> clear_event;}$w-> SUPER::IV_MouseMove($self,$mod,$x,$y);}subIV_Paint{my($w,$self,$canvas) =@_;$self-> on_paint($canvas);my$wl=$w-> {points};my$z=$self-> zoom;my$p= ( 6 *$z< 1) ? 1 : ( 6 *$z);$canvas-> translate($self-> point2screen( 0, 0));
bin/MorphometryI view on Meta::CPAN
$self-> {ini}-> {'LW'.$self-> {currentSet}} =$width;$self-> sb_text("Line width set:$width");}subwin_inidefaults{my$w=$_[0];my$calcopt='';vec($calcopt, 0, 32) = ocq::Files | ocq::Basics;return($w-> SUPER::win_inidefaults,RecWindowPos=>'100 100',RecWindowVisible=> 0,UFThreshold=> 40,BinThreshold=> 128,EdgeSize=> 3,MinArea=> 0,MaxArea=> 0,LW0=> 1,LW1=> 1,LW2=> 3,
bin/MorphometryI view on Meta::CPAN
FrameColor=> 0,InvertImage=> 0,);}subon_create{my$self=$_[0];$self-> SUPER::on_create;my$w=$self;$w-> {dataExt} ='xml';my$i=$w-> {ini};my$xref= [['*0'=>"~Features"=> \&win_objectsetsmenuaction],['1'=>"~Background"=> \&win_objectsetsmenuaction],['2'=>"~Remove"=> \&win_objectsetsmenuaction],[],[LineWidthIncrement=>'~Increase line width'=>sub{
bin/MorphometryI view on Meta::CPAN
borderWidth=> 1,);$iv-> {drawmode} =$cck-> checked ? 1 :undef;init_convex($w->{ini}->{NumberOfRotations});}subon_destroy{my($w,$i) = ($_[0],$_[0]->{ini});$i-> {RecWindowVisible} =defined$w-> {recWindow} ? 1 : 0;$w-> SUPER::on_destroy;}subwin_closeframe{my$w=$_[0];$w-> SUPER::win_closeframe;$w-> pt_clear_all();$w-> rpt_clear();}subwin_framechanged{my$w=$_[0];$w-> SUPER::win_framechanged;$w-> {mirrorImage} =undef;my$i=$w-> IV-> image;my$canApply=defined$i&&$i-> type == im::Byte;$w-> menu-> EditToggleMode-> enabled(defined$i);$w-> menu-> EditApplyContours-> enabled($canApply);$w-> menu-> EditValidate-> enabled(defined$i);$w-> menu-> EditImport-> enabled(defined$i);$w-> ToolBar-> Contours-> enabled(defined$i);if($w-> {recWindow}) {my$r=$w-> {recWindow};
bin/MorphometryI view on Meta::CPAN
if($@) {$w-> win_xmlerror($xmlname);return0;}return\%state;}subwin_newframe{my$w=$_[0];$w-> SUPER::win_newframe;returnunlessdefined$w-> {file};$w-> win_extwarnifdefined$w-> {ini}-> {path} &&defined$w-> {oldPath} &&$w-> {oldPath} ne$w-> {ini}-> {path};$w-> {oldPath} =$w-> {ini}-> {path};my$img=$w-> IV-> image;
bin/MorphometryI view on Meta::CPAN
}return0ifPrima::MsgBox::message("Error saving file $xmlname. Ignore changes?", mb::YesNo|mb::Warning) == mb::No;}return1;}subwin_newextras{my$w=$_[0];$w-> SUPER::win_newextras;returnunlessdefined$w-> {prevFile};my$num=$w->{cypherMask};my$xmlname;my($min,$max) =$w-> win_getseriesrange;$xmlname=$w-> win_formfilename($min);$xmlname=$w-> win_extname($xmlname);returnunless-f$xmlname;
bin/MorphometryI view on Meta::CPAN
}returnunless$x;# no contours to import$w-> pt_updatemenu;$w-> IV-> repaint;$w-> modified(1);}subwin_closeextras{my$w=$_[0];$w-> SUPER::win_closeextras;$w-> rptex_clear();}subwin_extraschanged{my$w=$_[0];$w-> SUPER::win_extraschanged;$w-> menu-> EditOptCalib-> enabled(defined$w-> {nextFile} ||defined$w-> {prevFile});}# WIN_END# OPTsubopt_colors{return{
bin/MorphometryI view on Meta::CPAN
subopt_colormount{my$w=$_[0];$w-> IV-> {bone}-> backColor($w-> {ini}-> {$w-> {setColors}->[$w-> {currentSet}]});}subopt_keys{return{%{$_[0]-> SUPER::opt_keys()},EditImport=> [ kb::NoKey ,"Import another contours into document"],EditOptCalib=> [ kb::NoKey ,"Recalculate series"],EditCalcStats=> ['@C',"Calculate and display statistics"],Undo1=> [ kb::Backspace ,"Undo drawing"],Undo2=> [ km::Alt|kb::Backspace ,"Undo group of lines"],Undo3=> ['@U',"Show undo dialog"],EditInvertImage=> [ kb::NoKey ,"Invert image"],EditClearAll=> [ kb::NoKey ,"Clear all drawings"],EditRemovePoints=> [ kb::NoKey ,"Remove all points"],EditToggleMode=> ['F11',"Toggle drawings/points mode"],
bin/MorphometryI view on Meta::CPAN
'(([+-]?)(?=\d|\.\d)\d*(\.\d*)?([Ee]([+-]?\d+))?\*)', cl::Red],);$dlg->select;}subopt_propcreate{my($w,$dlg,$nb,$nbpages) =@_;$w-> SUPER::opt_propcreate($dlg,$nb,$nbpages);$nb-> tabs( @{$nb-> tabs},'Calculations','Frame');$nb-> insert_to_page($nb-> pageCount - 2,[Label=>text=> 'Bydefault, only the area, the perimeter, the formfactor and centroid locations are calculated,though the program is perfectly capable of calculating all other parameters. The reasonfordisabling the rest is that it normally ta...wordWrap=> 1,designScale=> [$nbpages-> font-> width,$nbpages-> font-> height],valignment=> ta::Top,name=>'TopText',],[CheckBox=>origin=> [ 5, 185],
bin/MorphometryI view on Meta::CPAN
$nbpages-> LineWidth-> value($dlg-> {page2}-> {widths}-> [$_[0]-> focusedItem]);$nbpages-> {deprecate} =undef;});}my%widcolors= (Features=> 1,Background=> 1,Remove=> 1);subopt_proppush{my($w,$dlg,$nb,$nbpages) =@_;$w-> SUPER::opt_proppush($dlg,$nb,$nbpages);my$nbc=$nbpages-> pageIndex;$nbpages-> pageIndex(3);for(qw( CalcBrightness EqualBrightness CalcConvex CalcHoles)) {$nbpages->bring($_)->checked($w->{ini}->{$_});}$nbpages-> CalcBrightness-> notify(q(Check));# force dependent disablements$nbpages-> CalcHoles-> notify(q(Check));for(qw( HolesPercent NumberOfRotations)) {$nbpages->bring($_)->value($w->{ini}->{$_});}
bin/MorphometryI view on Meta::CPAN
$widths[$ids{Remove}] =$w-> {ini}-> {LW2};$dlg-> {page2}-> {widths} = \@widths;$nbpages-> LineWidth-> value($widths[$nbpages-> NameSel-> focusedItem]);$nbpages-> FrameWidth-> value($w-> {ini}-> {FrameWidth});$nbpages-> FrameColor->index($w-> {ini}-> {FrameColor} ? 1 : 0);}subopt_proppop{my($w,$dlg,$nb,$nbpages,$mr) =@_;$w-> SUPER::opt_proppop($dlg,$nb,$nbpages,$mr);if($mr) {for(qw( EqualBrightness CalcBrightness CalcConvex CalcHoles)) {$w->{ini}->{$_} =$nbpages-> bring($_)-> checked;}for(qw( HolesPercent NumberOfRotations)) {$w->{ini}->{$_} =$nbpages-> bring($_)-> value;}my$i= 0;my%colors= %{$w-> opt_colors};my%ids=map{ ($_,$i++ ) }keys%colors;
bin/MorphometryI view on Meta::CPAN
$_[0]-> {extraPoints} =undef;}# RPT_END# IVsubIV_MouseDown{my($w,$self,$btn,$mod,$x,$y) =@_;$w-> SUPER::IV_MouseDown($self,$btn,$mod,$x,$y);returnunless$self-> eventFlag;$self-> clear_event,returnif$btn!= mb::Left;if($self->{transaction}) {if($self->{transaction} == 2) {my($ax,$ay) =$self-> screen2point($x,$y);$self-> {transaction} = 1;$w-> pt_add($ax,$ay);$w-> sb_text("Freehand: $ax $ay");
bin/MorphometryI view on Meta::CPAN
$w-> iv_cancelmode($self)if$self-> {transaction} == 2;$self-> clear_event;return;}}subIV_MouseUp{my($w,$self,$btn,$mod,$x,$y) =@_;returnunless$self->{transaction};$w-> SUPER::IV_MouseUp($self,$btn,$mod,$x,$y);returnunless$self-> eventFlag;if($btn== mb::Left and$self-> {transaction} == 1) {$self-> {transaction} = 2;$self-> {xors} =undef;$w-> sb_text("Lineplot:");$self-> clear_event;}}subIV_MouseMove
bin/MorphometryI view on Meta::CPAN
unless($self->{transaction}) {if(($mod& km::Shift) &&defined$self-> image) {my$i=$self-> image;my$pix=$i-> pixel($self-> screen2point($x,$y));$w-> sb_text((($i-> type & im::BPP) > 8) ?sprintf("%02x %02x %02x", ($pix>>16)&0xFF, ($pix>>8)&0xFF,$pix&0xFF) :$pix)if$pix!= cl::Invalid;}}$w-> SUPER::IV_MouseMove($self,$mod,$x,$y);returnunless$self-> eventFlag &&$self-> {transaction};if($self-> {transaction} == 1) {my($x1,$y1) =$self-> point2screen( @{$w-> pt_lines->[-1]}[-2,-1]);$w-> pt_add($self-> screen2point($x,$y));$self-> begin_paint;$self-> color($w-> {ini}-> {$w->{setColors}->[$w->{currentSet}]});$self-> lineWidth($self-> zoom *$w-> {ini}-> {'LW'.$w->{currentSet}});$self-> line($x,$y,$x1,$y1);$self-> end_paint;$w-> sb_text("Freehand: $x1 $y1");
bin/MorphometryI view on Meta::CPAN
$canvas-> line($x*$z-$p,$y*$z-$p,$x*$z+$p,$y*$z+$p);$canvas-> line($x*$z+$p,$y*$z-$p,$x*$z-$p,$y*$z+$p);}}}subiv_cancelmode{my($w,$self) =@_;my$t=$self->{transaction};$w-> SUPER::iv_cancelmode($self);$w-> pt_close()if$t;}subiv_togglemode{my($w,$self) =@_;returnif!$ImageApp::testingand !defined$self-> image;$w-> iv_cancelmode($self);$self-> {drawmode} =defined$self-> {drawmode} ?undef: 1;$w-> ToolBar-> Contours-> checked(defined$self-> {drawmode});
bin/MorphometryI view on Meta::CPAN
}# IV_ENDpackagePropRollup;@ISA=qw(Prima::Dialog);subprofile_default{my$def=$_[ 0]-> SUPER::profile_default;my%prf= (borderIcons=> bi::SystemMenu | bi::TitleBar,width=> 207,height=> 306,sizeDontCare=> 0,text=>'Parameters',visible=> 0,);@$def{keys%prf} =values%prf;return$def;}subinit{my$self=shift;my%profile=$self-> SUPER::init(@_);my$image= Prima::Icon->create(width=>16,height=>16,type=> im::bpp1,palette=> [ 0,0,0,0,0,0],data=>"\x01\x00\x00\x00A\x08\x00\x00\!\x10\x00\x00\x10 \x00\x00\x07\xc0\x00\x00"."\x080\x00\x001\x88\x00\x00C\xc0\x00\x00\x03\xc4\x00\x00\!\x88\x00\x00"."\x18p\x00\x00\x07\x80\x00\x00\x10\x10\x00\x00\!\x08\x00\x00A\x04\x00\x00"."\x01\x00\x00\x00".'');
bin/MorphometryI view on Meta::CPAN
my$self=$_[0];my$w=$self-> owner;$w-> {recWindow} =undef;my$i=$w-> {ini};$i-> {RecWindowPos} =join(' ',$self-> origin);$i-> {UFThreshold} =$self-> Union-> value;$i-> {BinThreshold} =$self-> Binary-> value;$i-> {EdgeSize} =$self-> Edge-> value;$i-> {MinArea} =$self-> Min-> value;$i-> {MaxArea} =$self-> Max-> value;$self-> SUPER::cleanup();}packageRun;my$wfil= App::PLab::ImageAppWindow::winmenu_file();splice( @{$$wfil[1]}, -2, 0,[],[EditImport=>"~Import contours"=>q(win_importextras)],['-EditOptCalib'=>"~Recalculate series"=>q(opt_changecalib)],[EditCalcStats=>"~Calculate statistics"=>q(opt_statistics)],
bin/PrAverB view on Meta::CPAN
}packageAveWindow;@ISA=qw(App::PLab::ImageAppWindow);subwin_inidefaults{my$w=$_[0];return($w-> SUPER::win_inidefaults,PropShowMode=>'1',);}subon_create{my$self=$_[0];my$w=$_[0];$self-> SUPER::on_create;$self-> {dataExt} ='pab';$w-> {selectedRect} =undef;$w-> {rects} = [];$w-> insert(Popup=>autoPopup=> 0,selected=> 0,name=>'FigurePopup',items=> [['~Duplicate'=>'Ctrl+D'=> kb::NoKey=>q(win_figdup)],
bin/PrAverB view on Meta::CPAN
onClick=>sub{$w-> win_printframe(0); },%btn_profile,],);}subwin_closeframe{my$w=$_[0];$w-> SUPER::win_closeframe;$w-> fig_clear();}subwin_newextras{my$w=$_[0];$w-> SUPER::win_newextras;my$pabname=$w-> win_extname($w->{file});if(openF,"< $pabname") {$_= <F>;returnunless/Average\sbrightness\sdata/;returnunless/extinfo/;my$i;LOOP:while(<F>) {my$comments;chomp;
bin/PrAverB view on Meta::CPAN
my($w) =@_;$w-> fig_clear;$w-> IV-> repaint;$w-> pointer( cr::Default);$w-> modified( 1);}subwin_framechanged{my$w=$_[0];$w-> SUPER::win_framechanged;$w-> menu-> FilePrint-> enabled(defined$w-> {file});$w-> menu-> FileSave-> enabled(defined$w-> {file});$w-> ToolBar-> FilePrint-> enabled(defined$w-> {file});$w-> ToolBar-> FileSave-> enabled(defined$w-> {file});}# FIGsubfig_clear{
bin/PrAverB view on Meta::CPAN
$self-> capture( 1);$self-> {anchor} = [$x,$y];$self-> {xorData} = [$x,$y,$x,$y,$x,$y,$x,$y];$w-> IV_xorrect($self);$self-> clear_event;$w-> sb_text("Draw a region");return;}}$w-> SUPER::IV_MouseDown($self,$btn,$mod,$x,$y);returnunless$self-> eventFlag;$self-> clear_event;}subIV_MouseClick{my($w,$self,$btn,$mod,$x,$y,$dbl) =@_;
bin/PrAverB view on Meta::CPAN
}}}subIV_MouseUp{my($w,$self,$btn,$mod,$x,$y) =@_;returnunless$self->{transaction};$w-> SUPER::IV_MouseUp($self,$btn,$mod,$x,$y);returnunless$self-> eventFlag;if($self->{transaction} == tran::init &&$btn== mb::Left) {$self-> {transaction} =undef;$self-> capture( 0);$w-> IV_xorrect($self);$self-> clear_event;if($self-> {anchor}->[0] !=$x&&$self-> {anchor}->[1] !=$y) {my$ix=$w-> fig_add($self-> screen2point( @{$self-> {xorData}}));
bin/PrAverB view on Meta::CPAN
$self-> clear_event;return;}}}subIV_MouseMove{my($w,$self,$mod,$x,$y) =@_;$w-> SUPER::IV_MouseMove($self,$mod,$x,$y);returnunless$self-> eventFlag;if($self->{transaction} &&$self->{transaction} == tran::init) {$w-> IV_xorrect($self);$self-> {xorData}-> [3] =$y;$self-> {xorData}-> [4] =$x;$self-> {xorData}-> [5] =$y;$self-> {xorData}-> [6] =$x;$w-> IV_xorrect($self);$self-> clear_event;
bin/PrAverB view on Meta::CPAN
{return{'Selection'=> [ cl::Gray,'Selection'],'AreaBorder'=> [ cl::Cyan,'Area border'],};}subopt_keys{return{%{$_[0]-> SUPER::opt_keys()},FileSave=> [ kb::F2,'Save frame layout'],FilePrint=> ['^P','Print current frame layout'],EditDuplicate=> ['^D','Duplicate selected rectange'],EditDelete=> [ kb::Delete ,'Delete selected rectange'],EditDeleteAll=> [ kb::NoKey ,'Delete all rectanges'],},}# OPT_END
packageLenWindow;@ISA=qw(App::PLab::Calibrations);subwin_inidefaults{my$w=$_[0];return($w-> SUPER::win_inidefaults,PointSize=> 4,nLines=> 6,autoCrispen=> 0,autoStretch=> 0,StatisticsWindowRect=>'120 120 400 250',StatisticsWindowFont=> 0,SpectrumMin=> 0,SpectrumMax=> 50,ShowExtras=> 0,ShowPrevExtras=> 0,
(map{ ("dataset_${_}_name","dataset". ($_+1) ) } 2 .. MAXDATASET ),visible_datasets=> 0xffff,);}subon_create{my$self=$_[0];my$w=$_[0];$self-> SUPER::on_create;$self-> {dataExt} ='pls';my$tb=$self-> ToolBar;my$scale= $::application-> uiScaling;$scale= 1if$scale< 1;my%btn_profile= (glyphs=> 1,text=>"",selectable=> 0,
{my$w=$_[0];$w-> reset_mark_state( 0)ifdefined$w-> {file};$w-> reset_mark_state(undef)unlessdefined$w-> {file};}subwin_newframe{my$w=$_[0];$w-> SUPER::win_newframe;for( @{$w->{layers}}) {my$c=ucfirst$_;$w-> {$_} = [];$w-> {"ex$c"} = [];$w-> {"prevex$c"} = [];$w-> {"n$c"} =$w-> {"total$c"} = 0;}$w-> {branches} = [];$w-> modified(0);$w-> reset_mark_state;
$w-> win_extwarnifdefined$w-> {ini}-> {path} &&defined$w-> {oldPath} &&$w-> {oldPath} ne$w-> {ini}-> {path};$w-> {oldPath} =$w-> {ini}-> {path};$w-> preprocess;}subwin_loadfile{my($w,$file) =@_;return0unless$w-> SUPER::win_loadfile($file);$w-> update_state;return1;}subwin_newextras{my$w=$_[0];$w-> SUPER::win_newextras;returnunlessdefined$w-> {file};$w-> load_info();}subwin_saveframe{my$w=$_[0];return$w-> save_info();}subwin_closeframe{my$w=$_[0];$w-> SUPER::win_closeframe;$w-> reset_mark_state;}subwin_framechanged{my$w=$_[0];$w-> SUPER::win_framechanged;my$tb=$w-> ToolBar;my$i=$w-> IV-> image;my$canApply=defined$i&&$i-> type == im::Byte;$w-> menu-> FileStats-> enabled($i);$w-> menu-> FileBackup-> enabled($i);$w-> menu-> EditProcess-> enabled($canApply);$w-> menu-> EditProcessSeries-> enabled($canApply);$tb-> MarkCells-> enabled($i);
}$w-> show_stats(undef, 1);}$self-> clear_event;return;}if($btn== mb::Right && ($mod& km::Ctrl)) {$mod&= !km::Ctrl;}$w-> SUPER::IV_MouseDown($self,$btn,$mod,$x,$y);}subIV_MouseMove{my($w,$self,$mod,$x,$y) =@_;unless($self->{transaction}) {if(($mod& km::Shift) &&defined$self-> image) {my$i=$self-> image;my$pix=$i-> pixel($self-> screen2point($x,$y));$w-> sb_text((($i-> type & im::BPP) > 8) ?sprintf("%02x %02x %02x", ($pix>>16)&0xFF, ($pix>>8)&0xFF,$pix&0xFF) :$pix)if$pix!= cl::Invalid;}}$w-> SUPER::IV_MouseMove($self,$mod,$x,$y);returnif!defined$w-> {binfo} || !defined$w-> {markState} ||$w-> {markState} != 16;if($w->{ binfo}->{ drawMode} == 1) {my($bn) =$w->{ binfo}->{ branchNumber};my($ox,$oy) = @{$w->{ branches}->[$bn]->[ -1]};my($ax,$ay) =$self-> screen2point($x,$y);my($ms) =$self->get_mouse_state;if( (scalar( @{$w->{ branches}->[$bn]}) == 1) || ( ($ms& mb::Left) == mb::Left)) {push@{$w->{ branches}->[$bn]}, [int($ax),int($ay)];
'Branches'=> [ cl::LightGreen,'Branches'],'ActiveProcess'=> [ 0x80FF80,'Active process'],'Cells'=> [ cl::LightRed,'Cells'],(map{ ("Dataset$_", => [ cl::White /$_,$i->{"dataset_${_}_name"}] ) } 2 .. MAXDATASET )};}subopt_keys{return{%{$_[0]-> SUPER::opt_keys()},EditAutoCrispening=> [ kb::Space,'Automatically crispen the image'],EditAutoStretching=> [ km::Ctrl|kb::Space,'Automatically stretch the image color spectrum'],EditProcess=> ['^A','Markup processes automatically'],EditProcessSeries=> [ kb::NoKey,'Markup series of processeses automatically'],EditRecSetup=> ['@R','Display recognition setup dialog'],FileStats=> ['@S','Invoke statistic data dialog'],FileBackup=> [ kb::NoKey,'Backup current series data'],HelpAbout=> [ kb::NoKey,'Standard about box'],HelpPlabApps=> [ kb::NoKey,'Online PlabApps overview'],HelpContents=> [ kb::NoKey,'Online PrLenS overview'],},}subopt_propcreate{my($w,$dlg,$nb,$nbpages) =@_;$w-> SUPER::opt_propcreate($dlg,$nb,$nbpages);$nb-> tabs( @{$nb-> tabs},'Stretching');$nb-> insert_to_page( 1, [SpinEdit=>origin=> [ 10, 105],width=> 120,name=>'nLines',min=> 2,max=> 20,hint=>'Amount of lines in the grid',] , [Label=>origin=> [ 10, 125],
$w-> {ini}-> {SpectrumMax} =$slider-> {max};$w-> preprocess;$w-> IV-> repaint;},]);}subopt_proppush{my($w,$dlg,$nb,$nbpages) =@_;$w-> SUPER::opt_proppush($dlg,$nb,$nbpages);$nbpages-> nLines-> value($w->{ini}->{nLines});$nbpages-> PointSize-> value($w->{ini}->{PointSize});$nbpages-> Datasets-> value($w->{ini}->{active_datasets});$nbpages-> ShowExtras-> checked($w-> {ini}-> {ShowExtras});$nbpages-> ShowPrevExtras-> checked($w-> {ini}-> {ShowPrevExtras});my$hs=$nbpages-> Hyperset;$hs-> items( [map{ucfirst} @{$w->{layers}} ]);$hs-> vector(pack('I*',$w->{ini}-> {visible_datasets}));my$ssl=$nbpages-> StretchSlider;$ssl-> {saveMin} =$ssl-> {min} =$w->{ini}->{SpectrumMin};
}my$pi=$nbpages-> pageIndex;$nbpages-> pageIndex( 4);$nbpages-> StretchPreview-> enabled(defined($w-> {file}));$nbpages-> pageIndex($pi);}subopt_proppop{my($w,$dlg,$nb,$nbpages,$mr) =@_;$w-> SUPER::opt_proppop($dlg,$nb,$nbpages,$mr);my$ssl=$nbpages-> StretchSlider;if($mr) {$w->{ini}->{nLines} =$nbpages-> nLines-> value;$w->{ini}->{PointSize} =$nbpages-> PointSize-> value;my$ad=$w->{ini}->{active_datasets};$w->{ini}->{active_datasets} =$nbpages-> Datasets-> value;if($ad!=$w->{ini}->{active_datasets}) {$w-> modified(1)ifdefined$w-> {file};$w-> reset_mark_state( 0)ifdefined$w-> {markState} &&$w-> {markState} >=$w->{ini}->{active_datasets};$w-> {layers} = [map{$w-> {ini}-> {"dataset_${_}_name"}} 0 ..$w->{ini}->{active_datasets} - 1];
lib/App/PLab/Calibrations.pm view on Meta::CPAN
packageApp::PLab::Calibrations;@ISA=qw(App::PLab::ImageAppWindow);subwin_inidefaults{my$w=$_[0];my@rc=$w-> rect;return($w-> SUPER::win_inidefaults,XCalibration=> 1.0,YCalibration=> 1.0,);}subopt_propcreate{my($w,$dlg,$nb,$nbpages) =@_;my@nbpages= @{$nb-> tabs};$nb-> set(tabs=> [@nbpages,'Calibrations'],pageCount=>scalar(@nbpages) + 1,);my$pg=$nb-> pageCount;$w-> SUPER::opt_propcreate($dlg,$nb,$nbpages);# Calibrationsmy%spinPrf= (size=> [ 265, 20],min=> 0.0001,max=> 10,step=> 0.01,);$nb-> insert_to_page($pg, [SpinEdit=>origin=> [ 5, 65],
lib/App/PLab/Calibrations.pm view on Meta::CPAN
size=> [ 265, 20],autoWidth=> 0,text=>'~Size of 1 vertical pixel, mkm',focusLink=>$nbpages-> YC,]);}subopt_proppush{my($w,$dlg,$nb,$nbpages) =@_;$w-> SUPER::opt_proppush($dlg,$nb,$nbpages);# Calibrations$nbpages-> XC-> value($w->{ini}->{XCalibration});$nbpages-> YC-> value($w->{ini}->{YCalibration});}subopt_proppop{my($w,$dlg,$nb,$nbpages,$mr) =@_;$w-> SUPER::opt_proppop($dlg,$nb,$nbpages,$mr);# Calibrationsif($mr) {my($xc,$yc) = ($nbpages-> XC->value,$nbpages-> YC->value);$w-> modified( 1)if$w->{ini}->{XCalibration} !=$xc||$w->{ini}->{XCalibration} !=$yc;$w->{ini}->{XCalibration} =$xc;$w->{ini}->{YCalibration} =$yc;}}
lib/App/PLab/ImageApp.pm view on Meta::CPAN
noPrima::StartupWindow;packageApp::PLab::SerOpenDialog;@ISA=qw(Prima::ImageOpenDialog);subinit{my$self=shift;my%profile=$self-> SUPER::init(@_);my$dl=$self-> Files;my%pf= (name=>'Files',rect=> [$dl-> rect],items=>$dl-> items,designScale=>undef,delegations=> [ @{$dl-> delegations},$self,'DrawItem','MeasureItem'],);
lib/App/PLab/ImageApp.pm view on Meta::CPAN
$self-> clear_event;}packageApp::PLab::TrDeviceBitmap;@ISA=qw(Prima::DeviceBitmap);subtranslate{unless($#_) {my@a=$_[0]-> SUPER::translate;if($_[0]-> {override}) {$a[$_] -=$_[0]-> {override}->[$_]for0,1;}return@a;}my($self,$trx,$try) =@_;if($self-> {override}) {$trx+=$self-> {override}-> [0];$try+=$self-> {override}-> [1];}$self-> SUPER::translate($trx,$try);}subclipRect{unless($#_) {my@a=$_[0]-> SUPER::clipRect;if($_[0]-> {override}) {$a[$_] -=$_[0]-> {override}->[$_]for0,1;$a[$_+2] -=$_[0]-> {override}->[$_]for0,1;}return@a;}my($self,$trx,$try,$tax,$tay) =@_;if($self-> {override}) {$trx+=$self-> {override}-> [0];$try+=$self-> {override}-> [1];$tax+=$self-> {override}-> [0];$tay+=$self-> {override}-> [1];}$self-> SUPER::clipRect($trx,$try,$tax,$tay);}packageApp::PLab::MagnifyingGlassWidget;@ISA=qw(Prima::Widget);subprofile_default{my$def=$_[ 0]-> SUPER::profile_default;my%prf= (width=> 154,height=> 102,syncPaint=> 0,);@$def{keys%prf} =values%prf;return$def;}subon_create
lib/App/PLab/ImageApp.pm view on Meta::CPAN
packageApp::PLab::TrImageViewer;@ISA=qw(Prima::ImageViewer);subinvalidate_rect{my($self,@r) =@_;my$w=$self-> owner;$w-> ivm_repaint($self)if$w-> {magnify};$self-> SUPER::invalidate_rect(@r);}subend_paint{my$self=$_[0];$self-> SUPER::end_paint;my$w=$self-> owner;$w-> ivm_repaint($self)if$w-> {magnify};}subcapture{return$_[0]-> SUPER::captureunless$#_;my($self,$capFlag,@rest) =@_;$self-> owner-> iv_cancelmagnify($self)if!$capFlag&&$self-> owner-> {magnify};$self-> SUPER::capture($capFlag,@rest);}subscreen2point{returnmap{int}shift-> SUPER::screen2point(@_);}subpoint2screen{returnmap{int}shift-> SUPER::point2screen(@_);}packageApp::PLab::ImageAppWindow;@ISA=qw(Prima::Window);$pointClickTolerance= 8;%dlgProfile= (centered=> 1,visible=> 0,
lib/App/PLab/ImageApp.pm view on Meta::CPAN
)unless$self-> { timer};$self-> { timer}-> stop;$self-> { timer}-> timeout($w-> {ini}-> {statusDelay} * 1000);$self-> { timer}-> start;}# SB_ENDsubprofile_default{my$def=$_[ 0]-> SUPER::profile_default;my%prf= (name=>'MainWindow',size=> [ 531, 594],text=> $::application-> name,widgetClass=> wc::Dialog,);@$def{keys%prf} =values%prf;return$def;}subinit{my$self=shift;my%profile=$self-> SUPER::init(@_);my$w=$self;my($x,$y) =$w-> size;my$scale= $::application-> uiScaling;$scale= 1if$scale< 1;$w-> insert("Panel",text=>"",name=>"ToolBar",
( run in 0.354 second using v1.01-cache-2.11-cpan-709fd43a63f )