# $Header: /home/cvsroot/tcldb/wisql/Tlib/handleList,v 1.1.1.1 1996/10/12 02:26:27 de Exp $
# tcl procs saved on Tue Sep 05 09:33:00 PDT 1995

proc handleList {w offset max} {
#  echo "handleList called from $w"

  set select [$w get [lindex [$w curselection] 0] ]

  regsub -all \{ $select "" select
  regsub -all \} $select "" select

#  set select [string trimleft  $select \{]
#  set select [string trimright $select \}]
#  if {$temp != ""} {
#	set select $temp
#  }	

  return [string range $select $offset $max]

}

