suzanne.soy/gui
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

clean up indentation and move arrows to the front, while I'm here

Browse Source 
original commit: fa891703a8317415cef1408156783012b597ec75
This commit is contained in:
Robby Findler 2012-09-27 11:13:26 -05:00
parent 0f37e9e790
commit fa6aa8e1a6
1 changed files with 60 additions and 69 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

129
collects/mrlib/graph.rkt
View File

@ -30,75 +30,66 @@
(define-local-member-name get-parent-links)
(provide/contract (add-links
(case->
((is-a?/c graph-snip<%>)
(is-a?/c graph-snip<%>)
. -> .
void?)
((is-a?/c graph-snip<%>)
(is-a?/c graph-snip<%>)
(or/c #f (is-a?/c pen%))
(or/c #f (is-a?/c pen%))
(or/c #f (is-a?/c brush%))
(or/c #f (is-a?/c brush%))
. -> .
void?)
((is-a?/c graph-snip<%>)
(is-a?/c graph-snip<%>)
(or/c #f (is-a?/c pen%))
(or/c #f (is-a?/c pen%))
(or/c #f (is-a?/c brush%))
(or/c #f (is-a?/c brush%))
(or/c #f string?)
. -> .
void?)
((is-a?/c graph-snip<%>)
(is-a?/c graph-snip<%>)
(or/c #f (is-a?/c pen%))
(or/c #f (is-a?/c pen%))
(or/c #f (is-a?/c brush%))
(or/c #f (is-a?/c brush%))
number?
number?
. -> .
void?)
((is-a?/c graph-snip<%>)
(is-a?/c graph-snip<%>)
(or/c #f (is-a?/c pen%))
(or/c #f (is-a?/c pen%))
(or/c #f (is-a?/c brush%))
(or/c #f (is-a?/c brush%))
number?
number?
(or/c #f string?)
. -> .
void?)))
(add-links/text-colors
((is-a?/c graph-snip<%>)
(is-a?/c graph-snip<%>)
(or/c #f (is-a?/c pen%))
(or/c #f (is-a?/c pen%))
(or/c #f (is-a?/c brush%))
(or/c #f (is-a?/c brush%))
(or/c #f (is-a?/c color%))
(or/c #f (is-a?/c color%))
number?
number?
(or/c #f string?)
. -> .
void?))
(remove-links
((is-a?/c graph-snip<%>)
(is-a?/c graph-snip<%>)
. -> .
void?))
(set-link-label
((is-a?/c graph-snip<%>)
(is-a?/c graph-snip<%>)
(or/c #f string?)
. -> .
void?)))
(provide/contract
[add-links
(case->
(-> (is-a?/c graph-snip<%>) (is-a?/c graph-snip<%>) void?)
(-> (is-a?/c graph-snip<%>)
(is-a?/c graph-snip<%>)
(or/c #f (is-a?/c pen%))
(or/c #f (is-a?/c pen%))
(or/c #f (is-a?/c brush%))
(or/c #f (is-a?/c brush%))
void?)
(-> (is-a?/c graph-snip<%>)
(is-a?/c graph-snip<%>)
(or/c #f (is-a?/c pen%))
(or/c #f (is-a?/c pen%))
(or/c #f (is-a?/c brush%))
(or/c #f (is-a?/c brush%))
(or/c #f string?)
void?)
(-> (is-a?/c graph-snip<%>)
(is-a?/c graph-snip<%>)
(or/c #f (is-a?/c pen%))
(or/c #f (is-a?/c pen%))
(or/c #f (is-a?/c brush%))
(or/c #f (is-a?/c brush%))
number?
number?
void?)
(-> (is-a?/c graph-snip<%>)
(is-a?/c graph-snip<%>)
(or/c #f (is-a?/c pen%))
(or/c #f (is-a?/c pen%))
(or/c #f (is-a?/c brush%))
(or/c #f (is-a?/c brush%))
number?
number?
(or/c #f string?)
void?))]
[add-links/text-colors
(-> (is-a?/c graph-snip<%>)
(is-a?/c graph-snip<%>)
(or/c #f (is-a?/c pen%))
(or/c #f (is-a?/c pen%))
(or/c #f (is-a?/c brush%))
(or/c #f (is-a?/c brush%))
(or/c #f (is-a?/c color%))
(or/c #f (is-a?/c color%))
number?
number?
(or/c #f string?)
void?)]
[remove-links
(-> (is-a?/c graph-snip<%>)
(is-a?/c graph-snip<%>)
void?)]
[set-link-label
(-> (is-a?/c graph-snip<%>)
(is-a?/c graph-snip<%>)
(or/c #f string?)
void?)])
(define self-offset 10)