41 lines
		
	
	
		
			1.2 KiB
		
	
	
	
		
			Plaintext
		
	
	
	
	
	
			
		
		
	
	
			41 lines
		
	
	
		
			1.2 KiB
		
	
	
	
		
			Plaintext
		
	
	
	
	
	
| compile Insert rti_resolve_Select_callback_equates
 | |
| /*
 | |
| **  Parameters for implementing your own select callback
 | |
| **
 | |
| ** 12-17-21  rjc fix max_cursor, move the common here
 | |
| */
 | |
| 
 | |
| 
 | |
| * Methods
 | |
| Equ rtirsc_start$               To 1
 | |
| Equ rtirsc_progress$            To 2
 | |
| Equ rtirsc_complete$            To 3
 | |
| Equ rtirsc_cancel$              To 4
 | |
| Equ rtirsc_error$               To 5
 | |
| Equ rtirsc_register_listener$   To 6
 | |
| Equ rtirsc_unregister_listener$ To 7
 | |
| Equ rtirsc_getContinue$         To 8
 | |
| Equ rtirsc_SetContinue$         To 9
 | |
| Equ rtirsc_IncrementCount$      To 10
 | |
| Equ rtirsc_setDisplayHandler$   To 11
 | |
| Equ rtirsc_getDisplayHandler$   To 12
 | |
| Equ rtirsc_EnableGui$           To 13
 | |
| Equ rtirsc_DisableGui$          To 14
 | |
| Equ rtirsc_getGuiEnabled$       To 15
 | |
| 
 | |
| * Dimenson of all xxx(cursor) arrays
 | |
| Equ max_cursor$ To 8  ; * 12-17-21  rjc  
 | |
| 
 | |
| * nr of params required to register as a listener or guiHandler
 | |
| Equ minParamCount$  to 6 
 | |
| 
 | |
| * Phases
 | |
| Equ rtirsc_phase_select$   To 1
 | |
| Equ rtirsc_phase_sort$     To 2
 | |
| Equ rtirsc_phase_report$   To 3
 | |
| 
 | |
| Equ rtirsc_phase_descriptions$ To 'Selecting':@svm:'Sorting':@svm:'Reporting'
 | |
| 
 | |
| Declare Function rti_resolve_select_callback
 | |
| Declare subroutine rti_resolve_select_callback
 |