#!/usr/bin/wksh -motif

#
# A simple demo of list widget functionality,
# including all list widget convenience functions
#

ai TOPLEVEL xmlist Xmlist "$@"

addcols $TOPLEVEL c
cmw sw sw scrolledWindow $c
cmw l l list $sw listSizePolicy:constant visibleItemCount:5 \
	scrollBarDisplayPolicy:AS_NEEDED selectionPolicy:MULTIPLE_SELECT
addrows $c r

sv $r packing:PACK_COLUMN numColumns:5

addbuttons $r \
	"Add To End" 	'listadd $l $RANDOM' \
	"Add To Beg" 	'listadd $l -P 1  $RANDOM' \
	"Add Group File"	'listadd $l -f /etc/group' \
	"Del First" 	'listdel $l 1' \
	"Del last" 	'listdel $l last' \
	"Del All" 	'listdel $l all' \
	"Get First" 	'listget $l 1' \
	"Get Second" 	'listget $l 2' \
	"Get Last" 	'listget $l last' \
	"Put First" 	'listput $l 1 $RANDOM' \
	"Put Second" 	'listput $l 2 $RANDOM' \
	"Put Last" 	'listput $l last $RANDOM' \
	"Top First"	'listtop $l 1' \
	"Bot Last"	'listbot $l last' \
	"Sel First"	'listsel $l 1' \
	"Desel First"	'listdesel $l 1' \
	"Desel All"	'listdesel $l all' \
	"Get Selected Text"	'listgetsel $l' \
	"Get Selected Index"	'listgetselpos $l'

rw $TOPLEVEL
ml
