Testing whether a window is open

[GregO <rbnuglist at stretchedout dot com>]

So is it possible to create a class extension that would tell us if a  
window of a particular type is showing? I was thinking of something  
like:

------------------------------------------------------------
Function IsShowing(Extends w as Window) As Boolean
   dim c,i as integer

   c = WindowCount-1

   for i = 0 to c
     if window(i) isa w and w.visible then
       return true
     end if
   next i

   return false
End Function
-------------------------------------------------------------

This gives me an compilation error of:

There is no class with this (w) name
Code, Windows.IsShowing, line 6, if window(i) isa w and w.visible then

GregO

_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>

Search the archives:
<http://support.realsoftware.com/listarchives/lists.html>