# -- canvas resize binding
$canvas->Tk::bind('<Configure>' => sub{
	my @bbox = $canvas->bbox("all");
	@bbox = (0, 0, 0, 0) if @bbox != 4;
	$canvas->configure(-scrollregion => [ @bbox ]);
});