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

Timestamp:

Sep 4, 2009, 9:08:19 AM (16 years ago)

Author:

Herwig Bauernfeind

Message:

GUI-Tools: More work on EVFSGUI V.next (Fixed several bugs)

File:

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

branches/guitools-2.0/shared/smbtree.vrs

@@ -66 +66 @@
                     parent = smbtree.!machine
                     smbtree.!share = VRMethod( "CN_smbtree", "AddRecord",parent,, share||'0D0A'x||comment, res)
+                    ok = VRMethod( "CN_smbtree", "SetRecordAttr", smbtree.!share, "ReadOnly", 1)
                     if pos("$", share) > 0 then ok = VRMethod( "CN_smbtree", "SetRecordAttr", smbtree.!share, "Visible", ShowHidden)
                 end
@@ -76 +77 @@
                 if VRGet("CN_smbtree","View") = "IconTree" then parent = smbtree.!workgroup; else parent = ""
                 smbtree.!machine = VRMethod( "CN_smbtree", "AddRecord",parent,, machine||'0D0A'x||comment,"#35:PMWP.DLL")
+                ok = VRMethod( "CN_smbtree", "SetRecordAttr", smbtree.!machine, "ReadOnly", 1)
                 ok = VRMethod( "CN_smbtree", "SetFieldData", smbtree.!machine, NBFH, machine, CommentFH, Comment, WorkGroupFH, CurWG)
                 if VRGet("CN_smbtree","View") = "Detail" then do
@@ -116 +118 @@
                     end
                 end
-                        ok = VRSet( "CN_smbtree", "Painting", 1  )
-                        ok = VRSet( "CN_smbtree", "Painting", 0  )
-
+                ok = VRSet( "CN_smbtree", "Painting", 1  )
+                ok = VRSet( "CN_smbtree", "Painting", 0  )
             end
             otherwise do
@@ -132 +133 @@
                         ok = VRMethod( "CN_smbtree", "SetFieldData", smbtree.!workgroup, WorkGroupFH, smbtreeline.sl)
                         ok = VRMethod( "CN_smbtree", "SetRecordAttr", smbtree.!workgroup, "Collapsed", 0)
+                        ok = VRMethod( "CN_smbtree", "SetRecordAttr", smbtree.!workgroup, "ReadOnly", 1)
                     end
                     CurWG = smbtreeline.sl