panedwindow.c

来自「《Linux程序设计权威指南》源代码」· C语言 代码 · 共 47 行

	/* File: panedwindow.c */
	//Runit: XENVIRONMENT=PanedWindow.ad ./panedwindow
	#include <locale.h>
	#include <Xm/Xm.h>
	#include <Xm/PanedW.h>
	#include <Xm/Text.h>

	int main(int argc, char *argv[])
	{
		int i, n;
		Arg args[10];
		XtAppContext app;
		Widget toplevel, paned, text;

		setlocale(LC_ALL, "");

		//建立顶级窗口
		toplevel = XtVaAppInitialize(&app, "PanedWindow", NULL, 0,
			&argc, argv, NULL, NULL);

		//建立paned
		paned  = XmCreatePanedWindow(toplevel, "paned", NULL, 0);
		XtManageChild(paned);

		//加入text
		n = 0;
		XtSetArg(args[n], XmNeditMode, XmMULTI_LINE_EDIT);	n++;
		text = XmCreateScrolledText(paned, "text", args, n);
		XtManageChild(text);

		n = 0;
		XtSetArg(args[n], XmNeditMode, XmMULTI_LINE_EDIT);	n++;
		XtSetArg(args[n], XmNpaneMinimum, 80);			n++;
		XtSetArg(args[n], XmNpaneMaximum, 200);			n++;
		text = XmCreateScrolledText(paned, "text", args, n);
		XtManageChild(text);

		//显示窗口
		XtRealizeWidget(toplevel);

		//进入事件循环
		XtAppMainLoop(app);

	}