/* $XConsortium: DNDMenu1.c /main/5 1995/07/15 21:00:10 drk $ */

/*
 *  @OPENGROUP_COPYRIGHT@
 *  COPYRIGHT NOTICE
 *  Copyright (c) 1990, 1991, 1992, 1993 Open Software Foundation, Inc.
 *  Copyright (c) 1996, 1997, 1998, 1999, 2000 The Open Group
 *  ALL RIGHTS RESERVED (MOTIF). See the file named COPYRIGHT.MOTIF for
 *  the full copyright text.
 *  
 *  This software is subject to an open license. It may only be
 *  used on, with or for operating systems which are themselves open
 *  source systems. You must contact The Open Group for a license
 *  allowing distribution and sublicensing of this software on, with,
 *  or for operating systems which are not Open Source programs.
 *  
 *  See http://www.opengroup.org/openmotif/license for full
 *  details of the license agreement. Any use, reproduction, or
 *  distribution of the program constitutes recipient's acceptance of
 *  this agreement.
 *  
 *  EXCEPT AS EXPRESSLY SET FORTH IN THIS AGREEMENT, THE PROGRAM IS
 *  PROVIDED ON AN "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
 *  KIND, EITHER EXPRESS OR IMPLIED INCLUDING, WITHOUT LIMITATION, ANY
 *  WARRANTIES OR CONDITIONS OF TITLE, NON-INFRINGEMENT, MERCHANTABILITY
 *  OR FITNESS FOR A PARTICULAR PURPOSE
 *  
 *  EXCEPT AS EXPRESSLY SET FORTH IN THIS AGREEMENT, NEITHER RECIPIENT
 *  NOR ANY CONTRIBUTORS SHALL HAVE ANY LIABILITY FOR ANY DIRECT,
 *  INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
 *  DAMAGES (INCLUDING WITHOUT LIMITATION LOST PROFITS), HOWEVER CAUSED
 *  AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
 *  LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN
 *  ANY WAY OUT OF THE USE OR DISTRIBUTION OF THE PROGRAM OR THE
 *  EXERCISE OF ANY RIGHTS GRANTED HEREUNDER, EVEN IF ADVISED OF THE
 *  POSSIBILITY OF SUCH DAMAGES.
 */
/*
 * HISTORY
 */

#include <gnu.bmp>

#define XBMgnu_BITS        gnu_bits
#define XBMgnu_WIDTH       gnu_width
#define XBMgnu_HEIGHT      gnu_height

#include <testlib.h>

void
PostIt(Widget w, XtPointer p, XEvent *ev, Boolean *c);

