13640
((3) 0 () 41 ((c (? . 4) q stretchable-snip<%>) (c (? . 23) q name-message%) (c (? . 8) q cache-image-snip%) (q lib "mrlib/hierlist.rkt") (q lib "mrlib/aligned-pasteboard.rkt") (q (lib "mrlib/switchable-button.rkt") switchable-button%) (q (lib "mrlib/arrow-toggle-snip.rkt") arrow-toggle-snip%) (q lib "mrlib/plot.rkt") (q lib "mrlib/cache-image-snip.rkt") (c (? . 3) q hierarchical-list%) (c (? . 4) q vertical-pasteboard%) (c (? . 22) q terminal<%>) (q 29688 . 10) (q lib "mrlib/graph.rkt") (c (? . 3) q hierarchical-list-snip%) (c (? . 3) q hierarchical-list-compound-item<%>) (q 29987 . 20) (c (? . 13) q graph-pasteboard<%>) (c (? . 4) q horizontal-pasteboard%) (c (? . 3) q hierarchical-list-item<%>) (c (? . 4) q aligned-pasteboard<%>) (q (lib "mrlib/snip-canvas.rkt") snip-canvas%) (q lib "mrlib/terminal.rkt") (q lib "mrlib/name-message.rkt") (c (? . 13) q graph-snip<%>) (q lib "mrlib/syntax-browser.rkt") (q 22212 . 5) (q 20899 . 9) (q lib "mrlib/image-core.rkt") (q lib "mrlib/gif.rkt") (q 23939 . 5) (q (lib "mrlib/expandable-snip.rkt") expandable-snip%) (q (lib "mrlib/path-dialog.rkt") path-dialog%) (q lib "mrlib/interactive-value-port.rkt") (c (? . 3) q hierarchical-item-snip%) (q (lib "mrlib/close-icon.rkt") close-icon%) (c (? . 4) q aligned-pasteboard-parent<%>) (q lib "mrlib/bitmap-label.rkt") (q 22600 . 6) (q lib "mrlib/include-bitmap.rkt") (c (? . 13) q graph-pasteboard-mixin)) () (h ! (equal) ((c def c (? . 0)) q (3071 . 2)) ((c def c (c (? . 28) q un/cache-image)) q (32735 . 4)) ((c meth c (c (? . 1) q on-choose-directory)) q (25894 . 3)) ((c meth c (c (? . 0) q get-aligned-min-width)) q (3185 . 2)) ((c meth c (c (? . 5) q get-button-label)) q (32210 . 2)) ((c meth c (c (? . 2) q get-dc-proc)) q (4734 . 3)) ((c meth c (c (? . 14) q get-item)) q (24535 . 3)) ((c meth c (c (? . 0) q stretchable-width)) q (3321 . 2)) ((c meth c (c (? . 1) q on-event)) q (25986 . 3)) ((c def c (c (? . 37) q make-bitmap-label)) q (3746 . 5)) ((c meth c (c (? . 2) q equal-to?)) q (4192 . 5)) ((c def c (? . 1)) q (25751 . 3)) ((c meth c (c (? . 15) q new-list)) q (23393 . 7)) ((c def c (? . 10)) q (1669 . 4)) ((c meth c (c (? . 6) q get-toggle-state)) q (3591 . 2)) ((c meth c (c (? . 5) q get-without-label-small-width)) q (32446 . 3)) ((c constructor c (? . 6)) q (3447 . 4)) ((c meth c (c (? . 9) q click-select)) q (21435 . 3)) ((c def c (c (? . 7) q plot-setup-axis-number-font)) c (? . 16)) ((c def c (c (? . 7) q data-set?)) c (? . 12)) ((c def c (c (? . 8) q argb->cache-image-snip)) q (6210 . 5)) ((c meth c (c (? . 11) q can-close?)) q (37947 . 2)) ((c def c (c (? . 8) q make-argb)) q (5282 . 5)) ((c constructor c (? . 9)) q (17757 . 13)) ((c def c (c (? . 13) q neato-label)) q (17588 . 2)) ((c meth c (c (? . 9) q on-select-always)) q (21562 . 4)) ((c meth c (c (? . 10) q resized)) q (2612 . 5)) ((c def c (? . 11)) q (37814 . 2)) ((c meth c (c (? . 10) q after-insert)) q (1971 . 9)) ((c def c (c (? . 7) q struct:data-set)) c (? . 12)) ((c meth c (c (? . 17) q get-arrowhead-params)) q (9065 . 3)) ((c meth c (c (? . 20) q get-aligned-min-width)) q (119 . 2)) ((c meth c (c (? . 24) q remove-parent)) q (13872 . 3)) ((c def c (? . 21)) q (33097 . 3)) ((c meth c (c (? . 1) q set-short-title)) q (26414 . 3)) ((c meth c (c (? . 19) q get-editor)) q (22070 . 2)) ((c meth c (c (? . 14) q get-content-buffer)) q (24637 . 3)) ((c meth c (c (? . 15) q get-arrow-snip)) q (24212 . 3)) ((c meth c (c (? . 31) q get-closed-editor)) q (7849 . 2)) ((c constructor c (? . 18)) q (619 . 3)) ((c meth c (c (? . 1) q set-allow-shrinking)) q (26738 . 3)) ((c meth c (c (? . 2) q get-argb/no-compute)) q (4562 . 3)) ((c def c (c (? . 7) q plot-setup)) c (? . 16)) ((c def c (? . 36)) q (2938 . 2)) ((c meth c (c (? . 17) q set-edge-label-font)) q (9765 . 3)) ((c meth c (c (? . 5) q get-small-width)) q (32361 . 3)) ((c form c (c (? . 39) q include-bitmap/relative-to)) q (24794 . 3)) ((c meth c (c (? . 2) q other-equal-to?)) q (5021 . 5)) ((c meth c (c (? . 6) q set-toggle-state)) q (3659 . 3)) ((c def c (c (? . 25) q render-syntax/window)) q (35490 . 5)) ((c meth c (c (? . 17) q on-mouse-over-snips)) q (9150 . 3)) ((c meth c (c (? . 9) q on-double-select)) q (19833 . 3)) ((c constructor c (? . 5)) q (30869 . 18)) ((c meth c (c (? . 1) q get-background-color)) q (26642 . 3)) ((c meth c (c (? . 18) q resized)) q (1479 . 5)) ((c meth c (c (? . 11) q close)) q (37903 . 2)) ((c def c (c (? . 8) q argb-height)) q (5598 . 3)) ((c meth c (c (? . 19) q get-clickable-snip)) q (22517 . 3)) ((c meth c (c (? . 20) q get-aligned-min-height)) q (47 . 2)) ((c def c (c (? . 7) q plot)) q (30676 . 5)) ((c def c (c (? . 8) q argb->bitmap)) q (6346 . 3)) ((c def c (c (? . 7) q data-set-max-y)) c (? . 12)) ((c def c (c (? . 13) q find-dot)) q (17475 . 3)) ((c meth c (c (? . 11) q get-button-panel)) q (38050 . 3)) ((c def c (c (? . 7) q data-set-pen)) c (? . 12)) ((c meth c (c (? . 17) q get-edge-label-font)) q (9867 . 3)) ((c meth c (c (? . 9) q new-list)) q (18968 . 7)) ((c def c (c (? . 7) q plot-setup-axis-pen)) c (? . 16)) ((c meth c (c (? . 21) q on-size)) q (35112 . 4)) ((c def c (c (? . 7) q data-set-points)) c (? . 12)) ((c meth c (c (? . 32) q run)) q (29643 . 2)) ((c def c (c (? . 22) q in-terminal)) q (36235 . 30)) ((c def c (c (? . 33) q set-interactive-write-handler)) q (25193 . 7)) ((c def c (c (? . 23) q draw-button-label)) q (27007 . 21)) ((c meth c (c (? . 9) q set-no-sublists)) q (18864 . 3)) ((q def ((lib "mrlib/panel-wob.rkt") white-on-black-panel-scheme?)) q (38129 . 2)) ((c def c (c (? . 7) q data-set-max-x)) c (? . 12)) ((c meth c (c (? . 17) q draw-single-edge)) q (10473 . 22)) ((c meth c (c (? . 9) q on-item-opened)) q (19945 . 3)) ((c def c (c (? . 22) q on-terminal-run)) q (37711 . 4)) ((q def ((lib "mrlib/matrix-snip.rkt") visible-matrix%)) q (33029 . 3)) ((c def c (? . 19)) q (22019 . 2)) ((c def c (c (? . 29) q write-gif)) q (7924 . 5)) ((c meth c (c (? . 9) q select-prev)) c (? . 27)) ((c def c (? . 15)) q (22888 . 3)) ((c meth c (c (? . 24) q get-parents)) q (13703 . 2)) ((c def c (c (? . 13) q add-links/text-colors)) q (15819 . 23)) ((c meth c (c (? . 19) q select)) c (? . 26)) ((c def c (c (? . 25) q render-syntax/snip)) q (35251 . 6)) ((c meth c (c (? . 11) q is-closed?)) q (37851 . 2)) ((c meth c (c (? . 15) q open)) c (? . 30)) ((c def c (c (? . 7) q data-set-min-y)) c (? . 12)) ((c meth c (c (? . 19) q click-select)) c (? . 26)) ((c def c (c (? . 7) q plot-setup-grid-pen)) c (? . 16)) ((c def c (c (? . 8) q snip-class)) q (5238 . 2)) ((c meth c (c (? . 9) q select-last)) c (? . 27)) ((c constructor c (? . 40)) q (12266 . 10)) ((c meth c (c (? . 9) q on-click)) q (19729 . 3)) ((c meth c (c (? . 9) q page-up)) c (? . 27)) ((c meth c (c (? . 9) q select-out)) c (? . 27)) ((c def c (c (? . 28) q image?)) q (32683 . 3)) ((c def c (c (? . 7) q data-set-connected?)) c (? . 12)) ((c def c (c (? . 7) q make-data-set)) c (? . 12)) ((c def c (c (? . 29) q write-animated-gif)) q (8095 . 19)) ((c def c (c (? . 23) q calc-button-min-sizes)) q (26841 . 5)) ((c meth c (c (? . 24) q set-parent-link-label)) q (13974 . 5)) ((c meth c (c (? . 15) q close)) c (? . 30)) ((c meth c (c (? . 9) q page-down)) c (? . 27)) ((c def c (c (? . 7) q plot-setup-x-axis-marking)) c (? . 16)) ((c def c (c (? . 23) q pad-xywh)) q (27704 . 6)) ((c meth c (c (? . 20) q realign)) q (190 . 6)) ((c meth c (c (? . 34) q get-item)) q (24371 . 3)) ((c constructor c (? . 31)) q (7166 . 12)) ((c meth c (c (? . 10) q after-delete)) q (1873 . 3)) ((c meth c (c (? . 15) q new-item)) q (22991 . 7)) ((c meth c (c (? . 9) q delete-item)) q (19264 . 3)) ((c def c (c (? . 25) q render-syntax-focused-syntax-color-style-name)) q (35770 . 2)) ((c meth c (c (? . 0) q stretchable-height)) q (3253 . 2)) ((c def c (c (? . 8) q argb-vector)) q (5446 . 3)) ((c def c (c (? . 7) q struct:plot-setup)) c (? . 16)) ((c def c (c (? . 28) q render-image)) q (32545 . 6)) ((c def c (c (? . 7) q plot-setup?)) c (? . 16)) ((c def c (c (? . 13) q graph-snip-mixin)) q (14181 . 4)) ((c constructor c (? . 32)) q (27920 . 37)) ((c meth c (c (? . 1) q set-message)) q (26218 . 5)) ((c def c (c (? . 8) q build-bitmap)) q (5927 . 5)) ((c meth c (c (? . 9) q on-click-always)) q (21717 . 4)) ((c def c (c (? . 8) q overlay-bitmap)) q (5730 . 7)) ((c def c (c (? . 33) q set-interactive-print-handler)) q (25472 . 7)) ((c def c (? . 18)) q (514 . 4)) ((c constructor c (? . 21)) q (33159 . 33)) ((c meth c (c (? . 1) q fill-popup)) q (26516 . 4)) ((c def c (c (? . 13) q neato-hier-label)) q (17618 . 2)) ((c def c (c (? . 28) q snip-class)) q (32985 . 2)) ((c meth c (c (? . 5) q command)) q (32155 . 2)) ((c meth c (c (? . 24) q remove-child)) q (13773 . 3)) ((c meth c (c (? . 31) q get-open-editor)) q (7776 . 2)) ((c meth c (c (? . 10) q after-reorder)) q (2328 . 7)) ((c def c (c (? . 7) q plot-setup-x-axis-label)) c (? . 16)) ((c def c (? . 5)) q (30808 . 3)) ((c meth c (c (? . 17) q set-flip-labels?)) q (9661 . 3)) ((c def c (? . 2)) q (4128 . 3)) ((c def c (c (? . 7) q make-plot-setup)) c (? . 16)) ((c def c (c (? . 7) q plot-setup-y-axis-label)) c (? . 16)) ((c meth c (c (? . 18) q after-reorder)) q (1189 . 7)) ((c meth c (c (? . 0) q get-aligned-min-height)) q (3116 . 2)) ((c meth c (c (? . 24) q add-parent)) q (12978 . 13)) ((c meth c (c (? . 21) q get-snip)) q (35039 . 2)) ((c meth c (c (? . 9) q select)) q (21314 . 3)) ((c meth c (c (? . 2) q get-pinhole)) q (4848 . 2)) ((c meth c (c (? . 9) q sort)) q (20183 . 7)) ((c meth c (c (? . 9) q select-first)) c (? . 27)) ((c def c (? . 31)) q (7102 . 3)) ((c def c (c (? . 28) q definitely-same-image?)) q (32892 . 4)) ((c def c (? . 20)) q (0 . 2)) ((c def c (c (? . 7) q data-set-min-x)) c (? . 12)) ((c meth c (c (? . 9) q get-items)) q (19373 . 3)) ((c def c (c (? . 13) q dot-label)) q (17560 . 2)) ((c meth c (c (? . 17) q update-arrowhead-polygon)) q (11392 . 18)) ((c meth c (c (? . 19) q is-selected?)) q (22144 . 2)) ((c meth c (c (? . 9) q allow-deselect)) q (21870 . 4)) ((c def c (c (? . 7) q plot-setup-grid?)) c (? . 16)) ((c meth c (c (? . 15) q set-no-sublists)) q (23274 . 4)) ((c def c (c (? . 13) q add-links)) q (14309 . 39)) ((c def c (c (? . 25) q snip-class)) q (35726 . 2)) ((c def c (? . 24)) q (12843 . 2)) ((c meth c (c (? . 9) q on-item-closed)) q (20064 . 3)) ((c constructor c (? . 1)) q (25807 . 3)) ((c meth c (c (? . 5) q set-label-visible)) q (32054 . 3)) ((c def c (c (? . 13) q dot-positioning)) q (17113 . 8)) ((c def c (? . 17)) q (9020 . 2)) ((c meth c (c (? . 1) q set-hidden?)) q (26133 . 3)) ((c meth c (c (? . 5) q get-large-width)) q (32276 . 3)) ((c meth c (c (? . 15) q toggle-open/closed)) c (? . 30)) ((c meth c (c (? . 19) q get-parent)) q (22772 . 3)) ((c meth c (c (? . 11) q can-close-evt)) q (37999 . 2)) ((c def c (? . 34)) q (24300 . 3)) ((c def c (c (? . 4) q aligned-editor-canvas%)) q (2866 . 3)) ((c meth c (c (? . 19) q get-allow-selection?)) c (? . 38)) ((c def c (c (? . 25) q render-syntax-subtitle-color-style-name)) q (35834 . 2)) ((c def c (c (? . 7) q plot-setup-y-axis-marking)) c (? . 16)) ((c def c (c (? . 13) q set-link-label)) q (16935 . 5)) ((c meth c (c (? . 17) q draw-edges)) q (9945 . 15)) ((c def c (c (? . 33) q set-interactive-display-handler)) q (24910 . 7)) ((c meth c (c (? . 9) q get-selected)) q (18471 . 4)) ((c meth c (c (? . 9) q select-next)) c (? . 27)) ((c constructor c (? . 35)) q (6491 . 13)) ((c meth c (c (? . 24) q get-children)) q (13640 . 2)) ((c meth c (c (? . 2) q get-argb-proc)) q (4452 . 3)) ((c meth c (c (? . 9) q can-do-edit-operation?)) q (20492 . 6)) ((c def c (c (? . 4) q aligned-editor-snip%)) q (2798 . 3)) ((c meth c (c (? . 9) q new-item)) q (18595 . 7)) ((c def c (c (? . 8) q argb?)) q (5679 . 3)) ((q def ((lib "mrlib/tex-table.rkt") tex-shortcut-table)) q (35892 . 7)) ((c meth c (c (? . 1) q on-paint)) q (26082 . 2)) ((c def c (? . 35)) q (6437 . 3)) ((c def c (? . 32)) q (27865 . 3)) ((c def c (c (? . 8) q argb-width)) q (5518 . 3)) ((c constructor c (? . 10)) q (1772 . 3)) ((c meth c (c (? . 36) q set-aligned-min-sizes)) q (2992 . 3)) ((c meth c (c (? . 17) q set-draw-arrow-heads?)) q (9541 . 4)) ((c def c (c (? . 7) q plot-setup-axis-label-font)) c (? . 16)) ((c meth c (c (? . 2) q get-bitmap)) q (4646 . 3)) ((c meth c (c (? . 18) q after-insert)) q (824 . 9)) ((c meth c (c (? . 2) q get-argb)) q (4397 . 2)) ((c meth c (c (? . 24) q add-child)) q (12882 . 3)) ((c meth c (c (? . 2) q get-size)) q (4913 . 4)) ((c meth c (c (? . 18) q after-delete)) q (724 . 3)) ((c def c (c (? . 28) q compute-image-cache)) q (32821 . 3)) ((c meth c (c (? . 9) q on-select)) q (19607 . 3)) ((c def c (c (? . 7) q data-set)) c (? . 12)) ((c meth c (c (? . 20) q set-aligned-min-sizes)) q (443 . 2)) ((c def c (? . 6)) q (3388 . 3)) ((c def c (c (? . 8) q flatten-bitmap)) q (6117 . 3)) ((c def c (? . 9)) q (17689 . 3)) ((c meth c (c (? . 15) q get-items)) q (23826 . 3)) ((c def c (c (? . 13) q neato-ipsep-label)) q (17653 . 2)) ((c meth c (c (? . 17) q set-arrowhead-params)) q (9260 . 8)) ((c meth c (c (? . 15) q delete-item)) q (23703 . 3)) ((c def c (c (? . 37) q bitmap-label-maker)) q (3945 . 5)) ((c meth c (c (? . 19) q user-data)) q (22375 . 4)) ((c meth c (c (? . 19) q set-allow-selection)) c (? . 38)) ((c def c (? . 14)) q (24464 . 3)) ((c meth c (c (? . 9) q do-edit-operation)) q (20700 . 5)) ((c meth c (c (? . 9) q select-in)) c (? . 27)) ((c form c (c (? . 39) q include-bitmap)) q (24720 . 3)) ((c meth c (c (? . 9) q selectable)) q (19472 . 4)) ((c def c (? . 40)) q (12120 . 4)) ((c meth c (c (? . 15) q is-open?)) q (24139 . 2)) ((c def c (c (? . 13) q remove-links)) q (16805 . 4))))
interface
aligned-pasteboard<%> : interface?
method
(send an-aligned-pasteboard get-aligned-min-height) -> real?
method
(send an-aligned-pasteboard get-aligned-min-width) -> real?
method
(send an-aligned-pasteboard realign width       
                                    height) -> void?
  width : exact-nonnegative-integer?
  height : exact-nonnegative-integer?
