Changeset 875 for trunk/guitools/evfsgui/evfsgui.vrx

Timestamp:

Mar 4, 2015, 10:28:25 AM (11 years ago)

Author:

Herwig Bauernfeind

Message:

GUITools: SSCC (Ticket #248), SMBMon (TDB Check page), EVFSGUI, shared library updates

File:

• trunk/guitools/evfsgui/evfsgui.vrx (modified) (2 diffs)

trunk/guitools/evfsgui/evfsgui.vrx

@@ -1184 +1184 @@
 
 SYNTAX:
+    IF options.!debug == 1 then say time()' _LoadotherFuncs() error handler entered.'
     Fatal = 1
-    xxx = strip(translate(word(sourceline(SIGL-1),4),'  ',"',"))
-    call VRMessage 'Main', 'REXX function library 'xxx'.DLL is missing!', "EVFSGUI fatal error", "E"
+    parse source . . InVXIDE
+    if left(InVXIDE,length(Tempdir)+5) = TempDir||'__tmp' 
+        then xxx = "VX-REXX IDE: "strip(translate(word(sourceline(SIGL-1),4),'  ',"',"))
+        else xxx = 'A'
+    call VRMessage 'Main', xxx' REXX function library DLL is missing or unloadable!', "EVFSGUI fatal error", "E"
+    IF options.!debug == 1 then say time()' _LoadotherFuncs() error handler finished, program will be terminated.'
 signal Quit
 
@@ -2691 +2696 @@
     else ok = VRRedirectStdIO("OFF")
 
+    call _InitTempDir
     call _LoadOtherFuncs
-    call _InitTempDir
+
     call NLVSetup
     call _StemsInit