rpl/modules/motif/example.rpl - diff

Return to example.rpl CVS log

Up to [local] / rpl / modules / motif

version 1.3, 2017/07/10 14:47:59	version 1.5, 2017/07/17 21:35:32
Line 6 MOTIF	Line 6 MOTIF
-> MOTIF	-> MOTIF
<<	<<
APPLICATION	APPLICATION

	// POPUP is a motif$widget that has to be purged before
	// library is unloaded.
	'POPUP' purge
MOTIF remove	MOTIF remove
>>	>>

clmf
>>	>>


Line 77 APPLICATION	Line 79 APPLICATION
{ "XmNlabelType" XmSTRING } }	{ "XmNlabelType" XmSTRING } }
XtCreateWidget 'BOUTON_2' sto	XtCreateWidget 'BOUTON_2' sto

/*	BOUTON_1 "XmNactivateCallback"
BOUTON_1 "XmNactivateCallback" << motif$XtAppExitMainLoop >>	<< motif$XtAppExitMainLoop >>
XtAddCallback	XtAddCallback drop

BOUTON_2 "XmNactivateCallback" 'F_POPUP'	BOUTON_2 "XmNactivateCallback" 'F_POPUP'
XtAddCallback	XtAddCallback drop
*/

"popup" "applicationShellWidgetClass" TOPLEVEL_WIDGET	"popup" "applicationShellWidgetClass" TOPLEVEL_WIDGET
XtCreatePopupShell dup 'POPUP' save	XtCreatePopupShell dup 'POPUP' save
Line 118 APPLICATION	Line 119 APPLICATION
{ "XmNlabelType" XmSTRING } }	{ "XmNlabelType" XmSTRING } }
XtCreateWidget	XtCreateWidget

/*	"XmNactivateCallback" 'POPUP_QUIT' XtAddCallback drop
"XmNactivateCallback" 'POPUP_QUIT' motif$XtAddCallback
*/

TOPLEVEL_WIDGET XtRealizeWidget	TOPLEVEL_WIDGET XtRealizeWidget

"Boucle Xm" disp	"Début de la boucle Xt" disp

XT_APP XtAppMainLoop	XT_APP XtAppMainLoop
	"Fin de la Boucle Xt" disp
>>	>>
>>	>>
>>	>>

	F_POPUP
	<<
	"XtPopup callback" disp
	POPUP XtGrabExclusive XtPopup
	"XtPopup callback returns" disp
	>>

	POPUP_QUIT
	<<
	"XtPopdown callback" disp
	POPUP XtPopdown
	"XtPopdown callback returns" disp
	>>