From fa6aa8e1a60a5f8dcccd760e931d8775382b774d Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Thu, 27 Sep 2012 11:13:26 -0500 Subject: [PATCH] clean up indentation and move arrows to the front, while I'm here original commit: fa891703a8317415cef1408156783012b597ec75 --- collects/mrlib/graph.rkt | 129 ++++++++++++++++++--------------------- 1 file changed, 60 insertions(+), 69 deletions(-) diff --git a/collects/mrlib/graph.rkt b/collects/mrlib/graph.rkt index b9b5b899..a87e68f0 100644 --- a/collects/mrlib/graph.rkt +++ b/collects/mrlib/graph.rkt @@ -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)