Exemple : menu en cascade
dyn = XmVaCreateSimplePopupMenu(tete, "dyn", entreedyn,
XmVaPUSHBUTTON, xms("ligne"), NULL, NULL, NULL,
XmVaPUSHBUTTON, xms("carre"), NULL, NULL, NULL,
XmVaPUSHBUTTON, xms("cercle"), NULL, NULL, NULL,
XmVaCASCADEBUTTON, xms("epaisseur"), 'W',
XmVaPUSHBUTTON, xms("quitter"), NULL,
"Ctrl<Key>c",xms("Ctrl-C"),
casc = XmVaCreateSimplePulldownMenu(dyn, "casc",
XmVaPUSHBUTTON, xms("1"), '1', NULL, NULL,
XmVaPUSHBUTTON, xms("2"), '2', NULL, NULL,
XmVaPUSHBUTTON, xms("3"), '4', NULL, NULL,
XmVaPUSHBUTTON, xms("8"), '8', NULL, NULL,