'
FUNCTION win_top_iconified                                      !call
  $F%
  '
  ' V1.0  Holger Herzog  29.05.1996
  '
  ' Ermittelt, ob das oberste Fenster iconified ist
  '
  LOCAL dummy&,handle&,index&
  LOCAL iconified!
  '
  CLR iconified!
  '
  ~WIND_GET(0,10,handle&,dummy&,dummy&,dummy&)
  index&=@win_get_index(handle&)
  IF index&<>(-1)
    LET iconified!=NOT (window_array&(index&,21)=(-1))
  ENDIF
  '
  RETURN iconified!
ENDFUNC