ec

 view release on metacpan or  search on metacpan

lib/EC/About.pm  view on Meta::CPAN

        -font             => ['CHILDREN',undef,undef,undef],
        -version          => ['PASSIVE',undef,undef,0],
  );
  my $logo = $w -> Pixmap (-data => EC::ECIcon::icondata);
  my $kanvas = $w -> Component ('Canvas' => 'canvas', 
				-width => 64, -height => 64);
  $kanvas -> createImage (1,1, -image => $logo, -anchor => 'nw');
  $kanvas -> grid (-column => 1, -row => 1, -pady => 5);
  my $l = $w -> Component( Label => 'tile',
	   -text => "\nEC Email Client\n Version ".$args->{-version}."\n");
  $l -> grid( -column => 2, -row => 1, -pady => 5, -columnspan => 2);
  my $l2 = $w -> Component( Label => 'copyright',
   -text => "Copyright \xa9 2001-2004,\nRobert Kiesling, " .
   "rkies\@cpan.org.\n" .
   "MS Windows Compatibility by Roland Bauer\n\n" .
   "Please read the file, \"Artistic,\" for license terms.\n");
  $l2 -> grid( -column => 1, -row => 2, -padx => 5, -pady => 5,
	      -columnspan => 3);
  $b = $w->Button( -text => 'Dismiss', -command => sub{$w->WmDeleteWindow},
		   -default => 'active' );
  $b->grid( -column => 1, -row => 3, -padx => 5, -pady => 5,
	   -columnspan => 3);
  $b->focus;

  return $w;
}

1;

lib/EC/PasswordDialog.pm  view on Meta::CPAN

  $w -> configure( -title => 'Enter Password' );

  $w->ConfigSpecs( -font =>    ['CHILDREN',undef,undef,
	                         '*-helvetica-medium-r-*-*-12-*'],
		   -username => ['PASSIVE',undef,undef,''],
		   -password => ['PASSIVE',undef,undef,undef] );

  my $l1 = $w -> Component ( Label => 'usernamelabel',
			     -text => 'User Name:', );
  $l1 -> grid ( -column => 1, -row => 1, -padx => 5, -pady => 5,
		-sticky => 'w', -columnspan => 2 );
  my $e1 = $w -> Component (Entry => 'usernameentry',
			    -width => 20,
		            -textvariable => \$w->{'Configure'}{'-username'});
  $e1 -> grid ( -column => 3, -row => 1, -padx => 5, -pady => 5,
		-sticky => 'w', -columnspan => 3 );
  my $l2 = $w -> Component (Label => 'passwordlabel',
			    -text => 'Password:', );
  $l2 -> grid ( -column => 1, -row => 2, -padx => 5, -pady => 5,
		-sticky => 'w', -columnspan => 2 );
  my $e2 = $w -> Component (Entry => 'passwordentry',
			    -width => 20,
			   -show => '*' );
  $e2 -> bind( '<Return>', sub {$w -> Password} );
  $e2 -> grid ( -column => 3, -row => 2, -padx => 5, -pady => 5,
		-sticky => 'w', -columnspan => 3 );
  my $b1 = $w -> Component (Button => 'okbutton',
			    -text => 'Ok',
			    -command => sub {$w -> Password},
			    -default => 'active' );
  $b1->grid( -column => 2, -row => 3, -padx => 5, -pady => 5,
	    -sticky => 'new' );
  $b1->focus;
  my $b2 = $w -> Component (Button => 'cancelbutton',
			    -text => 'Cancel',
			    -command => sub{$w -> WmDeleteWindow},

lib/Tk/ECWarning.pm  view on Meta::CPAN

        -font => ['CHILDREN',undef,undef,'*-helvetica-medium-r-*-*-12-*'],
	-message => ['PASSIVE', undef, undef, ''],
	-response => ['PASSIVE', undef, undef, '']
    );

    $w -> configure (-title => 'Warning');

    my $l = $w -> Component( Label => 'entry_label',
	     -textvariable => \$w->{Configure}{-message});
    $l -> grid( -column => 2, -row => 1, -padx => 5, -pady => 5,
		-columnspan => 3);

    $b = $w -> Button(-text => 'Ok', -command => ['Ok', $w],
		      -width => 10 );
    $b->grid(-column=>2,-row=>2,-padx=>5,-pady=>5,-sticky=>'nsew');


    $b = $w->Button( -text => 'Cancel', -command => ['Cancel', $w],
		     -width => 10);
    $b->grid( -column => 4, -row => 2, -padx => 5, -pady => 5,
	    -sticky => 'nsew' );

lib/Tk/SimpleFileSelect.pm  view on Meta::CPAN

	-initialtext      => [ 'PASSIVE', undef, undef, '' ],
        DEFAULT           => [ 'dir_list' ],
    );

    $w->protocol('WM_DELETE_WINDOW' => ['Cancel', $w ]);
    $w->{'reread'} = 0;
    my $l = $w -> Component( Label => 'entry_label',-text => 'File Name: ');
    $l -> grid( -column => 1, -row => 3, -padx => 5, -pady => 5 );
    my $e = $w -> Component(Entry => 'file_entry',
		    -textvariable=>\$w->{Configure}{-initialtext});
    $e->grid(-column => 2, -columnspan => 1, -padx => 5, -pady => 5,
	     -row => 3, -sticky => 'e,w' );
    $e->bind('<Return>' => [$w => 'Open', Ev(['getSelected'])]);
    my $lb = $w->Component( ScrlListbox    => 'dir_list',
        -scrollbars => 'se', -width => \$w -> {Configure}{-width},
	-height => \$w -> {Configure}{-height} );
    $lb -> Subwidget('yscrollbar') -> configure(-width=>10);
    $lb -> Subwidget('xscrollbar') -> configure(-width=>10);
    $lb->grid( -column => 2, -row => 1, -rowspan => 2, -padx => 5,
	    -pady => 5, -sticky => 'nsew' );
    $lb->bind('<Double-Button-1>' => [$w => 'Open', Ev(['getSelected'])]);