Changeset 563

Timestamp:

Feb 25, 2011, 5:05:54 PM (14 years ago)

Author:

Herwig Bauernfeind

Message:

GUI-Tools: SMBMON 2.1 core functionality

Location:

branches/guitools-2.0/smbmon-2.1

Files:

• smbmon.VRP (modified) (2 diffs)
• smbmon.VRX (modified) (11 diffs)
• smbmon.VRY (modified) ( previous)

branches/guitools-2.0/smbmon-2.1/smbmon.VRP

@@ -7 +7 @@
 RunDirectory: 
 VRXWindow: __VREMainWindow,1,2180,3710,903,8010
-VRXWindow: __VRESectionListWindow,1,3589,11708,7938,3342
-VRXWindow: __VREToolsWindow,1,3211,9877,6486,1665
-VRXWindow: __VREWindListWindow,1,927,11708,2650,3324
+VRXWindow: __VRESectionListWindow,1,3252,10455,7938,3493
+VRXWindow: __VREToolsWindow,1,2108,1783,6486,1661
+VRXWindow: __VREWindListWindow,1,602,10551,2650,3324
 UserFile: 1
 UserWindow: Main,1
@@ -17 +17 @@
 UserWindow: SW_4,1
 UserWindow: SW_5,1
-UserWindow: SW_6,1

branches/guitools-2.0/smbmon-2.1/smbmon.VRX

@@ -93 +93 @@
 #append U:\Develop\Samba\guitools-2.0\shared\nlv.vrs
 #append U:\Develop\Samba\guitools-2.0\shared\inittempdir.vrs
-#append U:\Develop\Samba\guitools-1.0\shared\sambainit.vrs
+#append U:\Develop\Samba\guitools-2.0\shared\sambainit.vrs
+#append U:\Develop\Samba\guitools-2.0\shared\smbtree.vrs
 */
 return
@@ -154 +155 @@
     ok = VRMethod("CN_smbtree","SetfieldAttr",MacFH,      "ReadOnly", 1)
 
-
+    ok = VRMethod("CN_Users","SetFieldAttr", UsernameFH,  "VertJustification", "top")
+ 
     /* add records for the 3 daemons */
     smbdHandle = VRMethod("CN_Daemons", "Addrecord",, ,"smbd.exe","$41")
@@ -170 +172 @@
 return
 
+/*:VRX         _GuessIcon
+*/
+_GuessIcon: procedure
+    text = arg(1)
+    select /* Printer guessing */
+        when pos('LJ',text)      > 0 then res = '#65:PMWP.DLL'
+        when pos('LASER',text)   > 0 then res = '#65:PMWP.DLL'
+        when pos('EPSON',text)   > 0 then res = '#65:PMWP.DLL'
+        when pos('PRINT',text)   > 0 then res = '#65:PMWP.DLL'
+        when pos('PRT',text)     > 0 then res = '#65:PMWP.DLL'
+        when pos('CANON',text)   > 0 then res = '#65:PMWP.DLL'
+        when pos('MINOLTA',text) > 0 then res = '#65:PMWP.DLL'
+        when pos('FAX',text)     > 0 then res = '#65:PMWP.DLL'
+        when pos('LEXMARK',text) > 0 then res = '#65:PMWP.DLL'
+        when pos('IPC$',text)    > 0 then res = '#59:PMWP.DLL'
+        otherwise res = "#34:PMWP.DLL"
+    end
+return res
+
 /*:VRX         _GUIInit
 */
@@ -262 +283 @@
     if options.!debug = "" then options.!debug = 0
 
+    /* For Users page in case connections.tdb is not initialised */
+    IgnoreSmbNoInit = 1
+
+    /* For Browse page */
+    FirstRun = 1
+
+    /* For Refresh tree display code */
+    RefreshMode =""
+
+    smbdpidhandle.0 = 0
+    nmbdpidhandle.0 = 0
+    winbpidhandle.0 = 0
+
+    prevsmbdct = 0
+    prevnmbdct = 0
+    prevwinbct = 0
+
     if options.!debug == 1 THEN SAY time()' _INIRead() done'
 return
@@ -339 +377 @@
 return
 
