#! /usr/dt/bin/dtksh
#  $XConsortium: TransTest1.src /main/3 1996/04/23 20:19:11 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 operation of augmented and
#  overridden translations.  If the translations are cleared, then both
#  overriding and augmenting the translations will cause all of the new
#  translations to take effect.
# 

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
}


# ###################### 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
