(define g (graph '(1 2 3) '((1 2) (2 3))))
(set! *link:selected-graph-view* (show-graph g))
(define gv (current-graph-view)) ; assumes you have clicked w/left in a graph-view
(define vi (car (vertices gv)))
(describe vi) ;  this is a vertex-item
(define v (vertex vi))
(describe v)  ;  this is the actual vertex
