12888
((3) 0 () 39 ((c (? . 5) q hierarchical-list%) (q lib "mrlib/graph.rkt") (c (? . 1) q graph-pasteboard<%>) (q lib "mrlib/aligned-pasteboard.rkt") (c (? . 3) q vertical-pasteboard%) (q lib "mrlib/hierlist.rkt") (q 19712 . 9) (q lib "mrlib/plot.rkt") (c (? . 5) q hierarchical-list-item<%>) (q 21025 . 5) (q 28501 . 10) (c (? . 3) q stretchable-snip<%>) (q lib "mrlib/terminal.rkt") (q (lib "mrlib/path-dialog.rkt") path-dialog%) (q lib "mrlib/cache-image-snip.rkt") (c (? . 5) q hierarchical-list-compound-item<%>) (q 22752 . 5) (c (? . 19) q name-message%) (c (? . 3) q horizontal-pasteboard%) (q lib "mrlib/name-message.rkt") (c (? . 3) q aligned-pasteboard<%>) (q lib "mrlib/image-core.rkt") (q 28800 . 20) (q (lib "mrlib/close-icon.rkt") close-icon%) (c (? . 1) q graph-snip<%>) (c (? . 12) q terminal<%>) (c (? . 14) q cache-image-snip%) (q (lib "mrlib/snip-canvas.rkt") snip-canvas%) (q lib "mrlib/include-bitmap.rkt") (q lib "mrlib/syntax-browser.rkt") (c (? . 5) q hierarchical-list-snip%) (q (lib "mrlib/switchable-button.rkt") switchable-button%) (q lib "mrlib/gif.rkt") (c (? . 3) q aligned-pasteboard-parent<%>) (q lib "mrlib/bitmap-label.rkt") (q 21413 . 6) (q lib "mrlib/interactive-value-port.rkt") (c (? . 1) q graph-pasteboard-mixin) (c (? . 5) q hierarchical-item-snip%)) () (h ! (equal) ((c meth c (c (? . 2) q update-arrowhead-polygon)) q (10212 . 18)) ((c constructor c (? . 4)) q (1772 . 3)) ((c meth c (c (? . 0) q sort)) q (18996 . 7)) ((c meth c (c (? . 17) q on-paint)) q (24895 . 2)) ((c meth c (c (? . 25) q can-close?)) q (36157 . 2)) ((c meth c (c (? . 0) q click-select)) q (20248 . 3)) ((c def c (c (? . 1) q neato-hier-label)) q (16431 . 2)) ((c meth c (c (? . 2) q get-arrowhead-params)) q (7885 . 3)) ((c meth c (c (? . 18) q after-insert)) q (824 . 9)) ((c def c (c (? . 1) q neato-ipsep-label)) q (16466 . 2)) ((c def c (c (? . 7) q struct:data-set)) c (? . 10)) ((c meth c (c (? . 4) q after-reorder)) q (2328 . 7)) ((c meth c (c (? . 15) q delete-item)) q (22516 . 3)) ((c meth c (c (? . 0) q select-prev)) c (? . 6)) ((c meth c (c (? . 11) q stretchable-width)) q (3321 . 2)) ((c def c (? . 0)) q (16502 . 3)) ((c def c (c (? . 21) q render-image)) q (31205 . 6)) ((c meth c (c (? . 0) q select-last)) c (? . 6)) ((c constructor c (? . 13)) q (26733 . 37)) ((c meth c (c (? . 0) q new-list)) q (17781 . 7)) ((c meth c (c (? . 8) q click-select)) c (? . 9)) ((c def c (c (? . 7) q plot)) q (29489 . 5)) ((c meth c (c (? . 0) q page-down)) c (? . 6)) ((c meth c (c (? . 0) q on-item-opened)) q (18758 . 3)) ((c meth c (c (? . 0) q on-item-closed)) q (18877 . 3)) ((c meth c (c (? . 8) q select)) c (? . 9)) ((c meth c (c (? . 8) q user-data)) q (21188 . 4)) ((c def c (c (? . 7) q data-set-min-x)) c (? . 10)) ((c meth c (c (? . 11) q get-aligned-min-height)) q (3116 . 2)) ((c def c (c (? . 12) q in-terminal)) q (34445 . 30)) ((c def c (c (? . 7) q data-set-points)) c (? . 10)) ((c def c (? . 20)) q (0 . 2)) ((c def c (c (? . 14) q overlay-bitmap)) q (5372 . 7)) ((c meth c (c (? . 8) q is-selected?)) q (20957 . 2)) ((c def c (? . 13)) q (26678 . 3)) ((c def c (c (? . 14) q argb?)) q (5321 . 3)) ((c meth c (c (? . 33) q set-aligned-min-sizes)) q (2992 . 3)) ((c meth c (c (? . 15) q toggle-open/closed)) c (? . 16)) ((c meth c (c (? . 2) q set-arrowhead-params)) q (8080 . 8)) ((c meth c (c (? . 15) q open)) c (? . 16)) ((c meth c (c (? . 0) q on-select-always)) q (20375 . 4)) ((c def c (c (? . 36) q set-interactive-print-handler)) q (24285 . 7)) ((c meth c (c (? . 17) q on-event)) q (24799 . 3)) ((c def c (? . 37)) q (10940 . 4)) ((c meth c (c (? . 0) q select)) q (20127 . 3)) ((c meth c (c (? . 17) q set-allow-shrinking)) q (25551 . 3)) ((c constructor c (? . 18)) q (619 . 3)) ((c meth c (c (? . 17) q get-background-color)) q (25455 . 3)) ((c meth c (c (? . 11) q stretchable-height)) q (3253 . 2)) ((c def c (c (? . 1) q graph-snip-mixin)) q (13001 . 4)) ((c def c (c (? . 29) q render-syntax/snip)) q (33911 . 3)) ((c def c (c (? . 19) q calc-button-min-sizes)) q (25654 . 5)) ((c meth c (c (? . 20) q get-aligned-min-width)) q (119 . 2)) ((c def c (c (? . 21) q snip-class)) q (31645 . 2)) ((c meth c (c (? . 4) q after-insert)) q (1971 . 9)) ((c meth c (c (? . 2) q draw-single-edge)) q (9293 . 22)) ((c meth c (c (? . 4) q after-delete)) q (1873 . 3)) ((c def c (c (? . 7) q plot-setup-axis-number-font)) c (? . 22)) ((c def c (c (? . 21) q compute-image-cache)) q (31481 . 3)) ((q def ((lib "mrlib/tex-table.rkt") tex-shortcut-table)) q (34102 . 7)) ((c meth c (c (? . 26) q get-pinhole)) q (4490 . 2)) ((c def c (? . 17)) q (24564 . 3)) ((c def c (c (? . 3) q aligned-editor-snip%)) q (2798 . 3)) ((c meth c (c (? . 20) q get-aligned-min-height)) q (47 . 2)) ((c def c (c (? . 19) q pad-xywh)) q (26517 . 6)) ((c meth c (c (? . 0) q on-click)) q (18542 . 3)) ((c constructor c (? . 23)) q (6133 . 13)) ((c def c (c (? . 7) q struct:plot-setup)) c (? . 22)) ((c def c (? . 23)) q (6079 . 3)) ((c def c (c (? . 7) q make-data-set)) c (? . 10)) ((c def c (c (? . 21) q image?)) q (31343 . 3)) ((c def c (? . 38)) q (23113 . 3)) ((c meth c (c (? . 0) q get-items)) q (18186 . 3)) ((c meth c (c (? . 24) q add-child)) q (11702 . 3)) ((c meth c (c (? . 31) q get-without-label-small-width)) q (31106 . 3)) ((c form c (c (? . 28) q include-bitmap/relative-to)) q (23607 . 3)) ((c meth c (c (? . 24) q remove-child)) q (12593 . 3)) ((c def c (c (? . 7) q data-set-pen)) c (? . 10)) ((q def ((lib "mrlib/matrix-snip.rkt") visible-matrix%)) q (31689 . 3)) ((c def c (? . 15)) q (21701 . 3)) ((c meth c (c (? . 24) q get-children)) q (12460 . 2)) ((c meth c (c (? . 0) q can-do-edit-operation?)) q (19305 . 6)) ((c meth c (c (? . 24) q set-parent-link-label)) q (12794 . 5)) ((c def c (? . 25)) q (36024 . 2)) ((c meth c (c (? . 15) q is-open?)) q (22952 . 2)) ((c def c (? . 2)) q (7840 . 2)) ((c meth c (c (? . 26) q other-equal-to?)) q (4663 . 5)) ((c meth c (c (? . 27) q on-size)) q (33772 . 4)) ((c meth c (c (? . 30) q get-item)) q (23348 . 3)) ((c meth c (c (? . 0) q get-selected)) q (17284 . 4)) ((c def c (? . 27)) q (31757 . 3)) ((c def c (c (? . 1) q add-links/text-colors)) q (14635 . 23)) ((c meth c (c (? . 0) q set-no-sublists)) q (17677 . 3)) ((c def c (c (? . 32) q write-animated-gif)) q (6915 . 19)) ((c form c (c (? . 28) q include-bitmap)) q (23533 . 3)) ((c def c (c (? . 29) q snip-class)) q (34058 . 2)) ((c constructor c (? . 0)) q (16570 . 13)) ((c meth c (c (? . 17) q on-choose-directory)) q (24707 . 3)) ((c meth c (c (? . 0) q allow-deselect)) q (20683 . 4)) ((c meth c (c (? . 17) q set-hidden?)) q (24946 . 3)) ((c def c (? . 30)) q (23277 . 3)) ((c meth c (c (? . 31) q set-label-visible)) q (30714 . 3)) ((c meth c (c (? . 17) q set-short-title)) q (25227 . 3)) ((c def c (c (? . 3) q aligned-editor-canvas%)) q (2866 . 3)) ((c meth c (c (? . 8) q set-allow-selection)) c (? . 35)) ((c meth c (c (? . 27) q get-snip)) q (33699 . 2)) ((c meth c (c (? . 26) q get-argb)) q (4039 . 2)) ((c def c (c (? . 34) q bitmap-label-maker)) q (3587 . 5)) ((c def c (c (? . 1) q dot-label)) q (16373 . 2)) ((c meth c (c (? . 31) q get-button-label)) q (30870 . 2)) ((c meth c (c (? . 20) q set-aligned-min-sizes)) q (443 . 2)) ((c def c (c (? . 14) q build-bitmap)) q (5569 . 5)) ((c meth c (c (? . 26) q get-argb-proc)) q (4094 . 3)) ((c meth c (c (? . 0) q on-select)) q (18420 . 3)) ((c meth c (c (? . 0) q do-edit-operation)) q (19513 . 5)) ((c def c (c (? . 7) q plot-setup-y-axis-marking)) c (? . 22)) ((c def c (c (? . 1) q add-links)) q (13129 . 39)) ((c def c (c (? . 21) q un/cache-image)) q (31395 . 4)) ((c def c (c (? . 7) q plot-setup?)) c (? . 22)) ((c def c (c (? . 14) q argb-height)) q (5240 . 3)) ((c def c (c (? . 7) q plot-setup-grid?)) c (? . 22)) ((c def c (c (? . 7) q plot-setup-x-axis-label)) c (? . 22)) ((c def c (c (? . 7) q data-set-min-y)) c (? . 10)) ((c meth c (c (? . 2) q draw-edges)) q (8765 . 15)) ((c meth c (c (? . 31) q get-large-width)) q (30936 . 3)) ((c meth c (c (? . 8) q get-parent)) q (21585 . 3)) ((c def c (? . 24)) q (11663 . 2)) ((c meth c (c (? . 0) q page-up)) c (? . 6)) ((c constructor c (? . 31)) q (29682 . 16)) ((c def c (c (? . 1) q find-dot)) q (16288 . 3)) ((c def c (c (? . 1) q remove-links)) q (15618 . 4)) ((c def c (c (? . 32) q write-gif)) q (6744 . 5)) ((c def c (? . 26)) q (3770 . 3)) ((c def c (c (? . 7) q data-set-max-y)) c (? . 10)) ((c def c (c (? . 1) q dot-positioning)) q (15926 . 8)) ((c meth c (c (? . 17) q fill-popup)) q (25329 . 4)) ((c meth c (c (? . 31) q get-small-width)) q (31021 . 3)) ((c def c (? . 33)) q (2938 . 2)) ((c def c (c (? . 7) q plot-setup-axis-label-font)) c (? . 22)) ((c meth c (c (? . 15) q get-items)) q (22639 . 3)) ((c meth c (c (? . 0) q new-item)) q (17408 . 7)) ((c def c (c (? . 21) q definitely-same-image?)) q (31552 . 4)) ((c def c (c (? . 14) q flatten-bitmap)) q (5759 . 3)) ((c meth c (c (? . 26) q equal-to?)) q (3834 . 5)) ((c def c (c (? . 34) q make-bitmap-label)) q (3388 . 5)) ((c meth c (c (? . 8) q get-clickable-snip)) q (21330 . 3)) ((c def c (c (? . 14) q argb-vector)) q (5088 . 3)) ((c def c (c (? . 29) q render-syntax/window)) q (33989 . 3)) ((c def c (c (? . 7) q data-set)) c (? . 10)) ((c meth c (c (? . 0) q delete-item)) q (18077 . 3)) ((c meth c (c (? . 0) q select-in)) c (? . 6)) ((c meth c (c (? . 26) q get-dc-proc)) q (4376 . 3)) ((c def c (c (? . 19) q draw-button-label)) q (25820 . 21)) ((c meth c (c (? . 4) q resized)) q (2612 . 5)) ((c constructor c (? . 27)) q (31819 . 33)) ((c meth c (c (? . 8) q get-allow-selection?)) c (? . 35)) ((c def c (c (? . 36) q set-interactive-display-handler)) q (23723 . 7)) ((c def c (c (? . 12) q on-terminal-run)) q (35921 . 4)) ((c meth c (c (? . 15) q set-no-sublists)) q (22087 . 4)) ((c def c (? . 18)) q (514 . 4)) ((c def c (c (? . 7) q data-set-connected?)) c (? . 10)) ((c def c (c (? . 14) q argb->bitmap)) q (5988 . 3)) ((c meth c (c (? . 30) q get-content-buffer)) q (23450 . 3)) ((c meth c (c (? . 0) q on-double-select)) q (18646 . 3)) ((c constructor c (? . 17)) q (24620 . 3)) ((c def c (c (? . 14) q make-argb)) q (4924 . 5)) ((c def c (? . 8)) q (20832 . 2)) ((c def c (? . 31)) q (29621 . 3)) ((c meth c (c (? . 24) q add-parent)) q (11798 . 13)) ((c meth c (c (? . 2) q get-edge-label-font)) q (8687 . 3)) ((c meth c (c (? . 0) q selectable)) q (18285 . 4)) ((c meth c (c (? . 2) q set-flip-labels?)) q (8481 . 3)) ((c constructor c (? . 37)) q (11086 . 10)) ((c meth c (c (? . 25) q close)) q (36113 . 2)) ((c meth c (c (? . 18) q after-delete)) q (724 . 3)) ((c meth c (c (? . 17) q set-message)) q (25031 . 5)) ((c meth c (c (? . 25) q can-close-evt)) q (36209 . 2)) ((c def c (c (? . 14) q snip-class)) q (4880 . 2)) ((c meth c (c (? . 26) q get-bitmap)) q (4288 . 3)) ((c def c (c (? . 36) q set-interactive-write-handler)) q (24006 . 7)) ((c meth c (c (? . 15) q get-arrow-snip)) q (23025 . 3)) ((c meth c (c (? . 24) q get-parents)) q (12523 . 2)) ((c meth c (c (? . 18) q after-reorder)) q (1189 . 7)) ((c meth c (c (? . 0) q select-next)) c (? . 6)) ((c def c (c (? . 7) q plot-setup-axis-pen)) c (? . 22)) ((c meth c (c (? . 0) q on-click-always)) q (20530 . 4)) ((c def c (c (? . 1) q set-link-label)) q (15748 . 5)) ((c meth c (c (? . 38) q get-item)) q (23184 . 3)) ((c meth c (c (? . 8) q get-editor)) q (20883 . 2)) ((c def c (c (? . 7) q make-plot-setup)) c (? . 22)) ((c def c (c (? . 7) q plot-setup-y-axis-label)) c (? . 22)) ((c meth c (c (? . 31) q command)) q (30815 . 2)) ((c def c (c (? . 14) q argb-width)) q (5160 . 3)) ((c def c (c (? . 14) q argb->cache-image-snip)) q (5852 . 5)) ((c meth c (c (? . 26) q get-size)) q (4555 . 4)) ((c def c (c (? . 7) q plot-setup)) c (? . 22)) ((c def c (c (? . 7) q data-set-max-x)) c (? . 10)) ((c meth c (c (? . 2) q set-draw-arrow-heads?)) q (8361 . 4)) ((c meth c (c (? . 11) q get-aligned-min-width)) q (3185 . 2)) ((c meth c (c (? . 24) q remove-parent)) q (12692 . 3)) ((c meth c (c (? . 2) q set-edge-label-font)) q (8585 . 3)) ((c meth c (c (? . 0) q select-out)) c (? . 6)) ((c meth c (c (? . 15) q close)) c (? . 16)) ((c def c (? . 4)) q (1669 . 4)) ((c meth c (c (? . 20) q realign)) q (190 . 6)) ((c def c (c (? . 7) q plot-setup-grid-pen)) c (? . 22)) ((c meth c (c (? . 2) q on-mouse-over-snips)) q (7970 . 3)) ((c meth c (c (? . 25) q is-closed?)) q (36061 . 2)) ((c def c (c (? . 7) q plot-setup-x-axis-marking)) c (? . 22)) ((c meth c (c (? . 25) q get-button-panel)) q (36260 . 3)) ((c meth c (c (? . 18) q resized)) q (1479 . 5)) ((c def c (? . 11)) q (3071 . 2)) ((c meth c (c (? . 13) q run)) q (28456 . 2)) ((c meth c (c (? . 15) q new-list)) q (22206 . 7)) ((c def c (c (? . 1) q neato-label)) q (16401 . 2)) ((c meth c (c (? . 26) q get-argb/no-compute)) q (4204 . 3)) ((c meth c (c (? . 15) q new-item)) q (21804 . 7)) ((c def c (c (? . 7) q data-set?)) c (? . 10)) ((c meth c (c (? . 0) q select-first)) c (? . 6))))
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?
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
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?]] 
                         ...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
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) -> (is-a?/c snip%)
  stx : syntax?
procedure
(render-syntax/window stx) -> void?
  stx : syntax?
value
snip-class : (is-a?/c snip-class%)
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%)
