home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 11 Util / 11-Util.zip / switch.zip / switchto / main / form.1 < prev    next >
Text File  |  1993-09-26  |  563b  |  22 lines
  1. Arg window 
  2.  
  3. /*
  4.  * Load RxExtras
  5.  */
  6. If RxFuncQuery('RxExtra') = 1 Then Do
  7.   Loaded = RxFuncAdd('RxExtra', 'RxExtras', 'RxExtra')
  8.   If Loaded = 0 Then Do
  9.     Call RxExtra 'LOAD'
  10.   End
  11.   Else Do
  12.     Call RxMessageBox 'Unable to load RxExtras.DLL - Aborting. Make sure RxExtras.DLL is in the LIBPATH before restarting.', 'CFGEdit', 'OK', 'ERROR'
  13.     CALL VpWindow window,'CLOSE'
  14.   End
  15. End
  16.  
  17. Call RxQuerySwitchList 'stem.'
  18. Call RxSort 'stem.'
  19. Call RxListBoxFromStem window, 1000, 'stem.'
  20. /* Select item  List Box */
  21. CALL VpSelect window,1000,1,1
  22.