Changeset 361 for branches/guitools-2.0/shared/smbtree.vrs

Timestamp:

Jan 6, 2010, 3:01:57 PM (16 years ago)

Author:

Herwig Bauernfeind

Message:

GUI-Tools: EVFSGUI basics for printer support

File:

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

branches/guitools-2.0/shared/smbtree.vrs

@@ -253 +253 @@
             if left(line,5) = "Error" then ok = VRMethod('CN_smbtree', 'SetRecordAttr', smbtree.!machine, 'UserData', "SERVER|"||strip(line))
 
-            do while(left(line,1) = '09'x)
+            do while(left(line,1) = '09'x) /* Share loop */
                 parse var line '09'x share type comment
                 type = translate(strip(type))
@@ -275 +275 @@
                 /* get next share */
                 line = linein(smbmachine.I)
-            end
+            end /* Share loop */
 
             do until left(line,10) = '09'x||'Workgroup'