Al usar hb_itemDoC el aplicativo deja de funcionar

Al usar hb_itemDoC el aplicativo deja de funcionar

Postby jgayoso » Thu Jun 22, 2017 8:10 pm

Señores, al alguien sabe de este problema.

Al utilizar la instrucción hb_itemDoC el aplicativo deja de funcionar y debo forzar su cierre o también se me bloquea el equipo y debo apagarlo.

La idea es ejecutar una función o procedimiento de harbour desde un bloque #pragma BEGINDUMP

No se, si es, la defición de la función o falta alguna librería al compilar.

Desde ya se agradece cualquier ayuda.

#pragma BEGINDUMP
static void seleccion_menu( GtkWidget *widget, gpointer pdata )
{
int i;
PHB_ITEM pArg1 = hb_itemNew( NULL );
PHB_ITEM pArg2 = hb_itemNew( NULL );
PHB_ITEM pArg3 = hb_itemNew( NULL );
PHB_ITEM itemReturn = hb_itemNew( NULL );

for( i = 0; i < iNumOpciones; i++ )
{
if (tOpc[i].gWidget == widget) {
break;
}
}

hb_itemPutNL( pArg1, (int) tOpc[i].iPos_Horizontal );
hb_itemPutNL( pArg2, (int) tOpc[i].iPos_Vertical );
hb_itemPutNL( pArg3, (int) tOpc[i].iPos_Sub_Vertical );

hb_itemDoC( "fMenu_Opciones", 3, pArg1, pArg2, pArg3, 0 );

gtk_menu_shell_select_first(menubar, TRUE);
gtk_menu_shell_select_item(GTK_MENU_SHELL(menubar), GTK_MENU_ITEM(tOpc[i].gHorizontal) );
if (tOpc[i].gSub_Menu == 0) {
gtk_menu_shell_select_item(GTK_MENU_SHELL(tOpc[i].gVertical), GTK_MENU_ITEM(widget) );
} else {
gtk_menu_shell_select_item(GTK_MENU_SHELL(tOpc[i].gVertical), GTK_MENU_ITEM(tOpc[i].gSub_Menu) );
gtk_menu_shell_select_item(GTK_MENU_SHELL(tOpc[i].gSub_Vertical), GTK_MENU_ITEM(widget) );
}
hb_itemRelease( pArg1 );
hb_itemRelease( pArg2 );
hb_itemRelease( pArg3 );
}
:
:
:
#pragma ENDDUMP
jgayoso
 
Posts: 170
Joined: Sat Aug 07, 2010 11:36 pm
Location: Chile


Re: Al usar hb_itemDoC el aplicativo deja de funcionar

Postby Antonio Linares » Thu Jun 22, 2017 9:11 pm

Jorge,

Te he enviado un email
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42118
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 51 guests