view release on metacpan or  search on metacpan

Tk/Application.pm  view on Meta::CPAN

 
  my $Callback = $opts{-draw}; 
  my($entry_1) = (ref($Callback) eq 'CODE') ? &$Callback($root) : $root->Entry;
  
  # Geometry management
  
  $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);
  
  $root->gridColumnconfigure(1, -weight => 0, -minsize => 38);
  $root->gridColumnconfigure(2, -weight => 0, -minsize => 43);
  $root->gridColumnconfigure(3, -weight => 1, -minsize => 30);
  
  my $rc = $DLG->Show;

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

					   -variable => \$headers,
					  );
  
  
  # Geometry management
  
  $label_2->grid(
		 -in => $root,
		 -column => '1',
		 -row => '1',
		 -columnspan => '2'
		);
  
  $label_1->grid(
		 -in => $root,
		 -column => '1',
		 -row => '2',
		 -sticky => 'e'
		);
  
  $entry_1->grid(

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

  $entry_3->grid(
		 -in => $root,
		 -column => '2',
		 -row => '5'
		);
  
  $checkbutton_1->grid(
		       -in => $root,
		       -column => '1',
		       -row => '6',
		       -columnspan => '2'
		      );
  
  # Resize behavior management
  
  # container $root (rows)
  $root->gridRowconfigure(1, -weight  => 0, -minsize  => 30);
  $root->gridRowconfigure(2, -weight  => 0, -minsize  => 30);
  $root->gridRowconfigure(3, -weight  => 0, -minsize  => 30);
  $root->gridRowconfigure(4, -weight  => 0, -minsize  => 30);
  $root->gridRowconfigure(5, -weight  => 0, -minsize  => 30);