(send an-aligned-pasteboard realign) -> void?
method
(send an-aligned-pasteboard set-aligned-min-sizes) -> void?
class
horizontal-pasteboard% : class?
  superclass: pasteboard%
  extends: aligned-pasteboard<%>
constructor
(new horizontal-pasteboard% ...superclass-args...)
 -> (is-a?/c horizontal-pasteboard%)
method
(send a-horizontal-pasteboard after-delete snip) -> void?
  snip : (is-a?/c snip%)
method
(send a-horizontal-pasteboard after-insert snip       
                                           before     
                                           x          
                                           y)     -> void?
  snip : (is-a?/c snip%)
  before : (or/c (is-a?/c snip%) false/c)
  x : real?
  y : real?
method
(send a-horizontal-pasteboard after-reorder snip         
                                            to-snip      
                                            before?) -> boolean?
  snip : (is-a?/c snip%)
  to-snip : (is-a?/c snip%)
  before? : any/c
method
(send a-horizontal-pasteboard resized snip             
                                      redraw-now?) -> void?
  snip : (is-a?/c snip%)
  redraw-now? : any/c
class
vertical-pasteboard% : class?
  superclass: pasteboard%
  extends: aligned-pasteboard<%>
constructor
(new vertical-pasteboard% ...superclass-args...)
 -> (is-a?/c vertical-pasteboard%)
