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

set Name [unique2 $Composite.f]
set Parent $Name
#------------------------------------------
frame $Name -background lightgray -borderwidth 2 -height 50 -highlightbackground lightgray -relief raised -width 50
place $Name -x 56 -relx 0 -y 48 -rely 0 -width {} -relwidth 0.5 -height {} -relheight 0.5 -anchor nw

set Name $Parent.sb
#------------------------------------------
scrollbar $Name -activebackground gray92 -background lightgray -command { $Parent.c  xview} -highlightbackground lightgray -orient horizontal -troughcolor gray92
pack $Name -anchor center -expand 0 -fill x -ipadx 0 -ipady 0 -padx 5 -pady 5 -side bottom

set Name $Parent.c
#------------------------------------------
canvas $Name -background lightgray -height 40 -highlightbackground lightgray -insertbackground black -insertofftime 600 -relief groove -scrollregion { 0c 0c 10c 10c} -selectbackground lightblue -selectforeground black -width 40 -xscrollcommand { $Parent.sb  set}
pack $Name -anchor center -expand 1 -fill both -ipadx 0 -ipady 0 -padx 5 -pady 5 -side top
