PRO HIDEALL,windows
;+
;hideall,[windows] sequentially hides all possible active windows.
;hideall,window hides the windows and returns the list of windows.
;
;H. Rhody
;September 30, 2005
;-

DEVICE,WINDOW_STATE=w
IF min(w) LT 0 THEN BEGIN
	PRINT,"There are no windows to hide"
	window=-1
ENDIF ELSE BEGIN
    windows=where(w GT 0)
    for i=0,n_elements(windows)-1 do wshow,windows[i],0
ENDELSE
END