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 "data272.txt"
mem_lock *sf_mem_lock;
new_mem_lock();
sf_mem_lock=mem_lock_tmp;
sf_mem_lock->type=3;
if (is_error_pending()) goto exit_subfunc;
do{
sub_pcopy( 0 , 2 );
if(!qbevent)break;evnt(24235,10484,"ide_methods.bas");}while(r);
do{
sub_pcopy( 0 , 1 );
if(!qbevent)break;evnt(24235,10485,"ide_methods.bas");}while(r);
do{
qbg_screen(NULL,NULL, 1 , 0 ,NULL,12);
if(!qbevent)break;evnt(24235,10486,"ide_methods.bas");}while(r);
do{
*_FUNC_IDECALLSTACKBOX_LONG_FOCUS= 1 ;
if(!qbevent)break;evnt(24235,10487,"ide_methods.bas");}while(r);
do{
if(!qbevent)break;evnt(24235,10488,"ide_methods.bas");}while(r);
do{

if (_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[2]&2){
error(10);
}else{
if (_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[2]&1){
if (!error_occurred) error(10);
}else{
_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[4]= 1 ;
_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[5]=( 100 )-_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[4]+1;
_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[6]=1;
if (_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[2]&4){
_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[0]=(ptrszint)cmem_dynamic_malloc(_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[5]*101);
memset((void*)(_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[0]),0,_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[5]*101);
}else{
_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[0]=(ptrszint)calloc(_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[5]*101,1);
if (!_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[0]) error(257);
}
_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[2]|=1;
}
}
if(!qbevent)break;evnt(24235,10489,"ide_methods.bas");}while(r);
do{
if(!qbevent)break;evnt(24235,10490,"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(24235,10491,"ide_methods.bas");}while(r);
do{
*_FUNC_IDECALLSTACKBOX_LONG_DIALOGHEIGHT=*__LONG_CALLSTACKLENGTH+ 4 ;
if(!qbevent)break;evnt(24235,10496,"ide_methods.bas");}while(r);
S_49675:;
if ((-(*_FUNC_IDECALLSTACKBOX_LONG_DIALOGHEIGHT>(*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 6 )))||is_error_pending()){
if(qbevent){evnt(24235,10497,"ide_methods.bas");if(r)goto S_49675;}
do{
*_FUNC_IDECALLSTACKBOX_LONG_DIALOGHEIGHT=*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 6 ;
if(!qbevent)break;evnt(24235,10498,"ide_methods.bas");}while(r);
}
do{
*_FUNC_IDECALLSTACKBOX_LONG_DIALOGWIDTH= 52 ;
if(!qbevent)break;evnt(24235,10501,"ide_methods.bas");}while(r);
do{
qbs_set(_FUNC_IDECALLSTACKBOX_STRING_TEMP,__STRING_CALLSTACKLIST);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24235,10502,"ide_methods.bas");}while(r);
S_49680:;
do{
if(qbevent){evnt(24235,10503,"ide_methods.bas");if(r)goto S_49680;}
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(24235,10504,"ide_methods.bas");}while(r);
S_49682:;
if ((*_FUNC_IDECALLSTACKBOX_LONG_I)||is_error_pending()){
if(qbevent){evnt(24235,10505,"ide_methods.bas");if(r)goto S_49682;}
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(24235,10506,"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(24235,10507,"ide_methods.bas");}while(r);
S_49685:;
if ((qbs_cleanup(qbs_tmp_base,-((_FUNC_IDECALLSTACKBOX_STRING_TEMP2->len+ 6 )>*_FUNC_IDECALLSTACKBOX_LONG_DIALOGWIDTH)))||is_error_pending()){
if(qbevent){evnt(24235,10508,"ide_methods.bas");if(r)goto S_49685;}
do{
*_FUNC_IDECALLSTACKBOX_LONG_DIALOGWIDTH=_FUNC_IDECALLSTACKBOX_STRING_TEMP2->len+ 6 ;
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24235,10508,"ide_methods.bas");}while(r);
}
}else{
S_49689:;
if ((qbs_cleanup(qbs_tmp_base,-((_FUNC_IDECALLSTACKBOX_STRING_TEMP->len+ 6 )>*_FUNC_IDECALLSTACKBOX_LONG_DIALOGWIDTH)))||is_error_pending()){
if(qbevent){evnt(24235,10510,"ide_methods.bas");if(r)goto S_49689;}
do{
*_FUNC_IDECALLSTACKBOX_LONG_DIALOGWIDTH=_FUNC_IDECALLSTACKBOX_STRING_TEMP->len+ 6 ;
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24235,10510,"ide_methods.bas");}while(r);
}
do{
goto dl_exit_5673;
if(!qbevent)break;evnt(24235,10511,"ide_methods.bas");}while(r);
}
dl_continue_5673:;
}while(1);
dl_exit_5673:;
S_49695:;
if ((-(*_FUNC_IDECALLSTACKBOX_LONG_DIALOGWIDTH>(*__LONG_IDEWX- 8 )))||is_error_pending()){
if(qbevent){evnt(24235,10515,"ide_methods.bas");if(r)goto S_49695;}
do{
*_FUNC_IDECALLSTACKBOX_LONG_DIALOGWIDTH=*__LONG_IDEWX- 8 ;
if(!qbevent)break;evnt(24235,10515,"ide_methods.bas");}while(r);
}
do{
SUB_IDEPAR((void*)( ((char*)(_FUNC_IDECALLSTACKBOX_UDT_P)) + (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(24235,10517,"ide_methods.bas");}while(r);
do{
*_FUNC_IDECALLSTACKBOX_LONG_I= 0 ;
if(!qbevent)break;evnt(24235,10519,"ide_methods.bas");}while(r);
do{
*_FUNC_IDECALLSTACKBOX_LONG_I=*_FUNC_IDECALLSTACKBOX_LONG_I+ 1 ;
if(!qbevent)break;evnt(24235,10520,"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(24235,10521,"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(24235,10522,"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(24235,10523,"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(24235,10523,"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(24235,10524,"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(24235,10525,"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(24235,10526,"ide_methods.bas");}while(r);
do{
*_FUNC_IDECALLSTACKBOX_LONG_I=*_FUNC_IDECALLSTACKBOX_LONG_I+ 1 ;
if(!qbevent)break;evnt(24235,10528,"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(24235,10529,"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(24235,10530,"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(24235,10531,"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(24235,10532,"ide_methods.bas");}while(r);
S_49713:;
fornext_value5679= 1 ;
fornext_finalvalue5679= 100 ;
fornext_step5679= 1 ;
if (fornext_step5679<0) fornext_step_negative5679=1; else fornext_step_negative5679=0;
if (is_error_pending()) goto fornext_error5679;
goto fornext_entrylabel5679;
while(1){
fornext_value5679=fornext_step5679+(*_FUNC_IDECALLSTACKBOX_LONG_I);
fornext_entrylabel5679:
*_FUNC_IDECALLSTACKBOX_LONG_I=fornext_value5679;
if (fornext_step_negative5679){
if (fornext_value5679<fornext_finalvalue5679) break;
}else{
if (fornext_value5679>fornext_finalvalue5679) break;
}
fornext_error5679:;
if(qbevent){evnt(24235,10538,"ide_methods.bas");if(r)goto S_49713;}
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,((char*)_FUNC_IDECALLSTACKBOX_UDT_P)+(0)+ 0, 20);
if(!qbevent)break;evnt(24235,10538,"ide_methods.bas");}while(r);
fornext_continue_5678:;
}
fornext_exit_5678:;
S_49716:;
do{
if(qbevent){evnt(24235,10541,"ide_methods.bas");if(r)goto S_49716;}
do{
SUB_IDEDRAWPAR((void*)( ((char*)(_FUNC_IDECALLSTACKBOX_UDT_P)) + (0) ));
if(!qbevent)break;evnt(24235,10544,"ide_methods.bas");}while(r);
do{
*_FUNC_IDECALLSTACKBOX_LONG_F= 1 ;
if(!qbevent)break;evnt(24235,10545,"ide_methods.bas");}while(r);
do{
*_FUNC_IDECALLSTACKBOX_LONG_CX= 0 ;
if(!qbevent)break;evnt(24235,10545,"ide_methods.bas");}while(r);
do{
*_FUNC_IDECALLSTACKBOX_LONG_CY= 0 ;
if(!qbevent)break;evnt(24235,10545,"ide_methods.bas");}while(r);
S_49721:;
fornext_value5682= 1 ;
fornext_finalvalue5682= 100 ;
fornext_step5682= 1 ;
if (fornext_step5682<0) fornext_step_negative5682=1; else fornext_step_negative5682=0;
if (is_error_pending()) goto fornext_error5682;
goto fornext_entrylabel5682;
while(1){
fornext_value5682=fornext_step5682+(*_FUNC_IDECALLSTACKBOX_LONG_I);
fornext_entrylabel5682:
*_FUNC_IDECALLSTACKBOX_LONG_I=fornext_value5682;
if (fornext_step_negative5682){
if (fornext_value5682<fornext_finalvalue5682) break;
}else{
if (fornext_value5682>fornext_finalvalue5682) break;
}
fornext_error5682:;
if(qbevent){evnt(24235,10546,"ide_methods.bas");if(r)goto S_49721;}
S_49722:;
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(24235,10547,"ide_methods.bas");if(r)goto S_49722;}
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(24235,10549,"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(24235,10550,"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(24235,10550,"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) ),_FUNC_IDECALLSTACKBOX_LONG_F);
if(!qbevent)break;evnt(24235,10551,"ide_methods.bas");}while(r);
S_49727:;
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(24235,10552,"ide_methods.bas");if(r)goto S_49727;}
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(24235,10552,"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(24235,10552,"ide_methods.bas");}while(r);
}
}
fornext_continue_5681:;
}
fornext_exit_5681:;
do{
*_FUNC_IDECALLSTACKBOX_LONG_LASTFOCUS=*_FUNC_IDECALLSTACKBOX_LONG_F- 1 ;
if(!qbevent)break;evnt(24235,10555,"ide_methods.bas");}while(r);
do{
qbg_sub_color( 0 , 7 ,NULL,3);
if(!qbevent)break;evnt(24235,10559,"ide_methods.bas");}while(r);
do{
sub__printstring(*(int32*)(((char*)_FUNC_IDECALLSTACKBOX_UDT_P)+(0))+ 2 ,*(int32*)(((char*)_FUNC_IDECALLSTACKBOX_UDT_P)+(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(24235,10559,"ide_methods.bas");}while(r);
do{
sub_pcopy( 1 , 0 );
if(!qbevent)break;evnt(24235,10564,"ide_methods.bas");}while(r);
S_49737:;
if ((*_FUNC_IDECALLSTACKBOX_LONG_CX)||is_error_pending()){
if(qbevent){evnt(24235,10565,"ide_methods.bas");if(r)goto S_49737;}
do{
qbg_screen(NULL,NULL, 0 , 0 ,NULL,12);
if(!qbevent)break;evnt(24235,10565,"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(24235,10565,"ide_methods.bas");}while(r);
do{
qbg_screen(NULL,NULL, 1 , 0 ,NULL,12);
if(!qbevent)break;evnt(24235,10565,"ide_methods.bas");}while(r);
}
do{
*_FUNC_IDECALLSTACKBOX_LONG_CHANGE= 0 ;
if(!qbevent)break;evnt(24235,10568,"ide_methods.bas");}while(r);
S_49743:;
do{
if(qbevent){evnt(24235,10569,"ide_methods.bas");if(r)goto S_49743;}
do{
SUB_GETINPUT();
if(!qbevent)break;evnt(24235,10570,"ide_methods.bas");}while(r);
S_49745:;
if ((*__LONG_MWHEEL)||is_error_pending()){
if(qbevent){evnt(24235,10571,"ide_methods.bas");if(r)goto S_49745;}
do{
*_FUNC_IDECALLSTACKBOX_LONG_CHANGE= 1 ;
if(!qbevent)break;evnt(24235,10571,"ide_methods.bas");}while(r);
}
S_49748:;
if ((*__LONG_KB)||is_error_pending()){
if(qbevent){evnt(24235,10572,"ide_methods.bas");if(r)goto S_49748;}
do{
*_FUNC_IDECALLSTACKBOX_LONG_CHANGE= 1 ;
if(!qbevent)break;evnt(24235,10572,"ide_methods.bas");}while(r);
}
S_49751:;
if ((*__LONG_MCLICK)||is_error_pending()){
if(qbevent){evnt(24235,10573,"ide_methods.bas");if(r)goto S_49751;}
do{
*_FUNC_IDECALLSTACKBOX_LONG_MOUSEDOWN= 1 ;
if(!qbevent)break;evnt(24235,10573,"ide_methods.bas");}while(r);
do{
*_FUNC_IDECALLSTACKBOX_LONG_CHANGE= 1 ;
if(!qbevent)break;evnt(24235,10573,"ide_methods.bas");}while(r);
}
S_49755:;
if ((*__LONG_MRELEASE)||is_error_pending()){
if(qbevent){evnt(24235,10574,"ide_methods.bas");if(r)goto S_49755;}
do{
*_FUNC_IDECALLSTACKBOX_LONG_MOUSEUP= 1 ;
if(!qbevent)break;evnt(24235,10574,"ide_methods.bas");}while(r);
do{
*_FUNC_IDECALLSTACKBOX_LONG_CHANGE= 1 ;
if(!qbevent)break;evnt(24235,10574,"ide_methods.bas");}while(r);
}
S_49759:;
if ((*__LONG_MB)||is_error_pending()){
if(qbevent){evnt(24235,10575,"ide_methods.bas");if(r)goto S_49759;}
do{
*_FUNC_IDECALLSTACKBOX_LONG_CHANGE= 1 ;
if(!qbevent)break;evnt(24235,10575,"ide_methods.bas");}while(r);
}
do{
*_FUNC_IDECALLSTACKBOX_LONG_ALT=*__LONG_KALT;
if(!qbevent)break;evnt(24235,10576,"ide_methods.bas");}while(r);
S_49763:;
if ((-(*_FUNC_IDECALLSTACKBOX_LONG_ALT!=*_FUNC_IDECALLSTACKBOX_LONG_OLDALT))||is_error_pending()){
if(qbevent){evnt(24235,10576,"ide_methods.bas");if(r)goto S_49763;}
do{
*_FUNC_IDECALLSTACKBOX_LONG_CHANGE= 1 ;
if(!qbevent)break;evnt(24235,10576,"ide_methods.bas");}while(r);
}
do{
*_FUNC_IDECALLSTACKBOX_LONG_OLDALT=*_FUNC_IDECALLSTACKBOX_LONG_ALT;
if(!qbevent)break;evnt(24235,10577,"ide_methods.bas");}while(r);
do{
sub__limit( 100 );
if(!qbevent)break;evnt(24235,10578,"ide_methods.bas");}while(r);
S_49768:;
dl_continue_5683:;
}while((!(*_FUNC_IDECALLSTACKBOX_LONG_CHANGE))&&(!is_error_pending()));
dl_exit_5683:;
if(qbevent){evnt(24235,10579,"ide_methods.bas");if(r)goto S_49768;}
S_49769:;
if ((*_FUNC_IDECALLSTACKBOX_LONG_ALT&(~(*__LONG_KCTRL)))||is_error_pending()){
if(qbevent){evnt(24235,10580,"ide_methods.bas");if(r)goto S_49769;}
do{
*__LONG_IDEHL= 1 ;
if(!qbevent)break;evnt(24235,10580,"ide_methods.bas");}while(r);
}else{
do{
*__LONG_IDEHL= 0 ;
if(!qbevent)break;evnt(24235,10580,"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(24235,10582,"ide_methods.bas");}while(r);
S_49775:;
if ((*_FUNC_IDECALLSTACKBOX_LONG_ALT&(~(*__LONG_KCTRL)))||is_error_pending()){
if(qbevent){evnt(24235,10583,"ide_methods.bas");if(r)goto S_49775;}
S_49776:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_K->len== 1 )))||is_error_pending()){
if(qbevent){evnt(24235,10584,"ide_methods.bas");if(r)goto S_49776;}
do{
*_FUNC_IDECALLSTACKBOX_LONG_K=qbs_asc(qbs_ucase(__STRING_K));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24235,10585,"ide_methods.bas");}while(r);
S_49778:;
if (((-(*_FUNC_IDECALLSTACKBOX_LONG_K>= 65 ))&(-(*_FUNC_IDECALLSTACKBOX_LONG_K<= 90 )))||is_error_pending()){
if(qbevent){evnt(24235,10586,"ide_methods.bas");if(r)goto S_49778;}
do{
qbs_set(_FUNC_IDECALLSTACKBOX_STRING_ALTLETTER,func_chr(*_FUNC_IDECALLSTACKBOX_LONG_K));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24235,10586,"ide_methods.bas");}while(r);
}
}
}
do{
qbg_screen(NULL,NULL, 0 , 0 ,NULL,12);
if(!qbevent)break;evnt(24235,10589,"ide_methods.bas");}while(r);
do{
qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4);
if(!qbevent)break;evnt(24235,10589,"ide_methods.bas");}while(r);
do{
qbg_screen(NULL,NULL, 1 , 0 ,NULL,12);
if(!qbevent)break;evnt(24235,10589,"ide_methods.bas");}while(r);
do{
*_FUNC_IDECALLSTACKBOX_LONG_INFO= 0 ;
if(!qbevent)break;evnt(24235,10593,"ide_methods.bas");}while(r);
S_49787:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(24235,10594,"ide_methods.bas");if(r)goto S_49787;}
do{
qbs_set(__STRING_K,func_chr( 255 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24235,10594,"ide_methods.bas");}while(r);
}
S_49790:;
if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_KSHIFT== 0 ))&(qbs_equal(__STRING_K,func_chr( 9 )))))||is_error_pending()){
if(qbevent){evnt(24235,10595,"ide_methods.bas");if(r)goto S_49790;}
do{
*_FUNC_IDECALLSTACKBOX_LONG_FOCUS=*_FUNC_IDECALLSTACKBOX_LONG_FOCUS+ 1 ;
if(!qbevent)break;evnt(24235,10595,"ide_methods.bas");}while(r);
}
S_49793:;
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(24235,10596,"ide_methods.bas");if(r)goto S_49793;}
do{
*_FUNC_IDECALLSTACKBOX_LONG_FOCUS=*_FUNC_IDECALLSTACKBOX_LONG_FOCUS- 1 ;
if(!qbevent)break;evnt(24235,10596,"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(24235,10596,"ide_methods.bas");}while(r);
}
S_49797:;
if ((-(*_FUNC_IDECALLSTACKBOX_LONG_FOCUS< 1 ))||is_error_pending()){
if(qbevent){evnt(24235,10597,"ide_methods.bas");if(r)goto S_49797;}
do{
*_FUNC_IDECALLSTACKBOX_LONG_FOCUS=*_FUNC_IDECALLSTACKBOX_LONG_LASTFOCUS;
if(!qbevent)break;evnt(24235,10597,"ide_methods.bas");}while(r);
}
S_49800:;
if ((-(*_FUNC_IDECALLSTACKBOX_LONG_FOCUS>*_FUNC_IDECALLSTACKBOX_LONG_LASTFOCUS))||is_error_pending()){
if(qbevent){evnt(24235,10598,"ide_methods.bas");if(r)goto S_49800;}
do{
*_FUNC_IDECALLSTACKBOX_LONG_FOCUS= 1 ;
if(!qbevent)break;evnt(24235,10598,"ide_methods.bas");}while(r);
}
do{
*_FUNC_IDECALLSTACKBOX_LONG_F= 1 ;
if(!qbevent)break;evnt(24235,10599,"ide_methods.bas");}while(r);
S_49804:;
fornext_value5686= 1 ;
fornext_finalvalue5686= 100 ;
fornext_step5686= 1 ;
if (fornext_step5686<0) fornext_step_negative5686=1; else fornext_step_negative5686=0;
if (is_error_pending()) goto fornext_error5686;
goto fornext_entrylabel5686;
while(1){
fornext_value5686=fornext_step5686+(*_FUNC_IDECALLSTACKBOX_LONG_I);
fornext_entrylabel5686:
*_FUNC_IDECALLSTACKBOX_LONG_I=fornext_value5686;
if (fornext_step_negative5686){
if (fornext_value5686<fornext_finalvalue5686) break;
}else{
if (fornext_value5686>fornext_finalvalue5686) break;
}
fornext_error5686:;
if(qbevent){evnt(24235,10600,"ide_methods.bas");if(r)goto S_49804;}
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(24235,10601,"ide_methods.bas");}while(r);
S_49806:;
if ((*_FUNC_IDECALLSTACKBOX_LONG_T)||is_error_pending()){
if(qbevent){evnt(24235,10602,"ide_methods.bas");if(r)goto S_49806;}
do{
*_FUNC_IDECALLSTACKBOX_LONG_FOCUSOFFSET=*_FUNC_IDECALLSTACKBOX_LONG_FOCUS-*_FUNC_IDECALLSTACKBOX_LONG_F;
if(!qbevent)break;evnt(24235,10603,"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) ),_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(24235,10604,"ide_methods.bas");}while(r);
}
fornext_continue_5685:;
}
fornext_exit_5685:;
S_49811:;
if ((*__LONG_MCLICK&(-(*_FUNC_IDECALLSTACKBOX_LONG_FOCUS== 1 )))||is_error_pending()){
if(qbevent){evnt(24235,10609,"ide_methods.bas");if(r)goto S_49811;}
S_49812:;
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(24235,10610,"ide_methods.bas");if(r)goto S_49812;}
do{
goto LABEL_SETIDECY;
if(!qbevent)break;evnt(24235,10611,"ide_methods.bas");}while(r);
}
do{
*_FUNC_IDECALLSTACKBOX_DOUBLE_LASTCLICK=func_timer( 0.001E+0 ,0|1);
if(!qbevent)break;evnt(24235,10613,"ide_methods.bas");}while(r);
S_49816:;
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(24235,10614,"ide_methods.bas");if(r)goto S_49816;}
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(24235,10614,"ide_methods.bas");}while(r);
}
do{
goto dl_continue_5680;
if(!qbevent)break;evnt(24235,10615,"ide_methods.bas");}while(r);
}
S_49821:;
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(24235,10618,"ide_methods.bas");if(r)goto S_49821;}
LABEL_SETIDECY:;
if(qbevent){evnt(24235,10619,"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(24235,10620,"ide_methods.bas");}while(r);
S_49823:;
if (((-(*_FUNC_IDECALLSTACKBOX_LONG_Y>= 1 ))&(-(*_FUNC_IDECALLSTACKBOX_LONG_Y<=*__LONG_CALLSTACKLENGTH)))||is_error_pending()){
if(qbevent){evnt(24235,10621,"ide_methods.bas");if(r)goto S_49823;}
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(24235,10622,"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(24235,10623,"ide_methods.bas");}while(r);
do{
*__LONG_IDECY=*__LONG_IDEGOTOBOX_LASTLINENUM;
if(!qbevent)break;evnt(24235,10624,"ide_methods.bas");}while(r);
do{
SUB_IDECENTERCURRENTLINE();
if(!qbevent)break;evnt(24235,10625,"ide_methods.bas");}while(r);
do{
*__LONG_IDESELECT= 0 ;
if(!qbevent)break;evnt(24235,10626,"ide_methods.bas");}while(r);
do{
SUB_CLEARMOUSE();
if(!qbevent)break;evnt(24235,10627,"ide_methods.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24235,10628,"ide_methods.bas");}while(r);
}
}
S_49833:;
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(24235,10632,"ide_methods.bas");if(r)goto S_49833;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24235,10633,"ide_methods.bas");}while(r);
}
S_49836:;
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(24235,10636,"ide_methods.bas");if(r)goto S_49836;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24235,10637,"ide_methods.bas");}while(r);
}
S_49839:;
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(24235,10640,"ide_methods.bas");if(r)goto S_49839;}
do{
sub__clipboard(FUNC_STRREPLACE(__STRING_CALLSTACKLIST,_FUNC_IDECALLSTACKBOX_STRING1_SEP,func_chr( 10 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24235,10641,"ide_methods.bas");}while(r);
}
do{
*_FUNC_IDECALLSTACKBOX_LONG_MOUSEDOWN= 0 ;
if(!qbevent)break;evnt(24235,10645,"ide_methods.bas");}while(r);
do{
*_FUNC_IDECALLSTACKBOX_LONG_MOUSEUP= 0 ;
if(!qbevent)break;evnt(24235,10646,"ide_methods.bas");}while(r);
dl_continue_5680:;
}while(1);
dl_exit_5680:;
do{
*_FUNC_IDECALLSTACKBOX_LONG_IDECALLSTACKBOX= 0 ;
if(!qbevent)break;evnt(24235,10649,"ide_methods.bas");}while(r);
exit_subfunc:;
free_mem_lock(sf_mem_lock);
#include "free272.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;
}
