Changeset 1057

Timestamp:

Jun 23, 2018, 3:37:46 AM (7 years ago)

Author:

Alex Taylor

Message:

Fix error deleting Startup folder object

Location:

trunk/guitools/evfsgui

Files:

• . (modified) (1 prop)
• evfsgui.vrp (modified) (1 diff)
• evfsgui.vrx (modified) (12 diffs)

trunk/guitools/evfsgui/evfsgui.vrp

@@ -6 +6 @@
 ClassFile: VRSPLITB.DLL
 MacroPath: VRM:U:\Develop\Samba\trunk\guitools\evfsgui
-EXEPath: 
+EXEPath: G:\an_svn\arcamapper\trunk\arcamap.exe
 RunParameters: 
 RunDirectory: U:\Develop\Samba\trunk\guitools\evfsgui

trunk/guitools/evfsgui/evfsgui.vrx

@@ -310 +310 @@
     ok = VRMethod("CN_CONDET", "SetFieldAttr", cd.ntlmv1FH ,      "Title","NTLMv1 support")
     ok = VRMethod("CN_CONDET", "SetFieldAttr", cd.encryptionFH ,  "Title","Encryption support")
-    
+
     /* SMBTree columns */
     WorkgroupFH= VRMethod( "CN_smbtree", "AddField", "String", "Workgroup"  )
@@ -1424 +1424 @@
 
     app_name_msg = NLVGetMessage( 0 )
-    IF app_name_msg == '' | WORD( app_name_msg, 1 ) == '[Missing' THEN 
+    IF app_name_msg == '' | WORD( app_name_msg, 1 ) == '[Missing' THEN
         app_name_msg = 'EVFSGUI EVFSGUI'
 
@@ -1578 +1578 @@
 /*:VRX         CB_client_lanman_auth_Click
 */
-CB_client_lanman_auth_Click: 
+CB_client_lanman_auth_Click:
     advanced.!smbconfchanged = 1
 return
@@ -2947 +2947 @@
 
     hlpmin = VRGet("PB_SMBTREE_REFRESH", "Left") + VRGet("PB_SMBTREE_REFRESH","Width") + marginx2
-    hlppos = rcnr_width - marginx2 - VRGet("PB_SMBTREE_HELP","Width") + 24   
+    hlppos = rcnr_width - marginx2 - VRGet("PB_SMBTREE_HELP","Width") + 24
     IF hlppos < hlpmin THEN hlppos = hlpmin
 
@@ -3288 +3288 @@
 */
 Menu_File_Autostart_Deactivate_Click:
-    ok = SysDestroyObject("<'options.!appname_short'_AUTOSTART>")
+    ok = SysDestroyObject("<"options.!appname_short"_AUTOSTART>")
     IF ok == 1 THEN do
         Text = NLVGetMessage( 79 )
@@ -3833 +3833 @@
             cd.lastrh = VRMethod("CN_CONDET","AddRecord")
             PARSE VAR userdata p_mpoint ';' p_mpidx ';' .
-    
+
             p_mpoint = strip(p_mpoint,'T','\')||'\'
             p_rw     = word(resource, words(resource))
-    
+
             /* Workaround for truncated resource string */
             if length(p_rw) > 1 then do
@@ -3847 +3847 @@
             /* this should be done unconditionally if the resource string is never truncated */
             else resource  = left(resource,length(resource)-length(p_rw))
-    
+
             call ParseResParmString
-    
+
             if p_master   = "" then p_master   = "WORKGROUP"
             if p_mtype    = "" then p_mtype    = "1"
             if p_loglevel = "" then p_loglevel = "0"
             if p_memlen   = "" then p_memlen   = "2"
-    
+
             /* Also works around for a truncated resource string! */
             if p_easupport= "" | p_easupport= " " then p_easupport = strip(options.!easupport)
-    
+
             if p_password <> "" & p_spassword = "" then do
                 p_spassword = c2x(p_password)
                 p_password = ""
             end
-    
+
             ok = VRMethod("CN_CONDET", "SetFieldData", cd.lastrh, cd.mpointFH, p_mpoint, cd.mpidxfh, p_mpidx, cd.workgrpFH  , p_workgroup, cd.serverfh, p_server, cd.sharefh, p_share, cd.userfh, p_user)
             ok = VRMethod("CN_CONDET", "SetFieldData", cd.lastrh, cd.passwordfh, p_password, cd.spasswordfh, p_spassword, cd.masterfh, p_master, cd.mtypefh, p_mtype)
@@ -3869 +3869 @@
             ok = VRMethod("CN_CONDET", "SetFieldData", cd.lastrh, cd.statusfh, icons.!active) /* Active */
             ok = VRMethod("CN_CONDET", "SetRecordAttr", cd.lastrh, "Icon", icons.!active) /* Active */
-    
+
             hashstr = p_mpoint' 'translate(p_workgroup)' 'translate(p_server)' 'translate(p_share)' 'p_user' 'p_spassword' 'p_easupport' 'p_rw
-    
+
             md5 = rexx_md5(hashstr)
-    
+
             ok = VRMethod("CN_CONDET", "SetFieldData", cd.lastrh, cd.hashfh,md5)
-    
+
             SELECT
                 WHEN p_share  == '' & p_server \= '' THEN DO   /* all shares on server */
@@ -3902 +3902 @@
             userData = "UNKNOWN"
         end
-    end 
+    end
     if left(word(resource,1),5) <> "SMBFS" then do
     end
@@ -3932 +3932 @@
     PARSE VAR resource . ';NTLMV1SUPPORT=' p_ntlmv1support ';' .
     PARSE VAR resource . ';ENCRYPTIONSUPPORT=' p_encryptionsupport ' '
-    
+
 return
 /*:VRX         PB_ABOUT_CLOSE_Click
@@ -4843 +4843 @@
     CALL VRSet 'CB_TRAC', 'Set', options.!tracmark
 
-    ok = VRSet("DT_About","Caption", Program' (c) 2007-2017 Alexander Taylor for Arca Noae '||'0D0A'x||'and Herwig Bauernfeind for bww bitwise works GmbH.')
+    ok = VRSet("DT_About","Caption", Program' (c) 2007-2018 Alexander Taylor for Arca Noae '||'0D0A'x||'and Herwig Bauernfeind for bww bitwise works GmbH.')
 
     About.DscFH  = VRMethod( "CN_ABOUT", "AddField", "String", "Component" )
@@ -5479 +5479 @@
 */
 SW_SMBCONF_Init:
-    
+
     /* Buttons */
     call NLVSetText "PB_SMBCONF_APPLY",  "Caption", 122