From 075803c0906b39766d9f8b032529a2ee81e5c692 Mon Sep 17 00:00:00 2001 From: "J. Ian Johnson" Date: Mon, 7 Oct 2013 14:11:14 -0400 Subject: [PATCH] Filled out pin-arrow-label-line interface to match pin-arrow-line. --- .../unstable-doc/scribblings/gui/pict.scrbl | 8 ++++++++ pkgs/unstable-pkgs/unstable-lib/gui/pict.rkt | 11 ++++++++++- 2 files changed, 18 insertions(+), 1 deletion(-) diff --git a/pkgs/unstable-pkgs/unstable-doc/scribblings/gui/pict.scrbl b/pkgs/unstable-pkgs/unstable-doc/scribblings/gui/pict.scrbl index ddeec67de5..a27ede44e8 100644 --- a/pkgs/unstable-pkgs/unstable-doc/scribblings/gui/pict.scrbl +++ b/pkgs/unstable-pkgs/unstable-doc/scribblings/gui/pict.scrbl @@ -317,6 +317,8 @@ These functions create shapes with border of the given color and width. [#:end-pull end-pull real? 1/4] [#:line-width line-width (or/c real? #f) #f] [#:color color (or/c #f string? (is-a?/c color%)) #f] + [#:alpha alpha (real-in 0 1) 1] + [#:style style pen-style/c 'solid] [#:under? under? any/c #f] [#:x-adjust x-adjust real? 0] [#:y-adjust y-adjust real? 0]) @@ -332,6 +334,9 @@ These functions create shapes with border of the given color and width. [#:end-pull end-pull real? 1/4] [#:line-width line-width (or/c real? #f) #f] [#:color color (or/c #f string? (is-a?/c color%)) #f] + [#:alpha alpha (real-in 0 1) 1] + [#:style style pen-style/c 'solid] + [#:solid? solid? boolean? #t] [#:under? under? any/c #f] [#:hide-arrowhead? hide-arrowhead? any/c #f] [#:x-adjust x-adjust real? 0] @@ -348,6 +353,9 @@ These functions create shapes with border of the given color and width. [#:end-pull end-pull real? 1/4] [#:line-width line-width (or/c real? #f) #f] [#:color color (or/c #f string? (is-a?/c color%)) #f] + [#:alpha alpha (real-in 0 1) 1] + [#:style style pen-style/c 'solid] + [#:solid? solid? boolean? #t] [#:under? under? any/c #f] [#:hide-arrowhead? hide-arrowhead? any/c #f] [#:x-adjust x-adjust real? 0] diff --git a/pkgs/unstable-pkgs/unstable-lib/gui/pict.rkt b/pkgs/unstable-pkgs/unstable-lib/gui/pict.rkt index 95e4183449..429e83248c 100644 --- a/pkgs/unstable-pkgs/unstable-lib/gui/pict.rkt +++ b/pkgs/unstable-pkgs/unstable-lib/gui/pict.rkt @@ -305,6 +305,8 @@ #:end-pull (end-pull 1/4) #:line-width (line-width #f) #:color (color #f) + #:alpha (alpha 1) + #:style (style 'solid) #:under? (under? #f) #:x-adjust (x-adjust 0) #:y-adjust (y-adjust 0)) @@ -314,7 +316,7 @@ pict src-pict src-coord-fn dest-pict dest-coord-fn #:start-angle start-angle #:end-angle end-angle #:start-pull start-pull #:end-pull end-pull - #:line-width line-width #:color color #:under? under?) + #:line-width line-width #:color color #:alpha alpha #:style style #:under? under?) src-pict src-coord-fn dest-pict dest-coord-fn #:x-adjust x-adjust #:y-adjust y-adjust)) @@ -331,8 +333,10 @@ #:end-pull (end-pull 1/4) #:line-width (line-width #f) #:color (color #f) + #:alpha (alpha 1) #:under? (under? #f) #:solid? (solid? #t) + #:style (style 'solid) #:hide-arrowhead? (hide-arrowhead? #f) #:x-adjust (x-adjust 0) #:y-adjust (y-adjust 0)) @@ -343,6 +347,9 @@ #:start-angle start-angle #:end-angle end-angle #:start-pull start-pull #:end-pull end-pull #:line-width line-width #:color color #:under? under? + #:style style + #:alpha alpha + #:solid? solid? #:hide-arrowhead? hide-arrowhead?) src-pict src-coord-fn dest-pict dest-coord-fn #:x-adjust x-adjust #:y-adjust y-adjust)) @@ -356,6 +363,8 @@ #:start-pull real? #:end-pull real? #:line-width (or/c real? #f) #:color (or/c #f string? (is-a?/c color%)) + #:style pen-style/c + #:alpha (real-in 0 1) #:under? any/c #:hide-arrowhead? any/c #:x-adjust real? #:y-adjust real?] pict?))