|
Last change
on this file since 41 was 2, checked in by stevenhl, 8 years ago |
|
Import sources from cwmm-full.zip dated 2005-03-21
|
|
File size:
504 bytes
|
| Line | |
|---|
| 1 | /* rexx - Change the details and sort class
|
|---|
| 2 | of a folder to use CWImage 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,'DETAILSCLASS=CWImage;SORTCLASS=CWImage')
|
|---|
| 12 | IF rc=0 THEN DO
|
|---|
| 13 | SAY 'Cannot set the details and sort class.'
|
|---|
| 14 | '@PAUSE'
|
|---|
| 15 | EXIT
|
|---|
| 16 | END
|
|---|
| 17 |
|
|---|
| 18 | SAY 'Detailsclass and sort class for folder changed.'
|
|---|
| 19 | '@PAUSE'
|
|---|
| 20 | EXIT
|
|---|
| 21 |
|
|---|
| 22 |
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
