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
72 lines
2.4 KiB
Plaintext
72 lines
2.4 KiB
Plaintext
XCOMM! CDE_INSTALLATION_TOP/bin/dtksh
|
|
XCOMM $XConsortium: ListItemPos1.src /main/3 1996/04/23 20:18:21 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 verifies that the XmListItemPos command operates correctly. The list
|
|
XCOMM contains multiple items with the label "item4"; XmListItemPos will
|
|
XCOMM return the position of the first occurrence. By selecting the push
|
|
XCOMM button labeled "Delete First Item", you can delete the first item
|
|
XCOMM labeled "item4"; the next call to XmListItemPos should now return
|
|
XCOMM the position of the next item labeled "item4".
|
|
XCOMM
|
|
|
|
XCOMM Pushbutton Callback: prints the position occupied by the first occurrence
|
|
XCOMM of the "item4" label.
|
|
GetItemPosition()
|
|
{
|
|
XmListItemPos POS $LIST "item4"
|
|
echo "First position for item4 is: "$POS
|
|
}
|
|
|
|
XCOMM Pushbutton Callback: deletes the first item in the list.
|
|
DelFirstItem()
|
|
{
|
|
XmListDeletePos $LIST 1
|
|
}
|
|
|
|
XCOMM ###################### Create the Main UI ###############################
|
|
|
|
XtInitialize TOPLEVEL listItemPos1 ListItemPos1 "$0" "$@"
|
|
XtSetValues $TOPLEVEL allowShellResize:True
|
|
|
|
XmCreateScrolledList LIST $TOPLEVEL list \
|
|
itemCount:11 \
|
|
items:"item4,item2,item4,item3,item5,item6,item7,item8,item9,item4,item11" \
|
|
visibleItemCount:15 \
|
|
listSizePolicy:VARIABLE
|
|
XtSetValues $LIST \
|
|
selectedItemCount:3 \
|
|
selectedItems:"item2,item4,item6"
|
|
XtManageChild $LIST
|
|
|
|
XtRealizeWidget $TOPLEVEL
|
|
|
|
XtCreateApplicationShell TOPLEVEL2 ListItemPos1a TopLevelShell
|
|
|
|
XtCreateManagedWidget RC rc XmRowColumn $TOPLEVEL2 \
|
|
orientation:HORIZONTAL \
|
|
numColumns:2 \
|
|
packing:PACK_COLUMN
|
|
|
|
XtCreateManagedWidget PB1 pb1 XmPushButton $RC \
|
|
labelString:"Get Position Of item4"
|
|
XtAddCallback $PB1 activateCallback "GetItemPosition"
|
|
|
|
XtCreateManagedWidget PB2 pb2 XmPushButton $RC \
|
|
labelString:"Delete First Item"
|
|
XtAddCallback $PB2 activateCallback "DelFirstItem"
|
|
|
|
XtRealizeWidget $TOPLEVEL2
|
|
|
|
XtMainLoop
|