void 
main (int argc, char **argv)
{

    Widget RC1;
    Widget Frame[3];
    Widget MenuBar1, Pulldown1, Pulldown2, Option1, Cascade1, Popup1, Label1;
    Widget OptionPB1, OptionPB2, PopupPB1, PulldownPB1;
    Widget Text1, TopLevel1;
    Arg args[10];
    int n,i;
    XmString LabelString;
    char name[32];

    CommonTestInit(argc, argv);

  
    n = 0;
    RC1 = XmCreateRowColumn( Shell1, "RC1", args, n );
    XtManageChild(RC1);

    for (i=0; i<3; i++)
      {
	sprintf (name, "Frame%d", i+1);
	Frame[i] = XmCreateFrame (RC1,name,args,n);
	XtManageChild (Frame[i]);
      }

    

    /* 
     * Create a tear-off Pulldown menu. This will also enable testing dragging
     * from a MenuBar.
     */

    n=0;
    MenuBar1 = XmCreateMenuBar (Frame[0], "MenuBar1",args,n);
    XtManageChild (MenuBar1);

    n=0;
    XtSetArg (args[n], XmNtearOffModel, XmTEAR_OFF_ENABLED); n++;
    Pulldown1 =XmCreatePulldownMenu(Frame[1],"Pulldown1",args, n);


    n=0;
    LabelString = XmStringCreate ("MenuBar", XmFONTLIST_DEFAULT_TAG);
    XtSetArg(args[n], XmNsubMenuId,Pulldown1); n++;
    XtSetArg (args[n], XmNlabelString, LabelString); n++;
    Cascade1 =XmCreateCascadeButton(MenuBar1, "Cascade1", args, n);
    XtManageChild (Cascade1);

    XmStringFree(LabelString);



    LabelString = XmStringCreate ("PulldownMenu", XmFONTLIST_DEFAULT_TAG);
    n=0;
    XtSetArg (args[n], XmNlabelString, LabelString); n++;
    PulldownPB1 = XmCreatePushButton (Pulldown1,"PulldownPB1", args, n);
    XtManageChild (PulldownPB1);
    XmStringFree (LabelString);

    
    


    /* 
     * Create an option menu 
     */

    n=0;
    Pulldown2 =XmCreatePulldownMenu(Frame[1],"Pulldown2",args, n);

    n=0;
    XtSetArg(args[n], XmNsubMenuId,Pulldown2); n++;
    Option1 =XmCreateOptionMenu(Frame[1],"Option1", args, n);
    XtManageChild (Option1);


    LabelString = XmStringCreate ("OptionItem1", XmFONTLIST_DEFAULT_TAG);
    n=0;
    XtSetArg (args[n], XmNlabelString, LabelString); n++;
    OptionPB1 = XmCreatePushButton (Pulldown2,"OptionPB1", args, n);
    XtManageChild (OptionPB1);
    XmStringFree (LabelString);

    LabelString = XmStringCreate ("OptionItem2", XmFONTLIST_DEFAULT_TAG);
    n=0;
    XtSetArg (args[n], XmNlabelString, LabelString); n++;
    OptionPB2 = XmCreatePushButton (Pulldown2,"OptionPB2", args, n);
    XtManageChild (OptionPB2);
    XmStringFree (LabelString);

    
    
    /* 
     * Create a popup menu 
     */


    n = 0; 
    LabelString = XmStringCreate("Popup Menu on MB3", XmFONTLIST_DEFAULT_TAG);
    XtSetArg(args[n], XmNlabelString, LabelString); n++;
    Label1 = XmCreateLabel(Frame[2], "Label1", args, n);
    XtManageChild(Label1);
    XmStringFree(LabelString);


    n = 0;
    XtSetArg(args[n], XmNorientation, XmVERTICAL); n++;
    XtSetArg(args[n], XmNmenuPost, "<Btn3Down>"); n++; 
    XtSetArg (args[n], XmNtearOffModel, XmTEAR_OFF_ENABLED); n++;
    Popup1 = XmCreatePopupMenu(Label1, "popup", args, n);
    XtAddEventHandler(Label1, ButtonPressMask, False, PostIt, (XtPointer)Popup1);

    LabelString = XmStringCreate ("PopupMenu", XmFONTLIST_DEFAULT_TAG);
    n=0;
    XtSetArg (args[n], XmNlabelString, LabelString); n++;
    PopupPB1 = XmCreatePushButton (Popup1,"PopupPB1", args, n);
    XtManageChild (PopupPB1);

    
    
    /* 
     * Create a Text widget for dropping into 
     */

    n=0;   
    TopLevel1 = XtCreatePopupShell("TopLevel1", topLevelShellWidgetClass, 
				 Shell1,args,n);


    n=0;
    XtSetArg (args[n], XmNwidth, 200); n++;
    XtSetArg (args[n], XmNheight, 100); n++;
    XtSetArg (args[n], XmNeditMode, XmMULTI_LINE_EDIT); n++;
    Text1 = XmCreateText (TopLevel1, "Text1", args, n);
    XtManageChild (Text1);

  
    XtPopup (TopLevel1,XtGrabNone);


    XtRealizeWidget(Shell1);

    CommonPause();
    CommonPause();
    CommonPause();
    CommonPause();
    CommonPause();
    CommonPause();
    XtAppMainLoop (app_context);
  }



void
PostIt(Widget w, XtPointer p, XEvent *event, Boolean *c)
{
  Widget popup = (Widget) p;
  if(event->xbutton.button != Button3)
    {return; }
  XmMenuPosition(popup, (XButtonPressedEvent *)event);
  XtManageChild(popup);
}