pro wdel

;	Deletes ALL the graphics windows.


device,win=win

index=where(win)

	if index(0) ge 0 then begin
for j=0, n_elements(index)-1 do wdelete,index(j)
print,'Windows deleted: ', byte(index)
	endif else print, 'No windows'

end