5689
((3) 0 () 7 ((q lib "unstable/gui/pict.rkt") (q lib "unstable/gui/slideshow.rkt") (q lib "unstable/gui/notify.rkt") (q lib "unstable/gui/ppict.rkt") (c (? . 2) q notify-box%) (q lib "unstable/gui/pslide.rkt") (q (lib "unstable/gui/snip.rkt") snip-canvas%)) () (h ! (equal) ((c def c (c (? . 0) q brown)) q (2758 . 3)) ((c def c (c (? . 2) q choice/notify-box)) q (1471 . 10)) ((c form c (c (? . 1) q reveal)) q (17010 . 2)) ((c def c (c (? . 0) q tag-path?)) q (13251 . 3)) ((c def c (c (? . 0) q black)) q (2704 . 3)) ((c def c (c (? . 3) q ppict-add*)) q (17849 . 4)) ((c form c (c (? . 1) q stage-name)) q (16947 . 2)) ((c def c (c (? . 0) q light)) q (3028 . 3)) ((c meth c (c (? . 4) q get)) q (149 . 2)) ((c form c (c (? . 1) q with-scale)) q (15625 . 2)) ((c def c (c (? . 0) q blur-bitmap!)) q (12765 . 5)) ((c def c (c (? . 0) q pin-label-line)) q (6464 . 35)) ((c def c (c (? . 0) q gray)) q (2812 . 3)) ((c form c (c (? . 1) q subscript)) q (15804 . 2)) ((q def ((lib "unstable/gui/scribble.rkt") codeblock->pict)) q (22619 . 3)) ((c form c (c (? . 1) q two-columns)) q (16600 . 2)) ((c form c (c (? . 1) q with-style)) q (15729 . 2)) ((c form c (c (? . 1) q revealing-slide)) q (17045 . 2)) ((c def c (c (? . 0) q strike)) q (3687 . 4)) ((c def c (c (? . 0) q red)) q (2380 . 3)) ((c def c (c (? . 1) q columns)) q (16695 . 3)) ((c def c (c (? . 5) q pslide-default-placer)) q (20352 . 4)) ((c def c (c (? . 0) q white)) q (2865 . 3)) ((c form c (c (? . 1) q stage)) q (16934 . 2)) ((c def c (c (? . 0) q tag-pict)) q (12982 . 4)) ((c def c (c (? . 3) q grid)) q (18576 . 17)) ((c form c (c (? . 1) q staged)) q (16894 . 2)) ((c constructor c (? . 4)) q (54 . 3)) ((c form c (c (? . 3) q ppict-do)) q (17160 . 2)) ((c def c (c (? . 0) q blue)) q (2596 . 3)) ((c def c (c (? . 0) q fill)) q (3180 . 5)) ((c def c (c (? . 0) q hide)) q (3596 . 4)) ((c meth c (c (? . 4) q listen)) q (256 . 3)) ((c form c (c (? . 1) q big)) q (15658 . 2)) ((c def c (c (? . 0) q green)) q (2542 . 3)) ((c def c (c (? . 1) q blank-line)) q (17126 . 2)) ((c def c (c (? . 0) q rectangle/border)) q (5353 . 11)) ((c meth c (c (? . 6) q get-snip)) q (22407 . 2)) ((c form c (c (? . 0) q pict-cond)) q (4062 . 5)) ((c def c (c (? . 0) q color/c)) q (3147 . 2)) ((c def c (c (? . 2) q notify-box/pref)) q (508 . 5)) ((c def c (? . 4)) q (0 . 3)) ((c form c (c (? . 1) q with-size)) q (15594 . 2)) ((c form c (c (? . 1) q caps)) q (15856 . 2)) ((c def c (c (? . 0) q dark)) q (3088 . 3)) ((c form c (c (? . 3) q ppict-do-state)) q (17589 . 2)) ((c def c (c (? . 0) q cross-out)) q (15102 . 12)) ((c def c (c (? . 3) q merge-refpoints)) q (20049 . 4)) ((c def c (c (? . 0) q yellow)) q (2487 . 3)) ((q def ((lib "unstable/gui/prefs.rkt") pref:get/set)) q (2212 . 3)) ((c def c (c (? . 5) q pslide-base-pict)) q (20227 . 4)) ((c def c (c (? . 0) q scale-to)) q (3313 . 6)) ((c constructor c (? . 6)) q (20527 . 33)) ((c def c (c (? . 1) q column-size)) q (16790 . 4)) ((c form c (c (? . 0) q with-pict-combine)) q (4486 . 2)) ((c meth c (c (? . 4) q set)) q (193 . 3)) ((c def c (c (? . 3) q ppict?)) q (17611 . 3)) ((c form c (c (? . 5) q pslide)) q (20187 . 2)) ((c def c (c (? . 0) q find-tag*)) q (13155 . 4)) ((c def c (c (? . 0) q ellipse/border)) q (4536 . 11)) ((c def c (c (? . 0) q shadow)) q (12212 . 13)) ((c def c (c (? . 3) q cascade)) q (19219 . 4)) ((c def c (c (? . 3) q tile)) q (19362 . 4)) ((c form c (c (? . 1) q with-font)) q (15698 . 2)) ((c def c (c (? . 1) q mini-slide)) q (16631 . 3)) ((c def c (c (? . 0) q purple)) q (2649 . 3)) ((c def c (c (? . 2) q menu-group/notify-box)) q (1893 . 8)) ((c def c (c (? . 0) q pin-arrows-label-line)) q (10023 . 42)) ((c form c (c (? . 3) q ppict-do*)) q (17213 . 13)) ((c form c (c (? . 0) q pict-if)) q (3932 . 5)) ((c def c (c (? . 3) q placer?)) q (17978 . 3)) ((c def c (c (? . 0) q pin-arrow-label-line)) q (8040 . 42)) ((c form c (c (? . 1) q bold)) q (15762 . 2)) ((c form c (c (? . 1) q slide/staged)) q (16965 . 2)) ((c def c (c (? . 2) q menu-option/notify-box)) q (818 . 8)) ((c form c (c (? . 1) q items-slide)) q (17081 . 2)) ((c def c (c (? . 0) q find-tag)) q (13058 . 4)) ((c def c (c (? . 0) q show)) q (3505 . 4)) ((c def c (c (? . 0) q rounded-rectangle/border)) q (5807 . 16)) ((c form c (c (? . 1) q small)) q (15677 . 2)) ((c def c (c (? . 1) q tabular)) q (15876 . 17)) ((c def c (c (? . 0) q blur)) q (12026 . 5)) ((c def c (c (? . 0) q shade)) q (3784 . 5)) ((c def c (c (? . 0) q orange)) q (2432 . 3)) ((c form c (c (? . 1) q italic)) q (15782 . 2)) ((c def c (c (? . 0) q color)) q (2311 . 4)) ((c form c (c (? . 0) q pict-match)) q (4328 . 5)) ((c form c (c (? . 0) q pict-case)) q (4190 . 5)) ((c def c (c (? . 3) q at-find-pict)) q (19478 . 13)) ((c form c (c (? . 1) q column)) q (16756 . 2)) ((c def c (c (? . 3) q refpoint-placer?)) q (18031 . 3)) ((c def c (c (? . 0) q arch)) q (14758 . 9)) ((c meth c (c (? . 4) q remove-listener)) q (347 . 3)) ((c def c (c (? . 0) q cyan)) q (2919 . 3)) ((c def c (c (? . 3) q ppict-go)) q (17663 . 4)) ((c def c (c (? . 0) q backdrop)) q (14993 . 4)) ((c def c (c (? . 3) q coord)) q (18093 . 13)) ((c def c (c (? . 2) q check-box/notify-box)) q (1119 . 8)) ((c meth c (c (? . 6) q on-size)) q (22480 . 4)) ((c meth c (c (? . 4) q remove-all-listeners)) q (447 . 2)) ((c def c (? . 6)) q (20465 . 3)) ((c form c (c (? . 1) q superscript)) q (15829 . 2)) ((c def c (c (? . 0) q magenta)) q (2972 . 3)) ((c form c (c (? . 0) q pict-combine)) q (4466 . 2)) ((c def c (c (? . 0) q circle/border)) q (4980 . 9)) ((c def c (c (? . 0) q shadow-frame)) q (13306 . 27)) ((c form c (c (? . 2) q define-notify)) q (732 . 4)) ((c def c (c (? . 3) q ppict-add)) q (17738 . 4))))
class
notify-box% : class?
  superclass: object%
