-#proc make-size-filter {minmax minmaxdesc} {
-# set n [llength $vc_codes]
-# $w configure
-
-# make-filter size${minmax} "$minmaxdesc size" scale \
-# [list \
-# -tickinterval 0 \
-# -variable filter_size{$minmax} \
-# -from 0 -to [expr {$n-1}] \
-# -resolution 1 \
-# -length [expr {$n*5}] \
-# ]
-
-