994772518a
This commit does three thing: 1. Sets appropriate bits on source files 2. Tells imake to build them as script files, not data files 3. Remove broken examples based on unused code
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
|