- 论坛徽章:
- 0
|
HP-UX 程序设计的一些问题
刚才看了HP上也带了是/usr/dt/bin/dtksh
可以在/usr/dt/examples/dtksh目录下找到很多示例。
比如这是它创建弹出菜单的一个例子:
#! /usr/dt/bin/dtksh
# $XConsortium: PopupTest.src /main/3 1996/04/23 20:18:36 drk $
# #########################################################################
# (c) Copyright 1993, 1994 Hewlett-Packard Company
# (c) Copyright 1993, 1994 International Business Machines Corp.
# (c) Copyright 1993, 1994 Sun Microsystems, Inc.
# (c) Copyright 1993, 1994 Unix System Labs, Inc., a subsidiary of
# Novell, Inc.
# #########################################################################
#
# This sample shell script demonstrates the steps necessary to create and
# manage a popup menu.
#
# This event handler positions the menu at the point where the button event
# occurred, and then posts the popup menu.
EventHandler()
{
XmMenuPosition $POPUP $EH_EVENT
XtManageChild $POPUP
}
# Menu button callback
MenuActivated()
{
echo "Menu Activated: "$1
}
# ###################### 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 |
|