Changeset 784 for trunk/guitools/evfsgui

Timestamp:

Aug 8, 2013, 9:56:12 AM (12 years ago)

Author:

Herwig Bauernfeind

Message:

GUI-Tools: Changes in order to work around % issue

Location:

trunk/guitools/evfsgui

Files:

• evfsgui.vrp (modified) (2 diffs)
• evfsgui.vrx (modified) (3 diffs)
• evfsgui.vry (modified) ( previous)

trunk/guitools/evfsgui/evfsgui.vrp

@@ -3 +3 @@
 VRX: wps_open.VRX
 VXOFile: VROBJEX
-VXOFile: VRSPLIT
+ClassFile: VRSPLITB.DLL
 MacroPath: VRM:U:\Develop\Samba\trunk\guitools\evfsgui
 EXEPath: 
@@ -11 +11 @@
 VRXWindow: __VREFileListWindow,1,2192,7950,2665,3358
 VRXWindow: __VRESectionListWindow,1,1156,12382,12238,6914
-VRXWindow: __VREToolsWindow,0,3096,8528,6486,1669
+VRXWindow: __VREToolsWindow,0,3096,8528,5474,1669
 VRXWindow: __VREWindListWindow,1,723,8239,4963,3150
 UserFile: 1

trunk/guitools/evfsgui/evfsgui.vrx

@@ -1135 +1135 @@
 _LoadOtherFuncs: 
     IF options.!debug == 1 then say time()' _LoadotherFuncs() started'
-    SIGNAL ON SYNTAX NAME DLLMissing
+    SIGNAL ON SYNTAX
 
     call RxFuncAdd 'SysLoadFuncs', 'REXXUTIL', 'SysLoadFuncs'
@@ -1153 +1153 @@
 return
 
-DLLMissing:
+SYNTAX:
     Fatal = 1
-    call VRMessage 'Main', 'REXX function library 'strip(translate(word(sourceline(SIGL-1),4),'  ',"',"))'.DLL is missing!', "EVFSGUI fatal error", "E"
+    xxx = strip(translate(word(sourceline(SIGL-1),4),'  ',"',"))
+    call VRMessage 'Main', 'REXX function library 'xxx'.DLL is missing!', "EVFSGUI fatal error", "E"
 signal Quit
 
@@ -1635 +1636 @@
     credentials.!password = VRGet("EF_PASSWORD","Value")
 
-    if pos("4OS2", value("COMSPEC",,"OS2ENVIRONMENT")) = 1
+    if pos("4OS2", value("COMSPEC",,"OS2ENVIRONMENT")) = 1 | pos(left(credentials.!password,1),'01234567890') > 0
         then UserCred = '--user='Credentials.!username'%%'Credentials.!password
         else UserCred = '--user='Credentials.!username'%'Credentials.!password