; edit_att
;
; calls mod_att which
; builds a dialog box permitting to modify a peak in the data base.

if (head($LAST_CLICK) s= "PEAK") then
    set pic = (tail($last_click))
else
    alert "Click on the peak you want to modify"
    @find_att
    set pic = $returned
endif
@mod_att $pic
