Open a folder in tree view

In OS/2 WARP 4 you can use the new setup string MENUITEMSELECTED to open a folder in tree view:

 
/* ------------------------------------------------------------------ */
/* REFFOLDER.CMD - open a folder in tree view                         */
/*                                                                    */
/* (only possible in WARP 4!!!                                        */
/*                                                                    */

  call rxFuncAdd 'SysSetObjectData', 'REXXUTIL', 'SysSetObjectData'
  call rxFuncAdd 'SysOS2Ver', 'REXXUTIL', 'SysOS2Ver'

  if SysOS2Ver() < 2.40 then
  do
    say 'Sorry, this program needs WARP 4 or above!'
    exit 255
  end /* if SysOS2Ver() < 2.40 then */

  folder = "C:\Desktop\Programs"

  call SysSetObjectData folder, "MENUITEMSELECTED=123;"

exit 0