method
(send a-vertical-pasteboard after-delete snip) -> void?
  snip : (is-a?/c snip%)
method
(send a-vertical-pasteboard after-insert snip       
                                         before     
                                         x          
                                         y)     -> void?
  snip : (is-a?/c snip%)
  before : (or/c (is-a?/c snip%) false/c)
  x : real?
  y : real?
method
(send a-vertical-pasteboard after-reorder snip         
                                          to-snip      
                                          before?) -> boolean?
  snip : (is-a?/c snip%)
  to-snip : (is-a?/c snip%)
  before? : any/c
method
(send a-vertical-pasteboard resized snip             
                                    redraw-now?) -> void?
  snip : (is-a?/c snip%)
  redraw-now? : any/c
class
aligned-editor-snip% : class?
  superclass: editor-snip%
class
aligned-editor-canvas% : class?
  superclass: editor-canvas%
interface
aligned-pasteboard-parent<%> : interface?
method
(send an-aligned-pasteboard-parent set-aligned-min-sizes)
 -> void?
interface
stretchable-snip<%> : interface?
method
(send a-stretchable-snip get-aligned-min-height) -> real?
method
(send a-stretchable-snip get-aligned-min-width) -> real?
method
(send a-stretchable-snip stretchable-height) -> boolean?
method
(send a-stretchable-snip stretchable-width) -> boolean?
class
arrow-toggle-snip% : class?
  superclass: snip%
