Index: Tools/DebugWindow.cls.xml =================================================================== diff -u -r2418 -r2425 --- Tools/DebugWindow.cls.xml (.../DebugWindow.cls.xml) (revision 2418) +++ Tools/DebugWindow.cls.xml (.../DebugWindow.cls.xml) (revision 2425) @@ -8,7 +8,7 @@ - @@ -17,10 +17,10 @@ LastIndex quit:Index="" + #dim LastIndex As %String = $order(^Tools.DebugWindow(..ClientIP,""),-1) + for { set Index = $order(^Tools.DebugWindow(..ClientIP,Index)) quit:Index>LastIndex quit:Index="" do Data.WriteLine(^(Index)) - kill ^ActiveX.DebugWindow(..ClientIP,Index) + kill ^Tools.DebugWindow(..ClientIP,Index) } quit Data ]]> @@ -31,7 +31,7 @@ IP:%String %Boolean @@ -41,8 +41,8 @@ IP:%String,Message:%String @@ -65,7 +65,7 @@ %Status 1