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
64 lines
1.8 KiB
Plaintext
64 lines
1.8 KiB
Plaintext
XCOMM! CDE_INSTALLATION_TOP/bin/dtksh
|
|
XCOMM $XConsortium: SelBoxResTest.src /main/3 1996/04/23 20:18:42 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 selection box properly
|
|
XCOMM interprets the 'childPlacement' resource. Using a timer, it will
|
|
XCOMM set the resource to a particular value, verify it is correct, and
|
|
XCOMM then repeat for the next setting.
|
|
XCOMM
|
|
|
|
Timeout3()
|
|
{
|
|
XtGetValues $SB childPlacement:CP
|
|
echo ChildPlacement
|
|
echo " Expected = PLACE_TOP"
|
|
echo " Actual = " $CP
|
|
}
|
|
|
|
Timeout2()
|
|
{
|
|
XtGetValues $SB childPlacement:CP
|
|
echo ChildPlacement
|
|
echo " Expected = PLACE_BELOW_SELECTION"
|
|
echo " Actual = " $CP
|
|
XtSetValues $SB childPlacement:PLACE_TOP
|
|
XtAddTimeOut ID 5000 "Timeout3"
|
|
}
|
|
|
|
Timeout1()
|
|
{
|
|
XtGetValues $SB childPlacement:CP
|
|
echo ChildPlacement
|
|
echo " Expected = PLACE_ABOVE_SELECTION"
|
|
echo " Actual = " $CP
|
|
XtSetValues $SB childPlacement:PLACE_BELOW_SELECTION
|
|
XtAddTimeOut ID 5000 "Timeout2"
|
|
}
|
|
|
|
|
|
XCOMM ###################### Create the Main UI ###############################
|
|
|
|
XtInitialize TOPLEVEL selectionBoxTest SelectionBoxTest "$0" "$@"
|
|
|
|
XtCreateManagedWidget SB sb XmSelectionBox $TOPLEVEL \
|
|
childPlacement:PLACE_ABOVE_SELECTION
|
|
|
|
XtCreateManagedWidget SCALE scale XmScale $SB \
|
|
orientation:HORIZONTAL
|
|
|
|
XtRealizeWidget $TOPLEVEL
|
|
|
|
XtAddTimeOut ID 5000 "Timeout1"
|
|
|
|
XtMainLoop
|