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