Adicionalmente,
Se colocaria un translate (creo que en gclass.ch) de la siguiente manera:
#xtranslate MSGYESNO(<cMsg>[,<cTitle> ]) => MSGNOYES( <cMsg>,<cTitle>,.T. )
Asi pues, podremos usar ambas funciones... bifurcando internamente
Conjuntamente con la MSGNOYES():
HB_FUNC( MSGNOYES ) // cMessage, cTitle, lResponse -> logical
{
GtkWidget *dialog;
gchar *msg = hb_parc( 1 );
gchar *title = hb_parc( 2 );
gboolean bresponse = hb_parl( 3 );
/*
gchar *msg = g_convert( hb_parc(1), -1,"UTF-8","ISO-8859-1",
NULL,NULL,NULL );
gchar *title = g_convert( hb_parc(2), -1,"UTF-8","ISO-8859-1",
NULL,NULL,NULL );
*/
gint response;
dialog = gtk_message_dialog_new( NULL, GTK_DIALOG_MODAL,
GTK_MESSAGE_QUESTION,
GTK_BUTTONS_YES_NO, msg );
gtk_window_set_title( GTK_WINDOW( dialog ), title );
gtk_window_set_position( GTK_WINDOW( dialog ), GTK_WIN_POS_CENTER );
gtk_window_set_type_hint( GTK_WINDOW( dialog ), GDK_WINDOW_TYPE_HINT_MENU );
if ( bresponse ) {
gtk_dialog_set_default_response( GTK_DIALOG( dialog ), GTK_MSGBOX_YES );
}
response = gtk_dialog_run( GTK_DIALOG( dialog ) );
gtk_widget_destroy( dialog );
hb_retl( ( response == GTK_RESPONSE_YES) );
}
--
_________________________
"Miremos más que somos padres de nuestro porvenir que no hijos de nuestro pasado." Marcial
Riztan Gutierrez
(gcc+gtk) + (xharbour+tgtk) = entorno de desarrollo xbase multiplataforma y libre.
Se colocaria un translate (creo que en gclass.ch) de la siguiente manera:
#xtranslate MSGYESNO(<cMsg>[,<cTitle> ]) => MSGNOYES( <cMsg>,<cTitle>,.T. )
Asi pues, podremos usar ambas funciones... bifurcando internamente
Conjuntamente con la MSGNOYES():
HB_FUNC( MSGNOYES ) // cMessage, cTitle, lResponse -> logical
{
GtkWidget *dialog;
gchar *msg = hb_parc( 1 );
gchar *title = hb_parc( 2 );
gboolean bresponse = hb_parl( 3 );
/*
gchar *msg = g_convert( hb_parc(1), -1,"UTF-8","ISO-8859-1",
NULL,NULL,NULL );
gchar *title = g_convert( hb_parc(2), -1,"UTF-8","ISO-8859-1",
NULL,NULL,NULL );
*/
gint response;
dialog = gtk_message_dialog_new( NULL, GTK_DIALOG_MODAL,
GTK_MESSAGE_QUESTION,
GTK_BUTTONS_YES_NO, msg );
gtk_window_set_title( GTK_WINDOW( dialog ), title );
gtk_window_set_position( GTK_WINDOW( dialog ), GTK_WIN_POS_CENTER );
gtk_window_set_type_hint( GTK_WINDOW( dialog ), GDK_WINDOW_TYPE_HINT_MENU );
if ( bresponse ) {
gtk_dialog_set_default_response( GTK_DIALOG( dialog ), GTK_MSGBOX_YES );
}
response = gtk_dialog_run( GTK_DIALOG( dialog ) );
gtk_widget_destroy( dialog );
hb_retl( ( response == GTK_RESPONSE_YES) );
}
2008/10/1 Riztan Gutierrez <riztan@...>
Amigos,
Estuve revisando la funcion MSGNOYES() para ver si por defecto me tomaba la opcion YES,
Lo hice de la siguiente manera:
HB_FUNC( MSGNOYES ) // cMessage, cTitle -> logical
{
GtkWidget *dialog;
gchar *msg = hb_parc( 1 );
gchar *title = hb_parc( 2 );
/*
gchar *msg = g_convert( hb_parc(1), -1,"UTF-8","ISO-8859-1",
NULL,NULL,NULL );
gchar *title = g_convert( hb_parc(2), -1,"UTF-8","ISO-8859-1",
NULL,NULL,NULL );
*/
gint response;
dialog = gtk_message_dialog_new( NULL, GTK_DIALOG_MODAL,
GTK_MESSAGE_QUESTION,
GTK_BUTTONS_YES_NO, msg );
gtk_window_set_title( GTK_WINDOW( dialog ), title );
gtk_window_set_position( GTK_WINDOW( dialog ), GTK_WIN_POS_CENTER );
gtk_window_set_type_hint( GTK_WINDOW( dialog ), GDK_WINDOW_TYPE_HINT_MENU );
gtk_dialog_set_default_response( GTK_DIALOG( dialog ), -8 );
response = gtk_dialog_run( GTK_DIALOG( dialog ) );
gtk_widget_destroy( dialog );
hb_retl( ( response == GTK_RESPONSE_YES) );
}
Bien el caso es que pensaba en colocar una definicion:
#define GTK_RESPONSE_YES -8
y colocar un tercer parámetro booleano en la funcion para definir el valor por defecto...
que opinan?
Rafa, por lo que veo... querias colocar una funcion MSGYESNO() donde YES fuese el valor por defecto... se mantendria esta posición?
Saludos
Riztan Gutierrez
--
_________________________
"Miremos más que somos padres de nuestro porvenir que no hijos de nuestro pasado." Marcial
Riztan Gutierrez
(gcc+gtk) + (xharbour+tgtk) = entorno de desarrollo xbase multiplataforma y libre.
--
_________________________
"Miremos más que somos padres de nuestro porvenir que no hijos de nuestro pasado." Marcial
Riztan Gutierrez
(gcc+gtk) + (xharbour+tgtk) = entorno de desarrollo xbase multiplataforma y libre.