92 lines
2.3 KiB
Plaintext
92 lines
2.3 KiB
Plaintext
XCOMM! CDE_INSTALLATION_TOP/bin/dtksh
|
|
XCOMM $XConsortium: TransTest1.src /main/3 1996/04/23 20:19:11 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 operation of augmented and
|
|
XCOMM overridden translations. If the translations are cleared, then both
|
|
XCOMM overriding and augmenting the translations will cause all of the new
|
|
XCOMM translations to take effect.
|
|
XCOMM
|
|
|
|
Enter()
|
|
{
|
|
echo "EnterNotify ("$1")"
|
|
}
|
|
|
|
BtnDown()
|
|
{
|
|
echo "ButtonDown ("$1")"
|
|
}
|
|
|
|
Activate()
|
|
{
|
|
echo "Activate"
|
|
}
|
|
|
|
Augment()
|
|
{
|
|
XtAugmentTranslations $PB \
|
|
'<EnterNotify>:ksh_eval("Enter augmented")
|
|
<Btn1Down>:ksh_eval("BtnDown 1")
|
|
<Btn3Down>:ksh_eval("BtnDown 3")'
|
|
}
|
|
|
|
Override()
|
|
{
|
|
XtOverrideTranslations $PB \
|
|
'<EnterNotify>:ksh_eval("Enter overridden")
|
|
<Btn1Down>:ksh_eval("BtnDown 1")'
|
|
}
|
|
|
|
Uninstall()
|
|
{
|
|
XtUninstallTranslations $PB
|
|
}
|
|
|
|
|
|
XCOMM ###################### Create the Main UI ###############################
|
|
|
|
XtInitialize TOPLEVEL transTest1 TransTest1 "$0" "$@"
|
|
XtSetValues $TOPLEVEL allowShellResize:True
|
|
|
|
XmCreateForm FORM $TOPLEVEL form
|
|
XtManageChild $FORM
|
|
|
|
XtCreateManagedWidget PB pb XmPushButton $FORM \
|
|
labelString:"Test Button"
|
|
XtAddCallback $PB activateCallback "Activate"
|
|
|
|
XtRealizeWidget $TOPLEVEL
|
|
|
|
XtCreateApplicationShell TOPLEVEL2 listAdd1a TopLevelShell
|
|
|
|
XtCreateManagedWidget RC rc XmRowColumn $TOPLEVEL2 \
|
|
orientation:HORIZONTAL \
|
|
numColumns:2 \
|
|
packing:PACK_COLUMN
|
|
|
|
XtCreateManagedWidget PB1 pb1 XmPushButton $RC \
|
|
labelString:"Augment Translations"
|
|
XtAddCallback $PB1 activateCallback "Augment"
|
|
|
|
XtCreateManagedWidget PB2 pb2 XmPushButton $RC \
|
|
labelString:"Override Translations"
|
|
XtAddCallback $PB2 activateCallback "Override"
|
|
|
|
XtCreateManagedWidget PB3 pb3 XmPushButton $RC \
|
|
labelString:"Uninstall Translations"
|
|
XtAddCallback $PB3 activateCallback "Uninstall"
|
|
|
|
XtRealizeWidget $TOPLEVEL2
|
|
|
|
XtMainLoop
|