Initial import of the CDE 2.1.30 sources from the Open Group.

cde/programs/dtksh/examples/TransTest1.src

@@ -0,0 +1,91 @@
+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