view release on metacpan or  search on metacpan

ZooZ/Forms.pm  view on Meta::CPAN

	    )->grid(-column => 0, -row => 0, -sticky => 'w');
  $f5->Optionmenu(-options => [5 .. 25],
		  -textvariable => \$FONTDATA{size},
		  -command      => [\&configureSampleFont, $sample],
		 )->grid(-column => 1, -row => 0, -sticky => 'ew',
			 -columnspan => 2);

  $f5->Label(-text => 'Weight',
	    )->grid(-column => 0, -row => 1, -sticky => 'w');
  $f5->Radiobutton(-text => 'Normal',
		   -value => 'normal',

ZooZ/Forms.pm  view on Meta::CPAN

	    )->grid(-column => 0, -row => 3, -sticky => 'w');
  $f5->Checkbutton(-text => 'Yes/No',
		   -variable => \$FONTDATA{underline},
		   -command  => [\&configureSampleFont, $sample],
		  )->grid(-column => 1, -row => 3, -sticky => 'ew',
			  -columnspan => 2);

  $f5->Label(-text => 'Overstrike',
	    )->grid(-column => 0, -row => 4, -sticky => 'w');
  $f5->Checkbutton(-text => 'Yes/No',
		   -variable => \$FONTDATA{overstrike},
		   -command  => [\&configureSampleFont, $sample],
		  )->grid(-column => 1, -row => 4, -sticky => 'ew',
			  -columnspan => 2);

  # when user selects a registered font, update the other widgets.
  $l3->bind('<1>' => sub {
	      my ($sel) = $l3->curselection;
	      defined $sel or return;

ZooZ/Forms.pm  view on Meta::CPAN

    {
      my $f = $VARDATA{initHashF} = $t->Frame;
      $f->Label(-anchor  => 'w',
		-justify => 'left',
		-text    => <<EOT)->grid(-columnspan => 2);
Enter key value pairs.
Each line on the left will define a key and
each line on the right will define the corresponding value.
EOT
  ;

ZooZ/Forms.pm  view on Meta::CPAN

	      -borderwidth  => 1,
	      -relief       => 'ridge',
	      -pady         => 5,
	     )->grid(-row        => 0,
		     -column     => 0,
		     -columnspan => 2,
		     -sticky     => 'ew');

  my $hl = $top->Scrolled(HList       =>
			  -scrollbars => 'se',
			  -bg         => 'white',

ZooZ/Forms.pm  view on Meta::CPAN

		     #$top->waitVisibility;

		   })->grid(-row        => $row,
			    -column     => 0,
			    -sticky     => 'nsew',
			    -columnspan => 3,
			    -pady       => 10,
			    -pady       => 5,
			   );

	# Check if we have menu builder support enabled.

ZooZ/Forms.pm  view on Meta::CPAN

			     -labelwidget => $cb,
			     -relief      => 'ridge',
			    )->grid(-row        => $row+1,
				    -column     => 0,
				    -sticky     => 'nsew',
				    -columnspan => 3,
				   );

	$lf->Button(-text    => 'Configure Menu',
		    -command => [\&configureMenu, __PACKAGE__, $project, $projid, $name, $widget],
		   )->pack(qw/-fill both -expand 1/);

ZooZ/Forms.pm  view on Meta::CPAN

			-variable => \$Eoptions->{HOPTIONAL},
			-font     => 'OptionText',
		       )->grid(-column => 1,
			       -row    => 1,
			       -sticky => 'w',
			       -columnspan => 3,
			      );
      $f11->Radiobutton(-text     => 'North',
			-value    => 'n',
			-variable => \$Eoptions->{HSCROLLLOC},
			-font     => 'OptionText',

ZooZ/Forms.pm  view on Meta::CPAN

			-variable => \$Eoptions->{VOPTIONAL},
			-font     => 'OptionText',
		       )->grid(-column => 1,
			       -row    => 3,
			       -sticky => 'w',
			       -columnspan => 3,
			      );
      $f11->Radiobutton(-text     => 'East',
			-value    => 'e',
			-variable => \$Eoptions->{VSCROLLLOC},
			-font     => 'OptionText',

 view release on metacpan or  search on metacpan

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

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

 view release on metacpan or  search on metacpan

etc/Table.html  view on Meta::CPAN

forms accepted by Tk_GetAnchor.  For example, if is center then the
window is centered in the rows and columns it spans; if is w then the
window will be drawn such it touches the leftmost edge of the
span. This option defaults to center.

 <dt>-columnspan 
  <dd> Specifies the number of columns spanned by the slave. The
default span is 1.

 <dt>-fill
  <dd> Indicates if the slave should be expanded to occupy any extra

etc/Table.html  view on Meta::CPAN

# $table->Column('configure', 1);
#
$table1 = Create $table 
    1, 0, 'Table', -anchor => 'nw',-border => 5, -relief => 'raised';
Create $table1
    0, 0, 'Button', -text => "But 1", -columnspan => 2, -fill => 'both',
    0, 2, 'Button', -text => "But 2", -rspan => 2, -fill => 'both',
    1, 0, 'Button', -text => "But 4", -rspan => 2, -fill => 'both',
    2, 1, 'Button', -text => "But 3", -cspan => 2, -fill => 'both',
    1, 1, 'Button', -text => "But 5", -fill => 'both';
#

 view release on metacpan or  search on metacpan

Zinc/Debug.pm  view on Meta::CPAN

    
    # matrix
    my $r = 0;
    my $c = 0;
    $fm11->Label(-text => 'matrix', -relief => 'ridge', -bg => $bgcolor)
	->grid(-row => $r++, -columnspan => 2,
	       -ipady => 5, -ipadx => 5, -sticky => 'nswe');
    $fm11->Label(-textvariable => \$m00, -relief => 'ridge')
	->grid(-row => $r, -column => $c,
	       -ipady => 5, -ipadx => 5, -sticky => 'nswe');
    $fm11->Label(-textvariable => \$m01, -relief => 'ridge')

Zinc/Debug.pm  view on Meta::CPAN

    my $bgcolor = 'ivory';
    my $i = 1;
    $fm->Label(-text => $title, -background => $bgcolor,
	       -fg => 'sienna', -relief => 'ridge')
	->grid(-row => $i++, -column => 1, -ipady => 5, -ipadx => 5,
	       -columnspan => 2, -sticky => 'nswe') if $label;
    $fm->Label(-text => 'Option', -background => $bgcolor, -relief => 'ridge')
	->grid(-row => $i, -column => 1, -ipady => 10, -ipadx => 5, -sticky => 'nswe');
    $fm->Label(-text => 'Value', -background => $bgcolor, -relief => 'ridge')
	->grid(-row => $i++, -column => 2, -ipady => 10, -ipadx => 5, -sticky => 'nswe');

Zinc/Debug.pm  view on Meta::CPAN

    my $bgcolor = 'ivory';
    my $i = 1;
    $fm->Label(-text => $label, -background => $bgcolor,
	       -fg => 'sienna', -relief => 'ridge')
	->grid(-row => $i++, -column => 0, -ipady => 0, -ipadx => 5,
	       -columnspan => 7, -sticky => 'nswe') if $label;

    &showbanner($fm, $i++);
    $i++;
    for my $item (@$items) {
	my $c = 0;

 view release on metacpan or  search on metacpan

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

    $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} );

 view release on metacpan or  search on metacpan

