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

set Name [unique2 $Composite.f30]
set Parent $Name
#------------------------------------------
frame $Name -background lightgray -borderwidth 2 -height 50 -highlightbackground lightgray -relief raised -width 50
place $Name -x 96 -relx 0 -y 64 -rely 0 -width 192 -relwidth 0 -height 184 -relheight 0 -anchor nw

set Name $Parent.f17
#------------------------------------------
frame $Name -background lightgray -height 50 -highlightbackground lightgray -width 50
pack $Name -anchor center -expand 1 -fill both -ipadx 0 -ipady 0 -padx 0 -pady 0 -side top

set Name $Parent.f17.sb13
#------------------------------------------
scrollbar $Name -activebackground gray92 -background lightgray -command { $Parent.f17.t3  yview} -highlightbackground lightgray -troughcolor gray92
pack $Name -anchor center -expand 0 -fill y -ipadx 0 -ipady 0 -padx 5 -pady 5 -side right

set Name $Parent.f17.t3
#------------------------------------------
text $Name -background gray95 -borderwidth 3 -font -*-helvetica-medium-r-normal-*-14-*-*-*-*-*-*-* -foreground black -height 5 -highlightbackground lightgray -insertbackground black -selectbackground lightblue -selectforeground black -width 10 -wrap none -xscrollcommand { $Parent.sb20  set} -yscrollcommand { $Parent.f17.sb13  set}
$Name insert end {
}
pack $Name -anchor center -expand 1 -fill both -ipadx 0 -ipady 0 -padx 0 -pady 0 -side top

set Name $Parent.f19
#------------------------------------------
frame $Name -background lightgray -height 10 -highlightbackground lightgray -width 15
pack $Name -anchor se -expand 0 -fill none -ipadx 0 -ipady 0 -padx 5 -pady 5 -side right

set Name $Parent.sb20
#------------------------------------------
scrollbar $Name -activebackground gray92 -activerelief sunken -background lightgray -command { $Parent.f17.t3  xview} -highlightbackground lightgray -orient horizontal -troughcolor gray92
pack $Name -anchor center -expand 0 -fill both -ipadx 0 -ipady 0 -padx 5 -pady 5 -side bottom
