int32 FUNC_IDECALLSTACKBOX(){
qbs *tqbs;
ptrszint tmp_long;
int32 tmp_fileno;
uint32 qbs_tmp_base=qbs_tmp_list_nexti;
uint8 *tmp_mem_static_pointer=mem_static_pointer;
uint32 tmp_cmem_sp=cmem_sp;
#include "data346.txt"
mem_lock *sf_mem_lock;
new_mem_lock();
sf_mem_lock=mem_lock_tmp;
sf_mem_lock->type=3;
libqb_check_stack();
if (is_error_pending()) goto exit_subfunc;
do{
sub_pcopy( 0 , 2 );
if(!qbevent)break;evnt(28182,10680,"ide_methods.bas");}while(r);
do{
sub_pcopy( 0 , 1 );
if(!qbevent)break;evnt(28182,10681,"ide_methods.bas");}while(r);
do{
qbg_screen(NULL,NULL, 1 , 0 ,NULL,12);
if(!qbevent)break;evnt(28182,10682,"ide_methods.bas");}while(r);
do{
*_FUNC_IDECALLSTACKBOX_LONG_FOCUS= 1 ;
if(!qbevent)break;evnt(28182,10683,"ide_methods.bas");}while(r);
do{
if(!qbevent)break;evnt(28182,10684,"ide_methods.bas");}while(r);
do{
if (_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
if (_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[2]&1){
if (!error_occurred) error(10);
}else{
alloc_new_desc[4]= 1 ;
alloc_new_desc[5]=( 100 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(101);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
if (_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[2]&4){
_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[0]) error(257);
memset((void*)(_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[0]),0,(size_t)alloc_req_bytes);
}else{
_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[0]) error(257);
}
_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[2]|=1;
_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[4]=alloc_new_desc[4];
_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[5]=alloc_new_desc[5];
_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[6]=alloc_new_desc[6];
_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[7]=alloc_new_desc[7];
}
}
if(!qbevent)break;evnt(28182,10685,"ide_methods.bas");}while(r);
do{
if(!qbevent)break;evnt(28182,10686,"ide_methods.bas");}while(r);
do{
qbs_set(_FUNC_IDECALLSTACKBOX_STRING1_SEP,func_chr( 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,10687,"ide_methods.bas");}while(r);
do{
*_FUNC_IDECALLSTACKBOX_LONG_DIALOGHEIGHT=*__LONG_CALLSTACKLENGTH+ 4 ;
if(!qbevent)break;evnt(28182,10692,"ide_methods.bas");}while(r);
S_55662:;
if ((-(*_FUNC_IDECALLSTACKBOX_LONG_DIALOGHEIGHT>(*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 6 )))||is_error_pending()){
if(qbevent){evnt(28182,10693,"ide_methods.bas");if(r)goto S_55662;}
do{
*_FUNC_IDECALLSTACKBOX_LONG_DIALOGHEIGHT=*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 6 ;
if(!qbevent)break;evnt(28182,10694,"ide_methods.bas");}while(r);
}
do{
*_FUNC_IDECALLSTACKBOX_LONG_DIALOGWIDTH= 52 ;
if(!qbevent)break;evnt(28182,10697,"ide_methods.bas");}while(r);
do{
qbs_set(_FUNC_IDECALLSTACKBOX_STRING_TEMP,__STRING_CALLSTACKLIST);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,10698,"ide_methods.bas");}while(r);
S_55667:;
do{
if(qbevent){evnt(28182,10699,"ide_methods.bas");if(r)goto S_55667;}
do{
*_FUNC_IDECALLSTACKBOX_LONG_I=func_instr(NULL,_FUNC_IDECALLSTACKBOX_STRING_TEMP,_FUNC_IDECALLSTACKBOX_STRING1_SEP,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,10700,"ide_methods.bas");}while(r);
S_55669:;
if ((*_FUNC_IDECALLSTACKBOX_LONG_I)||is_error_pending()){
if(qbevent){evnt(28182,10701,"ide_methods.bas");if(r)goto S_55669;}
do{
qbs_set(_FUNC_IDECALLSTACKBOX_STRING_TEMP2,qbs_left(_FUNC_IDECALLSTACKBOX_STRING_TEMP,*_FUNC_IDECALLSTACKBOX_LONG_I- 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,10702,"ide_methods.bas");}while(r);
do{
qbs_set(_FUNC_IDECALLSTACKBOX_STRING_TEMP,func_mid(_FUNC_IDECALLSTACKBOX_STRING_TEMP,*_FUNC_IDECALLSTACKBOX_LONG_I+ 1 ,NULL,0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,10703,"ide_methods.bas");}while(r);
S_55672:;
if ((qbs_cleanup(qbs_tmp_base,-((_FUNC_IDECALLSTACKBOX_STRING_TEMP2->len+ 6 )>*_FUNC_IDECALLSTACKBOX_LONG_DIALOGWIDTH)))||is_error_pending()){
if(qbevent){evnt(28182,10704,"ide_methods.bas");if(r)goto S_55672;}
do{
*_FUNC_IDECALLSTACKBOX_LONG_DIALOGWIDTH=_FUNC_IDECALLSTACKBOX_STRING_TEMP2->len+ 6 ;
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,10704,"ide_methods.bas");}while(r);
}
}else{
S_55676:;
if ((qbs_cleanup(qbs_tmp_base,-((_FUNC_IDECALLSTACKBOX_STRING_TEMP->len+ 6 )>*_FUNC_IDECALLSTACKBOX_LONG_DIALOGWIDTH)))||is_error_pending()){
if(qbevent){evnt(28182,10706,"ide_methods.bas");if(r)goto S_55676;}
do{
*_FUNC_IDECALLSTACKBOX_LONG_DIALOGWIDTH=_FUNC_IDECALLSTACKBOX_STRING_TEMP->len+ 6 ;
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,10706,"ide_methods.bas");}while(r);
}
do{
goto dl_exit_6593;
if(!qbevent)break;evnt(28182,10707,"ide_methods.bas");}while(r);
}
dl_continue_6593:;
}while(1);
dl_exit_6593:;
S_55682:;
if ((-(*_FUNC_IDECALLSTACKBOX_LONG_DIALOGWIDTH>(*__LONG_IDEWX- 8 )))||is_error_pending()){
if(qbevent){evnt(28182,10711,"ide_methods.bas");if(r)goto S_55682;}
do{
*_FUNC_IDECALLSTACKBOX_LONG_DIALOGWIDTH=*__LONG_IDEWX- 8 ;
if(!qbevent)break;evnt(28182,10711,"ide_methods.bas");}while(r);
}
do{
SUB_IDEPAR((void*)( ((char*)(_FUNC_IDECALLSTACKBOX_UDT_P)) + ((0+0)) ),_FUNC_IDECALLSTACKBOX_LONG_DIALOGWIDTH,_FUNC_IDECALLSTACKBOX_LONG_DIALOGHEIGHT,qbs_new_txt_len("$DEBUG MODE",11));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,10713,"ide_methods.bas");}while(r);
do{
*_FUNC_IDECALLSTACKBOX_LONG_I= 0 ;
if(!qbevent)break;evnt(28182,10715,"ide_methods.bas");}while(r);
do{
*_FUNC_IDECALLSTACKBOX_LONG_I=*_FUNC_IDECALLSTACKBOX_LONG_I+ 1 ;
if(!qbevent)break;evnt(28182,10716,"ide_methods.bas");}while(r);
do{
*(int32*)(((char*)_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDECALLSTACKBOX_LONG_I)-_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[4],_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[5]))*101+36)))= 2 ;
if(!qbevent)break;evnt(28182,10717,"ide_methods.bas");}while(r);
do{
*(int32*)(((char*)_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDECALLSTACKBOX_LONG_I)-_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[4],_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[5]))*101+24)))= 2 ;
if(!qbevent)break;evnt(28182,10718,"ide_methods.bas");}while(r);
do{
*(int32*)(((char*)_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDECALLSTACKBOX_LONG_I)-_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[4],_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[5]))*101+28)))=*_FUNC_IDECALLSTACKBOX_LONG_DIALOGWIDTH- 4 ;
if(!qbevent)break;evnt(28182,10719,"ide_methods.bas");}while(r);
do{
*(int32*)(((char*)_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDECALLSTACKBOX_LONG_I)-_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[4],_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[5]))*101+32)))=*_FUNC_IDECALLSTACKBOX_LONG_DIALOGHEIGHT- 4 ;
if(!qbevent)break;evnt(28182,10719,"ide_methods.bas");}while(r);
do{
*(int32*)(((char*)_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDECALLSTACKBOX_LONG_I)-_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[4],_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[5]))*101+44)))=FUNC_IDENEWTXT(__STRING_CALLSTACKLIST);
if(!qbevent)break;evnt(28182,10720,"ide_methods.bas");}while(r);
do{
*(int32*)(((char*)_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDECALLSTACKBOX_LONG_I)-_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[4],_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[5]))*101+76)))=*__LONG_CALLSTACKLENGTH;
if(!qbevent)break;evnt(28182,10721,"ide_methods.bas");}while(r);
do{
*(int32*)(((char*)_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDECALLSTACKBOX_LONG_I)-_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[4],_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[5]))*101+40)))=FUNC_IDENEWTXT(qbs_new_txt_len("Call Stack",10));
if(!qbevent)break;evnt(28182,10722,"ide_methods.bas");}while(r);
do{
*_FUNC_IDECALLSTACKBOX_LONG_I=*_FUNC_IDECALLSTACKBOX_LONG_I+ 1 ;
if(!qbevent)break;evnt(28182,10724,"ide_methods.bas");}while(r);
do{
*(int32*)(((char*)_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDECALLSTACKBOX_LONG_I)-_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[4],_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[5]))*101+36)))= 3 ;
if(!qbevent)break;evnt(28182,10725,"ide_methods.bas");}while(r);
do{
*(int32*)(((char*)_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDECALLSTACKBOX_LONG_I)-_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[4],_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[5]))*101+24)))=*_FUNC_IDECALLSTACKBOX_LONG_DIALOGHEIGHT;
if(!qbevent)break;evnt(28182,10726,"ide_methods.bas");}while(r);
do{
*(int32*)(((char*)_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDECALLSTACKBOX_LONG_I)-_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[4],_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[5]))*101+44)))=FUNC_IDENEWTXT(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("#Go To Line",11),_FUNC_IDECALLSTACKBOX_STRING1_SEP),qbs_new_txt_len("#Close",6)),_FUNC_IDECALLSTACKBOX_STRING1_SEP),qbs_new_txt_len("Co#py",5)));
if(!qbevent)break;evnt(28182,10727,"ide_methods.bas");}while(r);
do{
*(int32*)(((char*)_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDECALLSTACKBOX_LONG_I)-_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[4],_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[5]))*101+60)))= 1 ;
if(!qbevent)break;evnt(28182,10728,"ide_methods.bas");}while(r);
S_55700:;
fornext_value6599= 1 ;
fornext_finalvalue6599= 100 ;
fornext_step6599= 1 ;
if (fornext_step6599<0) fornext_step_negative6599=1; else fornext_step_negative6599=0;
if (is_error_pending()) goto fornext_error6599;
goto fornext_entrylabel6599;
while(1){
fornext_value6599=fornext_step6599+(*_FUNC_IDECALLSTACKBOX_LONG_I);
fornext_entrylabel6599:
*_FUNC_IDECALLSTACKBOX_LONG_I=fornext_value6599;
if (fornext_step_negative6599){
if (fornext_value6599<fornext_finalvalue6599) break;
}else{
if (fornext_value6599>fornext_finalvalue6599) break;
}
fornext_error6599:;
if(qbevent){evnt(28182,10734,"ide_methods.bas");if(r)goto S_55700;}
do{
memcpy(((char*)_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDECALLSTACKBOX_LONG_I)-_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[4],_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[5]))*101+0))+ 0,((char*)_FUNC_IDECALLSTACKBOX_UDT_P)+((0+0))+ 0, 20);
if(!qbevent)break;evnt(28182,10734,"ide_methods.bas");}while(r);
fornext_continue_6598:;
}
fornext_exit_6598:;
S_55703:;
do{
if(qbevent){evnt(28182,10737,"ide_methods.bas");if(r)goto S_55703;}
do{
SUB_IDEDRAWPAR((void*)( ((char*)(_FUNC_IDECALLSTACKBOX_UDT_P)) + ((0+0)) ));
if(!qbevent)break;evnt(28182,10740,"ide_methods.bas");}while(r);
do{
*_FUNC_IDECALLSTACKBOX_LONG_F= 1 ;
if(!qbevent)break;evnt(28182,10741,"ide_methods.bas");}while(r);
do{
*_FUNC_IDECALLSTACKBOX_LONG_CX= 0 ;
if(!qbevent)break;evnt(28182,10741,"ide_methods.bas");}while(r);
do{
*_FUNC_IDECALLSTACKBOX_LONG_CY= 0 ;
if(!qbevent)break;evnt(28182,10741,"ide_methods.bas");}while(r);
S_55708:;
fornext_value6602= 1 ;
fornext_finalvalue6602= 100 ;
fornext_step6602= 1 ;
if (fornext_step6602<0) fornext_step_negative6602=1; else fornext_step_negative6602=0;
if (is_error_pending()) goto fornext_error6602;
goto fornext_entrylabel6602;
while(1){
fornext_value6602=fornext_step6602+(*_FUNC_IDECALLSTACKBOX_LONG_I);
fornext_entrylabel6602:
*_FUNC_IDECALLSTACKBOX_LONG_I=fornext_value6602;
if (fornext_step_negative6602){
if (fornext_value6602<fornext_finalvalue6602) break;
}else{
if (fornext_value6602>fornext_finalvalue6602) break;
}
fornext_error6602:;
if(qbevent){evnt(28182,10742,"ide_methods.bas");if(r)goto S_55708;}
S_55709:;
if ((*(int32*)(((char*)_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDECALLSTACKBOX_LONG_I)-_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[4],_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[5]))*101+36))))||is_error_pending()){
if(qbevent){evnt(28182,10743,"ide_methods.bas");if(r)goto S_55709;}
do{
*(int32*)(((char*)_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDECALLSTACKBOX_LONG_I)-_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[4],_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[5]))*101+72)))=*_FUNC_IDECALLSTACKBOX_LONG_FOCUS-*_FUNC_IDECALLSTACKBOX_LONG_F;
if(!qbevent)break;evnt(28182,10745,"ide_methods.bas");}while(r);
do{
*(int32*)(((char*)_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDECALLSTACKBOX_LONG_I)-_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[4],_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[5]))*101+64)))= 0 ;
if(!qbevent)break;evnt(28182,10746,"ide_methods.bas");}while(r);
do{
*(int32*)(((char*)_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDECALLSTACKBOX_LONG_I)-_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[4],_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[5]))*101+68)))= 0 ;
if(!qbevent)break;evnt(28182,10746,"ide_methods.bas");}while(r);
do{
SUB_IDEDRAWOBJ((void*)( ((char*)(_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[0])) + (((array_check((*_FUNC_IDECALLSTACKBOX_LONG_I)-_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[4],_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[5]))*101+0)) ),_FUNC_IDECALLSTACKBOX_LONG_F);
if(!qbevent)break;evnt(28182,10747,"ide_methods.bas");}while(r);
S_55714:;
if ((*(int32*)(((char*)_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDECALLSTACKBOX_LONG_I)-_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[4],_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[5]))*101+64))))||is_error_pending()){
if(qbevent){evnt(28182,10748,"ide_methods.bas");if(r)goto S_55714;}
do{
*_FUNC_IDECALLSTACKBOX_LONG_CX=*(int32*)(((char*)_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDECALLSTACKBOX_LONG_I)-_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[4],_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[5]))*101+64)));
if(!qbevent)break;evnt(28182,10748,"ide_methods.bas");}while(r);
do{
*_FUNC_IDECALLSTACKBOX_LONG_CY=*(int32*)(((char*)_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDECALLSTACKBOX_LONG_I)-_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[4],_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[5]))*101+68)));
if(!qbevent)break;evnt(28182,10748,"ide_methods.bas");}while(r);
}
}
fornext_continue_6601:;
}
fornext_exit_6601:;
do{
*_FUNC_IDECALLSTACKBOX_LONG_LASTFOCUS=*_FUNC_IDECALLSTACKBOX_LONG_F- 1 ;
if(!qbevent)break;evnt(28182,10751,"ide_methods.bas");}while(r);
do{
qbg_sub_color( 0 , 7 ,NULL,NULL,3);
if(!qbevent)break;evnt(28182,10755,"ide_methods.bas");}while(r);
do{
sub__printstring(*(int32*)(((char*)_FUNC_IDECALLSTACKBOX_UDT_P)+((0+0)))+ 2 ,*(int32*)(((char*)_FUNC_IDECALLSTACKBOX_UDT_P)+((0+4)))+ 1 ,qbs_new_txt_len("Most recent sub/function calls in your program:",47),NULL,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,10755,"ide_methods.bas");}while(r);
do{
sub_pcopy( 1 , 0 );
if(!qbevent)break;evnt(28182,10760,"ide_methods.bas");}while(r);
S_55724:;
if ((*_FUNC_IDECALLSTACKBOX_LONG_CX)||is_error_pending()){
if(qbevent){evnt(28182,10761,"ide_methods.bas");if(r)goto S_55724;}
do{
qbg_screen(NULL,NULL, 0 , 0 ,NULL,12);
if(!qbevent)break;evnt(28182,10761,"ide_methods.bas");}while(r);
do{
qbg_sub_locate(*_FUNC_IDECALLSTACKBOX_LONG_CY,*_FUNC_IDECALLSTACKBOX_LONG_CX, 1 ,NULL,NULL,7);
if(!qbevent)break;evnt(28182,10761,"ide_methods.bas");}while(r);
do{
qbg_screen(NULL,NULL, 1 , 0 ,NULL,12);
if(!qbevent)break;evnt(28182,10761,"ide_methods.bas");}while(r);
}
do{
*_FUNC_IDECALLSTACKBOX_LONG_CHANGE= 0 ;
if(!qbevent)break;evnt(28182,10764,"ide_methods.bas");}while(r);
S_55730:;
do{
if(qbevent){evnt(28182,10765,"ide_methods.bas");if(r)goto S_55730;}
do{
SUB_GETINPUT();
if(!qbevent)break;evnt(28182,10766,"ide_methods.bas");}while(r);
S_55732:;
if ((*__LONG_MWHEEL)||is_error_pending()){
if(qbevent){evnt(28182,10767,"ide_methods.bas");if(r)goto S_55732;}
do{
*_FUNC_IDECALLSTACKBOX_LONG_CHANGE= 1 ;
if(!qbevent)break;evnt(28182,10767,"ide_methods.bas");}while(r);
}
S_55735:;
if ((*__LONG_KB)||is_error_pending()){
if(qbevent){evnt(28182,10768,"ide_methods.bas");if(r)goto S_55735;}
do{
*_FUNC_IDECALLSTACKBOX_LONG_CHANGE= 1 ;
if(!qbevent)break;evnt(28182,10768,"ide_methods.bas");}while(r);
}
S_55738:;
if ((*__LONG_MCLICK)||is_error_pending()){
if(qbevent){evnt(28182,10769,"ide_methods.bas");if(r)goto S_55738;}
do{
*_FUNC_IDECALLSTACKBOX_LONG_MOUSEDOWN= 1 ;
if(!qbevent)break;evnt(28182,10769,"ide_methods.bas");}while(r);
do{
*_FUNC_IDECALLSTACKBOX_LONG_CHANGE= 1 ;
if(!qbevent)break;evnt(28182,10769,"ide_methods.bas");}while(r);
}
S_55742:;
if ((*__LONG_MRELEASE)||is_error_pending()){
if(qbevent){evnt(28182,10770,"ide_methods.bas");if(r)goto S_55742;}
do{
*_FUNC_IDECALLSTACKBOX_LONG_MOUSEUP= 1 ;
if(!qbevent)break;evnt(28182,10770,"ide_methods.bas");}while(r);
do{
*_FUNC_IDECALLSTACKBOX_LONG_CHANGE= 1 ;
if(!qbevent)break;evnt(28182,10770,"ide_methods.bas");}while(r);
}
S_55746:;
if ((*__LONG_MB)||is_error_pending()){
if(qbevent){evnt(28182,10771,"ide_methods.bas");if(r)goto S_55746;}
do{
*_FUNC_IDECALLSTACKBOX_LONG_CHANGE= 1 ;
if(!qbevent)break;evnt(28182,10771,"ide_methods.bas");}while(r);
}
do{
*_FUNC_IDECALLSTACKBOX_LONG_ALT=*__LONG_KALT;
if(!qbevent)break;evnt(28182,10772,"ide_methods.bas");}while(r);
S_55750:;
if ((-(*_FUNC_IDECALLSTACKBOX_LONG_ALT!=*_FUNC_IDECALLSTACKBOX_LONG_OLDALT))||is_error_pending()){
if(qbevent){evnt(28182,10772,"ide_methods.bas");if(r)goto S_55750;}
do{
*_FUNC_IDECALLSTACKBOX_LONG_CHANGE= 1 ;
if(!qbevent)break;evnt(28182,10772,"ide_methods.bas");}while(r);
}
do{
*_FUNC_IDECALLSTACKBOX_LONG_OLDALT=*_FUNC_IDECALLSTACKBOX_LONG_ALT;
if(!qbevent)break;evnt(28182,10773,"ide_methods.bas");}while(r);
do{
sub__limit( 100 );
if(!qbevent)break;evnt(28182,10774,"ide_methods.bas");}while(r);
S_55755:;
dl_continue_6603:;
}while((!(*_FUNC_IDECALLSTACKBOX_LONG_CHANGE))&&(!is_error_pending()));
dl_exit_6603:;
if(qbevent){evnt(28182,10775,"ide_methods.bas");if(r)goto S_55755;}
S_55756:;
if ((*_FUNC_IDECALLSTACKBOX_LONG_ALT&(~(*__LONG_KCTRL)))||is_error_pending()){
if(qbevent){evnt(28182,10776,"ide_methods.bas");if(r)goto S_55756;}
do{
*__LONG_IDEHL= 1 ;
if(!qbevent)break;evnt(28182,10776,"ide_methods.bas");}while(r);
}else{
do{
*__LONG_IDEHL= 0 ;
if(!qbevent)break;evnt(28182,10776,"ide_methods.bas");}while(r);
}
do{
qbs_set(_FUNC_IDECALLSTACKBOX_STRING_ALTLETTER,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,10778,"ide_methods.bas");}while(r);
S_55762:;
if ((*_FUNC_IDECALLSTACKBOX_LONG_ALT&(~(*__LONG_KCTRL)))||is_error_pending()){
if(qbevent){evnt(28182,10779,"ide_methods.bas");if(r)goto S_55762;}
S_55763:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_K->len== 1 )))||is_error_pending()){
if(qbevent){evnt(28182,10780,"ide_methods.bas");if(r)goto S_55763;}
do{
*_FUNC_IDECALLSTACKBOX_LONG_K=qbs_asc(qbs_ucase(__STRING_K));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,10781,"ide_methods.bas");}while(r);
S_55765:;
if (((-(*_FUNC_IDECALLSTACKBOX_LONG_K>= 65 ))&(-(*_FUNC_IDECALLSTACKBOX_LONG_K<= 90 )))||is_error_pending()){
if(qbevent){evnt(28182,10782,"ide_methods.bas");if(r)goto S_55765;}
do{
qbs_set(_FUNC_IDECALLSTACKBOX_STRING_ALTLETTER,func_chr(*_FUNC_IDECALLSTACKBOX_LONG_K));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,10782,"ide_methods.bas");}while(r);
}
}
}
do{
qbg_screen(NULL,NULL, 0 , 0 ,NULL,12);
if(!qbevent)break;evnt(28182,10785,"ide_methods.bas");}while(r);
do{
qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4);
if(!qbevent)break;evnt(28182,10785,"ide_methods.bas");}while(r);
do{
qbg_screen(NULL,NULL, 1 , 0 ,NULL,12);
if(!qbevent)break;evnt(28182,10785,"ide_methods.bas");}while(r);
do{
*_FUNC_IDECALLSTACKBOX_LONG_INFO= 0 ;
if(!qbevent)break;evnt(28182,10789,"ide_methods.bas");}while(r);
S_55774:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(28182,10790,"ide_methods.bas");if(r)goto S_55774;}
do{
qbs_set(__STRING_K,func_chr( 255 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,10790,"ide_methods.bas");}while(r);
}
S_55777:;
if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_KSHIFT== 0 ))&(qbs_equal(__STRING_K,func_chr( 9 )))))||is_error_pending()){
if(qbevent){evnt(28182,10791,"ide_methods.bas");if(r)goto S_55777;}
do{
*_FUNC_IDECALLSTACKBOX_LONG_FOCUS=*_FUNC_IDECALLSTACKBOX_LONG_FOCUS+ 1 ;
if(!qbevent)break;evnt(28182,10791,"ide_methods.bas");}while(r);
}
S_55780:;
if ((qbs_cleanup(qbs_tmp_base,(*__LONG_KSHIFT&(qbs_equal(__STRING_K,func_chr( 9 ))))|((func_instr(NULL,func__os(),qbs_new_txt_len("MAC",3),0))&(qbs_equal(__STRING_K,func_chr( 25 ))))))||is_error_pending()){
if(qbevent){evnt(28182,10792,"ide_methods.bas");if(r)goto S_55780;}
do{
*_FUNC_IDECALLSTACKBOX_LONG_FOCUS=*_FUNC_IDECALLSTACKBOX_LONG_FOCUS- 1 ;
if(!qbevent)break;evnt(28182,10792,"ide_methods.bas");}while(r);
do{
qbs_set(__STRING_K,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,10792,"ide_methods.bas");}while(r);
}
S_55784:;
if ((-(*_FUNC_IDECALLSTACKBOX_LONG_FOCUS< 1 ))||is_error_pending()){
if(qbevent){evnt(28182,10793,"ide_methods.bas");if(r)goto S_55784;}
do{
*_FUNC_IDECALLSTACKBOX_LONG_FOCUS=*_FUNC_IDECALLSTACKBOX_LONG_LASTFOCUS;
if(!qbevent)break;evnt(28182,10793,"ide_methods.bas");}while(r);
}
S_55787:;
if ((-(*_FUNC_IDECALLSTACKBOX_LONG_FOCUS>*_FUNC_IDECALLSTACKBOX_LONG_LASTFOCUS))||is_error_pending()){
if(qbevent){evnt(28182,10794,"ide_methods.bas");if(r)goto S_55787;}
do{
*_FUNC_IDECALLSTACKBOX_LONG_FOCUS= 1 ;
if(!qbevent)break;evnt(28182,10794,"ide_methods.bas");}while(r);
}
do{
*_FUNC_IDECALLSTACKBOX_LONG_F= 1 ;
if(!qbevent)break;evnt(28182,10795,"ide_methods.bas");}while(r);
S_55791:;
fornext_value6606= 1 ;
fornext_finalvalue6606= 100 ;
fornext_step6606= 1 ;
if (fornext_step6606<0) fornext_step_negative6606=1; else fornext_step_negative6606=0;
if (is_error_pending()) goto fornext_error6606;
goto fornext_entrylabel6606;
while(1){
fornext_value6606=fornext_step6606+(*_FUNC_IDECALLSTACKBOX_LONG_I);
fornext_entrylabel6606:
*_FUNC_IDECALLSTACKBOX_LONG_I=fornext_value6606;
if (fornext_step_negative6606){
if (fornext_value6606<fornext_finalvalue6606) break;
}else{
if (fornext_value6606>fornext_finalvalue6606) break;
}
fornext_error6606:;
if(qbevent){evnt(28182,10796,"ide_methods.bas");if(r)goto S_55791;}
do{
*_FUNC_IDECALLSTACKBOX_LONG_T=*(int32*)(((char*)_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDECALLSTACKBOX_LONG_I)-_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[4],_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[5]))*101+36)));
if(!qbevent)break;evnt(28182,10797,"ide_methods.bas");}while(r);
S_55793:;
if ((*_FUNC_IDECALLSTACKBOX_LONG_T)||is_error_pending()){
if(qbevent){evnt(28182,10798,"ide_methods.bas");if(r)goto S_55793;}
do{
*_FUNC_IDECALLSTACKBOX_LONG_FOCUSOFFSET=*_FUNC_IDECALLSTACKBOX_LONG_FOCUS-*_FUNC_IDECALLSTACKBOX_LONG_F;
if(!qbevent)break;evnt(28182,10799,"ide_methods.bas");}while(r);
do{
SUB_IDEOBJUPDATE((void*)( ((char*)(_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[0])) + (((array_check((*_FUNC_IDECALLSTACKBOX_LONG_I)-_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[4],_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[5]))*101+0)) ),_FUNC_IDECALLSTACKBOX_LONG_FOCUS,_FUNC_IDECALLSTACKBOX_LONG_F,_FUNC_IDECALLSTACKBOX_LONG_FOCUSOFFSET,__STRING_K,_FUNC_IDECALLSTACKBOX_STRING_ALTLETTER,__LONG_MB,_FUNC_IDECALLSTACKBOX_LONG_MOUSEDOWN,_FUNC_IDECALLSTACKBOX_LONG_MOUSEUP,__LONG_MX,__LONG_MY,_FUNC_IDECALLSTACKBOX_LONG_INFO,__LONG_MWHEEL);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,10800,"ide_methods.bas");}while(r);
}
fornext_continue_6605:;
}
fornext_exit_6605:;
S_55798:;
if ((*__LONG_MCLICK&(-(*_FUNC_IDECALLSTACKBOX_LONG_FOCUS== 1 )))||is_error_pending()){
if(qbevent){evnt(28182,10805,"ide_methods.bas");if(r)goto S_55798;}
S_55799:;
if (((-(((double)(FUNC_TIMEELAPSEDSINCE(_FUNC_IDECALLSTACKBOX_DOUBLE_LASTCLICK)))<((double)( 0.3E+0 ))))&(-(*_FUNC_IDECALLSTACKBOX_LONG_CLICKEDITEM==*(int32*)(((char*)_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[0])+(((array_check(( 1 )-_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[4],_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[5]))*101+76))))))||is_error_pending()){
if(qbevent){evnt(28182,10806,"ide_methods.bas");if(r)goto S_55799;}
do{
goto LABEL_SETIDECY;
if(!qbevent)break;evnt(28182,10807,"ide_methods.bas");}while(r);
}
do{
*_FUNC_IDECALLSTACKBOX_DOUBLE_LASTCLICK=func_timer( 0.001E+0 ,0|1);
if(!qbevent)break;evnt(28182,10809,"ide_methods.bas");}while(r);
S_55803:;
if ((-(*(int32*)(((char*)_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[0])+(((array_check(( 1 )-_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[4],_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[5]))*101+76)))> 0 ))||is_error_pending()){
if(qbevent){evnt(28182,10810,"ide_methods.bas");if(r)goto S_55803;}
do{
*_FUNC_IDECALLSTACKBOX_LONG_CLICKEDITEM=*(int32*)(((char*)_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[0])+(((array_check(( 1 )-_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[4],_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[5]))*101+76)));
if(!qbevent)break;evnt(28182,10810,"ide_methods.bas");}while(r);
}
do{
goto dl_continue_6600;
if(!qbevent)break;evnt(28182,10811,"ide_methods.bas");}while(r);
}
S_55808:;
if ((qbs_cleanup(qbs_tmp_base,((-(*_FUNC_IDECALLSTACKBOX_LONG_FOCUS== 1 ))&(qbs_equal(__STRING_K,func_chr( 13 ))))|((-(*_FUNC_IDECALLSTACKBOX_LONG_FOCUS== 2 ))&(-(*_FUNC_IDECALLSTACKBOX_LONG_INFO!= 0 )))))||is_error_pending()){
if(qbevent){evnt(28182,10814,"ide_methods.bas");if(r)goto S_55808;}
LABEL_SETIDECY:;
if(qbevent){evnt(28182,10815,"ide_methods.bas");r=0;}
do{
*_FUNC_IDECALLSTACKBOX_LONG_Y=func_abs((int32)(*(int32*)(((char*)_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[0])+(((array_check(( 1 )-_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[4],_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[5]))*101+76)))));
if(!qbevent)break;evnt(28182,10816,"ide_methods.bas");}while(r);
S_55810:;
if (((-(*_FUNC_IDECALLSTACKBOX_LONG_Y>= 1 ))&(-(*_FUNC_IDECALLSTACKBOX_LONG_Y<=*__LONG_CALLSTACKLENGTH)))||is_error_pending()){
if(qbevent){evnt(28182,10817,"ide_methods.bas");if(r)goto S_55810;}
do{
qbs_set(_FUNC_IDECALLSTACKBOX_STRING_TEMP,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[0])+(((array_check(( 1 )-_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[4],_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[5]))*101+84))))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,10818,"ide_methods.bas");}while(r);
do{
*__LONG_IDEGOTOBOX_LASTLINENUM=qbr(qbs_val<long double>(func_mid(_FUNC_IDECALLSTACKBOX_STRING_TEMP,func__instrrev(NULL,_FUNC_IDECALLSTACKBOX_STRING_TEMP,qbs_new_txt_len(" ",1),0)+ 1 ,NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,10819,"ide_methods.bas");}while(r);
do{
*__LONG_IDECY=*__LONG_IDEGOTOBOX_LASTLINENUM;
if(!qbevent)break;evnt(28182,10820,"ide_methods.bas");}while(r);
do{
SUB_IDECENTERCURRENTLINE();
if(!qbevent)break;evnt(28182,10821,"ide_methods.bas");}while(r);
do{
*__LONG_IDESELECT= 0 ;
if(!qbevent)break;evnt(28182,10822,"ide_methods.bas");}while(r);
do{
SUB_CLEARMOUSE();
if(!qbevent)break;evnt(28182,10823,"ide_methods.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28182,10824,"ide_methods.bas");}while(r);
}
}
S_55820:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 27 )))|(((-(*_FUNC_IDECALLSTACKBOX_LONG_FOCUS== 3 ))&(-(*_FUNC_IDECALLSTACKBOX_LONG_INFO!= 0 ))))))||is_error_pending()){
if(qbevent){evnt(28182,10828,"ide_methods.bas");if(r)goto S_55820;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28182,10829,"ide_methods.bas");}while(r);
}
S_55823:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 13 )))|(((-(*_FUNC_IDECALLSTACKBOX_LONG_FOCUS== 3 ))&(-(*_FUNC_IDECALLSTACKBOX_LONG_INFO!= 0 ))))))||is_error_pending()){
if(qbevent){evnt(28182,10832,"ide_methods.bas");if(r)goto S_55823;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28182,10833,"ide_methods.bas");}while(r);
}
S_55826:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 13 )))|(((-(*_FUNC_IDECALLSTACKBOX_LONG_FOCUS== 4 ))&(-(*_FUNC_IDECALLSTACKBOX_LONG_INFO!= 0 ))))|(((qbs_equal(qbs_ucase(__STRING_K),qbs_new_txt_len("C",1)))&(-(*__LONG_KCTRL!= 0 ))))))||is_error_pending()){
if(qbevent){evnt(28182,10836,"ide_methods.bas");if(r)goto S_55826;}
do{
sub__clipboard(FUNC_STRREPLACE(__STRING_CALLSTACKLIST,_FUNC_IDECALLSTACKBOX_STRING1_SEP,func_chr( 10 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,10837,"ide_methods.bas");}while(r);
}
do{
*_FUNC_IDECALLSTACKBOX_LONG_MOUSEDOWN= 0 ;
if(!qbevent)break;evnt(28182,10841,"ide_methods.bas");}while(r);
do{
*_FUNC_IDECALLSTACKBOX_LONG_MOUSEUP= 0 ;
if(!qbevent)break;evnt(28182,10842,"ide_methods.bas");}while(r);
dl_continue_6600:;
}while(1);
dl_exit_6600:;
do{
*_FUNC_IDECALLSTACKBOX_LONG_IDECALLSTACKBOX= 0 ;
if(!qbevent)break;evnt(28182,10845,"ide_methods.bas");}while(r);
exit_subfunc:;
free_mem_lock(sf_mem_lock);
#include "free346.txt"
if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static;
cmem_sp=tmp_cmem_sp;
return *_FUNC_IDECALLSTACKBOX_LONG_IDECALLSTACKBOX;
}
