Al usar hb_itemDoC el aplicativo deja de funcionar
Posted: 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.gWidget == widget) {
break;
}
}
hb_itemPutNL( pArg1, (int) tOpc.iPos_Horizontal );
hb_itemPutNL( pArg2, (int) tOpc.iPos_Vertical );
hb_itemPutNL( pArg3, (int) tOpc.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.gHorizontal) );
if (tOpc.gSub_Menu == 0) {
gtk_menu_shell_select_item(GTK_MENU_SHELL(tOpc.gVertical), GTK_MENU_ITEM(widget) );
} else {
gtk_menu_shell_select_item(GTK_MENU_SHELL(tOpc.gVertical), GTK_MENU_ITEM(tOpc.gSub_Menu) );
gtk_menu_shell_select_item(GTK_MENU_SHELL(tOpc.gSub_Vertical), GTK_MENU_ITEM(widget) );
}
hb_itemRelease( pArg1 );
hb_itemRelease( pArg2 );
hb_itemRelease( pArg3 );
}
:
:
:
#pragma ENDDUMP
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.gWidget == widget) {
break;
}
}
hb_itemPutNL( pArg1, (int) tOpc.iPos_Horizontal );
hb_itemPutNL( pArg2, (int) tOpc.iPos_Vertical );
hb_itemPutNL( pArg3, (int) tOpc.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.gHorizontal) );
if (tOpc.gSub_Menu == 0) {
gtk_menu_shell_select_item(GTK_MENU_SHELL(tOpc.gVertical), GTK_MENU_ITEM(widget) );
} else {
gtk_menu_shell_select_item(GTK_MENU_SHELL(tOpc.gVertical), GTK_MENU_ITEM(tOpc.gSub_Menu) );
gtk_menu_shell_select_item(GTK_MENU_SHELL(tOpc.gSub_Vertical), GTK_MENU_ITEM(widget) );
}
hb_itemRelease( pArg1 );
hb_itemRelease( pArg2 );
hb_itemRelease( pArg3 );
}
:
:
:
#pragma ENDDUMP