constructor
(new notify-box% [value value]) -> (is-a?/c notify-box%)
  value : any/c
method
(send a-notify-box get) -> any/c
method
(send a-notify-box set v) -> void?
  v : any/c
method
(send a-notify-box listen listener) -> void?
  listener : (-> any/c any)
method
(send a-notify-box remove-listener listener) -> void?
  listener : (-> any/c any)
method
(send a-notify-box remove-all-listeners) -> void?
procedure
(notify-box/pref  proc                        
                 [#:readonly? readonly?]) -> (is-a?/c notify-box%)
  proc : (case-> (-> any/c) (-> any/c void?))
  readonly? : boolean? = #f
syntax
(define-notify name value-expr)
 
  value-expr : (is-a?/c notify-box%)
procedure
(menu-option/notify-box parent      
                        label       
                        notify-box) 
 -> (is-a?/c checkable-menu-item%)
  parent : (or/c (is-a?/c menu%) (is-a?/c popup-menu%))
  label : label-string?
  notify-box : (is-a?/c notify-box%)
procedure
(check-box/notify-box parent          
                      label           
                      notify-box) -> (is-a?/c check-box%)
  parent : (or/c (is-a?/c frame%) (is-a?/c dialog%)
                 (is-a?/c panel%) (is-a?/c pane%))
  label : label-string?
  notify-box : (is-a?/c notify-box%)
procedure
(choice/notify-box parent          
                   label           
                   choices         
                   notify-box) -> (is-a?/c choice%)
  parent : (or/c (is-a?/c frame%) (is-a?/c dialog%)
                 (is-a?/c panel%) (is-a?/c pane%))
  label : label-string?
  choices : (listof label-string?)
  notify-box : (is-a?/c notify-box%)
procedure
(menu-group/notify-box parent      
                       labels      
                       notify-box) 
 -> (listof (is-a?/c checkable-menu-item%))
  parent : (or/c (is-a?/c menu%) (is-a?/c popup-menu%))
  labels : (listof label-string?)
  notify-box : (is-a?/c notify-box%)
procedure
(pref:get/set pref) -> (case-> (-> any/c) (-> any/c void?))
  pref : symbol?
procedure
(color c p) -> pict?
  c : color/c
  p : pict?
procedure
(red pict) -> pict?
  pict : pict?
procedure
(orange pict) -> pict?
  pict : pict?
procedure
(yellow pict) -> pict?
  pict : pict?
procedure
(green pict) -> pict?
  pict : pict?
procedure
(blue pict) -> pict?
  pict : pict?
procedure
(purple pict) -> pict?
  pict : pict?
procedure
(black pict) -> pict?
  pict : pict?
procedure
(brown pict) -> pict?
  pict : pict?
procedure
(gray pict) -> pict?
  pict : pict?
procedure
(white pict) -> pict?
  pict : pict?
procedure
(cyan pict) -> pict?
  pict : pict?
procedure
(magenta pict) -> pict?
  pict : pict?
procedure
(light color) -> color/c
  color : color/c
procedure
(dark color) -> color/c
  color : color/c
value
color/c : flat-contract?
procedure
(fill pict width height) -> pict?
  pict : pict?
  width : (or/c real? #f)
  height : (or/c real? #f)
procedure
(scale-to pict width height [#:mode mode]) -> pict?
  pict : pict?
  width : real?
  height : real?
  mode : (or/c 'preserve 'inset 'distort) = 'preserve
procedure
(show pict [show?]) -> pict?
  pict : pict?
  show? : truth/c = #t
procedure
(hide pict [hide?]) -> pict?
  pict : pict?
  hide? : truth/c = #t
procedure
(strike pict [strike?]) -> pict?
  pict : pict?
  strike? : truth/c = #t
procedure
(shade pict [shade? #:ratio ratio]) -> pict?
  pict : pict?
  shade? : truth/c = #t
  ratio : (real-in 0 1) = 1/2
syntax
(pict-if maybe-combine test-expr then-expr else-expr)
 
maybe-combine = 
              | #:combine combine-expr
syntax
(pict-cond maybe-combine [test-expr pict-expr] ...)
 
maybe-combine = 
              | #:combine combine-expr
syntax
(pict-case test-expr maybe-combine [literals pict-expr] ...)
 
maybe-combine = 
              | #:combine combine-expr
syntax
(pict-match test-expr maybe-combine [pattern pict-expr] ...)
 
maybe-combine = 
              | #:combine combine-expr
syntax
pict-combine
syntax
(with-pict-combine combine-id body ...)
procedure
(ellipse/border  w                                 
                 h                                 
                [#:color color                     
                 #:border-color border-color       
                 #:border-width border-width]) -> pict?
  w : real?
  h : real?
  color : color/c = "white"
  border-color : color/c = "black"
  border-width : real? = 2
procedure
(circle/border  diameter                          
               [#:color color                     
                #:border-color border-color       
                #:border-width border-width]) -> pict?
  diameter : real?
  color : color/c = "white"
  border-color : color/c = "black"
  border-width : real? = 2
procedure
(rectangle/border  w                                 
                   h                                 
                  [#:color color                     
                   #:border-color border-color       
                   #:border-width border-width]) -> pict?
  w : real?
  h : real?
  color : color/c = "white"
  border-color : color/c = "black"
  border-width : real? = 2
procedure
(rounded-rectangle/border  w                             
                           h                             
                          [#:color color                 
                           #:border-color border-color   
                           #:border-width border-width   
                           #:corner-radius corner-radius 
                           #:angle angle])               
 -> pict?
  w : real?
  h : real?
  color : color/c = "white"
  border-color : color/c = "black"
  border-width : real? = 2
  corner-radius : real? = -0.25
  angle : real? = 0
procedure
(pin-label-line  label                         
                 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                 
                 #:alpha alpha                 
                 #:style style                 
                 #:under? under?               
                 #:x-adjust x-adjust           
                 #:y-adjust y-adjust])     -> pict?
  label : pict?
  pict : pict?
  src-pict : pict-path?
  src-coord-fn : (-> pict-path? (values real? real?))
  dest-pict : pict-path?
  dest-coord-fn : (-> pict-path? (values real? real?))
  start-angle : (or/c real? #f) = #f
  end-angle : (or/c real? #f) = #f
  start-pull : real? = 1/4
  end-pull : real? = 1/4
  line-width : (or/c real? #f) = #f
  color : (or/c #f string? (is-a?/c color%)) = #f
  alpha : (real-in 0 1) = 1
  style : pen-style/c = 'solid
  under? : any/c = #f
  x-adjust : real? = 0
  y-adjust : real? = 0
procedure
(pin-arrow-label-line  label                             
                       arrow-size                        
                       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                     
                       #:alpha alpha                     
                       #:style style                     
                       #:solid? solid?                   
                       #:under? under?                   
                       #:hide-arrowhead? hide-arrowhead? 
                       #:x-adjust x-adjust               
                       #:y-adjust y-adjust])             
 -> pict?
  label : pict?
  arrow-size : real?
  pict : pict?
  src-pict : pict-path?
  src-coord-fn : (-> pict-path? (values real? real?))
  dest-pict : pict-path?
  dest-coord-fn : (-> pict-path? (values real? real?))
  start-angle : (or/c real? #f) = #f
  end-angle : (or/c real? #f) = #f
  start-pull : real? = 1/4
  end-pull : real? = 1/4
  line-width : (or/c real? #f) = #f
  color : (or/c #f string? (is-a?/c color%)) = #f
  alpha : (real-in 0 1) = 1
  style : pen-style/c = 'solid
  solid? : boolean? = #t
  under? : any/c = #f
  hide-arrowhead? : any/c = #f
  x-adjust : real? = 0
  y-adjust : real? = 0
procedure
(pin-arrows-label-line  label                             
                        arrow-size                        
                        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                     
                        #:alpha alpha                     
                        #:style style                     
                        #:solid? solid?                   
                        #:under? under?                   
                        #:hide-arrowhead? hide-arrowhead? 
                        #:x-adjust x-adjust               
                        #:y-adjust y-adjust])             
 -> pict?
  label : pict?
  arrow-size : real?
  pict : pict?
  src-pict : pict-path?
  src-coord-fn : (-> pict-path? (values real? real?))
  dest-pict : pict-path?
  dest-coord-fn : (-> pict-path? (values real? real?))
  start-angle : (or/c real? #f) = #f
  end-angle : (or/c real? #f) = #f
  start-pull : real? = 1/4
  end-pull : real? = 1/4
  line-width : (or/c real? #f) = #f
  color : (or/c #f string? (is-a?/c color%)) = #f
  alpha : (real-in 0 1) = 1
  style : pen-style/c = 'solid
  solid? : boolean? = #t
  under? : any/c = #f
  hide-arrowhead? : any/c = #f
  x-adjust : real? = 0
  y-adjust : real? = 0
procedure
(blur p h-radius [v-radius]) -> pict?
  p : pict?
  h-radius : (and/c real? (not/c negative?))
  v-radius : (and/c real? (not/c negative?)) = h-radius
procedure
(shadow  p                                 
         radius                            
        [dx                                
         dy                                
         #:color color                     
         #:shadow-color shadow-color]) -> pict?
  p : pict?
  radius : (and/c real? (not/c negative?))
  dx : real? = 0
  dy : real? = dx
  color : (or/c #f string? (is-a?/c color%)) = #f
  shadow-color : (or/c #f string? (is-a?/c color%)) = #f
procedure
(blur-bitmap! bitmap h-radius [v-radius]) -> void?
  bitmap : (is-a?/c bitmap%)
  h-radius : (and/c real? (not/c negative?))
  v-radius : (and/c real? (not/c negative?)) = h-radius
procedure
(tag-pict p tag) -> pict?
  p : pict?
  tag : symbol?
procedure
(find-tag p find) -> (or/c pict-path? #f)
  p : pict?
  find : tag-path?
procedure
(find-tag* p find) -> (listof pict-path?)
  p : pict?
  find : tag-path?
procedure
(tag-path? x) -> boolean?
  x : any/c
procedure
(shadow-frame  pict                                            
               ...                                             
              [#:sep separation                                
               #:margin margin                                 
               #:background-color bg-color                     
               #:frame-color frame-color                       
               #:frame-line-width frame-line-width             
               #:shadow-side-length shadow-side-length         
               #:shadow-top-y-offset shadow-top-y-offset       
               #:shadow-bottom-y-offset shadow-bottom-y-offset 
               #:shadow-descent shadow-descent                 
               #:shadow-alpha-factor shadow-alpha-factor       
               #:blur blur-radius])                            
 -> pict?
  pict : pict?
  separation : real? = 5
  margin : real? = 20
  bg-color : (or/c string? (is-a?/c color%)) = "white"
  frame-color : (or/c string? (is-a?/c color%)) = "gray"
  frame-line-width : (or/c real? #f) = 0
  shadow-side-length : real? = 4
  shadow-top-y-offset : real? = 10
  shadow-bottom-y-offset : real? = 4
  shadow-descent : (and/c real? (not/c negative?)) = 40
  shadow-alpha-factor : real? = 3/4
  blur-radius : (and/c real? (not/c negative?)) = 20
procedure
(arch outer-width      
      inner-width      
      solid-height     
      leg-height)  -> pict?
  outer-width : real?
  inner-width : real?
  solid-height : real?
  leg-height : real?
procedure
(backdrop pict [#:color color]) -> pict?
  pict : pict?
  color : color/c = "white"
procedure
(cross-out  pict                
           [#:width width       
            #:style style       
            #:color color]) -> pict?
  pict : pict?
  width : real? = 1
  style : (or/c 'transparent 'solid 'xor            = 'solid
                'hilite 'dot 'long-dash 'short-dash
                'dot-dash 'xor-dot 'xor-long-dash
                'xor-short-dash 'xor-dot-dash)
  color : color/c = "black"
syntax
(with-size size expr)
syntax
(with-scale scale expr)
syntax
(big text)
syntax
(small text)
syntax
(with-font font expr)
syntax
(with-style style expr)
syntax
(bold text)
syntax
(italic text)
syntax
(subscript text)
syntax
(superscript text)
syntax
(caps text)
procedure
(tabular  row                   
          ...                   
         [#:gap gap             
          #:hgap hgap           
          #:vgap vgap           
          #:align align         
          #:halign halign       
          #:valign valign]) -> pict?
  row : (listof (or/c string? pict?))
  gap : natural-number/c = gap-size
  hgap : natural-number/c = gap
  vgap : natural-number/c = gap
  align : (->* [] [] #:rest (listof pict?) pict?)
        = lbl-superimpose
  halign : (->* [] [] #:rest (listof pict?) pict?) = align
  valign : (->* [] [] #:rest (listof pict?) pict?) = align
syntax
(two-columns one two)
procedure
(mini-slide pict ...) -> pict?
  pict : pict?
procedure
(columns pict ...) -> pict?
  pict : pict?
syntax
(column width body ...)
procedure
(column-size n [r]) -> real?
  n : exact-positive-integer?
  r : real? = (/ n)
syntax
(staged [name ...] body ...)
syntax
stage
syntax
stage-name
syntax
(slide/staged [name ...] arg ...)
syntax
(reveal number expr ...)
syntax
(revealing-slide expr ...)
syntax
(items-slide (name ...) expr ...)
procedure
(blank-line) -> pict?
syntax
(ppict-do base-expr ppict-do-fragment ...)
syntax
(ppict-do* base-expr ppic-do-fragment ...)
 
ppict-do-fragment = #:go placer-expr
                  | #:set pict-expr
                  | #:next
                  | #:alt (ppict-do-fragment ...)
                  | elem-expr
 
  base-expr : pict?
  placer-expr : placer?
  pict-expr : pict?
  elem-expr : (or/c pict? real? #f)
syntax
ppict-do-state
procedure
(ppict? x) -> boolean?
  x : any/c
procedure
(ppict-go p pl) -> ppict?
  p : pict?
  pl : placer?
procedure
(ppict-add pp elem ...) -> pict?
  pp : ppict?
  elem : (or/c pict? real? #f 'next)
procedure
(ppict-add* pp elem ...) -> pict? (listof pict?)
  pp : ppict?
  elem : (or/c pict? real? #f 'next)
procedure
(placer? x) -> boolean?
  x : any/c
procedure
(refpoint-placer? x) -> boolean?
  x : any/c
procedure
(coord  rel-x                    
        rel-y                    
       [align                    
        #:abs-x abs-x            
        #:abs-y abs-y            
        #:compose composer]) -> refpoint-placer?
  rel-x : real?
  rel-y : real?
  align : (or/c 'lt 'ct 'rt 'lc 'cc 'rc 'lb 'cb 'rb) = 'cc
  abs-x : real? = 0
  abs-y : real? = 0
  composer : procedure? = computed from align
procedure
(grid  cols                     
       rows                     
       col                      
       row                      
      [align                    
       #:abs-x abs-x            
       #:abs-y abs-y            
       #:compose composer]) -> refpoint-placer?
  cols : exact-positive-integer?
  rows : exact-positive-integer?
  col : exact-integer?
  row : exact-integer?
  align : (or/c 'lt 'ct 'rt 'lc 'cc 'rc 'lb 'cb 'rb) = 'cc
  abs-x : real? = 0
  abs-y : real? = 0
  composer : procedure? = computed from align
procedure
(cascade [step-x step-y]) -> placer?
  step-x : (or/c real? 'auto) = 'auto
  step-y : (or/c real? 'auto) = 'auto
procedure
(tile cols rows) -> placer?
  cols : exact-positive-integer?
  rows : exact-positive-integer?
procedure
(at-find-pict  find-path                
              [finder                   
               align                    
               #:abs-x abs-x            
               #:abs-y abs-y            
               #:compose composer]) -> refpoint-placer?
  find-path : (or/c tag-path? pict-path?)
  finder : procedure? = cc-find
  align : (or/c 'lt 'ct 'rt 'lc 'cc 'rc 'lb 'cb 'rb) = 'cc
  abs-x : real? = 0
  abs-y : real? = 0
  composer : procedure? = computed from align
procedure
(merge-refpoints x-placer y-placer) -> refpoint-placer?
  x-placer : refpoint-placer?
  y-placer : refpoint-placer?
syntax
(pslide ppict-do-fragment ...)
parameter
(pslide-base-pict) -> (-> pict)
(pslide-base-pict make-base-pict) -> void?
  make-base-pict : (-> pict)
parameter
(pslide-default-placer) -> placer?
(pslide-default-placer placer) -> void?
  placer : placer?
class
snip-canvas% : class?
  superclass: editor-canvas%
constructor
(new snip-canvas%                                            
                   [parent parent]                           
                   [make-snip make-snip]                     
                  [[style style]                             
                   [label label]                             
                   [horizontal-inset horizontal-inset]       
                   [vertical-inset vertical-inset]           
                   [enabled enabled]                         
                   [vert-margin vert-margin]                 
                   [horiz-margin horiz-margin]               
                   [min-width min-width]                     
                   [min-height min-height]                   
                   [stretchable-width stretchable-width]     
                   [stretchable-height stretchable-height]]) 
 -> (is-a?/c snip-canvas%)
  parent : (or/c (is-a?/c frame%) (is-a?/c dialog%)
                 (is-a?/c panel%) (is-a?/c pane%))
  make-snip : ((integer-in 0 10000) (integer-in 0 10000) . -> . snip%)
  style : (listof (one-of/c 'no-border 'control-border 'combo
                            'resize-corner 'no-focus 'deleted
                            'transparent))
        = null
  label : (or/c label-string? false/c) = #f
  horizontal-inset : (integer-in 0 1000) = 5
  vertical-inset : (integer-in 0 1000) = 5
  enabled : any/c = #t
  vert-margin : (integer-in 0 1000) = 0
  horiz-margin : (integer-in 0 1000) = 0
  min-width : (integer-in 0 10000) = 0
  min-height : (integer-in 0 10000) = 0
  stretchable-width : any/c = #t
  stretchable-height : any/c = #t
method
(send a-snip-canvas get-snip) -> (or/c (is-a?/c snip%) #f)
method
(send a-snip-canvas on-size width height) -> void?
  width : (integer-in 0 10000)
  height : (integer-in 0 10000)
procedure
(codeblock->pict block) -> pict?
  block : block?
