I am just focusing on my problem with the proliferation of graph views
and starting small. This
is how my top-level function starts out.
(let* (
...
(gv '())
)
(1) (set! dg (create-digraph ... ))
(2) (set! gv (show-graph dg))
(3) (create-grid-layout-and-introduce-title gv ...)
At line (1) a graph, but not a graph view, has been created. Line (2)
is what
you suggested once as a way of associating the created graph with a
graph view.
Apparently, the graph view produced by show-graph is circular in
orientation. This
new graph view does not appear, however, in the window LINK: graph view
that one uses
to run my simulation (Algorithm/Custom/Optimal Sequence Alignment
Problem).
And that is just the beginning of the proliferation problem. Thus
already at this
early point there are two graph views on the screen, one of which is
just an
empty window. I would like to have just one, nonempty window visible.
As for line (3), it produces a grid now, in the second nonempty window.
I have tried using your suggestion
(define gt (slot-ref (current-graph-view) 'graph-toplevel))
(destroy gt)
at every possible point in the sequence (1)-(3). The interpreter
doesn't
like it although I have used it in other contexts successfully.
Function current-graph-view is apparently returning some graph view. It
seems
that there would be two graph views after line (2), say. Which one
would
current-graph-view return? Also, intuitively, what is the
graph-toplevel slot of a graph
view?
Greg Taylor