//建立顶级窗口

　　　　toplevel = XtVaAppInitialize[&app, "Form", NULL, 0,

　　　　　　&argc, argv, NULL, NULL]

　　　　n = 0

　　　　XtSetArg[args[n], XmNwidth, 500] 　　n++

　　　　XtSetArg[args[n], XmNheight, 500] 　　n++

　　　　XtSetValues[toplevel, args, n]



　　　　//建立主窗口

　　　　form = XmCreateForm[toplevel, "form", NULL, 0]

　　　　XtManageChild[form]

　　　　

　　　　//建立菜单条

　　　　n = 0

　　　　XtSetArg[args[n], XmNtopAttachment, XmATTACH_FORM] 　　n++

　　　　XtSetArg[args[n], XmNleftAttachment, XmATTACH_FORM] 　　n++

　　　　XtSetArg[args[n], XmNrightAttachment, XmATTACH_FORM] 　　n++

　　　　menubar = XmCreateMenuBar[form, "menubar", args, n]

　　　　XtManageChild[menubar]



　　　　create_menu[menubar]