procedure eve_noonly
!
! This procedure works with EVE_ONLY_WINDOW.  It unmaps ber$main_window,
! revealing the previously mapped windows that were overlaid by it.
!

if get_info(ber$main_window,"type") = UNSPECIFIED then
  message ("ONLY WINDOW has not been used yet");
  return;
endif;          

if current_window <> ber$main_window then
 message("Not currently using ONLY WINDOW");
 return;
endif;

unmap(ber$main_window);
position(ber$old_window);

endprocedure;