\begin{flushleft}
\hrulefill

\vspace*{-4mm}

\begin{alltt}
STk> (load "graph-view.stklos"){\em{
\#[undefined]} }
\end{alltt}
\begin{alltt}
STk> (define konigsberg (graph '(a b c d) 
                           '((a c) (a c) (a d) (a d) (b c) (b d)))){\em{
\#[undefined]} }
\end{alltt}
\begin{alltt}
STk> (map (lambda (v x y)
	(set-double-attribute! 'tmp-x-coord x v)
	(set-double-attribute! 'tmp-y-coord y v))
     (set-vertex->list (vertices konigsberg)) 
     '(.1 .9 .5 .5) '(.5 .5 .9 .1)){\em{
(\#[undefined] \#[undefined] \#[undefined] \#[undefined])} }
\end{alltt}
\begin{alltt}
STk> (define kview (make <graph-view> :graph konigsberg 
                                  :layout 'custom)){\em{
CopyGraphCmd: g2-\(>\)type(): 34
\#[undefined]} }
\end{alltt}
\begin{alltt}
STk> (define (set-font x)
       (set! (font x) "-*-times-bold-i-normal--18-240-*-*-*-*-*-*")){\em{
\#[undefined]} }
\end{alltt}
\begin{alltt}
STk> (map set-font (vertices kview)){\em{
(\#[undefined] \#[undefined] \#[undefined] \#[undefined])} }
\end{alltt}
\begin{alltt}
STk> (map set-font (edges kview)){\em{
(\#[undefined] \#[undefined] \#[undefined] \#[undefined] \#[undefined] \#[undefined])} }
\end{alltt}
\begin{alltt}
STk> (define title (make <text-item> :text "The Koenigsberg Bridges"
		 	:parent (slot-ref kview 'graph-canvas)
		 	:coords '(150 280)
			:font "-*-times-bold-i-normal--24-240-*-*-*-*-*-*")){\em{
\#[undefined]} }
\end{alltt}
\begin{alltt}
STk> (define bound (make <rectangle> 
                :parent (slot-ref kview 'graph-canvas)
                :coords '(3 3 297 297)
                :width 3)){\em{
\#[undefined]} }
\end{alltt}

\vspace*{-5mm}

\hrulefill
\end{flushleft}