view release on metacpan or  search on metacpan

examples/bt368i-tk.pl  view on Meta::CPAN

	$gsv_graph = $gsv_tab->Graph(
		-type        => 'HBARS',
		-printvalue  => '%s %d',
		-max         => 99,
		-width       => 300,
		-barwidth    => 20,
		-xformat     => '',
		-height      => 300,
		-sortnames   => 'alpha',
		-sortreverse => '1',
	)->grid(-row=>3, -column=>0, -columnspan=>2);

	#$gsv_graph->set($gsv_graphdata); # no need to assign nothing to the graph, it'll show up soon enough
}

#----------------------------------------#
#
#----------------------------------------#
sub gga {
 	$gga_tab->Label(-height=>1, -text => "utc_time", -anchor=>'w', -width=>25)->grid(-row=>0, -column=>0);
	$gga_tab->Entry(-textvariable=>\$gga->{'utc_time'})->grid(-row=>0, -column=>1);