
set Name [unique2 $Composite.f0]
set Parent $Name
#------------------------------------------
frame $Name
$Name configure  -borderwidth 2 -height 50 -relief raised -width 50
place $Name -relx 0 -rely 0 -relwidth 0.5 -relheight 0.5 -anchor nw

set Name $Parent.lb1
#------------------------------------------
listbox $Name
$Name configure  -font -*-fixed-bold-r-normal--13-* -relief sunken -yscrollcommand {.top0.f0.sb2 set}
pack $Name -anchor center -expand 1 -fill both -ipadx 0 -ipady 0 -padx 5 -pady 5 -side left

set Name $Parent.sb2
#------------------------------------------
scrollbar $Name
$Name configure  -command {.top0.f0.lb1 yview} 
pack $Name -anchor center -expand 0 -fill y -ipadx 0 -ipady 0 -padx 5 -pady 5 -side left
