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 32 -relief raised -width 120
place $Name -x 0 -relx 0.26 -y 0 -rely 0.12 -width 0 -relwidth 0.34 -height 0 -relheight 0.1 -anchor nw

set Name $Parent.tixCtrl
#------------------------------------------
tixControl $Name -label Count
pack $Name -anchor center -expand 0 -fill none -ipadx 0 -ipady 0 -padx 4 -pady 4 -side top
