subr view_display, win
 w = -1
 ncase $option_value
   w = view_despike_widget(win)
   w = view_map_widget(win)
   w = view_connect_widget(win)
   w = view_range_widget(win)
   w = view_solar_widget(win)
   w = view_clock_widget(win)
   w = view_emi_widget(win)
   view, win	;the redraw option
   { ty,'grid menu call, shouldn''t happen' }
   { erase, win }
   { info_box_hide_toggle, win }
 endcase
 ;;if w ge 0 then centerfront, w
 if w ge 0 then { xtmanage, w     xtpopup, w }
 ;and some extra work if we need to push some radio buttons
 if $option_value eq 1 then {
  jq = $view_scaletype(win)
  if jq ge 6 or jq lt 0 then jq = 0
  iq = eval('$imapoption'+string(win))
  xmsetoptionselection, iq(0), iq(jq+1)
 }
 endsubr
 ;===============================================================================