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

Rackety (mostly letrec-values => define and minimizing dependencies)

Browse Source 
original commit: 0ce6c755916f5cb06b517f43690dd705bac0b334
This commit is contained in:
Robby Findler 2011-10-31 09:08:31 -05:00
parent 4a782c4000
commit 9b0140909e
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
collects/redex/private/dot.rkt
View File

@ -1,10 +1,11 @@
#lang scheme/gui #lang racket/base
(require racket/contract
racket/class
racket/gui/base
racket/system)
(provide/contract [dot-positioning (-> (is-a?/c pasteboard%) string? boolean? void?)] (provide/contract [dot-positioning (-> (is-a?/c pasteboard%) string? boolean? void?)]
[find-dot (-> (or/c path? false/c))]) [find-dot (-> (or/c path? false/c))])
(require scheme/system)
(provide dot-label neato-label neato-hier-label neato-ipsep-label) (provide dot-label neato-label neato-hier-label neato-ipsep-label)
(define dot-label "dot") (define dot-label "dot")
(define neato-label "neato") (define neato-label "neato")