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