(define (forefather-binding graph-view)
(strongly-connected-components (graph graph-view))
(bind (slot-ref graph-view 'graph-toplevel) "<KeyPress-f>"
(lambda (x y)
(flash (vertex-item
(find-vertex-attribute 'forefather
(slot-ref (car *link:selected-vertex-item*) 'vertex))graph-view)))))
then it appeared the #undefined
then I click one vertice on the graph, and type f, there is nothing happened.
I do not know why, I tried two types to type f, first on graph, I just type key
f, second I type f on STK>, third I type f on stk then return, it appeared
there is error, I do not know why?
best wishes!
Mei Liu