global num_images images
if {![info exists num_images]} {set num_images 0}

set Name [unique2 $Composite.f1]
set Parent $Name
#------------------------------------------
frame $Name -borderwidth 2 -height 40 -relief raised -width 240
place $Name -x 0 -relx 0.04 -y 0 -rely 0.08 -width {} -relwidth {} -height {} -relheight {} -anchor nw

set Name $Parent.tixCB
#------------------------------------------
tixComboBox $Name -fancy true
pack $Name -anchor center -expand 0 -fill none -ipadx 0 -ipady 0 -padx 4 -pady 4 -side top