constructor
(new arrow-toggle-snip% [[callback callback]])
 -> (is-a?/c arrow-toggle-snip%)
  callback : (-> boolean? any) = void
method
(send an-arrow-toggle-snip get-toggle-state) -> boolean?
method
(send an-arrow-toggle-snip set-toggle-state v) -> void?
  v : boolean?
procedure
(make-bitmap-label str img [font]) -> (is-a?/c bitmap%)
  str : string?
  img : (or/c (is-a?/c bitmap%) path-string?)
  font : (is-a?/c font%) = normal-control-font
procedure
((bitmap-label-maker str img) future-parent) -> (is-a?/c bitmap%)
  str : string?
  img : (or/c (is-a?/c bitmap%) path-string?)
  future-parent : any/c
class
cache-image-snip% : class?
  superclass: image-snip%
method
(send a-cache-image-snip equal-to? snip        
                                   equal?) -> boolean?
  snip : (is-a?/c image-snip%)
  equal? : (any/c any/c . -> . boolean?)
method
(send a-cache-image-snip get-argb) -> argb?
method
(send a-cache-image-snip get-argb-proc)
 -> (argb? exact-integer? exact-integer? . -> . void?)
method
(send a-cache-image-snip get-argb/no-compute)
 -> (or/c false/c argb?)
method
(send a-cache-image-snip get-bitmap)
 -> (or/c false/c (is-a?/c bitmap%))
method
(send a-cache-image-snip get-dc-proc)
 -> (or/c false/c ((is-a?/c dc<%>) real? real? -> void?))
method
(send a-cache-image-snip get-pinhole) -> real? real?
method
(send a-cache-image-snip get-size)
 -> exact-nonnegative-integer?
    exact-nonnegative-integer?
method
(send a-cache-image-snip other-equal-to? snip        
                                         equal?) -> boolean?
  snip : (is-a?/c image-snip%)
  equal? : (any/c any/c . -> . boolean?)
value
snip-class : (is-a?/c snip-class%)
procedure
(make-argb vectorof width height) -> argb?
  vectorof : byte?
  width : exact-nonnegative-integer?
  height : exact-nonnegative-integer?
procedure
(argb-vector argb) -> (vectorof byte?)
  argb : argb?
procedure
(argb-width argb) -> exact-nonnegative-integer?
  argb : argb?
procedure
(argb-height argb) -> exact-nonnegative-integer?
  argb : argb?
procedure
(argb? v) -> boolean?
  v : any/c
procedure
(overlay-bitmap dest dx dy img mask) -> void?
  dest : argb?
  dx : exact-integer?
  dy : exact-integer?
  img : (is-a?/c bitmap%)
  mask : (is-a?/c bitmap%)
procedure
(build-bitmap draw width height) -> (is-a?/c bitmap%)
  draw : ((is-a?/c dc<%>) . -> . any)
  width : (integer-in 1 10000)
  height : (integer-in 1 10000)
procedure
(flatten-bitmap bitmap) -> (is-a?/c bitmap%)
  bitmap : (is-a?/c bitmap%)
procedure
(argb->cache-image-snip argb dx dy) -> (is-a?/c cache-image-snip%)
  argb : argb?
  dx : real?
  dy : real?
procedure
(argb->bitmap argb) -> (or/c false/c (is-a?/c bitmap%))
  argb : argb?
class
close-icon% : class?
  superclass: canvas%
