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

set Name [unique2 $Composite.f11]
set Parent $Name
#------------------------------------------
frame $Name -borderwidth 2 -height 32 -relief raised -width 120
place $Name -x 128 -relx 0 -y 120 -rely 0 -width 120 -relwidth 0 -height 40 -relheight 0 -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
