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
67 lines
2.0 KiB
Plaintext
67 lines
2.0 KiB
Plaintext
XCOMM! CDE_INSTALLATION_TOP/bin/dtksh
|
|
XCOMM $XConsortium: ListPosSel1.src /main/3 1996/04/23 20:18:25 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 how to create a list widget, and
|
|
XCOMM also verifies that the XmListPosSelected command works; this command
|
|
XCOMM returns information about whether an indicated list item is selected.
|
|
XCOMM
|
|
|
|
integer i
|
|
|
|
XCOMM Pushbutton Callback: print the selection state of each list item.
|
|
GetSelectionStatus()
|
|
{
|
|
i=1
|
|
echo
|
|
while (($i <= 11 )); do
|
|
if XmListPosSelected $LIST $i; then
|
|
echo "Item "$i" is selected"
|
|
else
|
|
echo "Item "$i" is not selected"
|
|
fi
|
|
i=i+1
|
|
done
|
|
}
|
|
|
|
XCOMM ###################### Create the Main UI ###############################
|
|
|
|
XtInitialize TOPLEVEL listPosSel1 ListPosSel1 "$0" "$@"
|
|
XtSetValues $TOPLEVEL allowShellResize:True
|
|
|
|
XmCreateScrolledList LIST $TOPLEVEL list \
|
|
itemCount:11 \
|
|
items:"item1,item2,item3,item4,item5,item6,item7,item8,item9,item10,item11" \
|
|
visibleItemCount:15 \
|
|
listSizePolicy:VARIABLE
|
|
XtSetValues $LIST \
|
|
selectedItemCount:3 \
|
|
selectedItems:"item2,item4,item6"
|
|
XtManageChild $LIST
|
|
|
|
XtRealizeWidget $TOPLEVEL
|
|
|
|
XtCreateApplicationShell TOPLEVEL2 ListPosSel1a TopLevelShell
|
|
|
|
XtCreateManagedWidget RC rc XmRowColumn $TOPLEVEL2 \
|
|
orientation:HORIZONTAL \
|
|
numColumns:2 \
|
|
packing:PACK_COLUMN
|
|
|
|
XtCreateManagedWidget PB1 pb1 XmPushButton $RC \
|
|
labelString:"Get Item Selection Status"
|
|
XtAddCallback $PB1 activateCallback "GetSelectionStatus"
|
|
|
|
XtRealizeWidget $TOPLEVEL2
|
|
|
|
XtMainLoop
|