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
81 lines
2.7 KiB
Plaintext
81 lines
2.7 KiB
Plaintext
XCOMM!CDE_INSTALLATION_TOP/bin/dtksh
|
|
XCOMM $XConsortium: TransEventTest.src /main/3 1996/04/23 20:19:07 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 verifies that the augment and override
|
|
XCOMM capabilities for translations work as expected. Since augmenting
|
|
XCOMM a translation does not replace an existing translation, the first
|
|
XCOMM pushbutton should only use our button3 translation. Since overriding
|
|
XCOMM a translation replaces an existing translation, the second pushbutton
|
|
XCOMM should use both our Enter and button1 translations.
|
|
XCOMM
|
|
XCOMM It also demonstrates access to the TRANSLATION_EVENT convenience
|
|
XCOMM environment variable.
|
|
XCOMM
|
|
|
|
XCOMM EnterNotify handler
|
|
Enter()
|
|
{
|
|
echo EnterNotify
|
|
echo "Event = "${TRANSLATION_EVENT}
|
|
echo "Event.type = "${TRANSLATION_EVENT.TYPE}
|
|
echo "Event.xany.window = "${TRANSLATION_EVENT.XANY.WINDOW}
|
|
}
|
|
|
|
XCOMM ButtonDown handler; $1 indicates which button
|
|
BtnDown()
|
|
{
|
|
echo "ButtonDown ("$1")"
|
|
echo "Event = "${TRANSLATION_EVENT}
|
|
echo "Event.type = "${TRANSLATION_EVENT.TYPE}
|
|
echo "Event.xany.window = "${TRANSLATION_EVENT.XANY.WINDOW}
|
|
echo "Event.xbutton.x = "${TRANSLATION_EVENT.XBUTTON.X}
|
|
echo "Event.xbutton.y = "${TRANSLATION_EVENT.XBUTTON.Y}
|
|
}
|
|
|
|
XCOMM Default activate callback for the pushbuttons; should only get called
|
|
XCOMM for the first pushbutton (augmented one).
|
|
Activate()
|
|
{
|
|
echo "Activate ("$1")"
|
|
}
|
|
|
|
|
|
XCOMM ###################### Create the Main UI ###############################
|
|
|
|
XtInitialize TOPLEVEL transEventTest TransEventTest "$0" "$@"
|
|
XtSetValues $TOPLEVEL allowShellResize:True
|
|
|
|
XtCreateManagedWidget RC rc XmRowColumn $TOPLEVEL \
|
|
orientation:HORIZONTAL \
|
|
numColumns:2 \
|
|
packing:PACK_COLUMN
|
|
|
|
XtCreateManagedWidget PB1 pb1 XmPushButton $RC \
|
|
labelString:"Augmented Button" \
|
|
translations:'#augment
|
|
<EnterNotify>:ksh_eval("Enter")
|
|
<Btn1Down>:ksh_eval("BtnDown 1")
|
|
<Btn3Down>:ksh_eval("BtnDown 3")'
|
|
XtAddCallback $PB1 activateCallback "Activate 1"
|
|
|
|
XtCreateManagedWidget PB2 pb2 XmPushButton $RC \
|
|
labelString:"Overridden Button" \
|
|
translations:'#override
|
|
<EnterNotify>:ksh_eval("Enter")
|
|
<Btn1Down>:ksh_eval("BtnDown 1")'
|
|
XtAddCallback $PB2 activateCallback "Activate 2"
|
|
|
|
XtRealizeWidget $TOPLEVEL
|
|
|
|
XtMainLoop
|