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

set-links-label! -> set-link-label

Browse Source 
svn: r14382

original commit: 3d04c4ce109bcf1c960d4663f28423613b1f053a
This commit is contained in:
Eli Barzilay 2009-03-31 12:16:39 +00:00
parent 391108e3b9
commit a70f5f39b1
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/mrlib/graph.ss
View File

@ -84,7 +84,7 @@
(or/c false/c string?)
. -> .
void?))
(set-links-label!
(set-link-label
((is-a?/c graph-snip<%>)
(is-a?/c graph-snip<%>)
(or/c false/c string?)
@ -147,7 +147,7 @@
(send parent add-child child)
(send child add-parent parent dark-pen light-pen dark-brush light-brush dark-text light-text dx dy label))
(define (set-links-label! parent child label)
(define (set-link-label parent child label)
(send child set-parent-link-label parent label))
(define graph-snip-mixin

6
collects/mrlib/scribblings/graph/graph.scrbl
View File

@ -75,9 +75,9 @@ used.}
Like @scheme[add-links], but with extra @scheme[dark-text] and
@scheme[light-text] arguments to set the colors of the label.}
@defproc[(set-links-label! [parent (is-a?/c graph-snip<%>)]
[child (is-a?/c graph-snip<%>)]
[label (or/c string? false/c)])
@defproc[(set-link-label [parent (is-a?/c graph-snip<%>)]
[child (is-a?/c graph-snip<%>)]
[label (or/c string? false/c)])
void?]{
Changes the label on the edge going from @scheme[child] to