(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)))
(define v (vertex vi))
(define vitem (vertex-item v)) ; vi and vitem are the same!
(set! (size vitem) 20)         ; makes it bigger      
(size vi)      