constructor
(new close-icon%                                  
                  [parent parent]                 
                 [[callback callback]             
                  [bg-color bg-color]             
                  [horizontal-pad horizontal-pad] 
                  [vertical-pad vertical-pad]])   
 -> (is-a?/c close-icon%)
  parent : (is-a? area-container<%>)
  callback : (-> any) = void
  bg-color : (or/c #f string (is-a?/c color%)) = #f
  horizontal-pad : positive-integer? = 4
  vertical-pad : positive-integer? = 4
class
expandable-snip% : class?
  superclass: editor-snip%
constructor
(new expandable-snip%                                
                      [[layout layout]               
                       [closed-editor closed-editor] 
                       [open-editor open-editor]     
                       [callback callback]]          
                       ...superclass-args...)        
 -> (is-a?/c expandable-snip%)
  layout : (or/c 'append 'replace) = 'append
  closed-editor : (is-a?/c text%) = (new text%)
  open-editor : (is-a?/c text%) = (new text%)
  callback : (-> boolean? any) = void
method
(send an-expandable-snip get-open-editor) -> (is-a?/c text%)
method
(send an-expandable-snip get-closed-editor) -> (is-a?/c text%)
procedure
(write-gif bitmap filename) -> void?
  bitmap : (or/c (is-a?/c bitmap%)
                 (-> (is-a?/c bitmap%)))
  filename : path-string?
procedure
(write-animated-gif  bitmaps                             
                     delay-csec                          
                     filename                            
                    [#:loop? loop?                       
                     #:one-at-a-time? one-at-a-time?     
                     #:last-frame-delay last-frame-delay 
                     #:disposal disposal])               
 -> void?
  bitmaps : (and/c
              (listof (or/c (is-a?/c bitmap%)
                            (-> (is-a?/c bitmap%))))
              pair?)
  delay-csec : (integer-in 0 4294967295)
  filename : path-string?
  loop? : any/c = (and delay-csec #t)
  one-at-a-time? : any/c = #f
  last-frame-delay : (or/c (integer-in 0 4294967295) #f) = #f
  disposal : (or/c 'any 'keep 'restore-bg 'restore-prev) = 'any
interface
graph-pasteboard<%> : interface?
method
(send a-graph-pasteboard get-arrowhead-params)
 -> number number number
method
(send a-graph-pasteboard on-mouse-over-snips lst) -> void?
  lst : (listof (is-a?/c snip%))
method
(send a-graph-pasteboard set-arrowhead-params angle-width 
                                              short-side  
                                              long-size)  
 -> void?
  angle-width : real?
  short-side : real?
  long-size : real?
method
(send a-graph-pasteboard set-draw-arrow-heads? draw-arrow-heads?)
 -> void?
  draw-arrow-heads? : any/c
method
(send a-graph-pasteboard set-flip-labels? flip-labels?) -> void?
  flip-labels? : any/c
method
(send a-graph-pasteboard set-edge-label-font font) -> void?
  font : (is-a?/c font%)
method
(send a-graph-pasteboard get-edge-label-font)
 -> (is-a?/c font%)
method
(send a-graph-pasteboard draw-edges dc         
                                    left       
                                    top        
                                    right      
                                    bottom     
                                    dx         
                                    dy)    -> void?
  dc : (is-a?/c dc<%>)
  left : real?
  top : real?
  right : real?
  bottom : real?
  dx : real?
  dy : real?
method
(send a-graph-pasteboard draw-single-edge dc               
                                          dx               
                                          dy               
                                          from             
                                          to               
                                          from-x           
                                          from-y           
                                          to-x             
                                          to-y             
                                          arrow-point-ok?) 
 -> void?
  dc : (is-a?/c dc<%>)
  dx : real?
  dy : real?
  from : (is-a?/c graph-snip<%>)
  to : (is-a?/c graph-snip<%>)
  from-x : real?
  from-y : real?
  to-x : real?
  to-y : real?
  arrow-point-ok? : (-> real? real? boolean?)
method
(send a-graph-pasteboard update-arrowhead-polygon from-x  
                                                  from-y  
                                                  to-x    
                                                  to-y    
                                                  point1  
                                                  point2  
                                                  point3  
                                                  point4) 
 -> void?
  from-x : real?
  from-y : real?
  to-x : real?
  to-y : real?
  point1 : (is-a?/c point%)
  point2 : (is-a?/c point%)
  point3 : (is-a?/c point%)
  point4 : (is-a?/c point%)
mixin
graph-pasteboard-mixin : (class? . -> . class?)
  argument extends/implements: pasteboard%
  result implements: graph-pasteboard<%>
constructor
(new graph-pasteboard-mixin                                              
                            [[edge-labels? edge-labels?]                 
                             [edge-label-font edge-label-font]]          
                             [cache-arrow-drawing? cache-arrow-drawing?] 
                             ...superclass-args...)                      
 -> (is-a?/c graph-pasteboard-mixin)
  edge-labels? : boolean? = #t
  edge-label-font : (or/c #f (is-a?/c font%)) = #f
  cache-arrow-drawing? : any
interface
graph-snip<%> : interface?
method
(send a-graph-snip add-child child) -> void?
  child : (is-a?/c graph-snip<%>)
method
(send a-graph-snip add-parent parent) -> void?
  parent : (is-a?/c graph-snip<%>)
(send a-graph-snip add-parent parent               
                              mouse-over-pen       
                              mouse-off-pen        
                              mouse-over-brush     
                              mouse-off-brush) -> void?
  parent : (is-a?/c graph-snip<%>)
  mouse-over-pen : (or/c false/c (is-a?/c pen%))
  mouse-off-pen : (or/c false/c (is-a?/c pen%))
  mouse-over-brush : (or/c false/c (is-a?/c brush%))
  mouse-off-brush : (or/c false/c (is-a?/c brush%))
method
(send a-graph-snip get-children) -> (listof snip%)
method
(send a-graph-snip get-parents) -> (listof graph-snip<%>)
method
(send a-graph-snip remove-child child) -> void?
  child : (is-a?/c graph-snip<%>)
method
(send a-graph-snip remove-parent parent) -> void?
  parent : (is-a?/c graph-snip<%>)
method
(send a-graph-snip set-parent-link-label parent     
                                         label) -> void?
  parent : (is-a?/c graph-snip<%>)
  label : (or/c false/c string/)
mixin
graph-snip-mixin : (class? . -> . class?)
  argument extends/implements: snip%
  result implements: graph-snip<%>
procedure
(add-links parent child) -> void?
  parent : (is-a?/c graph-snip<%>)
  child : (is-a?/c graph-snip<%>)
(add-links parent child) -> void?
  parent : (is-a?/c graph-snip<%>)
  child : (is-a?/c graph-snip<%>)
(add-links  parent          
            child           
            dark-pen        
            light-pen       
            dark-brush      
            light-brush     
           [label])     -> void?
  parent : (is-a?/c graph-snip<%>)
  child : (is-a?/c graph-snip<%>)
  dark-pen : (or/c (is-a?/c pen%) false/c)
  light-pen : (or/c (is-a?/c pen%) false/c)
  dark-brush : (or/c (is-a?/c brush%) false/c)
  light-brush : (or/c (is-a?/c brush%) false/c)
  label : (or/c string? false/c) = #f
(add-links  parent          
            child           
            dark-pen        
            light-pen       
            dark-brush      
            light-brush     
            dx              
            dy              
           [label])     -> void?
  parent : (is-a?/c graph-snip<%>)
  child : (is-a?/c graph-snip<%>)
  dark-pen : (or/c (is-a?/c pen%) false/c)
  light-pen : (or/c (is-a?/c pen%) false/c)
  dark-brush : (or/c (is-a?/c brush%) false/c)
  light-brush : (or/c (is-a?/c brush%) false/c)
  dx : real?
  dy : real?
  label : (or/c string? false/c) = #f
procedure
(add-links/text-colors parent          
                       child           
                       dark-pen        
                       light-pen       
                       dark-brush      
                       light-brush     
                       dark-text       
                       light-text      
                       dx              
                       dy              
                       label)      -> void?
  parent : (is-a?/c graph-snip<%>)
  child : (is-a?/c graph-snip<%>)
  dark-pen : (or/c (is-a?/c pen%) false/c)
  light-pen : (or/c (is-a?/c pen%) false/c)
  dark-brush : (or/c (is-a?/c brush%) false/c)
  light-brush : (or/c (is-a?/c brush%) false/c)
  dark-text : (or/c (is-a?/c color%) false/c)
  light-text : (or/c (is-a?/c color%) false/c)
  dx : real?
  dy : real?
  label : (or/c string? false/c)
procedure
(remove-links parent child) -> void?
  parent : (is-a?/c graph-snip<%>)
  child : (is-a?/c graph-snip<%>)
procedure
(set-link-label parent child label) -> void?
  parent : (is-a?/c graph-snip<%>)
  child : (is-a?/c graph-snip<%>)
  label : (or/c string? false/c)
procedure
(dot-positioning  pb                           
                 [option                       
                  overlap-or-horizontal?]) -> void?
  pb : (is-a?/c pasteboard%)
  option : (or/c dot-label neato-label neato-hier-label neato-ipsep-label)
         = dot-label
  overlap-or-horizontal? : boolean? = #f
procedure
(find-dot [neato?]) -> (or/c path? #f)
  neato? : boolean? = #f
value
dot-label : string?
value
neato-label : string?
value
neato-hier-label : string?
value
neato-ipsep-label : string?
class
hierarchical-list% : class?
  superclass: editor-canvas%
constructor
(new hierarchical-list%                  
                         [parent parent] 
                        [[style style]]) 
 -> (is-a?/c hierarchical-list%)
  parent : (or/c (is-a?/c frame%) (is-a?/c dialog%)
                 (is-a?/c panel%) (is-a?/c pane%))
  style : (listof (one-of/c 'no-border 'control-border 'combo
                            'no-hscroll 'no-vscroll
                            'hide-hscroll 'hide-vscroll
                            'auto-vscroll 'auto-hscroll
                            'resize-corner 'deleted 'transparent))
        = '(no-hscroll)
method
(send a-hierarchical-list get-selected)
 -> (or/c (is-a?/c hierarchical-list-item<%>)
          false/c)
method
(send a-hierarchical-list new-item [mixin])
 -> (is-a?/c hierarchical-list-item<%>)
  mixin : ((implementation?/c hierarchical-list-item<%>)
           . -> .
           (implementation?/c hierarchical-list-item<%>))
        = (lambda (%) %)
method
(send a-hierarchical-list set-no-sublists no-sublists?) -> void?
  no-sublists? : any/c
method
(send a-hierarchical-list new-list [mixin])
 -> (is-a?/c hierarchical-list-compound-item<%>)
  mixin : ((implementation?/c hierarchical-list-compound-item<%>)
           . -> .
           (implementation?/c hierarchical-list-compound-item<%>))
        = (lambda (%) %)
method
(send a-hierarchical-list delete-item i) -> void?
  i : (is-a?/c hierarchical-list-item<%>)
method
(send a-hierarchical-list get-items)
 -> (listof (is-a?/c hierarchical-list-item<%>))
method
(send a-hierarchical-list selectable) -> boolean?
(send a-hierarchical-list selectable on?) -> void?
  on? : any/c
method
(send a-hierarchical-list on-select i) -> any
  i : (or/c (is-a?/c hierarchical-list-item<%>) false/c)
method
(send a-hierarchical-list on-click i) -> any
  i : (is-a?/c hierarchical-list-item<%>)
method
(send a-hierarchical-list on-double-select i) -> any
  i : (is-a?/c hierarchical-list-item<%>)
method
(send a-hierarchical-list on-item-opened i) -> any
  i : (is-a?/c hierarchical-list-compound-item<%>)
method
(send a-hierarchical-list on-item-closed i) -> any
  i : (is-a?/c hierarchical-list-compound-item<%>)
method
(send a-hierarchical-list sort  less-than-proc     
                               [recur?])       -> void?
  less-than-proc : ((is-a?/c hierarchical-list-item<%>)
                    (is-a?/c hierarchical-list-item<%>)
                    . -> . any/c)
  recur? : any/c = #t
method
(send a-hierarchical-list can-do-edit-operation?  op           
                                                 [recursive?]) 
 -> boolean?
  op : symbol?
  recursive? : any/c = #t
method
(send a-hierarchical-list do-edit-operation  op               
                                            [recursive?]) -> void?
  op : symbol?
  recursive? : any/c = #t
method
(send a-hierarchical-list select-prev) -> void?
(send a-hierarchical-list select-next) -> void?
(send a-hierarchical-list select-first) -> void?
(send a-hierarchical-list select-last) -> void?
(send a-hierarchical-list select-in) -> void?
(send a-hierarchical-list select-out) -> void?
(send a-hierarchical-list page-up) -> void?
(send a-hierarchical-list page-down) -> void?
method
(send a-hierarchical-list select i) -> void?
  i : (or/c (is-a?/c hierarchical-list-item<%>) false/c)
method
(send a-hierarchical-list click-select i) -> void?
  i : (or/c (is-a?/c hierarchical-list-item<%>) false/c)
method
(send a-hierarchical-list on-select-always) -> boolean?
(send a-hierarchical-list on-select-always always?) -> void?
  always? : any/c
method
(send a-hierarchical-list on-click-always) -> boolean?
(send a-hierarchical-list on-click-always always?) -> void?
  always? : any/c
method
(send a-hierarchical-list allow-deselect) -> boolean?
(send a-hierarchical-list allow-deselect allow?) -> void?
  allow? : any/c
interface
hierarchical-list-item<%> : interface?
method
(send a-hierarchical-list-item get-editor) -> (is-a?/c text%)
method
(send a-hierarchical-list-item is-selected?) -> boolean?
method
(send a-hierarchical-list-item select on?) -> void?
  on? : any/c
(send a-hierarchical-list-item click-select on?) -> void?
  on? : any/c
method
(send a-hierarchical-list-item user-data) -> any/c
(send a-hierarchical-list-item user-data data) -> void?
  data : any/c
method
(send a-hierarchical-list-item get-clickable-snip)
 -> (is-a?/c snip%)
method
(send a-hierarchical-list-item get-allow-selection?)
 -> boolean?
(send a-hierarchical-list-item set-allow-selection allow?)
 -> void?
  allow? : any/c
method
(send a-hierarchical-list-item get-parent)
 -> (or/c (is-a?/c hierarchical-list-compound-item<%>) #f)
interface
hierarchical-list-compound-item<%> : interface?
  implements: hierarchical-list-item<%>
method
(send a-hierarchical-list-compound-item new-item [mixin])
 -> (is-a?/c hierarchical-list-item<%>)
  mixin : ((implementation?/c hierarchical-list-item<%>)
           . -> .
           (implementation?/c hierarchical-list-item<%>))
        = (lambda (%) %)
method
(send a-hierarchical-list-compound-item set-no-sublists no-sublists?)
 -> void?
  no-sublists? : any/c
method
(send a-hierarchical-list-compound-item new-list [mixin])
 -> (is-a?/c hierarchical-list-compound-item<%>)
  mixin : ((implementation?/c hierarchical-list-compound-item<%>)
           . -> .
           (implementation?/c hierarchical-list-compound-item<%>))
        = (lambda (%) %)
method
(send a-hierarchical-list-compound-item delete-item i) -> void?
  i : (is-a?/c hierarchical-list-item<%>)
method
(send a-hierarchical-list-compound-item get-items)
 -> (listof (is-a?/c hierarchical-list-item<%>))
method
(send a-hierarchical-list-compound-item open) -> void?
(send a-hierarchical-list-compound-item close) -> void?
(send a-hierarchical-list-compound-item toggle-open/closed)
 -> void?
method
(send a-hierarchical-list-compound-item is-open?) -> boolean?
method
(send a-hierarchical-list-compound-item get-arrow-snip)
 -> (is-a?/c snip%)
class
hierarchical-item-snip% : class?
  superclass: editor-snip%
method
(send a-hierarchical-item-snip get-item)
 -> (is-a?/c hierarchical-list-item<%>)
class
hierarchical-list-snip% : class?
  superclass: editor-snip%
method
(send a-hierarchical-list-snip get-item)
 -> (is-a?/c hierarchical-list-compound-item<%>)
method
(send a-hierarchical-list-snip get-content-buffer)
 -> (is-a?/c text%)
syntax
(include-bitmap path-spec)
(include-bitmap path-spec type-expr)
syntax
(include-bitmap/relative-to source path-spec)
(include-bitmap/relative-to source path-spec [type-expr])
procedure
(set-interactive-display-handler  port                          
                                 [#:snip-handler snip-handler]) 
 -> void?
  port : output-port?
  snip-handler : (or/c #f (-> (is-a?/c snip%) output-port? any))
               = #f
procedure
(set-interactive-write-handler  port                          
                               [#:snip-handler snip-handler]) 
 -> void?
  port : output-port?
  snip-handler : (or/c #f (-> (is-a?/c snip%) output-port? any))
               = #f
procedure
(set-interactive-print-handler  port                          
                               [#:snip-handler snip-handler]) 
 -> void?
  port : output-port?
  snip-handler : (or/c #f (-> (is-a?/c snip%) output-port? any))
               = #f
class
name-message% : class?
  superclass: canvas%
constructor
(new name-message% ...superclass-args...)
 -> (is-a?/c name-message%)
method
(send a-name-message on-choose-directory dir) -> void?
  dir : path-string?
method
(send a-name-message on-event event) -> void?
  event : (is-a?/c mouse-event%)
method
(send a-name-message on-paint) -> void?
method
(send a-name-message set-hidden? hidden?) -> void?
  hidden? : any/c
method
(send a-name-message set-message file-name?     
                                 msg)       -> void?
  file-name? : any/c
  msg : (if filename? path-string? string?)
method
(send a-name-message set-short-title short-title?) -> void?
  short-title? : boolean?
method
(send a-name-message fill-popup menu reset) -> any
  menu : (is-a?/c popup-menu%)
  reset : (-> void?)
method
(send a-name-message get-background-color)
 -> (or/c #f (is-a/c color%) string?)
method
(send a-name-message set-allow-shrinking width) -> void?
  width : (or/c #f number?)
procedure
(calc-button-min-sizes dc str [font]) -> real? real?
  dc : (is-a?/c dc<%>)
  str : string?
  font : (or/c #f (is-a?/c font%)) = #f
procedure
(draw-button-label dc              
                   str             
                   dx              
                   dy              
                   width           
                   height          
                   mouse-over?     
                   grabbed?        
                   font            
                   background) -> void?
  dc : (is-a?/c dc<%>)
  str : string?
  dx : real?
  dy : real?
  width : real?
  height : real?
  mouse-over? : boolean?
  grabbed? : boolean?
  font : (is-a?/c font%)
  background : (or/c (is-a?/c color%) string? #f)
procedure
(pad-xywh tx ty tw th) -> number? number? (>=/c 0) (>=/c 0)
  tx : number?
  ty : number?
  tw : (>=/c 0)
  th : (>=/c 0)
class
path-dialog% : class?
  superclass: dialog%
constructor
(new path-dialog%                          
                  [[label label]           
                   [message message]       
                   [parent parent]         
                   [directory directory]   
                   [filename filename]     
                   [put? put?]             
                   [dir? dir?]             
                   [existing? existing?]   
                   [new? new?]             
                   [multi? multi?]         
                   [can-mkdir? can-mkdir?] 
                   [filters filters]       
                   [show-file? show-file?] 
                   [show-dir? show-dir?]   
                   [ok? ok?]               
                   [guard guard]])         
 -> (is-a?/c path-dialog%)
  label : (or/c label-string? false/c) = #f
  message : (or/c label-string? false/c) = #f
  parent : (or/c (is-a?/c frame%) (is-a?/c dialog%) false/c)
         = #f
  directory : (or/c path-string? false/c) = #f
  filename : (or/c path-string? false/c) = #f
  put? : any/c = #f
  dir? : any/c = #f
  existing? : any/c = (not put?)
  new? : any/c = #f
  multi? : any/c = #f
  can-mkdir? : any/c = put?
  filters : (or/c (listof (list string? string?)) = #t
                  (one-of/c #f #t))
  show-file? : (or/c (path? . -> . any) false/c) = #f
  show-dir? : (or/c (path? . -> . any) false/c) = #f
  ok? : (or/c (path? . -> . any) false/c) = #f
  guard : (or/c (path? . -> . any) false/c) = #f
method
(send a-path-dialog run) -> any/c
struct
(struct data-set (points connected? pen min-x max-x min-y max-y)
    #:extra-constructor-name make-data-set)
  points : (listof (is-a?/c point%))
  connected? : any/c
  pen : (is-a?/c pen%)
  min-x : real?
  max-x : real?
  min-y : real?
  max-y : real?
struct
(struct plot-setup (axis-label-font
                    axis-number-font
                    axis-pen
                    grid?
                    grid-pen
                    x-axis-marking
                    y-axis-marking
                    x-axis-label
                    y-axis-label)
    #:extra-constructor-name make-plot-setup)
  axis-label-font : (is-a?/c font%)
  axis-number-font : (is-a?/c font%)
  axis-pen : (is-a?/c pen)
  grid? : any/c
  grid-pen : (is-a?/c pen)
  x-axis-marking : (listof real?)
  y-axis-marking : (listof real?)
  x-axis-label : string?
  y-axis-label : string?
procedure
(plot dc data setup) -> void?
  dc : (is-a?/c dc<%>)
  data : (listof data-set?)
  setup : plot-setup?
class
switchable-button% : class?
  superclass: canvas%
constructor
(new switchable-button%                                                         
                         [label label]                                          
                         [bitmap bitmap]                                        
                         [callback callback]                                    
                        [[alternate-bitmap alternate-bitmap]                    
                         [vertical-tight? vertical-tight?]                      
                         [min-width-includes-label? min-width-includes-label?]] 
                         [right-click-menu right-click-menu]                    
                         ...superclass-args...)                                 
 -> (is-a?/c switchable-button%)
  label : (or/c string? (is-a?/c bitmap%) #f)
  bitmap : (is-a?/c bitmap%)
  callback : (-> (is-a?/c switchable-button%) any/c)
  alternate-bitmap : (is-a?/c bitmap%) = bitmap
  vertical-tight? : boolean? = #f
  min-width-includes-label? : boolean? = #f
  right-click-menu : (or/c #f (list/c string? (-> any)))
method
(send a-switchable-button set-label-visible visible?) -> void?
  visible? : boolean?
method
(send a-switchable-button command) -> void?
method
(send a-switchable-button get-button-label) -> string?
method
(send a-switchable-button get-large-width)
 -> exact-nonnegative-integer?
method
(send a-switchable-button get-small-width)
 -> exact-nonnegative-integer?
method
(send a-switchable-button get-without-label-small-width)
 -> exact-nonnegative-integer?
procedure
(render-image image dc dx dy) -> void?
  image : image?
  dc : (is-a?/c dc<%>)
  dx : real?
  dy : real?
procedure
(image? v) -> boolean?
  v : any/c
procedure
(un/cache-image image b) -> image?
  image : image?
  b : any/c
procedure
(compute-image-cache image) -> void?
  image : image?
procedure
(definitely-same-image? i1 i2) -> boolean?
  i1 : image?
  i2 : image?
value
snip-class : (is-a?/c snip-class%)
class
visible-matrix% : class?
  superclass: cache-image-snip%
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
(render-syntax/snip  stx                             
                    [#:summary-width summary-width]) 
 -> (is-a?/c snip%)
  stx : syntax?
  summary-width : (or/c #f 0 (integer-in 3 #f) +inf.0) = 32
procedure
(render-syntax/window  stx                                 
                      [#:summary-width summary-width]) -> void?
  stx : syntax?
  summary-width : (or/c #f 0 (integer-in 3 #f) +inf.0) = 32
value
snip-class : (is-a?/c snip-class%)
value
render-syntax-focused-syntax-color-style-name : string?
value
render-syntax-subtitle-color-style-name : string?
value
tex-shortcut-table : (listof
                       (list/c string?
                               (lambda (x)
                                 (and (string? x)
                                      (= (string-length x)
                                         1)))))
procedure
(in-terminal  doit                                  
             [#:container container                 
              #:cleanup-thunk cleanup-thunk         
              #:title title                         
              #:abort-label abort-label             
              #:aborted-message aborted-message     
              #:canvas-min-width canvas-min-width   
              #:canvas-min-height canvas-min-height 
              #:close-button? close-button?         
              #:close-label close-label             
              #:close-callback close-callback]      
              #:close-when-hidden? boolean?)        
 -> (is-a?/c terminal<%>)
  doit : (-> eventspace?
             (or/c (is-a?/c top-level-window<%>) #f)
             void?)
  container : (or/c #f (is-a?/c area-container<%>)) = #f
  cleanup-thunk : (-> void?) = void
  title : string? = "mrlib/terminal"
  abort-label : string?
              = (string-constant plt-installer-abort-installation)
  aborted-message : string?
                  = (string-constant plt-installer-aborted)
  canvas-min-width : (or/c #f (integer-in 0 10000)) = #f
  canvas-min-height : (or/c #f (integer-in 0 10000)) = #f
  close-button? : boolean? = #t
  close-label : string? = (string-constant close)
  close-callback : (-> any) = void
  boolean? : #t
parameter
(on-terminal-run) -> (-> void?)
(on-terminal-run run) -> void?
  run : (-> void?)
interface
terminal<%> : interface?
method
(send a-terminal is-closed?) -> boolean?
method
(send a-terminal close) -> void?
method
(send a-terminal can-close?) -> boolean?
method
(send a-terminal can-close-evt) -> evt?
method
(send a-terminal get-button-panel)
 -> (is-a?/c horizontal-panel%)
procedure
(white-on-black-panel-scheme?) -> boolean?