vptk_w.pl  view on Meta::CPAN

my @AllWidgetsNames = AllWidgetsNames();

# Legal parameters per geometry:
my (%w_geom) = (
  'pack'  => [qw/-side -fill -expand -anchor -ipadx -ipady -padx -pady/],
  'grid'  => [qw/-row -column -rowspan -columnspan -sticky -ipadx -ipady -padx -pady/],
  'place' => [qw/-anchor -height -width -x -y -relheight -relwidth -relx -rely/]
);

my @OrdinaryWidgets = (grep(HaveGeometry($_),sort @AllWidgetsNames),'packAdjust'); 
# (excluded widgets without geometry)

vptk_w.pl  view on Meta::CPAN

      my @conflicts;
      my @matrix;

      $xmax = $ymax = -1;
      foreach (@children) {
        ($x) = $descriptor{$_}->{'geom'} =~ /-column\W+(\d+)/; # prevented matching -columnspan
        $x = '0' unless $x;
        $xmax = $x if $x > $xmax;
        ($y) = $descriptor{$_}->{'geom'} =~ /-row\W+(\d+)/; # prevented matching -rowspan
        $y = '0' unless $y;
        $ymax = $y if $y > $ymax;

vptk_w.pl  view on Meta::CPAN

          -command => sub{$g_val{'-sticky'}=~s/$s//g;$g_val{'-sticky'}.=$s if $st{$s}})
          ->pack(-side=>'left');
      }
    }
    my $i=1;
    foreach my $k(qw/-column -row -columnspan -rowspan -ipadx -ipady -padx -pady/)
    {
      &cnf_dlg_balloon($bl,$g_grid->Label(-text=>$k,-justify=>'left')->
        grid(-row=>$i,-column=>0,-sticky=>'w',-padx=>8),$k);
      my $f=$g_grid->Frame()->grid(-row=>$i,-column=>1,-pady=>4);
      &cnf_dlg_balloon($bl,$f,$k);

 view release on metacpan or  search on metacpan

Tk/Application.pm  view on Meta::CPAN

  
  $label_1->grid(
		 -in => $root,
		 -column => '1',
		 -row => '1',
		 -columnspan => '3'
		);
  
  $entry_1->grid(
		 -in => $root,
		 -column => '1',
		 -row => '2',
		 -columnspan => '3'
		);
  
  $root->gridRowconfigure(1, -weight  => 0, -minsize  => 30);
  $root->gridRowconfigure(2, -weight  => 0, -minsize  => 30);
  

 view release on metacpan or  search on metacpan

Tk/Application/dbfdump.pm  view on Meta::CPAN

  
  $label_2->grid(
		 -in => $root,
		 -column => '1',
		 -row => '1',
		 -columnspan => '2'
		);
  $label_1->grid(
		 -in => $root,
		 -column => '1',
		 -row => '2',

Tk/Application/dbfdump.pm  view on Meta::CPAN

		);
  $checkbutton_1->grid(
		       -in => $root,
		       -column => '1',
		       -row => '5',
		       -columnspan => '2'
		      );
  
  $checkbutton_2->grid(
		       -in => $root,
		       -column => '1',
		       -row => '6',
		       -columnspan => '2'
		      );
  
  # Resize behavior management
  
  # container $root (rows)