+/*:VRX         _Refresh
+*/
+_Refresh: 
+    if options.!debug == 1 THEN SAY time()" _Refresh() started"
+    ok = VRSet("TM_refresh","Enabled", 0)
+    SmbNoInit = 0
+
+    rfout = TempDir'refresh.out'
+    rferr = TempDir'refresh.err'
+
+    call _SambaExe samba.!smbd' -V --debuglevel=0 2>'rferr' 1>'rfout
+
+    SambaVer = "Samba "||strip(linein(rfout))
+    if options.!debug == 1 THEN SAY '  smbd.exe:  "'SambaVer'"'
+    ok = stream(rfout,'c','close')
+
+    call _SambaExe samba.!smbstatusexe' smbd 'DebugLevel' 2>'rferr' 1>'rfout
+
+    /* First line is usually empty */
+    Hdr      = linein(rfout)
+    SambaStVer = strip(linein(rfout)) /* we can detect version mismatches here */
+    if options.!debug == 1 THEN SAY '  smbstatus: "'SambaStVer'"'
+
+    select
+        when pos('not initialised',SambaStVer) > 0 then do
+            SambaVer = SambaVer||" (Init)"
+            SmbNoInit = 1
+        end
+        when translate(SambaStVer) <> translate(SambaVer) then SambaVer = SambaVer||" (Hybrid)"
+        otherwise nop
+    end
+
+    Ok = VRSet("Main", "Caption", SambaVer' - 'NLVGetMessage(146))
+
+    /* Active User */
+    Hdr1 = linein(rfout)
+    /* say '  1:'hdr1 */
+    Hdr2 = linein(rfout)
+    /* say '  2:'hdr2 */
+    Zeile = linein(rfout)
+    if options.!debug == 1 THEN say '    'Zeile
+    if SmbNoInit then do
+        call lineout samba.!msg, SambaStVer
+        call lineout samba.!msg, Hdr1
+        call lineout samba.!msg, Hdr2
+        call lineout samba.!msg, Zeile
+        ok = stream(samba.!msg,'c','close')
+        if IgnoreSmbNoInit then do
+            call _SambaShowMsg
+            IgnoreSmbNoInit = 0
+        end
+    end
+
+    if options.!debug == 1 THEN SAY '  SmbNoInit = 'SmbNoInit
+
+    /* Users page */
+    ok = VRSet("CN_Users","Painting", 0)
+    ok = VRMethod("CN_Users", "RemoveRecord", "ALL")
+
+    Username.0 = 0
+    IP.0       = 0
+    Group.0    = 0
+    I = 0
+    if \SmbNoInit then do
+        do while Zeile <> ''
+            parse var Zeile UPID Username Group Machine IP
+            I = I + 1
+            UPID.I = UPID
+            Username.I = Username
+            Group.I = Group
+            IP = strip(IP)
+            parse var IP '('IP.I')'
+            RecHandle = VRMethod("CN_Users", "Addrecord")
+            ok = VRMethod("CN_Users", "SetFieldData", RecHandle, UIconH, "$44", UPIDFH, UPID, UsernameFH, Username, GroupFH, Group, UMachineFH, Machine, UIPAdrFH, IP.I)
+            Zeile = linein(rfout)
+        end   
+    end
+    Username.0 = I
+    Group.0 = I
+    UPID.0 = I
+    ok = VRSet("CN_Users","Painting", 1)
+
+    /* Active Services page */
+    Hdr = linein(rfout)
+    Hdr = linein(rfout)
+    I = 0
+    Zeile = linein(rfout)
+    ok = VRSet("CN_Service","Painting", 0)
+    ok = VRMethod("CN_Service", "RemoveRecord", "ALL")
+    do while Zeile <> ''
+        parse var Zeile Service SPId Machine Connected
+        I = I + 1
+        SPid.I    = SPid
+        Machine.I = Machine
+        Service.I = Service
+        Icon = _GuessIcon(Service.I)
+
+        Connected = strip(Connected)
+        T. = ""
+        parse var Connected T.WDay T.Month T.DoM T.TimeoD T.Year
+        Connected = T.TimeoD', 'T.WDay' 'T.DoM' 'T.Month' 'T.Year
+
+        RecHandle = VRMethod("CN_Service", "Addrecord")
+        ok = VRMethod("CN_Service", "SetFieldData", RecHandle, SIconH, Icon, ServiceFH, Service, SPIDFH, SPID, SMachineFH, Machine, ConnectedFH, Connected)
+        Zeile = linein(rfout)
+    end   
+    SPid.0    = I
+    Machine.0 = I
+    Service.0 = I
+
+    ok = VRSet("CN_Service","Painting", 1)
+
+    /* Open Files */
+    Hdr = linein(rfout)
+    Hdr = linein(rfout)
+    Hdr = linein(rfout)
+
+    Zeile = linein(rfout)
+    ok = VRSet("CN_Files","Painting", 0)
+    ok = VRMethod("CN_Files", "RemoveRecord", "ALL")
+    File.0 = 0
+    FPID.0 = 0
+    do while Zeile <> ''
+        parse var Zeile FPid Uid DenyMode Access RW Oplock Sharepath Rest
+        TimeDate = right(rest,25)
+        Name = strip(left(Rest,max(length(Rest)-25),1))
+        I = I + 1
+        sharepath = strip(translate(left(sharepath,1))||translate(substr(SharePath,2),'\','/'),'T','\')
+        Username = UID
+        do J = 1 to UPID.0
+            if FPID = UPID.J then do
+                Username = Username.J
+                leave
+            end
+        end
+        File = SharePath||'\'||translate(Name,'\','/')
+        File.I = File
+        FPID.I = FPID
+        TimeDate = strip(TimeDate)
+        if options.!debug == 1 THEN say Timedate
+        T. = ""
+        parse var TimeDate T.WDay T.Month T.DoM T.TimeoD T.Year
+        FileTime = T.TimeoD
+        FileDate = T.WDay' 'T.DoM' 'T.Month' 'T.Year
+        RecHandle = VRMethod("CN_Files", "Addrecord")
+        ok = VRMethod("CN_Files", "SetFieldData", RecHandle, FPidFH, FPid, FileFH, File, FUserFH, Username, UidFH, Uid, DenyModeFH, DenyMode,  AccessFH, Access, RWFH, RW)
+        ok = VRMethod("CN_Files", "SetFieldData", RecHandle, FIconH, "$45", TimeFH, FileTime, DateFH, FileDate, OplockFH, Oplock, SharePathFH, Sharepath, NameFH, Name)
+        Zeile = linein(rfout)
+    end   
+    File.0 = I
+    FPID.0 = I
+
+    ok = stream(rfout, 'c','close')
+    ok = stream(rferr, 'c','close')
+    ok = SysFileDelete(rfout)
+    ok = SysFileDelete(rferr)
+
+    call _RefreshDaemons
+
+    ok = VRSet("CN_Files","Painting", 1)
+
+    if VRGet("Main", "WindowState") = "Minimized" 
+        then ok = VRSet("TM_Refresh","Delay", settings.!intervallMin * 1000)    
+        else ok = VRSet("TM_Refresh","Delay", settings.!intervall * 1000)
+
+    ok = VRSet("TM_refresh","Enabled", 1)
+    if options.!debug == 1 THEN SAY time()" _Refresh() done"
+return
+
+/*:VRX         _RefreshDaemons
+*/
+_RefreshDaemons: 
+    if options.!debug == 1 THEN SAY time()' _RefreshDaemons() started'
+    ok = VRSet("CN_Daemons","Painting", 0 )
+
+    call VRSet VRWindow(), 'Pointer', 'Wait' 
+
+    do I = 1 to smbdpidhandle.0
+        ok = VRMethod("CN_Daemons", "RemoveRecord", smbdpidhandle.I ) 
+    end
+
+    do I = 1 to nmbdpidhandle.0
+        ok = VRMethod("CN_Daemons", "RemoveRecord", nmbdpidhandle.I ) 
+    end
+
+    do I = 1 to winbpidhandle.0
+        ok = VRMethod("CN_Daemons", "RemoveRecord", winbpidhandle.I ) 
+    end
+
+    Running = _SambaRunning()
+
+    call VRSet VRWindow(), 'Pointer', '<default>'   
+
+    smbdpids = pids.!smbd
+    nmbdpids = pids.!nmbd
+    winbpids = pids.!nmbd
+
+    smbdRunning = running.!smbd
+    nmbdRunning = running.!nmbd
+    winbRunning = running.!winb
+
+    if smbdRunning then do
+        ok = VRMethod("CN_Daemons", "SetFieldData", smbdHandle, DStatusFH, NLVGetMessage(40), DPidsFH, smbdpids)
+        ok = VRMethod("CN_Daemons", "SetRecordAttr", smbdHandle, "Icon", "$46")
+        smbdpidhandle.0 = words(smbdpids)
+        if options.!debug = 1 then do
+            if smbdpidhandle.0 > prevsmbdct then do
+                prevsmbdct = smbdpidhandle.0
+                call beep 880*1, 10
+                call beep 880*2, 10
+                call beep 880*4, 10
+            end
+            if smbdpidhandle.0 < prevsmbdct then do
+                prevsmbdct = smbdpidhandle.0
+                call beep 880*4, 10
+                call beep 880*2, 10
+                call beep 880*1, 10
+            end
+        end
+
+        do I = 1 to words(smbdpids)
+            Username = ""
+            do J = 1 to UPID.0
+                if UPID.J = word(smbdpids,I) then do
+                    Username = ' 'Username.J
+                    leave
+                end
+            end
+            smbdpidhandle.I = VRMethod( "CN_Daemons", "AddRecord", smbdhandle, , 'PID 'word(smbdpids,I)' ('d2x(word(smbdpids,I))'x)', "$48")
+            if Username <> "" then do
+                smbdpidhandle.I.user = VRMethod( "CN_Daemons", "AddRecord", smbdpidhandle.I, , Username, "$44")
+                do J = 1 to FPID.0
+                    if FPID.J = word(smbdpids,I) then do
+                        dummyHandle = VRMethod( "CN_Daemons", "AddRecord", smbdpidhandle.I.user, , File.J, "$45")
+                    end
+                end
+            end
+        end
+    end
+    else do
+        ok = VRMethod("CN_Daemons", "SetFieldData", smbdHandle, DStatusFH, NLVGetMessage(41), DPidsFH, "")
+        ok = VRMethod("CN_Daemons", "SetRecordAttr", smbdHandle, "Icon", "$47")
+        if options.!debug = 1 then do
+            if prevsmbdct > 0 then do
+                prevsmbdct = 0
+                call beep 880*4, 10
+                call beep 880*2, 10
+                call beep 880*1, 10
+            end
+        end
+    end
+
+    if nmbdRunning then do
+        ok = VRMethod("CN_Daemons", "SetFieldData", nmbdHandle, DStatusFH, NLVGetMessage(40), DPidsFH, nmbdpids)
+        ok = VRMethod("CN_Daemons", "SetRecordAttr", nmbdHandle, "Icon", "$46") 
+        nmbdpidhandle.0 = words(nmbdpids)
+        do I = 1 to words(nmbdpids)
+            nmbdpidhandle.I = VRMethod( "CN_Daemons", "AddRecord", nmbdhandle, , 'PID 'word(nmbdpids,I)' ('d2x(word(nmbdpids,I))'x)', "$48")
+        end
+    end
+    else do
+        ok = VRMethod("CN_Daemons", "SetFieldData", nmbdHandle, DStatusFH, NLVGetMessage(41), DPidsFH, "")
+        ok = VRMethod("CN_Daemons", "SetRecordAttr", nmbdHandle, "Icon", "$47") 
+    end
+
+    if winbRunning then do
+        ok = VRMethod("CN_Daemons", "SetFieldData", winbHandle, DStatusFH, NLVGetMessage(40), DPidsFH, winbpids)
+        ok = VRMethod("CN_Daemons", "SetRecordAttr", winbHandle, "Icon", "$46") 
+        winbpidhandle.0 = words(winbpids)
+        do I = 1 to words(winbpids)
+            winbpidhandle.I = VRMethod( "CN_Daemons", "AddRecord", winbhandle, , 'PID 'word(winbpids,I)' ('d2x(word(winbpids,I))'x)', "$48")
+        end
+    end
+    else do
+        ok = VRMethod("CN_Daemons", "SetFieldData", winbHandle, DStatusFH, NLVGetMessage(41), DPidsFH, "")
+        ok = VRMethod("CN_Daemons", "SetRecordAttr", winbHandle, "Icon", "$47") 
+    end
+
+/*  if \(smbdrunning|nmbdrunning|winbrunning) then do
+        ok = VRSet("IPB_Start", "Visible", 1)
+        ok = VRSet("IPB_Stop", "Visible", 0)
+        ok = VRSet("IPB_ReStart", "Enabled", 0)
+        ok = VRSet("IPB_ReLoad", "Enabled", 0)
+    end
+    else do
+        ok = VRSet("IPB_Start", "Visible", 0)
+        ok = VRSet("IPB_Stop", "Visible", 1)
+        ok = VRSet("IPB_ReStart", "Enabled", 1)
+        ok = VRSet("IPB_ReLoad", "Enabled", 1)
+    end */
+
+    ok = (stream(samba.!bin'\winbindd.exe','c','query exists') <> "")
+    ok = VRMethod("CN_Daemons", "SetRecordAttr", winbHandle, "Visible", ok)
+    ok = VRSet("CN_Daemons","Painting", 1 )
+    if Running then call _SambaUptime
+    if options.!debug == 1 THEN SAY time()' _RefreshDaemons() done'
+return
+
+/*:VRX         _SambaExe
+*/
+_SambaExe: procedure expose samba. options. settings.
+    if options.!debug == 1 then say time()' _SambaExe() started.'
+    cmdline = arg(1) 
+    if options.!debug == 1 THEN SAY '  Executing "'cmdline'"'
+    address cmd cmdline
+    if options.!debug == 1 then say time()' _SambaExe() done.'
+return
+
 /*:VRX         _SambaFindPIDFile
 */
@@ -349 +695 @@
 return
 
+/*:VRX         _SambaShowError
+*/
+_SambaShowError: procedure expose samba. settings. options.
+    I = 0
+    do while lines(samba.!error) <> 0
+        I = I + 1
+        smberr.I = linein(samba.!error)
+    end
+    ok = stream(Samba.!error,"c","close")
+    smberr.0 = I
+    Buttons.1 = "OK" /* NLVGetMessage(2) */
+    Buttons.0 = 1
+    id = VRMessageStem( VRWindow(), "smberr.", VRGet("Main", "Caption") , "Error", "Buttons.", buttons.1, buttons.1 )
+    ok = SysFileDelete(Samba.!error)    
+return
+
+/*:VRX         _SambaShowMsg
+*/
+_SambaShowMsg: procedure expose samba. settings. options.
+    if options.!debug == 1 THEN SAY time()" _SambaShowMsg started"
+    skipWords = arg(1)
+    skip.0 = words(skipWords)
+    do J = 1 to skip.0
+        skip.J = translate(word(skipWords,J))
+    end
+    I = 0
+    do while lines(samba.!msg) <> 0
+        msgline = linein(samba.!msg)
+        SkipIt = 0
+        do J = 1 to skip.0
+            if pos(skip.J,translate(msgline)) > 0 then do
+                skipit = 1
+                leave
+            end
+        end
+        if \SkipIt then do
+            I = I + 1
+            smbmsg.I = strip(MsgLine)
+        end
+    end
+    ok = stream(Samba.!msg,"c","close")
+    say "  stream close "Samba.!msg" = "ok
+    smbmsg.0 = I
+    if smbmsg.0 > 0 then do
+        Buttons.1 = "OK" /* NLVGetMessage(2) */
+        Buttons.0 = 1
+        id = VRMessageStem( VRWindow(), "smbmsg.", VRGet("Main", "Caption") , "I", "Buttons.", buttons.1, buttons.1 )
+    end
+    ok = SysFileDelete(Samba.!msg) 
+    say "  Delete "Samba.!msg" = "ok
+    if options.!debug == 1 THEN SAY time()" _SambaShowMsg done"
+return
+
+/*:VRX         _SambaUptime
+*/
+_SambaUptime: 
+    if options.!debug == 1 then say time()' _SambaUptime() started'
+    call _SambaFindPIDfile
+    if nmbdpidfile = "" then do
+        ok = VRset("CN_Daemons", "Caption", NLVGetMessage(42)||" "||NLVGetMessage(41))
+        return
+    end
+
+    StartTime = SysGetFileDateTime(nmbdpidfile)
+    if StartTime = -1 then return
+
+    NowTime   = substr(date('S'),1,4)'-'substr(date('S'),5,2)'-'substr(date('S'),7,2)' 'time()
+
+ /* StartTime = "2007-12-31 00:00:00"
+    NowTime   = "2008-03-05 08:59:50" */
+
+    if options.!debug == 1 then do
+        say '  started at "'StartTime'"'
+        say '  now it is  "'NowTime'"'
+    end
+
+    doM.0 = 12 
+    doM.1 = 31; doM.2 = 28; doM.3 = 31; doM.4 = 30; doM.5 = 31; doM.6 = 30;
+    doM.7 = 31; doM.8 = 31; doM.9 = 30; doM.10= 31; doM.11= 30; doM.12= 31 
+
+    parse var StartTime sY'-'sM'-'sD' 'sH':'sMi':'sS
+    parse var NowTime nY'-'nM'-'nD' 'nH':'nMi':'nS
+
+    if nY//4 = 0 & nY//400 <> 0 then doM.2 = 29
+
+    uY =nY-sY
+    uM =nM-sM
+    uD =nD-sD
+    uH =nH-sH
+    uMi=nMi-sMi
+    uS =nS-sS
+
+    if uS < 0 then do; uMi= uMi- 1; uS = uS + 60; end
+    if uMi< 0 then do; uH = uH - 1; uMi= uMi+ 60; end
+    if uH < 0 then do; uD = uD - 1; uH = uH + 24; end
+    if uD < 0 then do; 
+        /* uM = uM - 1; */
+        if uM < 0 then uMx = uM + 12; else uMx = uM
+        uD = uD + doM.uMx - 1; 
+    end
+    if uM < 0 then do; uY = uY - 1; uM = uM + 12; end
+
+    if options.!debug == 1 then say '  uptime is 'uY uM uD uH uMi uS 
+
+    UpTimeStr = ' 'NlvGetMessage(43)':'
+    if uY <> 0 then UpTimeStr = UpTimeStr' 'uY' 'NlvGetMessage(44)
+    if uM <> 0 then UpTimeStr = UpTimeStr' 'uM' 'NlvGetMessage(45)
+    if uD <> 0 then UpTimeStr = UpTimeStr' 'uD' 'NlvGetMessage(46)
+    if uH <> 0 then UpTimeStr = UpTimeStr' 'uH' 'NlvGetMessage(47)
+    if uMi<> 0 then UpTimeStr = UpTimeStr' 'uMi' 'NlvGetMessage(48)
+    if uS <> 0 | UpTimeStr = ' 'NlvGetMessage(43)':' then UpTimeStr = UpTimeStr' 'uS' 'NlvGetMessage(49)
+
+    ok = VRset("CN_Daemons", "Caption", UpTimeStr)
+    if options.!debug == 1 then say time()' _SambaUptime() done'
+return
+
+/*:VRX         _ShowMsg
+*/
+_ShowMsg: 
+    Buttons.1 = NLVGetMessage(2)
+    Buttons.0 = 1
+    id = VRMessage( VRWindow(), Msg.Text, Msg.Title, Msg.Type, "Buttons.", buttons.1, buttons.1 )
+return
+
 /*:VRX         CB_Debug_Click
 */
@@ -382 +852 @@
     window = VRWindow()
     call VRMethod window, "CenterWindow"
-    call VRSet window, "Visible", 1
+    call VRSet window, "Visible", 0
     call VRMethod window, "Activate"
     drop window
@@ -406 +876 @@
     call _GUIInit
 
+    call VRSet "Main", "Visible", 1
     ok = VRMethod("PB_Refresh","SetFocus")
+    call PB_Refresh_Click
 return
 
@@ -474 +946 @@
     end
 
+    /* check and empty event queue, trash spurious resize events */
+    EventString = ''
+    TrashedResize = 0
+    do until EventString = 'nop'
+        EventString = VREvent('N')
+        if EventString <> 'nop' then do
+            if EventString = 'CALL 'MainWin'_Resize' then TrashedResize = 1
+                                                    else interpret eventString
+        end
+    end 
+
     ok = VRSet("Main","Painting", 1)
 return
@@ -481 +964 @@
 PB_Cancel_Click: 
     call Quit
+return
+
+/*:VRX         PB_Refresh_Click
+*/
+PB_Refresh_Click: 
+    call _Refresh
+    call _RefreshTree
 return
 
@@ -691 +1181 @@
 return
 
+/*:VRX         TDL_1_PageSelected
+*/
+TDL_1_PageSelected: 
+    say VRInfo("OldPage")
+    say VRInfo("OldPageWindow")
+    say VRInfo("Page")
+return
+
+/*:VRX         TM_Refresh_Trigger
+*/
+TM_Refresh_Trigger: 
+    call PB_Refresh_Click
+return
+
+/*:VRX         TM_RefreshTreeDisplay_Trigger
+*/
+TM_RefreshTreeDisplay_Trigger: 
+    select 
+        when RefreshMode = "TREE" then do
+            call _RefreshTreeDisplay
+        end
+        when RefreshMode = "SHARE" then do
+            call _AddSharesDisplay    
+        end
+        otherwise say "RefreshMode = "RefreshMode
+    end
+return
+