************************************************ PROCEDURE IsDebug ************************************************ * Author............: Daniel Gramunt * Created...........: 27.08.2001 - 09:25:26 (Visual FoxPro 07.00.0000.9262) * Copyright.........: (c) Nokia, 2001 *) Description.......: Returns .t. if one of the debugger windows is the active window. * Calling Samples...: * Parameter List....: * Major change list.: *-------------------------------------------------------------------------------------------------- IF This.LoadFoxTools() IF INLIST(_WTITLE(_WONTOP()), "Trace", "Watch", "Call Stack", "Debug Output", "Locals") RETURN .t. ELSE RETURN .f. ENDIF ENDIF *-- EOF Method IsDebug ----------------------------------------------------------------------------------->Hi all