rpl/modules/motif/example.rpl - diff

Return to example.rpl CVS log

Up to [local] / rpl / modules / motif

version 1.4, 2017/07/11 16:04:53	version 1.5, 2017/07/17 21:35:32
Line 6 MOTIF	Line 6 MOTIF
-> MOTIF	-> MOTIF
<<	<<
APPLICATION	APPLICATION
clmf
	// POPUP is a motif$widget that has to be purged before
	// library is unloaded.
	'POPUP' purge
MOTIF remove	MOTIF remove
>>	>>

clmf
>>	>>


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

BOUTON_1 "XmNactivateCallback" << motif$XtAppExitMainLoop >>	BOUTON_1 "XmNactivateCallback"
XtAddCallback	<< motif$XtAppExitMainLoop >>
	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 117 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
	>>