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
66 lines
1.9 KiB
Plaintext
66 lines
1.9 KiB
Plaintext
XCOMM! CDE_INSTALLATION_TOP/bin/dtksh
|
|
XCOMM $XConsortium: TextFXYPos1.src /main/3 1996/04/23 20:19:01 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 XmTextFieldPosToXY command
|
|
XCOMM functions correctly.
|
|
XCOMM
|
|
|
|
XCOMM Pushbutton Callback: exercise the Text functions
|
|
RunTests()
|
|
{
|
|
XCOMM This position should not be visible
|
|
if XmTextFieldPosToXY $TEXT 90 X Y; then
|
|
echo "Text position 90 is at point ("$X","$Y")"
|
|
else
|
|
echo "Text position 90 is not currently visible"
|
|
fi
|
|
|
|
XCOMM This position should be visible
|
|
if XmTextFieldPosToXY $TEXT 3 X Y; then
|
|
echo "Text position 3 is at point ("$X","$Y")"
|
|
else
|
|
echo "Text position 3 is not currently visible"
|
|
fi
|
|
|
|
XmTextFieldXYToPos POS $TEXT $X $Y
|
|
echo "At point ("$X","$Y") is character position "$POS
|
|
}
|
|
|
|
|
|
XCOMM ###################### Create the Main UI ###############################
|
|
|
|
XtInitialize TOPLEVEL textFXYPos1 TextFXYPos1 "$0" "$@"
|
|
XtSetValues $TOPLEVEL allowShellResize:True
|
|
|
|
XmCreateTextField TEXT $TOPLEVEL text \
|
|
columns:20 \
|
|
value:"line 1 line 2 line 3 line 4 line 5 line 6 line 7 line 8"
|
|
XtManageChild $TEXT
|
|
|
|
XtRealizeWidget $TOPLEVEL
|
|
|
|
XtCreateApplicationShell TOPLEVEL2 textFXYPos1a TopLevelShell
|
|
|
|
XtCreateManagedWidget RC rc XmRowColumn $TOPLEVEL2 \
|
|
orientation:HORIZONTAL \
|
|
numColumns:2 \
|
|
packing:PACK_COLUMN
|
|
|
|
XtCreateManagedWidget PB1 pb1 XmPushButton $RC \
|
|
labelString:"Run XY Position Tests"
|
|
XtAddCallback $PB1 activateCallback "RunTests"
|
|
|
|
XtRealizeWidget $TOPLEVEL2
|
|
|
|
XtMainLoop
|