Changeset 703 for trunk/guitools/smbmon/smbmon.vrx

Timestamp:

Jun 13, 2012, 12:08:42 PM (13 years ago)

Author:

Herwig Bauernfeind

Message:

GUI-Tools: Updates in EVFSGUI/SMBMON/Shared code

File:

• trunk/guitools/smbmon/smbmon.vrx (modified) (11 diffs)

trunk/guitools/smbmon/smbmon.vrx

@@ -112 +112 @@
     ok = VRMethod(Container, "GetFieldList", "Fields." )
 
-    do I = 1 to 12
+    do I = 1 to 14
+        R2I = right("0"||I,2)
         if I <= fields.0 then do
-/*          say "Columns_"||right("0"||I,2)' 'VRMethod(Container, "GetFieldAttr", fields.I, "Title" ) */
-            ok = VRset("Columns_"||right("0"||I,2), "Visible", 1)
-            ok = VRset("Columns_"||right("0"||I,2), "Caption", VRMethod(Container, "GetFieldAttr", fields.I, "Title" ))
-            ok = VRset("Columns_"||right("0"||I,2), "Checked", VRMethod(Container, "GetFieldAttr", fields.I, "Visible" ))
-            ok = VRset("Columns_"||right("0"||I,2), "Userdata", Container'|'fields.I'|'VRMethod(Container, "GetFieldAttr", fields.I, "Visible" ))
-        end
-        else ok = VRset("Columns_"||right("0"||I,2), "Visible", 0)
+/*          say "Columns_"||R2I' 'VRMethod(Container, "GetFieldAttr", fields.I, "Title" ) */
+            ok = VRset("Columns_"||R2I, "Visible", 1)
+            ok = VRset("Columns_"||R2I, "Caption", VRMethod(Container, "GetFieldAttr", fields.I, "Title" ))
+            ok = VRset("Columns_"||R2I, "Checked", VRMethod(Container, "GetFieldAttr", fields.I, "Visible" ))
+            ok = VRset("Columns_"||R2I, "Userdata", Container'|'fields.I'|'VRMethod(Container, "GetFieldAttr", fields.I, "Visible" ))
+        end
+        else ok = VRset("Columns_"||R2I, "Visible", 0)
     end
     ok = VRMethod( "Columns", "Popup", , , "", "" )    
@@ -1229 +1230 @@
         if DRH <> "" then DaemonName = VRMethod("CN_Daemons", "GetRecordAttr", DRH, "Caption")
         select
-            when Words(DaemonName) = 3 then do
+            when Words(DaemonName) = 3 then do /* a child process with PID in name */
                 DaemonName = word(DaemonName,2)
                 ok = VRset("ContextMenu_Daemons_Sep1","Visible", 1 )
+                ok = VRSet("ContextMenu_Daemons_KillPID", "Caption", NLVGetMessage( 38, DaemonName))
+                ok = VRset("ContextMenu_Daemons_KillPID",  "Visible", 1 )
+                ok = VRset("ContextMenu_Daemons_Start", "Visible", 0 )
+                ok = VRset("ContextMenu_Daemons_Ping",  "Visible", 1 )
+                ok = VRset("ContextMenu_Daemons_Sep1",  "Visible", 1 )
             end
-            when Words(DaemonName) = 1 then do
+            when Words(DaemonName) = 1 then do /* on smbd.exe or nmbd.exe root processes */
                 parse var DaemonName DaemonName'.exe'
                 if strip(VRMethod("CN_Daemons", "GetFieldData", DRH, DPidsFH)) <> "" then do
@@ -1244 +1250 @@
                     ok = VRSet("ContextMenu_Daemons_Start", "Caption", NLVGetMessage( 36, DaemonName))
                     ok = VRset("ContextMenu_Daemons_Start", "Visible", 1 )
+                    ok = VRset("ContextMenu_Daemons_KillPID","Visible", 0 )
                     ok = VRset("ContextMenu_Daemons_Ping",  "Visible", 0 )
                     ok = VRset("ContextMenu_Daemons_Sep1",  "Visible", 1 )
@@ -1395 +1402 @@
 return
 
+/*:VRX         Columns_13_Click
+*/
+Columns_13_Click: 
+    call _ColumnShow
+return
+
+/*:VRX         Columns_14_Click
+*/
+Columns_14_Click: 
+    call _ColumnShow
+return
+
 /*:VRX         ContextMenu_Daemons_Details_Click
 */
@@ -1402 +1421 @@
     ok = VRset("ContextMenu_Daemons_Details","Enabled",0)
     ok = VRSet("TM_refresh","Enabled", 1)
+return
+
+/*:VRX         ContextMenu_Daemons_KillPID_Click
+*/
+ContextMenu_Daemons_KillPID_Click: 
+    Msg.Text = NLVGetMessage(39, DaemonName)
+    Msg.Type = 'Q'
+    if _MsgYesNo() = 1 then do
+        say 'kill -9 'DaemonName
+        address cmd 'kill -9 'DaemonName
+    end
+    ok = VRSet("TM_refresh","Enabled", 1)
+    call PB_PAUSEDISPLAY_Click
 return
 
@@ -1435 +1467 @@
     end
     ok = VRSet("TM_refresh","Enabled", 1)
+    call PB_PAUSEDISPLAY_Click
 return
 
@@ -1453 +1486 @@
     end
     ok = VRSet("TM_refresh","Enabled", 1)
+    call PB_PAUSEDISPLAY_Click
 return
 
@@ -1943 +1977 @@
     end
     ok = VRSet("TM_Refresh","Delay", 2000)
+    if \VRGet("TM_RefreshDaemons","Enabled") then call PB_PAUSEDISPLAY_Click
     call VRSet VRWindow(), 'Pointer', '<default>' 
 return
@@ -1958 +1993 @@
     end
     ok = VRSet("TM_Refresh","Delay", 1000)
+    if \VRGet("TM_RefreshDaemons","Enabled") then call PB_PAUSEDISPLAY_Click
     call VRSet VRWindow(), 'Pointer', '<default>' 
 return
@@ -1991 +2027 @@
     end
     ok = VRSet("TM_Refresh","Delay", 1000)
+    if \VRGet("TM_RefreshDaemons","Enabled") then call PB_PAUSEDISPLAY_Click
     call VRSet VRWindow(), 'Pointer', '<default>' 
     say "IPB_Start_Click done"
@@ -2007 +2044 @@
     end
     ok = VRSet("TM_Refresh","Delay", 1000)
+    if \VRGet("TM_RefreshDaemons","Enabled") then call PB_PAUSEDISPLAY_Click
     call VRSet VRWindow(), 'Pointer', '<default>' 
     say "IPB_Stop_Click done"