qbs* FUNC_IDEF1BOX(qbs*_FUNC_IDEF1BOX_STRING_LNKS,int32*_FUNC_IDEF1BOX_LONG_LNKS){
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 "data424.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,20510,"ide_methods.bas");}while(r);
do{
sub_pcopy( 0 , 1 );
if(!qbevent)break;evnt(28182,20511,"ide_methods.bas");}while(r);
do{
qbg_screen(NULL,NULL, 1 , 0 ,NULL,12);
if(!qbevent)break;evnt(28182,20512,"ide_methods.bas");}while(r);
do{
*_FUNC_IDEF1BOX_LONG_FOCUS= 1 ;
if(!qbevent)break;evnt(28182,20513,"ide_methods.bas");}while(r);
do{
if(!qbevent)break;evnt(28182,20514,"ide_methods.bas");}while(r);
do{
if (_FUNC_IDEF1BOX_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_IDEF1BOX_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_IDEF1BOX_ARRAY_UDT_O[2]&4){
_FUNC_IDEF1BOX_ARRAY_UDT_O[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!_FUNC_IDEF1BOX_ARRAY_UDT_O[0]) error(257);
memset((void*)(_FUNC_IDEF1BOX_ARRAY_UDT_O[0]),0,(size_t)alloc_req_bytes);
}else{
_FUNC_IDEF1BOX_ARRAY_UDT_O[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!_FUNC_IDEF1BOX_ARRAY_UDT_O[0]) error(257);
}
_FUNC_IDEF1BOX_ARRAY_UDT_O[2]|=1;
_FUNC_IDEF1BOX_ARRAY_UDT_O[4]=alloc_new_desc[4];
_FUNC_IDEF1BOX_ARRAY_UDT_O[5]=alloc_new_desc[5];
_FUNC_IDEF1BOX_ARRAY_UDT_O[6]=alloc_new_desc[6];
_FUNC_IDEF1BOX_ARRAY_UDT_O[7]=alloc_new_desc[7];
}
}
if(!qbevent)break;evnt(28182,20515,"ide_methods.bas");}while(r);
do{
if(!qbevent)break;evnt(28182,20516,"ide_methods.bas");}while(r);
do{
qbs_set(_FUNC_IDEF1BOX_STRING1_SEP,func_chr( 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,20517,"ide_methods.bas");}while(r);
do{
*_FUNC_IDEF1BOX_LONG_I= 0 ;
if(!qbevent)break;evnt(28182,20524,"ide_methods.bas");}while(r);
do{
SUB_IDEPAR((void*)( ((char*)(_FUNC_IDEF1BOX_UDT_P)) + ((0+0)) ),&(pass7667= 40 ),&(pass7668=*_FUNC_IDEF1BOX_LONG_LNKS+ 3 ),qbs_new_txt_len("Contextual help",15));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,20525,"ide_methods.bas");}while(r);
do{
*_FUNC_IDEF1BOX_LONG_I=*_FUNC_IDEF1BOX_LONG_I+ 1 ;
if(!qbevent)break;evnt(28182,20527,"ide_methods.bas");}while(r);
do{
*(int32*)(((char*)_FUNC_IDEF1BOX_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDEF1BOX_LONG_I)-_FUNC_IDEF1BOX_ARRAY_UDT_O[4],_FUNC_IDEF1BOX_ARRAY_UDT_O[5]))*101+36)))= 2 ;
if(!qbevent)break;evnt(28182,20528,"ide_methods.bas");}while(r);
do{
*(int32*)(((char*)_FUNC_IDEF1BOX_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDEF1BOX_LONG_I)-_FUNC_IDEF1BOX_ARRAY_UDT_O[4],_FUNC_IDEF1BOX_ARRAY_UDT_O[5]))*101+24)))= 1 ;
if(!qbevent)break;evnt(28182,20529,"ide_methods.bas");}while(r);
do{
*(int32*)(((char*)_FUNC_IDEF1BOX_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDEF1BOX_LONG_I)-_FUNC_IDEF1BOX_ARRAY_UDT_O[4],_FUNC_IDEF1BOX_ARRAY_UDT_O[5]))*101+28)))= 36 ;
if(!qbevent)break;evnt(28182,20531,"ide_methods.bas");}while(r);
do{
*(int32*)(((char*)_FUNC_IDEF1BOX_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDEF1BOX_LONG_I)-_FUNC_IDEF1BOX_ARRAY_UDT_O[4],_FUNC_IDEF1BOX_ARRAY_UDT_O[5]))*101+32)))=*_FUNC_IDEF1BOX_LONG_LNKS;
if(!qbevent)break;evnt(28182,20531,"ide_methods.bas");}while(r);
do{
*(int32*)(((char*)_FUNC_IDEF1BOX_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDEF1BOX_LONG_I)-_FUNC_IDEF1BOX_ARRAY_UDT_O[4],_FUNC_IDEF1BOX_ARRAY_UDT_O[5]))*101+44)))=FUNC_IDENEWTXT(_FUNC_IDEF1BOX_STRING_LNKS);
if(!qbevent)break;evnt(28182,20532,"ide_methods.bas");}while(r);
do{
*(int32*)(((char*)_FUNC_IDEF1BOX_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDEF1BOX_LONG_I)-_FUNC_IDEF1BOX_ARRAY_UDT_O[4],_FUNC_IDEF1BOX_ARRAY_UDT_O[5]))*101+76)))= 1 ;
if(!qbevent)break;evnt(28182,20533,"ide_methods.bas");}while(r);
do{
*(int32*)(((char*)_FUNC_IDEF1BOX_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDEF1BOX_LONG_I)-_FUNC_IDEF1BOX_ARRAY_UDT_O[4],_FUNC_IDEF1BOX_ARRAY_UDT_O[5]))*101+40)))=FUNC_IDENEWTXT(qbs_new_txt_len("Which?",6));
if(!qbevent)break;evnt(28182,20534,"ide_methods.bas");}while(r);
do{
*_FUNC_IDEF1BOX_LONG_I=*_FUNC_IDEF1BOX_LONG_I+ 1 ;
if(!qbevent)break;evnt(28182,20536,"ide_methods.bas");}while(r);
do{
*(int32*)(((char*)_FUNC_IDEF1BOX_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDEF1BOX_LONG_I)-_FUNC_IDEF1BOX_ARRAY_UDT_O[4],_FUNC_IDEF1BOX_ARRAY_UDT_O[5]))*101+36)))= 3 ;
if(!qbevent)break;evnt(28182,20537,"ide_methods.bas");}while(r);
do{
*(int32*)(((char*)_FUNC_IDEF1BOX_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDEF1BOX_LONG_I)-_FUNC_IDEF1BOX_ARRAY_UDT_O[4],_FUNC_IDEF1BOX_ARRAY_UDT_O[5]))*101+24)))=*_FUNC_IDEF1BOX_LONG_LNKS+ 3 ;
if(!qbevent)break;evnt(28182,20538,"ide_methods.bas");}while(r);
do{
*(int32*)(((char*)_FUNC_IDEF1BOX_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDEF1BOX_LONG_I)-_FUNC_IDEF1BOX_ARRAY_UDT_O[4],_FUNC_IDEF1BOX_ARRAY_UDT_O[5]))*101+44)))=FUNC_IDENEWTXT(qbs_new_txt_len("#OK",3));
if(!qbevent)break;evnt(28182,20539,"ide_methods.bas");}while(r);
do{
*(int32*)(((char*)_FUNC_IDEF1BOX_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDEF1BOX_LONG_I)-_FUNC_IDEF1BOX_ARRAY_UDT_O[4],_FUNC_IDEF1BOX_ARRAY_UDT_O[5]))*101+60)))= 1 ;
if(!qbevent)break;evnt(28182,20540,"ide_methods.bas");}while(r);
S_66682:;
fornext_value7670= 1 ;
fornext_finalvalue7670= 100 ;
fornext_step7670= 1 ;
if (fornext_step7670<0) fornext_step_negative7670=1; else fornext_step_negative7670=0;
if (is_error_pending()) goto fornext_error7670;
goto fornext_entrylabel7670;
while(1){
fornext_value7670=fornext_step7670+(*_FUNC_IDEF1BOX_LONG_I);
fornext_entrylabel7670:
*_FUNC_IDEF1BOX_LONG_I=fornext_value7670;
if (fornext_step_negative7670){
if (fornext_value7670<fornext_finalvalue7670) break;
}else{
if (fornext_value7670>fornext_finalvalue7670) break;
}
fornext_error7670:;
if(qbevent){evnt(28182,20545,"ide_methods.bas");if(r)goto S_66682;}
do{
memcpy(((char*)_FUNC_IDEF1BOX_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDEF1BOX_LONG_I)-_FUNC_IDEF1BOX_ARRAY_UDT_O[4],_FUNC_IDEF1BOX_ARRAY_UDT_O[5]))*101+0))+ 0,((char*)_FUNC_IDEF1BOX_UDT_P)+((0+0))+ 0, 20);
if(!qbevent)break;evnt(28182,20545,"ide_methods.bas");}while(r);
fornext_continue_7669:;
}
fornext_exit_7669:;
S_66685:;
do{
if(qbevent){evnt(28182,20548,"ide_methods.bas");if(r)goto S_66685;}
do{
SUB_IDEDRAWPAR((void*)( ((char*)(_FUNC_IDEF1BOX_UDT_P)) + ((0+0)) ));
if(!qbevent)break;evnt(28182,20551,"ide_methods.bas");}while(r);
do{
*_FUNC_IDEF1BOX_LONG_F= 1 ;
if(!qbevent)break;evnt(28182,20552,"ide_methods.bas");}while(r);
do{
*_FUNC_IDEF1BOX_LONG_CX= 0 ;
if(!qbevent)break;evnt(28182,20552,"ide_methods.bas");}while(r);
do{
*_FUNC_IDEF1BOX_LONG_CY= 0 ;
if(!qbevent)break;evnt(28182,20552,"ide_methods.bas");}while(r);
S_66690:;
fornext_value7673= 1 ;
fornext_finalvalue7673= 100 ;
fornext_step7673= 1 ;
if (fornext_step7673<0) fornext_step_negative7673=1; else fornext_step_negative7673=0;
if (is_error_pending()) goto fornext_error7673;
goto fornext_entrylabel7673;
while(1){
fornext_value7673=fornext_step7673+(*_FUNC_IDEF1BOX_LONG_I);
fornext_entrylabel7673:
*_FUNC_IDEF1BOX_LONG_I=fornext_value7673;
if (fornext_step_negative7673){
if (fornext_value7673<fornext_finalvalue7673) break;
}else{
if (fornext_value7673>fornext_finalvalue7673) break;
}
fornext_error7673:;
if(qbevent){evnt(28182,20553,"ide_methods.bas");if(r)goto S_66690;}
S_66691:;
if ((*(int32*)(((char*)_FUNC_IDEF1BOX_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDEF1BOX_LONG_I)-_FUNC_IDEF1BOX_ARRAY_UDT_O[4],_FUNC_IDEF1BOX_ARRAY_UDT_O[5]))*101+36))))||is_error_pending()){
if(qbevent){evnt(28182,20554,"ide_methods.bas");if(r)goto S_66691;}
do{
*(int32*)(((char*)_FUNC_IDEF1BOX_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDEF1BOX_LONG_I)-_FUNC_IDEF1BOX_ARRAY_UDT_O[4],_FUNC_IDEF1BOX_ARRAY_UDT_O[5]))*101+72)))=*_FUNC_IDEF1BOX_LONG_FOCUS-*_FUNC_IDEF1BOX_LONG_F;
if(!qbevent)break;evnt(28182,20557,"ide_methods.bas");}while(r);
do{
*(int32*)(((char*)_FUNC_IDEF1BOX_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDEF1BOX_LONG_I)-_FUNC_IDEF1BOX_ARRAY_UDT_O[4],_FUNC_IDEF1BOX_ARRAY_UDT_O[5]))*101+64)))= 0 ;
if(!qbevent)break;evnt(28182,20558,"ide_methods.bas");}while(r);
do{
*(int32*)(((char*)_FUNC_IDEF1BOX_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDEF1BOX_LONG_I)-_FUNC_IDEF1BOX_ARRAY_UDT_O[4],_FUNC_IDEF1BOX_ARRAY_UDT_O[5]))*101+68)))= 0 ;
if(!qbevent)break;evnt(28182,20558,"ide_methods.bas");}while(r);
do{
SUB_IDEDRAWOBJ((void*)( ((char*)(_FUNC_IDEF1BOX_ARRAY_UDT_O[0])) + (((array_check((*_FUNC_IDEF1BOX_LONG_I)-_FUNC_IDEF1BOX_ARRAY_UDT_O[4],_FUNC_IDEF1BOX_ARRAY_UDT_O[5]))*101+0)) ),_FUNC_IDEF1BOX_LONG_F);
if(!qbevent)break;evnt(28182,20559,"ide_methods.bas");}while(r);
S_66696:;
if ((*(int32*)(((char*)_FUNC_IDEF1BOX_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDEF1BOX_LONG_I)-_FUNC_IDEF1BOX_ARRAY_UDT_O[4],_FUNC_IDEF1BOX_ARRAY_UDT_O[5]))*101+64))))||is_error_pending()){
if(qbevent){evnt(28182,20560,"ide_methods.bas");if(r)goto S_66696;}
do{
*_FUNC_IDEF1BOX_LONG_CX=*(int32*)(((char*)_FUNC_IDEF1BOX_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDEF1BOX_LONG_I)-_FUNC_IDEF1BOX_ARRAY_UDT_O[4],_FUNC_IDEF1BOX_ARRAY_UDT_O[5]))*101+64)));
if(!qbevent)break;evnt(28182,20560,"ide_methods.bas");}while(r);
do{
*_FUNC_IDEF1BOX_LONG_CY=*(int32*)(((char*)_FUNC_IDEF1BOX_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDEF1BOX_LONG_I)-_FUNC_IDEF1BOX_ARRAY_UDT_O[4],_FUNC_IDEF1BOX_ARRAY_UDT_O[5]))*101+68)));
if(!qbevent)break;evnt(28182,20560,"ide_methods.bas");}while(r);
}
}
fornext_continue_7672:;
}
fornext_exit_7672:;
do{
*_FUNC_IDEF1BOX_LONG_LASTFOCUS=*_FUNC_IDEF1BOX_LONG_F- 1 ;
if(!qbevent)break;evnt(28182,20563,"ide_methods.bas");}while(r);
do{
sub_pcopy( 1 , 0 );
if(!qbevent)break;evnt(28182,20570,"ide_methods.bas");}while(r);
S_66704:;
if ((*_FUNC_IDEF1BOX_LONG_CX)||is_error_pending()){
if(qbevent){evnt(28182,20571,"ide_methods.bas");if(r)goto S_66704;}
do{
qbg_screen(NULL,NULL, 0 , 0 ,NULL,12);
if(!qbevent)break;evnt(28182,20571,"ide_methods.bas");}while(r);
do{
qbg_sub_locate(*_FUNC_IDEF1BOX_LONG_CY,*_FUNC_IDEF1BOX_LONG_CX, 1 ,NULL,NULL,7);
if(!qbevent)break;evnt(28182,20571,"ide_methods.bas");}while(r);
do{
qbg_screen(NULL,NULL, 1 , 0 ,NULL,12);
if(!qbevent)break;evnt(28182,20571,"ide_methods.bas");}while(r);
}
do{
*_FUNC_IDEF1BOX_LONG_CHANGE= 0 ;
if(!qbevent)break;evnt(28182,20574,"ide_methods.bas");}while(r);
S_66710:;
do{
if(qbevent){evnt(28182,20575,"ide_methods.bas");if(r)goto S_66710;}
do{
SUB_GETINPUT();
if(!qbevent)break;evnt(28182,20576,"ide_methods.bas");}while(r);
S_66712:;
if ((*__LONG_MWHEEL)||is_error_pending()){
if(qbevent){evnt(28182,20577,"ide_methods.bas");if(r)goto S_66712;}
do{
*_FUNC_IDEF1BOX_LONG_CHANGE= 1 ;
if(!qbevent)break;evnt(28182,20577,"ide_methods.bas");}while(r);
}
S_66715:;
if ((*__LONG_KB)||is_error_pending()){
if(qbevent){evnt(28182,20578,"ide_methods.bas");if(r)goto S_66715;}
do{
*_FUNC_IDEF1BOX_LONG_CHANGE= 1 ;
if(!qbevent)break;evnt(28182,20578,"ide_methods.bas");}while(r);
}
S_66718:;
if ((*__LONG_MCLICK)||is_error_pending()){
if(qbevent){evnt(28182,20579,"ide_methods.bas");if(r)goto S_66718;}
do{
*_FUNC_IDEF1BOX_LONG_MOUSEDOWN= 1 ;
if(!qbevent)break;evnt(28182,20579,"ide_methods.bas");}while(r);
do{
*_FUNC_IDEF1BOX_LONG_CHANGE= 1 ;
if(!qbevent)break;evnt(28182,20579,"ide_methods.bas");}while(r);
}
S_66722:;
if ((*__LONG_MRELEASE)||is_error_pending()){
if(qbevent){evnt(28182,20580,"ide_methods.bas");if(r)goto S_66722;}
do{
*_FUNC_IDEF1BOX_LONG_MOUSEUP= 1 ;
if(!qbevent)break;evnt(28182,20580,"ide_methods.bas");}while(r);
do{
*_FUNC_IDEF1BOX_LONG_CHANGE= 1 ;
if(!qbevent)break;evnt(28182,20580,"ide_methods.bas");}while(r);
}
S_66726:;
if ((*__LONG_MB)||is_error_pending()){
if(qbevent){evnt(28182,20581,"ide_methods.bas");if(r)goto S_66726;}
do{
*_FUNC_IDEF1BOX_LONG_CHANGE= 1 ;
if(!qbevent)break;evnt(28182,20581,"ide_methods.bas");}while(r);
}
do{
*_FUNC_IDEF1BOX_LONG_ALT=*__LONG_KALT;
if(!qbevent)break;evnt(28182,20582,"ide_methods.bas");}while(r);
S_66730:;
if ((-(*_FUNC_IDEF1BOX_LONG_ALT!=*_FUNC_IDEF1BOX_LONG_OLDALT))||is_error_pending()){
if(qbevent){evnt(28182,20582,"ide_methods.bas");if(r)goto S_66730;}
do{
*_FUNC_IDEF1BOX_LONG_CHANGE= 1 ;
if(!qbevent)break;evnt(28182,20582,"ide_methods.bas");}while(r);
}
do{
*_FUNC_IDEF1BOX_LONG_OLDALT=*_FUNC_IDEF1BOX_LONG_ALT;
if(!qbevent)break;evnt(28182,20583,"ide_methods.bas");}while(r);
do{
sub__limit( 100 );
if(!qbevent)break;evnt(28182,20584,"ide_methods.bas");}while(r);
S_66735:;
dl_continue_7674:;
}while((!(*_FUNC_IDEF1BOX_LONG_CHANGE))&&(!is_error_pending()));
dl_exit_7674:;
if(qbevent){evnt(28182,20585,"ide_methods.bas");if(r)goto S_66735;}
S_66736:;
if ((*_FUNC_IDEF1BOX_LONG_ALT&(~(*__LONG_KCTRL)))||is_error_pending()){
if(qbevent){evnt(28182,20586,"ide_methods.bas");if(r)goto S_66736;}
do{
*__LONG_IDEHL= 1 ;
if(!qbevent)break;evnt(28182,20586,"ide_methods.bas");}while(r);
}else{
do{
*__LONG_IDEHL= 0 ;
if(!qbevent)break;evnt(28182,20586,"ide_methods.bas");}while(r);
}
do{
qbs_set(_FUNC_IDEF1BOX_STRING_ALTLETTER,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,20588,"ide_methods.bas");}while(r);
S_66742:;
if ((*_FUNC_IDEF1BOX_LONG_ALT&(~(*__LONG_KCTRL)))||is_error_pending()){
if(qbevent){evnt(28182,20589,"ide_methods.bas");if(r)goto S_66742;}
S_66743:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_K->len== 1 )))||is_error_pending()){
if(qbevent){evnt(28182,20590,"ide_methods.bas");if(r)goto S_66743;}
do{
*_FUNC_IDEF1BOX_LONG_K=qbs_asc(qbs_ucase(__STRING_K));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,20591,"ide_methods.bas");}while(r);
S_66745:;
if (((-(*_FUNC_IDEF1BOX_LONG_K>= 65 ))&(-(*_FUNC_IDEF1BOX_LONG_K<= 90 )))||is_error_pending()){
if(qbevent){evnt(28182,20592,"ide_methods.bas");if(r)goto S_66745;}
do{
qbs_set(_FUNC_IDEF1BOX_STRING_ALTLETTER,func_chr(*_FUNC_IDEF1BOX_LONG_K));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,20592,"ide_methods.bas");}while(r);
}
}
}
do{
qbg_screen(NULL,NULL, 0 , 0 ,NULL,12);
if(!qbevent)break;evnt(28182,20595,"ide_methods.bas");}while(r);
do{
qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4);
if(!qbevent)break;evnt(28182,20595,"ide_methods.bas");}while(r);
do{
qbg_screen(NULL,NULL, 1 , 0 ,NULL,12);
if(!qbevent)break;evnt(28182,20595,"ide_methods.bas");}while(r);
do{
*_FUNC_IDEF1BOX_LONG_INFO= 0 ;
if(!qbevent)break;evnt(28182,20599,"ide_methods.bas");}while(r);
S_66754:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(28182,20600,"ide_methods.bas");if(r)goto S_66754;}
do{
qbs_set(__STRING_K,func_chr( 255 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,20600,"ide_methods.bas");}while(r);
}
S_66757:;
if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_KSHIFT== 0 ))&(qbs_equal(__STRING_K,func_chr( 9 )))))||is_error_pending()){
if(qbevent){evnt(28182,20601,"ide_methods.bas");if(r)goto S_66757;}
do{
*_FUNC_IDEF1BOX_LONG_FOCUS=*_FUNC_IDEF1BOX_LONG_FOCUS+ 1 ;
if(!qbevent)break;evnt(28182,20601,"ide_methods.bas");}while(r);
}
S_66760:;
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,20602,"ide_methods.bas");if(r)goto S_66760;}
do{
*_FUNC_IDEF1BOX_LONG_FOCUS=*_FUNC_IDEF1BOX_LONG_FOCUS- 1 ;
if(!qbevent)break;evnt(28182,20602,"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,20602,"ide_methods.bas");}while(r);
}
S_66764:;
if ((-(*_FUNC_IDEF1BOX_LONG_FOCUS< 1 ))||is_error_pending()){
if(qbevent){evnt(28182,20603,"ide_methods.bas");if(r)goto S_66764;}
do{
*_FUNC_IDEF1BOX_LONG_FOCUS=*_FUNC_IDEF1BOX_LONG_LASTFOCUS;
if(!qbevent)break;evnt(28182,20603,"ide_methods.bas");}while(r);
}
S_66767:;
if ((-(*_FUNC_IDEF1BOX_LONG_FOCUS>*_FUNC_IDEF1BOX_LONG_LASTFOCUS))||is_error_pending()){
if(qbevent){evnt(28182,20604,"ide_methods.bas");if(r)goto S_66767;}
do{
*_FUNC_IDEF1BOX_LONG_FOCUS= 1 ;
if(!qbevent)break;evnt(28182,20604,"ide_methods.bas");}while(r);
}
do{
*_FUNC_IDEF1BOX_LONG_F= 1 ;
if(!qbevent)break;evnt(28182,20605,"ide_methods.bas");}while(r);
S_66771:;
fornext_value7677= 1 ;
fornext_finalvalue7677= 100 ;
fornext_step7677= 1 ;
if (fornext_step7677<0) fornext_step_negative7677=1; else fornext_step_negative7677=0;
if (is_error_pending()) goto fornext_error7677;
goto fornext_entrylabel7677;
while(1){
fornext_value7677=fornext_step7677+(*_FUNC_IDEF1BOX_LONG_I);
fornext_entrylabel7677:
*_FUNC_IDEF1BOX_LONG_I=fornext_value7677;
if (fornext_step_negative7677){
if (fornext_value7677<fornext_finalvalue7677) break;
}else{
if (fornext_value7677>fornext_finalvalue7677) break;
}
fornext_error7677:;
if(qbevent){evnt(28182,20606,"ide_methods.bas");if(r)goto S_66771;}
do{
*_FUNC_IDEF1BOX_LONG_T=*(int32*)(((char*)_FUNC_IDEF1BOX_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDEF1BOX_LONG_I)-_FUNC_IDEF1BOX_ARRAY_UDT_O[4],_FUNC_IDEF1BOX_ARRAY_UDT_O[5]))*101+36)));
if(!qbevent)break;evnt(28182,20607,"ide_methods.bas");}while(r);
S_66773:;
if ((*_FUNC_IDEF1BOX_LONG_T)||is_error_pending()){
if(qbevent){evnt(28182,20608,"ide_methods.bas");if(r)goto S_66773;}
do{
*_FUNC_IDEF1BOX_LONG_FOCUSOFFSET=*_FUNC_IDEF1BOX_LONG_FOCUS-*_FUNC_IDEF1BOX_LONG_F;
if(!qbevent)break;evnt(28182,20609,"ide_methods.bas");}while(r);
do{
SUB_IDEOBJUPDATE((void*)( ((char*)(_FUNC_IDEF1BOX_ARRAY_UDT_O[0])) + (((array_check((*_FUNC_IDEF1BOX_LONG_I)-_FUNC_IDEF1BOX_ARRAY_UDT_O[4],_FUNC_IDEF1BOX_ARRAY_UDT_O[5]))*101+0)) ),_FUNC_IDEF1BOX_LONG_FOCUS,_FUNC_IDEF1BOX_LONG_F,_FUNC_IDEF1BOX_LONG_FOCUSOFFSET,__STRING_K,_FUNC_IDEF1BOX_STRING_ALTLETTER,__LONG_MB,_FUNC_IDEF1BOX_LONG_MOUSEDOWN,_FUNC_IDEF1BOX_LONG_MOUSEUP,__LONG_MX,__LONG_MY,_FUNC_IDEF1BOX_LONG_INFO,__LONG_MWHEEL);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,20610,"ide_methods.bas");}while(r);
}
fornext_continue_7676:;
}
fornext_exit_7676:;
S_66778:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 13 )))|(((-(*_FUNC_IDEF1BOX_LONG_FOCUS== 2 ))&(-(*_FUNC_IDEF1BOX_LONG_INFO!= 0 ))))|(((-(*_FUNC_IDEF1BOX_LONG_INFO== 1 ))&(-(*_FUNC_IDEF1BOX_LONG_FOCUS== 1 ))))))||is_error_pending()){
if(qbevent){evnt(28182,20615,"ide_methods.bas");if(r)goto S_66778;}
do{
qbs_set(_FUNC_IDEF1BOX_STRING_F,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEF1BOX_ARRAY_UDT_O[0])+(((array_check(( 1 )-_FUNC_IDEF1BOX_ARRAY_UDT_O[4],_FUNC_IDEF1BOX_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,20616,"ide_methods.bas");}while(r);
do{
qbs_set(_FUNC_IDEF1BOX_STRING_IDEF1BOX,_FUNC_IDEF1BOX_STRING_F);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,20617,"ide_methods.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28182,20618,"ide_methods.bas");}while(r);
S_66782:;
}else{
if (qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,func_chr( 27 )))){
if(qbevent){evnt(28182,20619,"ide_methods.bas");if(r)goto S_66782;}
do{
qbs_set(_FUNC_IDEF1BOX_STRING_IDEF1BOX,qbs_new_txt_len("C",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,20620,"ide_methods.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28182,20621,"ide_methods.bas");}while(r);
}
}
do{
*_FUNC_IDEF1BOX_LONG_MOUSEDOWN= 0 ;
if(!qbevent)break;evnt(28182,20625,"ide_methods.bas");}while(r);
do{
*_FUNC_IDEF1BOX_LONG_MOUSEUP= 0 ;
if(!qbevent)break;evnt(28182,20626,"ide_methods.bas");}while(r);
dl_continue_7671:;
}while(1);
dl_exit_7671:;
exit_subfunc:;
free_mem_lock(sf_mem_lock);
#include "free424.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;
qbs_maketmp(_FUNC_IDEF1BOX_STRING_IDEF1BOX);return _FUNC_IDEF1BOX_STRING_IDEF1BOX;
}
