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

Filled out pin-arrow-label-line interface to match pin-arrow-line.

Browse Source
This commit is contained in:
J. Ian Johnson 2013-10-07 14:11:14 -04:00 committed by Vincent St-Amour
parent 72c18c7e3f
commit 075803c090
2 changed files with 18 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
pkgs/unstable-pkgs/unstable-doc/scribblings/gui/pict.scrbl
View File

@ -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]

11
pkgs/unstable-pkgs/unstable-lib/gui/pict.rkt
View File

@ -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?))