sub 	dynatab_frame_child($$$$$$$) {
my ($tab_parent, $ref_child, $dynatab_caption, $dynatab_title, $dynatab_image, $dynatab_colour ,$dynatab_raised_colour) = @_;
$$ref_child = $tab_parent->add(
				-caption => $dynatab_caption, 
				-label	=> $dynatab_title,
				-tabtip => "Tip for tabno",
			)
			->pack()
			;
}