App-PLab

 view release on metacpan or  search on metacpan

bin/MorphometryI  view on Meta::CPAN

# IV_END

package PropRollup;
use vars qw(@ISA);
@ISA = qw(Prima::Dialog);

sub profile_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;
}

lib/App/PLab/ImageApp.pm  view on Meta::CPAN

      } keys %$colors);
   $w->{iniFile} = Prima::IniFile-> create(
      file => Prima::Utils::path('PLabApps'),
      default => [
         $uname.$::application->name => \@iniDefaults,
      ]
   );
   my $i;
   $w-> {uname} = $uname;
   $i = $w-> {ini} = $w-> {iniFile}-> section( $uname.$::application->name);
   $w-> {keyMappings} = { map { $_ => Prima::AbstractMenu-> translate_shortcut( eval($i-> {$_})); } 
       grep { m/^Key_/  } keys %$i };
   $i->{"Color_$_"} = eval( $i->{"Color_$_"}) for keys %$colors;
   my @rc = split ' ', $i->{WindowRect};
   my @ac = $::application-> rect;
   $ac[3] -= $::application-> get_system_value( sv::YMenu) * 3 + $::application-> get_system_value( sv::YTitleBar);
   $rc[0] = 0 if $rc[0] >= $ac[2];
   $rc[1] = 0 if $rc[1] >= $ac[3];
   $rc[3] = $ac[3] if $rc[3] >= $ac[3];
   $w-> rect(@rc);
   $w-> {cypherMask} = ( lc $w->{ini}->{SerType} eq 'long') ? 3 : 2;
   -d $w-> {ini}-> {path} or $w-> {ini}-> {path} = '.';
   $w-> {ini}-> {path} = eval {&Cwd::abs_path($w-> {ini}-> {path})};
   $w-> {ini}-> {path} = '.' if $@;
   $w-> {ini}-> {path} = '' unless -d $w-> {ini}-> {path};

lib/App/PLab/ImageApp.pm  view on Meta::CPAN

      },
   ] , [ Button => 
      origin  => [ 114, 10],
      size    => [96, 36],
      text    => '~Default',
      hint    => 'Set default value for a key',
      onClick => sub {
         my $kl = $nbpages-> KeyList;
         my ( $item, $lev) = $kl-> get_item( $kl-> focusedItem);
         return unless $item;
         $nbpages-> KeySelector-> key( Prima::AbstractMenu-> translate_shortcut(
            $w-> opt_keys()-> {$kl-> get_item_text( $item)}-> [0])); 
      },
   ] );
   $nbpages-> KeyList-> focusedItem(0);
}

sub opt_proppush
{
   my ( $w, $dlg, $nb, $nbpages) = @_;
# General

lib/App/PLab/index.pod  view on Meta::CPAN

The PLabApps stands for the "Protein Laboratory Applications", which means computer software
applications, developed for the needs of the laboratory. These applications are covering some
image-processing routine tasks, that computer accomplishes much faster that human. <p>
An image-centric idea of every application here starts from the main application window,
where image could be loaded, viewed and processed. 
The common view of an application is like that:

=for podview <img src="bigview.gif">

=head2 Menu commands

The image, once loaded, is displayed in the working area of the window. To load an image, the "Open file"
command must be issued. All of commands are gathered in the menu, under menu bars. Some of them have 
the keyboard shortuts, for example, the "Open file" function has shortcut "F3" key. Some also
has been assigned to the icons on the toolbar, to provide fast access for frequently used commands.
The "Open file" command corresponds here to an image of an open folder. The tooltip window pop us
with brief explanation of the icon, once the mouse pointer is driven above it.

=over

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

		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' => {