58 lines
1.6 KiB
Plaintext
58 lines
1.6 KiB
Plaintext
XCOMM! CDE_INSTALLATION_TOP/bin/dtksh
|
|
XCOMM $XConsortium: PopupTest.src /main/3 1996/04/23 20:18:36 drk $
|
|
|
|
XCOMM #########################################################################
|
|
XCOMM (c) Copyright 1993, 1994 Hewlett-Packard Company
|
|
XCOMM (c) Copyright 1993, 1994 International Business Machines Corp.
|
|
XCOMM (c) Copyright 1993, 1994 Sun Microsystems, Inc.
|
|
XCOMM (c) Copyright 1993, 1994 Unix System Labs, Inc., a subsidiary of
|
|
XCOMM Novell, Inc.
|
|
XCOMM #########################################################################
|
|
|
|
|
|
XCOMM
|
|
XCOMM This sample shell script demonstrates the steps necessary to create and
|
|
XCOMM manage a popup menu.
|
|
XCOMM
|
|
|
|
|
|
XCOMM This event handler positions the menu at the point where the button event
|
|
XCOMM occurred, and then posts the popup menu.
|
|
EventHandler()
|
|
{
|
|
XmMenuPosition $POPUP $EH_EVENT
|
|
XtManageChild $POPUP
|
|
}
|
|
|
|
|
|
XCOMM Menu button callback
|
|
MenuActivated()
|
|
{
|
|
echo "Menu Activated: "$1
|
|
}
|
|
|
|
|
|
|
|
|
|
XCOMM ###################### Create the Main UI ###############################
|
|
|
|
XtInitialize TOPLEVEL popupTest PopupTest "$0" "$@"
|
|
|
|
XtCreateManagedWidget FORM form XmForm $TOPLEVEL
|
|
XtSetValues $FORM height:300 width:300
|
|
XtAddEventHandler $FORM "ButtonPressMask" False EventHandler
|
|
|
|
XmCreatePopupMenu POPUP $FORM "popup"
|
|
XmCreatePushButton PB1 $POPUP "pb1" \
|
|
labelString:"Menu Item 1"
|
|
XtManageChild $PB1
|
|
XtAddCallback $PB1 activateCallback "MenuActivated MenuItem1"
|
|
XmCreatePushButton PB2 $POPUP "pb2" \
|
|
labelString:"Menu Item 2"
|
|
XtManageChild $PB2
|
|
XtAddCallback $PB2 activateCallback "MenuActivated MenuItem2"
|
|
|
|
XtRealizeWidget $TOPLEVEL
|
|
|
|
XtMainLoop
|