this is a call back proc for the listbox .lst. I want to set and activate the current selection to something else.

proc delete_from_list { } {
#to delete the current selection
#كي نمح الاختيار الحالي.
set selected_index [ .lst  curselection ]
.lst delete $selected_index
.lst activate 0
}