view release on metacpan or  search on metacpan

DBIx/Form.pm  view on Meta::CPAN

			-balloonmsg => $obj->{balloon}->{$name} 
		) if(defined $obj->{balloon}->{$name}); 

		$label->grid( $image, $obj->{entrys}->{$name}, -sticky => 'nw' );
	}

	$dialog->Label(
		-fg 	 	=> 'red',
		-justify 	=> 'left',
		-textvariable   => \$obj->{ status },
	)->grid(-sticky => 'nw', -columnspan => 2);

	return $save;
}

# ------------------------------------------
sub cancel {
# ------------------------------------------
	my $obj = shift || warn "Kein Objekt!";

	$obj->{dialog}->Subwidget('B_Cancel')->invoke