Add a Close/Done button to a listbox 1

[WTHolmes]

Hi Folks,

I am creating a listbox as shown below. I would like to include a close or done button which will close the list box after it is viewed. Can you help me with this?

proc list_box {} {
listbox .l
pack .l -side top
.l insert 0 Cherry
.l insert 0 Green Apple
.l insert 0 Blueberry
}

Thanks,

WTHolmes

 

[Bong]

pack [button .lbc -text close -command {destroy .l}] -side top

_________________
Bob Rashkin

 

[WTHolmes]

Need I say more, Bong, You Da Man!

Thanks,

WTHolmes