Description: //建立顶级窗口
toplevel = XtVaAppInitialize[&app, "List", NULL, 0,
&argc, argv, NULL, NULL]
//建立列表上的复合字符串
for[i=0 i<12 i++]
str_months[i] = XmStringCreateSimple[months[i]]
//建立列表
n = 0
XtSetArg[args[n], XmNitems, str_months] n++
XtSetArg[args[n], XmNitemCount, 12] n++
XtSetArg[args[n], XmNvisibleItemCount, 8] n++
//XtSetArg[args[n], XmNscrollBarDisplayPolicy, XmSTATIC] n++
//XtSetArg[args[n], XmNlistSizePolicy, XmCONSTANT] n++
XtSetArg[args[n], XmNselectionPolicy, XmEXTENDED_SELECT] n++
list = XmCreateScrolledList[toplevel, "list", args, n]
XtManageChild[list]
for[i=0 i<12 i++]
XmStringFree[str_months[i]]
//显示窗口
XtRealizeWidget[toplevel]
//进入事件循环
XtAppMainLoop[app]
File list (Check if you may need any files):
list
....\Extended.ad
....\extended.c
....\List.ad
....\list.c
....\Makefile
Download