wm title . "Disjointlistbox Example"

##=========================================================
##	Create a disjointlistbox iwidget
##=========================================================
##
iwidgets::disjointlistbox .dj \
  -buttonplacement center \
  -lhslabeltext "Grocery Items" \
  -rhslabeltext "Grocery List" \
  -lhsbuttonlabel "Add Grocery Item" \
  -rhsbuttonlabel "Remove Grocery Item"

pack .dj \
  -fill both \
  -expand true


##
##	Populate both fields, using 2 different methods
##
.dj setlhs [list bananas apples juice milk bread eggs beer]
.dj insertrhs [list fish salsa]

##
##	Make an initial selection in the
##	lhs listbox
##
.dj lhs selection set 2 3