Changeset 571 for branches/guitools-2.0/shared

Timestamp:

May 29, 2011, 11:34:39 AM (14 years ago)

Author:

Herwig Bauernfeind

Message:

GUI-Tools: EVFSGUI 2.1: Display hints in statusbar during browsing

File:

• branches/guitools-2.0/shared/smbtree.vrs (modified) (2 diffs)

branches/guitools-2.0/shared/smbtree.vrs

@@ -230 +230 @@
     do I = 1 to smbmachine.0
         say ' Going for "'smbmachine.I'"'
+        if VRIsValidObject("DT_STATUSBAR") then ok = VRSet("DT_STATUSBAR","Caption", VRGet("DT_STATUSBAR","Caption")||'.')
         stat = stream(smbmachine.I,'c','open read')
+
         if stat = "READY:" then do /* we found a readable output file */
             OneWorkGroupOnly = 0
@@ -371 +373 @@
     if UserCred = '-N' then UserCred = ''
 
+    if VRIsValidObject("DT_STATUSBAR") then ok = VRSet("DT_STATUSBAR","Caption", "Ready.")
     say time()' _AddSharesDisplay() loop end'
 return