Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!sun-barr!ames!think.com!zaphod.mps.ohio-state.edu!cis.ohio-state.edu!ucbvax!ucdavis!csusac!unify!openlook!openlook-request
From: stuart@genethon.genethon.fr (Stuart Pook)
Newsgroups: comp.windows.open-look
Subject: PopupWindow's in OLIT
Message-ID: <1r6ss1y@openlook.Unify.Com>
Date: 30 May 91 11:03:32 GMT
Lines: 39

I was very interested to read the following comment from
att!attunix!merlyn@uunet.UU.NET:

> OLIT does supply a single widget, PopupWindow, for creating
> popup (pushpin) windows. I designed it--and I don't use it,
> because each popup window is different.

I would like to create a popup window from OLIT (Openwindows 2.0) that
has resize corners, has a pushpin and resizes its child.  The PopupWindow
was the only way that I could find to create a popup with resize corners
and a pushpin but I could not (legally) get it to resize its child because
one is given three places to put a child (as a child of one of two
control areas which never resize their children or as the second child
of a footer panel with is never resized vertically).  My workaround was:

        popup = XtCreatePopupShell("report", popupWindowShellWidgetClass,
                toplevel, (Arg *)0, 0);

        XtSetArg(arg, XtNfooterPanel, &footer);
        XtGetValues(popup, &arg, 1);
        XtDestroyWidget(footer);

        footer = XtCreateManagedWidget("box", footerPanelWidgetClass,
                popup, (Arg *)0, 0);
        XtSetArg(arg, XtNfooterPanel, footer);
        XtSetValues(popup, &arg, 1);

        form = XtCreateManagedWidget("form", formWidgetClass,
                footer, (Arg *)0, 0);

Form is now the first child of a new footer panel. Careful: don't do
this as a result of XtDespatchEvent because then the destroy is delayed
until too late (register a work procedure if necessary).

But this is not nice.  How does one create a popup window with resize
corners and a pushpin without using the PopupWindowShellWidgetClass?

Stuart Pook
Genethon--AFM