.....
But there is a problem with function (CVAL('CURRDIR'))
CHOOSE from a codelocked menu don't work after calling (CVAL('CURRDIR'))
function.
Dear J.M.;
We appreciate your continued effort to report discovered issues in the R:BASE
software. However, at this time, development of the 6.5++ version of R:BASE
is complete.
After investigating your problem, I discovered that it was specific to Windows 98
and does not happen on Windows 2000/NT/XP. There is some good news though.
Using the enhanced CHOOSE command, you can achieve the same results in a
more reliable manner.
Try the following code sample and see if it doesn't do the same thing, but in a
different way:
SET var vdbpath TEXT = NULL
SET var vdrive TEXT = NULL
SET VAR vdbpath = (CVAL('CURRDIR'))
SET VAR vgetdrives = (CVAL('DRIVES'))
CHOOSE vdrive FROM #LIST .vgetdrives
PAUSE 2 USING 'After CHOOSE'
RETURN
The previously mentioned code will give you the drives with case sensitivity. All
removable drives will be lower case and permanent drives are upper case.
To replicate the EXACT look of your original code using all upper case letters,
you would use the following code (note that the only thing that changed was the
addition of the LUC function to the vgetdrives variable):
SET var vdbpath TEXT = NULL
SET var vdrive TEXT = NULL
SET VAR vdbpath = (CVAL('CURRDIR'))
SET VAR vgetdrives = (LUC((CVAL('DRIVES'))))
CHOOSE vdrive FROM #LIST .vgetdrives
PAUSE 2 USING 'After CHOOSE'
RETURN
I hope this resolves this issue for you. You can see that it is a very simple
change of logic. Please also keep in mind that as Windows 98 becomes more
obsolete, there may be some items that will work differently because we are
working hard to keep R:BASE at the front of technological advances, and
sometimes that means not all features will be completely backwards compatible.
Best Regards,
Mike Willochell
