Hi, <br><br>I've got a weird problem that the arrows not appearing when I draw a graph.<br><br>They appear, though not fully when I mouseover a node. <br><br>As graph.ss seems to work fine with the module browser, I'm guessing I've done something wrong - Does anyone have any hints?
<br><br>I have some sample code below. <br><br>Cheers,<br><br>Stephen<br><br>-snip of my code-<br> (define the-editor-canvas (instantiate editor-canvas% (the-vertical-pane)))<br> <br> (define the-graph-pasteboard (instantiate (graph-pasteboard-mixin pasteboard:basic%) ()))
<br> (send the-editor-canvas set-editor the-graph-pasteboard)<br> <br> (define my-graph-snip% (graph-snip-mixin string-snip%))<br><br> (define (connect parent child)<br> (define dark-pen (send the-pen-list find-or-create-pen "blue" 1 'solid))
<br> (define dark-brush (send the-brush-list find-or-create-brush "blue" 'solid))<br> (define light-pen (send the-pen-list find-or-create-pen "light blue" 1 'solid))<br> (define light-brush (send the-brush-list find-or-create-brush "light blue" 'solid))
<br> (add-links parent child<br> dark-pen light-pen<br> dark-brush light-brush))<br> <br> (define aaa (make-object my-graph-snip% "aaa")) <br> (define bbb (make-object my-graph-snip% "bbb"))
<br> (define ccc (make-object my-graph-snip% "ccc")) <br> (define ddd (make-object my-graph-snip% "ddd")) <br> <br> (send the-graph-pasteboard insert aaa)<br> (send the-graph-pasteboard insert bbb)
<br> (send the-graph-pasteboard insert ccc)<br> (send the-graph-pasteboard insert ddd)<br> <br> (send the-the-frame show #t) <br> <br> (define-values (width height) (send the-editor-canvas get-client-size))<br>
<br> (printf "width:~a height:~a" width height)<br> (define (random-position extent)<br> (+ 30 (random (- extent 60)))<br> )<br> (send the-graph-pasteboard move-to aaa (random-position width) (+ 30 (random (- height 60))))
<br> (send the-graph-pasteboard move-to bbb (+ 30 (random (- width 60))) (+ 30 (random (- height 60))))<br> (send the-graph-pasteboard move-to ccc (+ 30 (random (- width 60))) (+ 30 (random (- height 60))))<br> (send the-graph-pasteboard move-to ddd (+ 30 (random (- width 60))) (+ 30 (random (- height 60))))
<br> (connect aaa bbb)<br> (connect ccc bbb)<br> (connect ddd bbb)<br> (connect aaa ddd)<br> <br><br>--<br>Stephen De Gabrielle<br><a href="mailto:s.degabrielle@ucl.ac.uk">s.degabrielle@ucl.ac.uk</a><br>Telephone +44 (0)20 7679 5242 (x45242)
<br>Mobile 079 851 890 45<br><a href="http://www.uclic.ucl.ac.uk/annb/MaSI.html">http://www.uclic.ucl.ac.uk/annb/MaSI.html</a><br>University College London Interaction Centre<br>Remax House - 31/32 Alfred Place
<br>London - WC1E 7DP