;;from start-evolution menu

 :update-function #'(lambda (item)
                                                               (if (or *running*
                                                                       (not *current-function*))
                                                                 (menu-item-disable item)
                                                                 (menu-item-enable item))))


;;from ga-interrupt
 :update-function #'(lambda (item)
                                                               (if *running*
                                                                 (menu-item-enable item)
                                                                 (menu-item-disable item))))

;;; from ga-continue

 :update-function #'(lambda (item)
                                                               (if (and *current-generation*
                                                                        (not *running*))
                                                                 (menu-item-enable item)
                                                                 (menu-item-disable item))))


;;; from analyzec
 :update-function #'(lambda (item)
                                                               (if (and *current-generation*
                                                                        (not *running*))
                                                                 (menu-item-enable item)
                                                                 (menu-item-disable item))))