|
Last change
on this file since 2 was 2, checked in by stevenhl, 8 years ago |
|
Import sources from cwmm-full.zip dated 2005-03-21
|
|
File size:
467 bytes
|
| Rev | Line | |
|---|
| [2] | 1 | /* rexx - Change the details and sort class
|
|---|
| 2 | of a folder to use CWAudio instead of WPFileSystem */
|
|---|
| 3 |
|
|---|
| 4 | call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
|
|---|
| 5 | call SysLoadFuncs
|
|---|
| 6 |
|
|---|
| 7 | theFolder=ARG(1)
|
|---|
| 8 | theFolder=STRIP(TRANSLATE(theFolder,' ','"'))
|
|---|
| 9 | SAY theFolder
|
|---|
| 10 |
|
|---|
| 11 | /*rc=SysSetObjectData(theFolder,'MENUITEMSELECTED=718')*/
|
|---|
| 12 | rc=SysSetObjectData(theFolder,'MENUITEMSELECTED=48130')
|
|---|
| 13 | IF rc=0 THEN DO
|
|---|
| 14 | SAY ''
|
|---|
| 15 | '@PAUSE'
|
|---|
| 16 | EXIT
|
|---|
| 17 | END
|
|---|
| 18 |
|
|---|
| 19 | SAY 'Done.'
|
|---|
| 20 | '@PAUSE'
|
|---|
| 21 | EXIT
|
|---|
| 22 |
|
|---|
| 23 |
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
