# -- bloat the baloon
           my %gui = (); #... wird irgendwo gefüllt
	$gui{baloon} 	= $top->Balloon(-initwait => 0);
	
	my %msgs = ();
	for my $key ( keys %gui ) {
		if( $key =~ m/^((?:section|shelf)\d+)$/ ) {
			$msgs{$1.'_tag'} = $1;
		}
	}
	
	$gui{baloon}->attach($canvas,
		-balloonposition => 'mouse',
		-msg => \%msgs,
	);