proc sortAny {items} {

# $Header: /home/cvsroot/tcldb/ucodb/Tlib/sortAny,v 1.1 1998/12/07 20:18:33 de Exp $

#	Try integer sort.  If that fails, try real.  If that fails, use alpha.

        set err [catch {set items [lsort -integer $items]}]
        if {$err} {
               set err [catch {set items [lsort -real $items]}]
               if {$err} {
                       set items [lsort $items]
               }
        }

	return $items
}
