sub dst_wg {
  for (@left_frame_widgets) {
     $_ -> destroy();
  }
  @left_frame_widgets = ();
}