73879
((3) 0 () 105 ((q lib "mred/main.rkt") (c (? . 0) q checkable-menu-item%) (q lib "racket/snip.rkt") (c (? . 2) q style-delta%) (c (? . 2) q add-color<%>) (c (? . 0) q pasteboard%) (c (? . 0) q text%) (c (? . 2) q snip%) (c (? . 0) q editor<%>) (c (? . 0) q window<%>) (c (? . 0) q mouse-event%) (c (? . 0) q editor-snip%) (c (? . 0) q canvas%) (c (? . 0) q clipboard<%>) (c (? . 0) q area-container<%>) (c (? . 2) q style<%>) (c (? . 0) q editor-canvas%) (c (? . 0) q choice%) (c (? . 0) q labelled-menu-item<%>) (c (? . 0) q list-box%) (c (? . 0) q key-event%) (c (? . 0) q top-level-window<%>) (c (? . 2) q mult-color<%>) (c (? . 0) q message%) (c (? . 0) q list-control<%>) (c (? . 0) q editor-admin%) (c (? . 2) q image-snip%) (c (? . 0) q canvas<%>) (c (? . 0) q editor-stream-in-base%) (q lib "wxme/main.rkt") (c (? . 0) q frame%) (c (? . 0) q popup-menu%) (c (? . 0) q editor-stream-in%) (c (? . 0) q editor-stream-out-bytes-base%) (c (? . 0) q editor-stream-out%) (c (? . 0) q editor-stream-out-base%) (c (? . 29) q stream<%>) (c (? . 0) q editor-wordbreak-map%) (c (? . 0) q keymap%) (c (? . 0) q area<%>) (c (? . 2) q snip-admin%) (c (? . 0) q tab-panel%) (c (? . 0) q editor-data-class-list<%>) (c (? . 2) q snip-class%) (c (? . 0) q slider%) (c (? . 0) q radio-box%) (c (? . 0) q group-box-panel%) (c (? . 0) q dialog%) (c (? . 0) q menu-bar%) (c (? . 2) q snip-class-list<%>) (c (? . 0) q timer%) (q lib "wxme/cache-image.rkt") (c (? . 0) q combo-field%) (c (? . 0) q selectable-menu-item<%>) (c (? . 0) q panel%) (q (lib "wxme/image.rkt") image%) (c (? . 0) q editor-data-class%) (c (? . 64) q comment-editor%) (c (? . 0) q vertical-panel%) (c (? . 2) q string-snip%) (c (? . 2) q style-list%) (c (? . 51) q cache-image%) (c (? . 0) q horizontal-panel%) (c (? . 101) q text-editor%) (q lib "wxme/comment.rkt") (c (? . 29) q snip-reader<%>) (c (? . 2) q tab-snip%) (c (? . 0) q editor-data%) (c (? . 0) q text-field%) (c (? . 0) q control-event%) (c (? . 0) q check-box%) (c (? . 83) q test-case%) (q lib "wxme/xml.rkt") (c (? . 0) q subarea<%>) (c (? . 0) q menu-item<%>) (q lib "wxme/scheme.rkt") (c (? . 0) q clipboard-client%) (c (? . 0) q menu-item%) (c (? . 0) q gauge%) (c (? . 29) q readable<%>) (c (? . 75) q scheme-editor%) (c (? . 0) q vertical-pane%) (c (? . 0) q scroll-event%) (q lib "wxme/test-case.rkt") (c (? . 0) q menu%) (c (? . 0) q horizontal-pane%) (c (? . 0) q editor-snip-editor-admin<%>) (c (? . 0) q printer-dc%) (c (? . 0) q cursor%) (c (? . 0) q menu-item-container<%>) (c (? . 0) q event%) (c (? . 0) q subwindow<%>) (q lib "racket/gui/base.rkt") (c (? . 2) q readable-snip<%>) (c (? . 0) q control<%>) (c (? . 72) q xml-editor%) (c (? . 0) q separator-menu-item%) (q lib "racket/gui/dynamic.rkt") (c (? . 0) q column-control-event%) (c (? . 0) q editor-stream-in-bytes-base%) (c (? . 0) q button%) (q lib "wxme/text.rkt") (q (lib "wxme/editor.rkt") editor%) (c (? . 0) q pane%) (c (? . 0) q grow-box-spacer-pane%)) () (h ! (equal) ((c meth c (c (? . 10) q set-control-down)) q (58254 . 3)) ((c meth c (c (? . 28) q bad?)) q (178403 . 2)) ((c meth c (c (? . 4) q get-a)) q (108188 . 2)) ((c meth c (c (? . 5) q move)) q (190506 . 8)) ((c def c (c (? . 29) q wxme-read-syntax)) q (227270 . 4)) ((c meth c (c (? . 9) q on-subwindow-focus)) q (87090 . 5)) ((c def c (? . 1)) q (13907 . 4)) ((c def c (? . 17)) q (15889 . 4)) ((c meth c (c (? . 21) q get-edit-target-window)) q (79567 . 3)) ((c meth c (c (? . 1) q check)) q (15741 . 3)) ((c meth c (c (? . 3) q get-style-on)) q (131906 . 3)) ((c meth c (c (? . 8) q on-local-event)) q (150345 . 3)) ((c meth c (c (? . 3) q set-underlined-off)) q (136211 . 3)) ((c def c (c (? . 0) q get-ps-setup-from-user)) q (98578 . 10)) ((c meth c (c (? . 4) q get-r)) q (108366 . 2)) ((c meth c (c (? . 6) q get-file-format)) q (205377 . 3)) ((c meth c (c (? . 5) q on-double-click)) q (191162 . 5)) ((c def c (? . 7)) q (113137 . 4)) ((c meth c (c (? . 38) q add-function)) q (182069 . 4)) ((c meth c (c (? . 22) q set-g)) q (112548 . 3)) ((c meth c (c (? . 5) q do-paste)) q (188188 . 3)) ((c constructor c (? . 48)) q (50151 . 8)) ((c def c (? . 6)) q (193772 . 4)) ((c meth c (c (? . 11) q get-max-height)) q (174682 . 3)) ((c meth c (c (? . 6) q set-between-threshold)) q (217409 . 3)) ((c def c (c (? . 0) q get-the-editor-data-class-list)) q (223003 . 3)) ((c def c (c (? . 0) q get-page-setup-from-user)) q (98995 . 10)) ((c meth c (c (? . 7) q get-admin)) q (116053 . 2)) ((c meth c (c (? . 8) q blink-caret)) q (139862 . 2)) ((c meth c (c (? . 9) q focus)) q (85164 . 2)) ((c meth c (c (? . 6) q paste)) q (213748 . 5)) ((c meth c (c (? . 10) q get-mod3-down)) q (57582 . 2)) ((c meth c (c (? . 90) q set-time-stamp)) q (26846 . 3)) ((c meth c (c (? . 39) q get-graphical-min-size)) q (33 . 3)) ((c meth c (c (? . 7) q next)) q (118555 . 2)) ((c meth c (c (? . 14) q set-alignment)) q (2958 . 5)) ((c meth c (c (? . 15) q get-foreground)) q (127348 . 2)) ((c meth c (c (? . 11) q get-extent)) q (173146 . 22)) ((c def c (c (? . 0) q area-container-window<%>)) q (3349 . 4)) ((c meth c (c (? . 40) q get-dc)) q (121619 . 2)) ((c meth c (c (? . 33) q get-bytes)) q (181401 . 2)) ((c meth c (c (? . 11) q resize)) q (175152 . 4)) ((c meth c (c (? . 16) q set-line-count)) q (168277 . 3)) ((c meth c (c (? . 13) q set-clipboard-client)) q (19011 . 5)) ((c meth c (c (? . 8) q on-focus)) q (149951 . 3)) ((c meth c (c (? . 18) q enable)) q (42548 . 3)) ((c meth c (c (? . 27) q min-client-width)) q (6053 . 4)) ((c meth c (c (? . 6) q set-line-spacing)) q (218240 . 3)) ((c meth c (c (? . 12) q refresh-now)) q (10547 . 6)) ((c meth c (c (? . 6) q get-character)) q (205047 . 3)) ((c meth c (c (? . 6) q find-string-embedded)) q (200544 . 25)) ((c meth c (c (? . 44) q set-value)) q (72049 . 3)) ((c meth c (c (? . 19) q get-column-width)) q (46276 . 5)) ((c meth c (c (? . 9) q on-superwindow-show)) q (87449 . 3)) ((c def c (c (? . 0) q get-file-list)) q (89349 . 19)) ((c def c (? . 26)) q (108942 . 3)) ((c meth c (c (? . 5) q get-scroll-step)) q (188898 . 3)) ((c meth c (c (? . 8) q get-descent)) q (143157 . 2)) ((c meth c (c (? . 12) q get-view-start)) q (9023 . 3)) ((c meth c (c (? . 20) q set-other-caps-key-code)) q (41780 . 3)) ((c meth c (c (? . 3) q get-weight-off)) q (132275 . 3)) ((c meth c (c (? . 6) q set-styles-sticky)) q (220770 . 3)) ((c meth c (c (? . 52) q get-menu)) q (21446 . 2)) ((c meth c (c (? . 6) q after-change-style)) q (194219 . 4)) ((c meth c (c (? . 8) q insert-image)) q (146316 . 13)) ((c meth c (c (? . 11) q use-style-background)) q (176669 . 3)) ((c meth c (c (? . 13) q set-clipboard-bitmap)) q (18813 . 5)) ((c meth c (c (? . 70) q set-value)) q (13831 . 3)) ((c meth c (c (? . 8) q clear)) q (140734 . 2)) ((c constructor c (? . 66)) q (138543 . 2)) ((c meth c (c (? . 14) q place-children)) q (2252 . 14)) ((c meth c (c (? . 15) q set-delta)) q (128599 . 3)) ((c meth c (c (? . 10) q button-up?)) q (56811 . 3)) ((c meth c (c (? . 11) q set-min-height)) q (176191 . 3)) ((c meth c (c (? . 25) q get-dc)) q (160764 . 4)) ((c def c (c (? . 0) q get-top-level-edit-target-window)) q (100245 . 3)) ((c meth c (c (? . 8) q after-save-file)) q (139074 . 3)) ((c meth c (c (? . 6) q get-position)) q (205867 . 4)) ((c meth c (c (? . 16) q get-scroll-via-copy)) q (166480 . 2)) ((c def c (? . 55)) q (229317 . 3)) ((c meth c (c (? . 24) q set-selection)) q (49166 . 3)) ((c def c (c (? . 0) q menu-control-font)) q (103338 . 2)) ((c constructor c (? . 17)) q (15969 . 34)) ((c meth c (c (? . 8) q read-footer-from-file)) q (153576 . 5)) ((c meth c (c (? . 42) q find)) q (170020 . 4)) ((c meth c (c (? . 6) q get-padding)) q (205600 . 5)) ((c meth c (c (? . 18) q set-label)) q (43089 . 3)) ((c def c (? . 14)) q (834 . 3)) ((c def c (c (? . 0) q read-editor-global-footer)) q (224978 . 3)) ((c meth c (c (? . 13) q get-clipboard-bitmap)) q (18293 . 4)) ((c meth c (c (? . 8) q begin-edit-sequence)) q (139340 . 5)) ((c meth c (c (? . 8) q set-undo-preserves-all-history)) q (159730 . 3)) ((c meth c (c (? . 19) q get-first-visible-item)) q (46609 . 3)) ((c meth c (c (? . 8) q set-max-width)) q (158942 . 3)) ((c def c (? . 46)) q (32231 . 3)) ((c meth c (c (? . 20) q set-caps-down)) q (40872 . 3)) ((c meth c (c (? . 7) q get-count)) q (116126 . 2)) ((c meth c (c (? . 30) q on-menu-char)) q (29784 . 3)) ((c def c (c (? . 51) q reader)) q (232075 . 2)) ((c meth c (c (? . 21) q on-exit)) q (80200 . 2)) ((c meth c (c (? . 82) q get-event-type)) q (69248 . 4)) ((c meth c (c (? . 10) q get-y)) q (57930 . 2)) ((c meth c (c (? . 22) q get-b)) q (112150 . 2)) ((c meth c (c (? . 8) q get-file)) q (143421 . 3)) ((c meth c (c (? . 6) q paste-x-selection)) q (214025 . 7)) ((c meth c (c (? . 16) q allow-scroll-to-last)) q (165761 . 4)) ((c meth c (c (? . 3) q set-alignment-on)) q (132562 . 3)) ((c meth c (c (? . 60) q new-named-style)) q (137637 . 6)) ((c meth c (c (? . 8) q put-file)) q (153372 . 5)) ((c def c (? . 34)) q (179515 . 3)) ((c meth c (c (? . 5) q add-selected)) q (184204 . 8)) ((c meth c (c (? . 9) q set-cursor)) q (87874 . 3)) ((c meth c (c (? . 23) q set-label)) q (54614 . 3)) ((c meth c (c (? . 7) q set-char-and-grapheme-count)) q (120645 . 5)) ((c meth c (c (? . 23) q set-color)) q (54724 . 5)) ((c def c (? . 31)) q (62669 . 4)) ((c def c (? . 91)) q (72481 . 4)) ((c def c (? . 73)) q (72134 . 3)) ((c meth c (c (? . 24) q get-string)) q (48938 . 4)) ((c meth c (c (? . 15) q get-text-space)) q (128036 . 4)) ((c meth c (c (? . 10) q get-left-down)) q (57406 . 2)) ((c meth c (c (? . 18) q on-demand)) q (42922 . 2)) ((c meth c (c (? . 7) q get-flags)) q (117345 . 2)) ((c meth c (c (? . 11) q adjust-cursor)) q (172443 . 14)) ((c meth c (c (? . 19) q get-column-order)) q (46189 . 3)) ((c def c (c (? . 0) q begin-busy-cursor)) q (103566 . 2)) ((c meth c (c (? . 3) q set-size-in-pixels-off)) q (135263 . 3)) ((c meth c (c (? . 25) q resized)) q (162527 . 3)) ((c meth c (c (? . 26) q load-file)) q (110620 . 14)) ((c meth c (c (? . 3) q get-transparent-text-backing-off)) q (131995 . 3)) ((c meth c (c (? . 27) q min-client-height)) q (5907 . 4)) ((c meth c (c (? . 7) q split)) q (121233 . 5)) ((c meth c (c (? . 28) q read-byte)) q (178956 . 2)) ((c def c (? . 54)) q (60834 . 5)) ((c def c (c (? . 0) q get-display-depth)) q (102387 . 2)) ((c meth c (c (? . 6) q paragraph-end-line)) q (213040 . 4)) ((c meth c (c (? . 20) q get-wheel-steps)) q (40618 . 2)) ((c meth c (c (? . 36) q read-editor)) q (228990 . 3)) ((c constructor c (? . 30)) q (27014 . 39)) ((c meth c (c (? . 37) q get-map)) q (181614 . 4)) ((c def c (? . 20)) q (37997 . 3)) ((c meth c (c (? . 31) q get-font)) q (63473 . 2)) ((c meth c (c (? . 8) q do-edit-operation)) q (141507 . 9)) ((c meth c (c (? . 16) q get-line-count)) q (166392 . 3)) ((c meth c (c (? . 8) q locked-for-write?)) q (148819 . 2)) ((c meth c (c (? . 9) q on-size)) q (86574 . 4)) ((c meth c (c (? . 8) q set-min-width)) q (159187 . 3)) ((c meth c (c (? . 7) q set-count)) q (120564 . 3)) ((c meth c (c (? . 15) q get-base-style)) q (126931 . 2)) ((c meth c (c (? . 27) q get-dc)) q (5760 . 2)) ((c meth c (c (? . 15) q get-name)) q (127410 . 2)) ((c meth c (c (? . 32) q set-boundary)) q (178073 . 3)) ((c meth c (c (? . 3) q get-face)) q (130960 . 2)) ((c meth c (c (? . 14) q get-children)) q (2167 . 3)) ((c def c (c (? . 0) q textual-read-eval-print-loop)) q (105445 . 2)) ((c meth c (c (? . 68) q get-editor)) q (78010 . 2)) ((c def c (? . 100)) q (3459 . 4)) ((c def c (? . 41)) q (72760 . 3)) ((c meth c (c (? . 32) q jump-to)) q (177857 . 3)) ((c meth c (c (? . 21) q on-traverse-char)) q (80404 . 3)) ((c meth c (c (? . 8) q copy-self-to)) q (141039 . 3)) ((c constructor c (? . 33)) q (181305 . 3)) ((c meth c (c (? . 34) q put)) q (179990 . 14)) ((c meth c (c (? . 11) q show-border)) q (176520 . 3)) ((c def c (c (? . 0) q the-style-list)) q (225814 . 2)) ((c meth c (c (? . 18) q set-help-string)) q (42980 . 3)) ((c meth c (c (? . 43) q read)) q (125037 . 3)) ((c meth c (c (? . 14) q begin-container-sequence)) q (1106 . 2)) ((c meth c (c (? . 35) q tell)) q (180952 . 3)) ((c meth c (c (? . 86) q get-snip)) q (170544 . 3)) ((c meth c (c (? . 20) q set-key-code)) q (41127 . 3)) ((c def c (? . 58)) q (82671 . 3)) ((c def c (c (? . 0) q sleep/yield)) q (100873 . 3)) ((c meth c (c (? . 35) q bad?)) q (180789 . 2)) ((c meth c (c (? . 7) q merge-with)) q (118451 . 3)) ((c meth c (c (? . 5) q remove-selected)) q (192730 . 3)) ((c meth c (c (? . 25) q get-view)) q (161451 . 7)) ((c meth c (c (? . 36) q read-integer)) q (228492 . 5)) ((c def c (c (? . 0) q get-top-level-windows)) q (100054 . 3)) ((c def c (? . 37)) q (181471 . 3)) ((c meth c (c (? . 6) q erase)) q (197905 . 2)) ((c meth c (c (? . 65) q read-snip)) q (227622 . 9)) ((c meth c (c (? . 38) q remove-chained-keymap)) q (183276 . 3)) ((c meth c (c (? . 38) q handle-mouse-event)) q (183041 . 4)) ((c meth c (c (? . 20) q get-control-down)) q (39659 . 2)) ((c meth c (c (? . 4) q get-g)) q (108300 . 2)) ((c meth c (c (? . 11) q set-max-height)) q (175952 . 3)) ((c def c (? . 80)) q (230900 . 4)) ((c meth c (c (? . 8) q get-max-undo-history)) q (144205 . 3)) ((c meth c (c (? . 16) q lazy-refresh)) q (166722 . 4)) ((c meth c (c (? . 1) q is-checked?)) q (15825 . 2)) ((c meth c (c (? . 6) q on-new-string-snip)) q (212803 . 2)) ((c meth c (c (? . 7) q get-text)) q (117750 . 5)) ((c meth c (c (? . 9) q get-client-handle)) q (85206 . 2)) ((c meth c (c (? . 39) q get-parent)) q (125 . 3)) ((c meth c (c (? . 7) q set-snipclass)) q (120954 . 3)) ((c meth c (c (? . 16) q on-char)) q (166855 . 3)) ((c meth c (c (? . 45) q get-item-plain-label)) q (66347 . 3)) ((c meth c (c (? . 40) q get-view)) q (121784 . 7)) ((c meth c (c (? . 19) q get-selections)) q (46756 . 3)) ((c meth c (c (? . 6) q last-position)) q (211062 . 2)) ((c def c (c (? . 0) q positive-dimension-integer?)) q (106430 . 3)) ((c constructor c (? . 81)) q (81232 . 26)) ((c meth c (c (? . 19) q select)) q (47016 . 4)) ((c meth c (c (? . 3) q get-weight-on)) q (132364 . 3)) ((c meth c (c (? . 5) q do-copy)) q (188075 . 4)) ((c meth c (c (? . 9) q on-subwindow-char)) q (86700 . 5)) ((c meth c (c (? . 8) q insert)) q (145777 . 3)) ((c meth c (c (? . 41) q set-item-label)) q (75802 . 4)) ((c def c (c (? . 0) q current-eventspace-has-menu-root?)) q (101187 . 2)) ((c def c (c (? . 0) q normal-control-font)) q (103383 . 2)) ((c meth c (c (? . 10) q set-left-down)) q (58582 . 3)) ((c meth c (c (? . 20) q set-mod4-down)) q (41501 . 3)) ((c def c (c (? . 0) q register-collecting-blit)) q (106503 . 23)) ((c meth c (c (? . 8) q size-cache-invalid)) q (159821 . 2)) ((c def c (? . 47)) q (24295 . 4)) ((c meth c (c (? . 42) q nth)) q (170275 . 4)) ((c meth c (c (? . 43) q reading-version)) q (125244 . 3)) ((c meth c (c (? . 8) q select-all)) q (157226 . 2)) ((c def c (c (? . 0) q label-string?)) q (107792 . 3)) ((c meth c (c (? . 27) q get-canvas-background)) q (5677 . 3)) ((c meth c (c (? . 8) q on-default-event)) q (149590 . 3)) ((c meth c (c (? . 6) q get-revision-number)) q (206230 . 3)) ((c meth c (c (? . 21) q get-focus-window)) q (79852 . 3)) ((c meth c (c (? . 6) q on-new-tab-snip)) q (212874 . 2)) ((c def c (c (? . 0) q application-about-handler)) q (101247 . 4)) ((c constructor c (? . 44)) q (69919 . 38)) ((c meth c (c (? . 11) q style-background-used?)) q (176601 . 2)) ((c def c (c (? . 0) q put-file)) q (90294 . 18)) ((c meth c (c (? . 50) q notify)) q (78886 . 2)) ((c def c (c (? . 0) q current-eventspace)) q (99600 . 4)) ((c meth c (c (? . 95) q read-special)) q (230452 . 9)) ((c meth c (c (? . 19) q get-column-labels)) q (46089 . 3)) ((c meth c (c (? . 38) q set-break-sequence-callback)) q (183500 . 3)) ((c meth c (c (? . 38) q set-double-click-interval)) q (183587 . 3)) ((c meth c (c (? . 76) q get-types)) q (18129 . 2)) ((c meth c (c (? . 9) q on-drop-file)) q (86318 . 3)) ((c meth c (c (? . 23) q auto-resize)) q (54497 . 4)) ((c meth c (c (? . 20) q set-key-release-code)) q (41230 . 3)) ((c meth c (c (? . 49) q number)) q (126127 . 2)) ((c meth c (c (? . 15) q set-base-style)) q (128498 . 3)) ((c meth c (c (? . 27) q flush)) q (5635 . 2)) ((c constructor c (? . 87)) q (63808 . 3)) ((c def c (? . 11)) q (170627 . 3)) ((c constructor c (? . 26)) q (108994 . 18)) ((c meth c (c (? . 6) q after-set-position)) q (194738 . 2)) ((c def c (c (? . 0) q application-start-empty-handler)) q (101855 . 4)) ((c meth c (c (? . 14) q reflow-container)) q (2896 . 2)) ((c meth c (c (? . 10) q entering?)) q (56991 . 2)) ((c meth c (c (? . 42) q add)) q (169904 . 3)) ((c def c (c (? . 0) q get-choices-from-user)) q (97099 . 15)) ((c meth c (c (? . 56) q set-classname)) q (169770 . 3)) ((c meth c (c (? . 45) q enable)) q (66064 . 6)) ((c meth c (c (? . 7) q partial-offset)) q (120039 . 6)) ((c meth c (c (? . 7) q set-admin)) q (120464 . 3)) ((c meth c (c (? . 5) q after-delete)) q (184473 . 3)) ((c meth c (c (? . 20) q get-other-shift-altgr-key-code)) q (40365 . 3)) ((c meth c (c (? . 6) q flash-off)) q (204360 . 2)) ((c meth c (c (? . 14) q border)) q (1176 . 4)) ((c meth c (c (? . 39) q get-top-level-window)) q (207 . 3)) ((c def c (c (? . 0) q make-screen-bitmap)) q (106114 . 4)) ((c meth c (c (? . 6) q get-start-position)) q (206871 . 2)) ((c meth c (c (? . 38) q is-function-added?)) q (182204 . 3)) ((c def c (c (? . 0) q yield)) q (100789 . 4)) ((c meth c (c (? . 45) q is-enabled?)) q (66607 . 4)) ((c def c (c (? . 0) q queue-callback)) q (100660 . 4)) ((c meth c (c (? . 6) q hide-caret)) q (208641 . 3)) ((c meth c (c (? . 8) q adjust-cursor)) q (138809 . 4)) ((c meth c (c (? . 59) q insert)) q (126464 . 5)) ((c meth c (c (? . 8) q release-snip)) q (154955 . 3)) ((c meth c (c (? . 14) q change-children)) q (1324 . 4)) ((c meth c (c (? . 3) q get-size-mult)) q (131522 . 2)) ((c def c (c (? . 0) q make-gl-bitmap)) q (105826 . 5)) ((c meth c (c (? . 21) q resize)) q (80625 . 5)) ((c constructor c (? . 62)) q (35954 . 33)) ((c meth c (c (? . 11) q set-editor)) q (175390 . 3)) ((c meth c (c (? . 38) q map-function)) q (183165 . 4)) ((c meth c (c (? . 63) q read-special)) q (231623 . 9)) ((c meth c (c (? . 19) q set-string)) q (48195 . 5)) ((c meth c (c (? . 6) q find-position-in-line)) q (199127 . 12)) ((c meth c (c (? . 8) q on-change)) q (149359 . 2)) ((c def c (c (? . 0) q get-display-backing-scale)) q (102190 . 4)) ((c meth c (c (? . 6) q position-paragraph)) q (215911 . 6)) ((c meth c (c (? . 8) q get-inactive-caret-threshold)) q (143854 . 3)) ((c meth c (c (? . 38) q set-grab-mouse-function)) q (183875 . 7)) ((c meth c (c (? . 6) q get-text)) q (207328 . 9)) ((c def c (? . 10)) q (54972 . 3)) ((c meth c (c (? . 25) q popup-menu)) q (162327 . 5)) ((c meth c (c (? . 10) q get-caps-down)) q (57102 . 2)) ((c meth c (c (? . 16) q scroll-with-bottom-base)) q (167897 . 4)) ((c constructor c (? . 12)) q (6806 . 32)) ((c constructor c (? . 46)) q (32298 . 34)) ((c constructor c (? . 19)) q (43264 . 47)) ((c meth c (c (? . 47) q on-subwindow-char)) q (26304 . 5)) ((c meth c (c (? . 78) q get-range)) q (31931 . 2)) ((c meth c (c (? . 6) q on-default-char)) q (212342 . 3)) ((c meth c (c (? . 5) q on-default-char)) q (190875 . 3)) ((c meth c (c (? . 32) q get-fixed)) q (177401 . 4)) ((c meth c (c (? . 20) q get-key-code)) q (39786 . 3)) ((c meth c (c (? . 5) q can-resize?)) q (187325 . 5)) ((c constructor c (? . 84)) q (49465 . 13)) ((c meth c (c (? . 5) q raise)) q (192565 . 3)) ((c def c (? . 5)) q (184067 . 4)) ((c meth c (c (? . 8) q on-display-size)) q (149689 . 2)) ((c meth c (c (? . 15) q get-style)) q (127737 . 2)) ((c meth c (c (? . 9) q on-move)) q (86468 . 4)) ((c constructor c (? . 43)) q (124861 . 2)) ((c meth c (c (? . 32) q get)) q (176950 . 5)) ((c meth c (c (? . 6) q copy)) q (196510 . 6)) ((c def c (c (? . 0) q application-file-handler)) q (101386 . 4)) ((c meth c (c (? . 48) q get-frame)) q (50593 . 2)) ((c meth c (c (? . 53) q get-shortcut-prefix)) q (67131 . 8)) ((c constructor c (? . 20)) q (38049 . 29)) ((c meth c (c (? . 11) q get-min-height)) q (174885 . 3)) ((c meth c (c (? . 6) q position-line)) q (214467 . 5)) ((c meth c (c (? . 6) q change-style)) q (195629 . 17)) ((c meth c (c (? . 5) q no-selected)) q (190823 . 2)) ((c meth c (c (? . 49) q nth)) q (126008 . 4)) ((c def c (? . 19)) q (43182 . 4)) ((c meth c (c (? . 8) q set-keymap)) q (158483 . 3)) ((c def c (c (? . 0) q special-option-key)) q (100448 . 4)) ((c meth c (c (? . 8) q get-active-canvas)) q (142616 . 3)) ((c def c (c (? . 0) q end-busy-cursor)) q (103699 . 2)) ((c meth c (c (? . 3) q set-weight-on)) q (136475 . 3)) ((c meth c (c (? . 26) q get-bitmap-mask)) q (110158 . 3)) ((c meth c (c (? . 8) q on-edit-sequence)) q (149806 . 2)) ((c meth c (c (? . 5) q after-move-to)) q (185087 . 9)) ((c meth c (c (? . 21) q on-close)) q (80145 . 2)) ((c meth c (c (? . 8) q get-view-size)) q (145397 . 4)) ((c meth c (c (? . 8) q resized)) q (155144 . 4)) ((c def c (c (? . 97) q gui-available?)) q (233095 . 2)) ((c meth c (c (? . 26) q equal-hash-code-of)) q (109809 . 4)) ((c meth c (c (? . 8) q on-new-image-snip)) q (150547 . 13)) ((c meth c (c (? . 9) q get-width)) q (86001 . 2)) ((c meth c (c (? . 7) q copy)) q (114151 . 2)) ((c meth c (c (? . 15) q get-face)) q (127097 . 2)) ((c meth c (c (? . 71) q get-error-message)) q (232851 . 2)) ((c meth c (c (? . 20) q set-mod3-down)) q (41421 . 3)) ((c meth c (c (? . 50) q interval)) q (78820 . 2)) ((c meth c (c (? . 8) q on-default-char)) q (149494 . 3)) ((c def c (c (? . 0) q tiny-control-font)) q (103476 . 2)) ((c meth c (c (? . 41) q get-item-label)) q (75172 . 3)) ((c meth c (c (? . 24) q get-number)) q (48774 . 2)) ((c meth c (c (? . 8) q locations-computed?)) q (148576 . 2)) ((c def c (? . 35)) q (180723 . 3)) ((c meth c (c (? . 27) q accept-tab-focus)) q (5510 . 4)) ((c def c (c (? . 0) q get-default-shortcut-prefix)) q (104287 . 6)) ((c meth c (c (? . 7) q get-snipclass)) q (117615 . 2)) ((c def c (? . 15)) q (126761 . 2)) ((c meth c (c (? . 40) q get-tabs)) q (124461 . 7)) ((c meth c (c (? . 6) q flash-on)) q (204404 . 11)) ((c def c (c (? . 0) q find-graphical-system-path)) q (104175 . 3)) ((c meth c (c (? . 5) q set-after)) q (193004 . 4)) ((c meth c (c (? . 7) q equal-secondary-hash-code-of)) q (115828 . 4)) ((c meth c (c (? . 6) q move-position)) q (211898 . 7)) ((c meth c (c (? . 8) q global-to-local)) q (145586 . 4)) ((c meth c (c (? . 6) q set-tabs)) q (220853 . 7)) ((c meth c (c (? . 3) q set-delta-background)) q (134187 . 7)) ((c meth c (c (? . 6) q copy-self-to)) q (196771 . 3)) ((c def c (c (? . 29) q is-wxme-stream?)) q (226218 . 3)) ((c meth c (c (? . 32) q get-bytes)) q (177156 . 3)) ((c meth c (c (? . 13) q same-clipboard-client?)) q (18698 . 3)) ((c meth c (c (? . 8) q add-undo)) q (138730 . 3)) ((c meth c (c (? . 10) q get-x)) q (57874 . 2)) ((c meth c (c (? . 5) q can-insert?)) q (186228 . 9)) ((c meth c (c (? . 12) q on-scroll)) q (10455 . 3)) ((c meth c (c (? . 7) q position-grapheme)) q (119926 . 3)) ((c meth c (c (? . 20) q set-other-altgr-key-code)) q (41661 . 3)) ((c meth c (c (? . 28) q seek)) q (179030 . 3)) ((c meth c (c (? . 38) q remove-grab-key-function)) q (183376 . 2)) ((c meth c (c (? . 39) q stretchable-height)) q (562 . 4)) ((c meth c (c (? . 61) q get-argb)) q (232173 . 2)) ((c meth c (c (? . 5) q lower)) q (190424 . 3)) ((c meth c (c (? . 9) q get-height)) q (85473 . 2)) ((c meth c (c (? . 8) q set-min-height)) q (159064 . 3)) ((c meth c (c (? . 30) q get-menu-bar)) q (29222 . 2)) ((c meth c (c (? . 6) q after-merge-snips)) q (194642 . 3)) ((c meth c (c (? . 6) q line-length)) q (211336 . 3)) ((c meth c (c (? . 38) q break-sequence)) q (182291 . 2)) ((c meth c (c (? . 7) q resize)) q (120324 . 4)) ((c meth c (c (? . 35) q write)) q (181032 . 3)) ((c meth c (c (? . 9) q get-cursor)) q (85350 . 2)) ((c meth c (c (? . 52) q append)) q (21371 . 3)) ((c meth c (c (? . 57) q read-special)) q (229859 . 9)) ((c meth c (c (? . 36) q read-fixed-integer)) q (228658 . 3)) ((c meth c (c (? . 6) q insert)) q (208713 . 47)) ((c def c (c (? . 0) q editor-set-x-selection-mode)) q (222931 . 3)) ((c meth c (c (? . 37) q set-map)) q (181753 . 5)) ((c constructor c (? . 85)) q (34431 . 26)) ((c meth c (c (? . 53) q get-shortcut)) q (67046 . 3)) ((c meth c (c (? . 7) q own-caret)) q (119851 . 3)) ((c meth c (c (? . 5) q can-interactive-resize?)) q (186653 . 3)) ((c meth c (c (? . 8) q save-port)) q (155629 . 8)) ((c meth c (c (? . 34) q pretty-start)) q (179929 . 2)) ((c meth c (c (? . 41) q delete)) q (75086 . 3)) ((c meth c (c (? . 8) q get-snip-location)) q (144835 . 9)) ((c meth c (c (? . 6) q set-wordbreak-map)) q (221382 . 3)) ((c meth c (c (? . 8) q use-file-text-mode)) q (160177 . 4)) ((c meth c (c (? . 16) q force-display-focus)) q (166134 . 4)) ((c constructor c (? . 54)) q (60947 . 33)) ((c meth c (c (? . 5) q on-resize)) q (192274 . 5)) ((c meth c (c (? . 40) q get-line-spacing)) q (124194 . 3)) ((c meth c (c (? . 55) q get-data)) q (229370 . 2)) ((c meth c (c (? . 9) q is-enabled?)) q (86218 . 2)) ((c meth c (c (? . 20) q set-x)) q (42317 . 3)) ((c def c (? . 56)) q (169446 . 3)) ((c meth c (c (? . 7) q blink-caret)) q (113676 . 5)) ((c meth c (c (? . 6) q set-clickback)) q (217529 . 14)) ((c meth c (c (? . 8) q find-first-snip)) q (142431 . 2)) ((c meth c (c (? . 3) q get-underlined-off)) q (132150 . 2)) ((c meth c (c (? . 10) q set-mod3-down)) q (58830 . 3)) ((c meth c (c (? . 27) q get-scaled-client-size)) q (5814 . 3)) ((c meth c (c (? . 7) q on-goodbye-event)) q (119405 . 13)) ((c meth c (c (? . 8) q auto-wrap)) q (139213 . 4)) ((c meth c (c (? . 21) q show)) q (81101 . 3)) ((c meth c (c (? . 30) q modified)) q (29665 . 4)) ((c meth c (c (? . 4) q set-b)) q (108687 . 3)) ((c meth c (c (? . 15) q get-font)) q (127293 . 2)) ((c meth c (c (? . 26) q equal-secondary-hash-code-of)) q (109940 . 4)) ((c meth c (c (? . 6) q position-grapheme)) q (214354 . 3)) ((c def c (c (? . 0) q get-label-foreground-color)) q (104767 . 2)) ((c meth c (c (? . 25) q update-cursor)) q (163155 . 2)) ((c meth c (c (? . 6) q find-string-embedded-all)) q (202533 . 24)) ((c meth c (c (? . 8) q on-load-file)) q (150020 . 6)) ((c meth c (c (? . 11) q border-visible?)) q (172912 . 2)) ((c meth c (c (? . 6) q set-wordbreak-func)) q (221092 . 6)) ((c meth c (c (? . 9) q show)) q (88048 . 3)) ((c def c (? . 57)) q (229725 . 4)) ((c meth c (c (? . 41) q get-number)) q (75268 . 2)) ((c meth c (c (? . 6) q paste-next)) q (213980 . 2)) ((c meth c (c (? . 10) q get-event-type)) q (57221 . 5)) ((c meth c (c (? . 53) q set-shortcut)) q (67616 . 3)) ((c meth c (c (? . 14) q after-new-child)) q (1002 . 3)) ((c meth c (c (? . 10) q get-middle-down)) q (57522 . 2)) ((c meth c (c (? . 32) q ok?)) q (177956 . 2)) ((c def c (? . 53)) q (66853 . 3)) ((c meth c (c (? . 30) q create-status-line)) q (29083 . 2)) ((c meth c (c (? . 8) q is-locked?)) q (147780 . 2)) ((c meth c (c (? . 11) q get-min-width)) q (174987 . 3)) ((c meth c (c (? . 5) q set-selected)) q (193588 . 3)) ((c meth c (c (? . 8) q set-active-canvas)) q (157274 . 3)) ((c constructor c (? . 3)) q (128974 . 32)) ((c meth c (c (? . 58) q get-orientation)) q (84675 . 2)) ((c def c (c (? . 0) q play-sound)) q (106261 . 4)) ((c constructor c (? . 77)) q (51113 . 24)) ((c meth c (c (? . 18) q get-plain-label)) q (42787 . 2)) ((c def c (? . 104)) q (34209 . 3)) ((c meth c (c (? . 3) q get-background-mult)) q (130879 . 3)) ((c meth c (c (? . 6) q get-end-position)) q (205143 . 2)) ((c meth c (c (? . 5) q on-insert)) q (191346 . 6)) ((c meth c (c (? . 12) q get-scroll-page)) q (8662 . 4)) ((c constructor c (? . 59)) q (126253 . 5)) ((c meth c (c (? . 8) q get-flattened-text)) q (143721 . 2)) ((c def c (c (? . 0) q view-control-font)) q (103521 . 2)) ((c meth c (c (? . 8) q get-canvas)) q (142782 . 3)) ((c meth c (c (? . 11) q set-min-width)) q (176311 . 3)) ((c meth c (c (? . 60) q style-to-index)) q (138356 . 4)) ((c meth c (c (? . 14) q delete-child)) q (1870 . 3)) ((c meth c (c (? . 42) q number)) q (170409 . 3)) ((c meth c (c (? . 3) q copy)) q (130430 . 3)) ((c meth c (c (? . 18) q get-label)) q (42721 . 2)) ((c meth c (c (? . 8) q set-cursor)) q (157954 . 5)) ((c meth c (c (? . 12) q set-scroll-range)) q (11266 . 5)) ((c meth c (c (? . 7) q equal-hash-code-of)) q (115705 . 3)) ((c def c (? . 42)) q (169853 . 2)) ((c def c (c (? . 0) q append-editor-operation-menu-items)) q (222214 . 10)) ((c meth c (c (? . 25) q modified)) q (161886 . 3)) ((c meth c (c (? . 10) q set-right-down)) q (59076 . 3)) ((c meth c (c (? . 30) q maximize)) q (29586 . 3)) ((c def c (? . 25)) q (160645 . 3)) ((c meth c (c (? . 3) q equal?)) q (130521 . 3)) ((c meth c (c (? . 6) q kill)) q (210688 . 7)) ((c def c (c (? . 0) q message-box/custom)) q (92464 . 27)) ((c constructor c (? . 37)) q (181535 . 2)) ((c def c (c (? . 0) q add-pasteboard-keymap-functions)) q (221905 . 3)) ((c meth c (c (? . 6) q last-paragraph)) q (210992 . 2)) ((c meth c (c (? . 8) q invalidate-bitmap-cache)) q (147284 . 11)) ((c meth c (c (? . 45) q set-selection)) q (66748 . 3)) ((c meth c (c (? . 7) q set-unmodified)) q (121131 . 2)) ((c meth c (c (? . 16) q on-paint)) q (167124 . 2)) ((c def c (c (? . 29) q read-snip-from-port)) q (229069 . 5)) ((c meth c (c (? . 22) q set-r)) q (112613 . 3)) ((c meth c (c (? . 5) q after-interactive-move)) q (184878 . 3)) ((c meth c (c (? . 4) q set-g)) q (108772 . 3)) ((c meth c (c (? . 5) q set-area-selectable)) q (193140 . 3)) ((c constructor c (? . 38)) q (182018 . 2)) ((c meth c (c (? . 6) q set-overwrite-mode)) q (218347 . 3)) ((c def c (? . 59)) q (126200 . 3)) ((c meth c (c (? . 60) q begin-style-change-sequence)) q (137950 . 2)) ((c meth c (c (? . 61) q get-width)) q (232235 . 2)) ((c meth c (c (? . 21) q can-exit?)) q (79249 . 2)) ((c def c (c (? . 0) q system-position-ok-before-cancel?)) q (107624 . 2)) ((c meth c (c (? . 8) q insert-port)) q (146903 . 9)) ((c meth c (c (? . 36) q read-bytes)) q (228917 . 3)) ((c meth c (c (? . 41) q set-selection)) q (75931 . 3)) ((c meth c (c (? . 32) q skip)) q (178173 . 3)) ((c meth c (c (? . 6) q position-locations)) q (215194 . 15)) ((c meth c (c (? . 62) q set-orientation)) q (37828 . 3)) ((c meth c (c (? . 3) q get-transparent-text-backing-on)) q (132073 . 3)) ((c meth c (c (? . 8) q read-from-file)) q (153766 . 5)) ((c meth c (c (? . 8) q on-char)) q (149406 . 3)) ((c constructor c (? . 69)) q (22506 . 11)) ((c meth c (c (? . 12) q get-gl-client-size)) q (8573 . 3)) ((c meth c (c (? . 20) q set-shift-down)) q (42142 . 3)) ((c meth c (c (? . 16) q on-size)) q (167177 . 5)) ((c constructor c (? . 41)) q (72821 . 41)) ((c meth c (c (? . 3) q get-family)) q (131024 . 4)) ((c meth c (c (? . 16) q scroll-to)) q (167354 . 13)) ((c def c (? . 45)) q (63959 . 4)) ((c meth c (c (? . 12) q scroll)) q (10813 . 4)) ((c def c (? . 44)) q (69844 . 4)) ((c meth c (c (? . 5) q interactive-adjust-resize)) q (189983 . 7)) ((c meth c (c (? . 38) q set-grab-key-function)) q (183687 . 7)) ((c def c (c (? . 0) q the-x-selection-clipboard)) q (107732 . 2)) ((c meth c (c (? . 35) q seek)) q (180850 . 3)) ((c def c (c (? . 0) q eventspace-shutdown?)) q (100962 . 3)) ((c meth c (c (? . 8) q style-has-changed)) q (159877 . 3)) ((c meth c (c (? . 63) q get-data)) q (231576 . 2)) ((c def c (c (? . 64) q reader)) q (229682 . 2)) ((c def c (c (? . 0) q eventspace?)) q (99705 . 3)) ((c def c (c (? . 0) q hide-cursor-until-moved)) q (105671 . 2)) ((c def c (c (? . 29) q register-lib-mapping!)) q (226691 . 4)) ((c meth c (c (? . 74) q delete)) q (50759 . 2)) ((c meth c (c (? . 20) q set-other-shift-key-code)) q (42023 . 3)) ((c meth c (c (? . 35) q write-bytes)) q (181126 . 3)) ((c meth c (c (? . 9) q get-y)) q (86114 . 2)) ((c meth c (c (? . 65) q read-header)) q (227433 . 5)) ((c meth c (c (? . 8) q save-file)) q (155264 . 8)) ((c meth c (c (? . 36) q read-inexact)) q (228747 . 3)) ((c meth c (c (? . 6) q on-insert)) q (212667 . 4)) ((c meth c (c (? . 25) q grab-caret)) q (161757 . 3)) ((c def c (? . 66)) q (138486 . 3)) ((c meth c (c (? . 67) q write)) q (169352 . 3)) ((c meth c (c (? . 6) q find-string)) q (199915 . 14)) ((c meth c (c (? . 67) q get-next)) q (169071 . 3)) ((c meth c (c (? . 6) q set-file-format)) q (218126 . 3)) ((c meth c (c (? . 27) q on-event)) q (6278 . 3)) ((c meth c (c (? . 21) q get-eventspace)) q (79664 . 2)) ((c meth c (c (? . 57) q get-data)) q (229809 . 2)) ((c def c (c (? . 0) q make-eventspace)) q (99476 . 4)) ((c meth c (c (? . 8) q insert-box)) q (145857 . 3)) ((c def c (c (? . 92) q make-gui-namespace)) q (106067 . 2)) ((c meth c (c (? . 30) q on-toolbar-button-click)) q (30069 . 2)) ((c constructor c (? . 68)) q (76103 . 35)) ((c def c (c (? . 0) q position-integer?)) q (106367 . 3)) ((c meth c (c (? . 11) q get-inset)) q (174185 . 6)) ((c meth c (c (? . 6) q after-insert)) q (194503 . 4)) ((c meth c (c (? . 10) q moving?)) q (58039 . 2)) ((c meth c (c (? . 6) q paragraph-start-line)) q (213391 . 4)) ((c meth c (c (? . 4) q get)) q (107951 . 6)) ((c meth c (c (? . 21) q center)) q (79308 . 3)) ((c meth c (c (? . 69) q get-event-type)) q (23062 . 6)) ((c meth c (c (? . 11) q get-max-width)) q (174784 . 3)) ((q def ((lib "wxme/number.rkt") reader)) q (232032 . 2)) ((c def c (? . 9)) q (84738 . 3)) ((c meth c (c (? . 15) q switch-to)) q (128781 . 4)) ((c meth c (c (? . 55) q get-h)) q (229503 . 2)) ((c def c (c (? . 0) q current-text-keymap-initializer)) q (222745 . 5)) ((c meth c (c (? . 9) q enable)) q (85090 . 3)) ((c meth c (c (? . 40) q scroll-to)) q (123340 . 15)) ((c meth c (c (? . 70) q set-label)) q (13719 . 3)) ((c meth c (c (? . 19) q get-label-font)) q (46692 . 2)) ((c meth c (c (? . 102) q get-content-port)) q (229257 . 2)) ((c meth c (c (? . 8) q can-save-file?)) q (140496 . 6)) ((c meth c (c (? . 11) q set-max-width)) q (176072 . 3)) ((c def c (? . 71)) q (232543 . 3)) ((c meth c (c (? . 14) q add-child)) q (902 . 3)) ((c meth c (c (? . 5) q on-move-to)) q (191725 . 9)) ((c def c (? . 48)) q (50062 . 4)) ((c meth c (c (? . 7) q get-num-scroll-steps)) q (117401 . 3)) ((c meth c (c (? . 8) q locked-for-flow?)) q (148705 . 2)) ((c meth c (c (? . 15) q set-shift-style)) q (128689 . 3)) ((c def c (c (? . 0) q get-directory)) q (91235 . 11)) ((c meth c (c (? . 12) q get-scroll-range)) q (8905 . 3)) ((c meth c (c (? . 20) q set-wheel-steps)) q (42223 . 3)) ((c meth c (c (? . 30) q has-status-line?)) q (29297 . 2)) ((c meth c (c (? . 10) q get-shift-down)) q (57815 . 2)) ((c meth c (c (? . 22) q get-r)) q (112242 . 2)) ((c def c (? . 8)) q (138598 . 2)) ((c def c (c (? . 0) q key-code-symbol?)) q (107851 . 3)) ((c meth c (c (? . 3) q set-family)) q (135019 . 4)) ((c meth c (c (? . 8) q kill)) q (147993 . 3)) ((c meth c (c (? . 25) q needs-update)) q (161973 . 9)) ((c meth c (c (? . 5) q after-insert)) q (184562 . 9)) ((c meth c (c (? . 71) q get-test)) q (232665 . 2)) ((c constructor c (? . 45)) q (64037 . 37)) ((c def c (c (? . 0) q open-input-text-editor)) q (223360 . 17)) ((c meth c (c (? . 38) q chain-to-keymap)) q (182673 . 5)) ((c meth c (c (? . 7) q set-style)) q (121046 . 3)) ((c meth c (c (? . 20) q get-other-altgr-key-code)) q (40176 . 3)) ((c def c (c (? . 72) q reader)) q (230280 . 2)) ((c meth c (c (? . 6) q paragraph-end-position)) q (213171 . 6)) ((c meth c (c (? . 9) q get-x)) q (86060 . 2)) ((c meth c (c (? . 21) q set-icon)) q (80804 . 7)) ((c constructor c (? . 88)) q (23693 . 12)) ((c meth c (c (? . 3) q set-underlined-on)) q (136290 . 3)) ((c meth c (c (? . 6) q get-snip-position)) q (206314 . 4)) ((c meth c (c (? . 40) q needs-update)) q (122420 . 11)) ((c meth c (c (? . 28) q read-bytes)) q (178597 . 8)) ((c meth c (c (? . 40) q resized)) q (123223 . 4)) ((c meth c (c (? . 3) q get-smoothing-on)) q (131697 . 3)) ((c def c (c (? . 0) q is-color-display?)) q (103294 . 2)) ((c meth c (c (? . 8) q num-scroll-lines)) q (149284 . 2)) ((c meth c (c (? . 3) q get-alignment-off)) q (130617 . 3)) ((c meth c (c (? . 16) q call-as-primary-owner)) q (166047 . 3)) ((c constructor c (? . 32)) q (176817 . 4)) ((c meth c (c (? . 8) q set-paste-text-only)) q (159394 . 3)) ((c def c (c (? . 0) q label->plain-label)) q (105753 . 3)) ((c def c (? . 99)) q (179307 . 3)) ((c def c (? . 50)) q (78384 . 3)) ((c meth c (c (? . 48) q is-enabled?)) q (50668 . 2)) ((c meth c (c (? . 8) q lock)) q (148636 . 3)) ((c meth c (c (? . 68) q set-field-background)) q (78197 . 3)) ((c def c (c (? . 0) q application-dark-mode-handler)) q (102006 . 4)) ((c meth c (c (? . 3) q set-smoothing-off)) q (135502 . 4)) ((c def c (c (? . 0) q message+check-box)) q (93945 . 20)) ((c constructor c (? . 96)) q (68372 . 4)) ((c meth c (c (? . 8) q get-space)) q (145252 . 2)) ((c meth c (c (? . 6) q line-paragraph)) q (211571 . 3)) ((c meth c (c (? . 43) q set-classname)) q (125361 . 3)) ((c meth c (c (? . 67) q get-dataclass)) q (168978 . 3)) ((c def c (? . 63)) q (231495 . 4)) ((c meth c (c (? . 8) q set-snip-data)) q (159488 . 4)) ((c meth c (c (? . 73) q vert-margin)) q (72339 . 4)) ((c def c (? . 74)) q (50721 . 2)) ((c meth c (c (? . 6) q get-visible-line-range)) q (207778 . 7)) ((c def c (c (? . 75) q reader)) q (230857 . 2)) ((c meth c (c (? . 20) q get-y)) q (40739 . 2)) ((c meth c (c (? . 79) q read-special)) q (228060 . 9)) ((c meth c (c (? . 6) q get-anchor)) q (204823 . 2)) ((c meth c (c (? . 6) q cut)) q (196886 . 6)) ((c meth c (c (? . 76) q get-data)) q (18020 . 4)) ((c meth c (c (? . 3) q set-style-off)) q (135811 . 3)) ((c meth c (c (? . 53) q set-shortcut-prefix)) q (67733 . 9)) ((c meth c (c (? . 15) q get-text-descent)) q (127809 . 4)) ((c meth c (c (? . 15) q get-size)) q (127533 . 2)) ((c meth c (c (? . 5) q interactive-adjust-move)) q (189716 . 7)) ((c meth c (c (? . 9) q is-shown?)) q (86269 . 2)) ((c meth c (c (? . 20) q get-meta-down)) q (39952 . 2)) ((c def c (? . 23)) q (52786 . 4)) ((c def c (? . 77)) q (51022 . 4)) ((c meth c (c (? . 89) q get-items)) q (52639 . 3)) ((c meth c (c (? . 22) q get-a)) q (112104 . 2)) ((c meth c (c (? . 55) q get-w)) q (229428 . 2)) ((c meth c (c (? . 8) q write-headers-to-file)) q (160423 . 3)) ((c def c (c (? . 0) q get-window-text-extent)) q (104829 . 8)) ((c meth c (c (? . 9) q refresh)) q (87685 . 2)) ((c meth c (c (? . 78) q set-range)) q (32056 . 3)) ((c def c (c (? . 0) q open-input-graphical-file)) q (223270 . 3)) ((c meth c (c (? . 19) q append)) q (45798 . 4)) ((c meth c (c (? . 3) q get-size-add)) q (131335 . 2)) ((c def c (? . 79)) q (228023 . 2)) ((c meth c (c (? . 8) q get-canvases)) q (142863 . 3)) ((c meth c (c (? . 6) q paragraph-start-position)) q (213524 . 6)) ((c meth c (c (? . 60) q end-style-change-sequence)) q (138018 . 2)) ((c meth c (c (? . 6) q on-set-size-constraint)) q (212983 . 2)) ((c meth c (c (? . 43) q read-header)) q (125147 . 3)) ((c meth c (c (? . 12) q init-manual-scrollbars)) q (9647 . 13)) ((c meth c (c (? . 5) q erase)) q (188366 . 2)) ((c def c (c (? . 0) q the-clipboard)) q (107684 . 2)) ((c constructor c (? . 60)) q (136635 . 2)) ((c meth c (c (? . 8) q on-save-file)) q (151891 . 6)) ((c constructor c (? . 103)) q (59503 . 26)) ((c meth c (c (? . 16) q on-event)) q (166950 . 3)) ((c meth c (c (? . 5) q set-dragable)) q (193378 . 3)) ((c meth c (c (? . 22) q set)) q (112288 . 6)) ((c meth c (c (? . 7) q can-do-edit-operation?)) q (113792 . 8)) ((c meth c (c (? . 3) q set-delta-face)) q (134408 . 8)) ((c meth c (c (? . 16) q wheel-step)) q (168675 . 5)) ((c constructor c (? . 16)) q (163293 . 42)) ((c def c (c (? . 0) q file-creator-and-type)) q (103738 . 10)) ((c meth c (c (? . 20) q get-mod4-down)) q (40064 . 2)) ((c meth c (c (? . 22) q get)) q (111927 . 6)) ((c meth c (c (? . 8) q on-new-box)) q (150442 . 3)) ((c meth c (c (? . 19) q set-data)) q (47982 . 4)) ((c meth c (c (? . 18) q is-enabled?)) q (42859 . 2)) ((c meth c (c (? . 8) q enable-sha1)) q (142099 . 2)) ((c meth c (c (? . 8) q set-style-list)) q (159624 . 3)) ((c meth c (c (? . 60) q number)) q (138084 . 2)) ((c def c (? . 16)) q (163212 . 4)) ((c meth c (c (? . 80) q read-special)) q (231035 . 9)) ((c meth c (c (? . 40) q update-cursor)) q (124140 . 2)) ((c meth c (c (? . 5) q can-move-to?)) q (186756 . 9)) ((c meth c (c (? . 38) q handle-key-event)) q (182921 . 4)) ((c meth c (c (? . 20) q get-mod5-down)) q (40120 . 2)) ((c meth c (c (? . 41) q set)) q (75710 . 3)) ((c def c (c (? . 0) q is-busy?)) q (105718 . 2)) ((c meth c (c (? . 39) q min-width)) q (304 . 4)) ((c meth c (c (? . 6) q find-position)) q (198679 . 12)) ((c def c (? . 81)) q (81177 . 3)) ((c meth c (c (? . 7) q equal-to?)) q (115429 . 4)) ((c meth c (c (? . 40) q get-selected-text-color)) q (124281 . 3)) ((c meth c (c (? . 3) q set-delta-foreground)) q (134715 . 7)) ((c constructor c (? . 5)) q (184145 . 2)) ((c meth c (c (? . 19) q set-column-order)) q (47472 . 3)) ((c meth c (c (? . 49) q find)) q (125776 . 4)) ((c meth c (c (? . 8) q redo)) q (154178 . 2)) ((c meth c (c (? . 82) q set-position)) q (69743 . 3)) ((c meth c (c (? . 5) q get-dragable)) q (188842 . 2)) ((c meth c (c (? . 5) q move-to)) q (190701 . 5)) ((c def c (c (? . 0) q send-message-to-window)) q (107423 . 5)) ((c meth c (c (? . 9) q on-superwindow-activate)) q (87267 . 3)) ((c meth c (c (? . 30) q iconize)) q (29352 . 3)) ((c def c (? . 3)) q (128919 . 3)) ((c meth c (c (? . 8) q locked-for-read?)) q (148762 . 2)) ((c meth c (c (? . 8) q on-display-size-when-ready)) q (149742 . 2)) ((c constructor c (? . 78)) q (30280 . 31)) ((c def c (? . 27)) q (5445 . 3)) ((c meth c (c (? . 74) q is-deleted?)) q (50921 . 2)) ((c meth c (c (? . 28) q tell)) q (179228 . 3)) ((c meth c (c (? . 8) q find-scroll-line)) q (142507 . 4)) ((c meth c (c (? . 82) q get-position)) q (69389 . 2)) ((c meth c (c (? . 8) q is-printing?)) q (147884 . 2)) ((c meth c (c (? . 20) q get-x)) q (40685 . 2)) ((c meth c (c (? . 10) q set-alt-down)) q (58091 . 3)) ((c meth c (c (? . 7) q is-owned?)) q (118324 . 2)) ((c meth c (c (? . 8) q get-admin)) q (142704 . 2)) ((c meth c (c (? . 10) q dragging?)) q (56937 . 2)) ((c meth c (c (? . 38) q get-double-click-interval)) q (182839 . 3)) ((c def c (c (? . 0) q write-editor-global-footer)) q (225862 . 3)) ((c meth c (c (? . 52) q on-popup)) q (21513 . 3)) ((c meth c (c (? . 24) q set-string-selection)) q (49262 . 3)) ((c meth c (c (? . 3) q get-smoothing-off)) q (131577 . 3)) ((c meth c (c (? . 8) q begin-write-header-footer-to-file)) q (139556 . 8)) ((c meth c (c (? . 5) q change-style)) q (187626 . 5)) ((c meth c (c (? . 8) q get-style-list)) q (145328 . 2)) ((c def c (c (? . 0) q special-control-key)) q (100346 . 4)) ((c meth c (c (? . 41) q append)) q (75003 . 3)) ((c meth c (c (? . 16) q horizontal-inset)) q (166547 . 5)) ((c meth c (c (? . 3) q set-transparent-text-backing-on)) q (136119 . 3)) ((c meth c (c (? . 55) q get-dx)) q (229578 . 2)) ((c def c (c (? . 83) q reader)) q (232500 . 2)) ((c meth c (c (? . 11) q get-margin)) q (174433 . 6)) ((c meth c (c (? . 3) q get-underlined-on)) q (132213 . 2)) ((c meth c (c (? . 8) q end-write-header-footer-to-file)) q (142203 . 6)) ((c meth c (c (? . 8) q needs-update)) q (148877 . 11)) ((c def c (c (? . 29) q extract-used-classes)) q (226589 . 3)) ((c meth c (c (? . 31) q get-popup-target)) q (63533 . 3)) ((c def c (c (? . 29) q string->lib-path)) q (226822 . 6)) ((c def c (? . 84)) q (49346 . 5)) ((c meth c (c (? . 10) q leaving?)) q (57986 . 2)) ((c meth c (c (? . 40) q modified)) q (122300 . 4)) ((c meth c (c (? . 80) q get-data)) q (230983 . 2)) ((c meth c (c (? . 6) q caret-hidden?)) q (195578 . 2)) ((c meth c (c (? . 9) q warp-pointer)) q (88116 . 4)) ((c meth c (c (? . 14) q get-alignment)) q (2041 . 4)) ((c meth c (c (? . 12) q init-auto-scrollbars)) q (9204 . 9)) ((c meth c (c (? . 8) q get-extent)) q (143235 . 4)) ((c def c (? . 30)) q (26931 . 4)) ((c meth c (c (? . 16) q on-focus)) q (167048 . 3)) ((c meth c (c (? . 32) q get-unterminated-bytes)) q (177699 . 4)) ((c meth c (c (? . 8) q insert-file)) q (145963 . 8)) ((c meth c (c (? . 8) q set-max-height)) q (158695 . 3)) ((c meth c (c (? . 34) q jump-to)) q (179712 . 3)) ((c meth c (c (? . 8) q after-scroll-to)) q (139160 . 2)) ((c meth c (c (? . 76) q on-replaced)) q (18197 . 2)) ((c def c (c (? . 0) q get-the-snip-class-list)) q (223089 . 2)) ((c def c (? . 4)) q (107913 . 2)) ((c def c (? . 85)) q (34374 . 3)) ((c meth c (c (? . 24) q delete)) q (48576 . 3)) ((c meth c (c (? . 21) q display-changed)) q (80342 . 2)) ((c meth c (c (? . 8) q on-snip-modified)) q (152172 . 5)) ((c meth c (c (? . 6) q read-from-file)) q (216116 . 11)) ((c def c (c (? . 0) q get-text-from-user)) q (96329 . 16)) ((c meth c (c (? . 20) q get-alt-down)) q (39548 . 2)) ((c def c (c (? . 0) q application-preferences-handler)) q (101543 . 4)) ((c meth c (c (? . 10) q button-changed?)) q (56552 . 3)) ((c meth c (c (? . 6) q line-start-position)) q (211689 . 6)) ((c meth c (c (? . 41) q on-new-request)) q (75656 . 2)) ((c meth c (c (? . 8) q refresh-delayed?)) q (154898 . 2)) ((c meth c (c (? . 43) q write-header)) q (125522 . 3)) ((c meth c (c (? . 15) q get-transparent-text-backing)) q (128260 . 2)) ((c meth c (c (? . 42) q find-position)) q (170135 . 4)) ((c meth c (c (? . 71) q get-expected)) q (232719 . 2)) ((c meth c (c (? . 78) q set-value)) q (32150 . 3)) ((c meth c (c (? . 34) q put-unterminated)) q (180539 . 4)) ((c meth c (c (? . 61) q get-pin-x)) q (232380 . 2)) ((c def c (c (? . 0) q application-quit-handler)) q (101718 . 4)) ((c meth c (c (? . 26) q set-bitmap)) q (111649 . 4)) ((c meth c (c (? . 60) q find-or-create-join-style)) q (136974 . 6)) ((c constructor c (? . 67)) q (168917 . 2)) ((c def c (c (? . 0) q graphical-system-type)) q (105398 . 2)) ((c meth c (c (? . 10) q set-meta-down)) q (58664 . 3)) ((c meth c (c (? . 10) q get-mod4-down)) q (57640 . 2)) ((c meth c (c (? . 20) q set-meta-down)) q (41341 . 3)) ((c meth c (c (? . 5) q on-default-event)) q (190974 . 3)) ((c meth c (c (? . 16) q allow-tab-exit)) q (165910 . 4)) ((c def c (? . 86)) q (170491 . 2)) ((c meth c (c (? . 5) q on-interactive-resize)) q (191627 . 3)) ((c def c (? . 78)) q (30206 . 4)) ((c meth c (c (? . 8) q get-focus-snip)) q (143779 . 2)) ((c meth c (c (? . 5) q set-selection-visible)) q (193677 . 3)) ((c meth c (c (? . 48) q enable)) q (50517 . 3)) ((c meth c (c (? . 6) q get-visible-position-range)) q (208101 . 7)) ((c meth c (c (? . 60) q index-to-style)) q (137515 . 4)) ((c meth c (c (? . 6) q position-location)) q (214625 . 13)) ((c meth c (c (? . 8) q get-min-width)) q (144555 . 3)) ((c def c (? . 65)) q (227393 . 2)) ((c def c (c (? . 0) q get-display-size)) q (102881 . 11)) ((c def c (? . 94)) q (21610 . 3)) ((c meth c (c (? . 15) q get-smoothing)) q (127634 . 3)) ((c def c (c (? . 0) q message+check-box/custom)) q (94952 . 25)) ((c constructor c (? . 70)) q (11955 . 32)) ((c meth c (c (? . 8) q on-scroll-to)) q (152122 . 2)) ((c meth c (c (? . 68) q get-value)) q (78145 . 2)) ((c meth c (c (? . 40) q recounted)) q (123012 . 4)) ((c meth c (c (? . 8) q own-caret)) q (152346 . 3)) ((c def c (c (? . 0) q eventspace-handler-thread)) q (101034 . 3)) ((c def c (? . 87)) q (63734 . 4)) ((c meth c (c (? . 19) q delete-column)) q (45997 . 3)) ((c meth c (c (? . 10) q get-right-down)) q (57756 . 2)) ((c meth c (c (? . 11) q set-inset)) q (175527 . 6)) ((c meth c (c (? . 59) q read)) q (126629 . 4)) ((c constructor c (? . 82)) q (68587 . 12)) ((c meth c (c (? . 19) q set-column-label)) q (47288 . 5)) ((c meth c (c (? . 5) q on-select)) q (192456 . 4)) ((c meth c (c (? . 7) q other-equal-to?)) q (115564 . 4)) ((c meth c (c (? . 45) q get-selection)) q (66520 . 3)) ((c meth c (c (? . 12) q show-scrollbars)) q (11454 . 5)) ((c meth c (c (? . 40) q release-snip)) q (123131 . 3)) ((c meth c (c (? . 8) q add-canvas)) q (138633 . 3)) ((c meth c (c (? . 6) q get-autowrap-bitmap-width)) q (204871 . 3)) ((c meth c (c (? . 9) q get-client-size)) q (85264 . 3)) ((c def c (c (? . 0) q dimension-integer?)) q (103635 . 3)) ((c meth c (c (? . 9) q popup-menu)) q (87534 . 5)) ((c meth c (c (? . 3) q set-size-add)) q (135190 . 3)) ((c meth c (c (? . 8) q local-to-global)) q (148443 . 4)) ((c meth c (c (? . 5) q can-delete?)) q (186137 . 3)) ((c meth c (c (? . 8) q is-sha1-enabled?)) q (147937 . 2)) ((c meth c (c (? . 7) q do-edit-operation)) q (114201 . 10)) ((c meth c (c (? . 6) q can-change-style?)) q (195087 . 4)) ((c meth c (c (? . 10) q set-middle-down)) q (58746 . 3)) ((c meth c (c (? . 7) q get-extent)) q (116378 . 22)) ((c meth c (c (? . 5) q is-selected?)) q (190332 . 3)) ((c meth c (c (? . 27) q set-canvas-background)) q (6508 . 3)) ((c meth c (c (? . 7) q find-scroll-step)) q (115962 . 3)) ((c meth c (c (? . 40) q popup-menu)) q (122842 . 6)) ((c meth c (c (? . 60) q forget-notification)) q (137432 . 3)) ((c meth c (c (? . 6) q set-autowrap-bitmap)) q (217275 . 4)) ((c meth c (c (? . 9) q accept-drop-files)) q (84798 . 4)) ((c meth c (c (? . 15) q is-join?)) q (128451 . 2)) ((c constructor c (? . 10)) q (55026 . 35)) ((c meth c (c (? . 3) q set-style-on)) q (135919 . 3)) ((c meth c (c (? . 60) q basic-style)) q (136694 . 2)) ((c meth c (c (? . 15) q get-underlined)) q (128327 . 2)) ((c meth c (c (? . 20) q get-caps-down)) q (39603 . 2)) ((c def c (? . 88)) q (23643 . 3)) ((c meth c (c (? . 15) q get-text-height)) q (127923 . 4)) ((c def c (c (? . 0) q text-editor-load-handler)) q (225533 . 5)) ((c meth c (c (? . 60) q find-or-create-style)) q (137211 . 6)) ((c meth c (c (? . 5) q on-delete)) q (191076 . 3)) ((c def c (c (? . 0) q open-output-text-editor)) q (224331 . 12)) ((c meth c (c (? . 68) q set-value)) q (78309 . 3)) ((c meth c (c (? . 8) q dc-location-to-editor-location)) q (141278 . 5)) ((c meth c (c (? . 3) q set-smoothing-on)) q (135657 . 4)) ((c meth c (c (? . 6) q get-overwrite-mode)) q (205544 . 2)) ((c meth c (c (? . 9) q client->screen)) q (84945 . 5)) ((c meth c (c (? . 67) q set-dataclass)) q (169153 . 3)) ((c meth c (c (? . 8) q load-file)) q (148077 . 8)) ((c meth c (c (? . 12) q set-scroll-page)) q (10970 . 4)) ((c def c (? . 93)) q (112678 . 2)) ((c meth c (c (? . 8) q print)) q (152600 . 14)) ((c meth c (c (? . 26) q other-equal-to?)) q (111301 . 5)) ((c meth c (c (? . 8) q is-modified?)) q (147831 . 2)) ((c meth c (c (? . 55) q get-dy)) q (229630 . 2)) ((c def c (c (? . 0) q write-editor-version)) q (226062 . 4)) ((c meth c (c (? . 45) q get-number)) q (66449 . 2)) ((c meth c (c (? . 26) q resize)) q (111502 . 4)) ((c meth c (c (? . 11) q set-align-top-line)) q (175300 . 3)) ((c meth c (c (? . 74) q restore)) q (50975 . 2)) ((c meth c (c (? . 40) q call-with-busy-cursor)) q (124370 . 3)) ((c meth c (c (? . 49) q add)) q (125675 . 3)) ((c meth c (c (? . 6) q last-line)) q (210927 . 2)) ((c meth c (c (? . 6) q do-paste)) q (197599 . 4)) ((c meth c (c (? . 6) q set-region-data)) q (220585 . 5)) ((c meth c (c (? . 6) q find-snip)) q (199639 . 6)) ((c meth c (c (? . 4) q set-r)) q (108857 . 3)) ((c meth c (c (? . 7) q get-grapheme-count)) q (116191 . 2)) ((c meth c (c (? . 15) q get-alignment)) q (126795 . 2)) ((c meth c (c (? . 16) q set-editor)) q (168052 . 5)) ((c def c (c (? . 0) q get-file)) q (88408 . 18)) ((c meth c (c (? . 73) q horiz-margin)) q (72195 . 4)) ((c meth c (c (? . 19) q set-column-width)) q (47599 . 9)) ((c meth c (c (? . 10) q set-event-type)) q (58339 . 5)) ((c meth c (c (? . 5) q get-area-selectable)) q (188721 . 2)) ((c meth c (c (? . 9) q set-label)) q (87975 . 3)) ((c meth c (c (? . 43) q get-classname)) q (124920 . 2)) ((c meth c (c (? . 6) q get-line-spacing)) q (205463 . 3)) ((c def c (c (? . 0) q spacing-integer?)) q (107562 . 3)) ((c meth c (c (? . 30) q on-subwindow-char)) q (29878 . 5)) ((c meth c (c (? . 89) q on-demand)) q (52727 . 2)) ((c meth c (c (? . 6) q line-location)) q (211443 . 4)) ((c meth c (c (? . 50) q start)) q (78928 . 4)) ((c meth c (c (? . 12) q set-scroll-pos)) q (11123 . 4)) ((c meth c (c (? . 8) q copy)) q (140826 . 4)) ((c def c (c (? . 0) q get-highlight-background-color)) q (104567 . 2)) ((c meth c (c (? . 21) q on-activate)) q (80056 . 3)) ((c meth c (c (? . 10) q get-control-down)) q (57160 . 2)) ((c meth c (c (? . 30) q is-iconized?)) q (29483 . 2)) ((c def c (? . 43)) q (124807 . 3)) ((c meth c (c (? . 39) q stretchable-width)) q (699 . 4)) ((c meth c (c (? . 22) q get-g)) q (112196 . 2)) ((c meth c (c (? . 71) q get-comment)) q (232596 . 2)) ((c def c (? . 24)) q (48377 . 3)) ((c meth c (c (? . 3) q set-size-mult)) q (135428 . 3)) ((c meth c (c (? . 6) q set-position)) q (219459 . 11)) ((c meth c (c (? . 88) q ok?)) q (24252 . 2)) ((c meth c (c (? . 6) q can-delete?)) q (195234 . 4)) ((c meth c (c (? . 5) q on-reorder)) q (192029 . 7)) ((c meth c (c (? . 7) q get-text!)) q (117935 . 9)) ((c meth c (c (? . 3) q get-size-in-pixels-off)) q (131389 . 2)) ((c meth c (c (? . 3) q get-style-off)) q (131816 . 3)) ((c meth c (c (? . 5) q find-next-selected-snip)) q (188412 . 4)) ((c meth c (c (? . 3) q set-transparent-text-backing-off)) q (136026 . 3)) ((c meth c (c (? . 32) q tell)) q (178265 . 2)) ((c meth c (c (? . 8) q in-edit-sequence?)) q (145719 . 2)) ((c meth c (c (? . 32) q get-inexact)) q (177640 . 2)) ((c meth c (c (? . 24) q append)) q (48446 . 3)) ((c meth c (c (? . 7) q draw)) q (114631 . 23)) ((c meth c (c (? . 5) q after-reorder)) q (185403 . 7)) ((c constructor c (? . 90)) q (26669 . 3)) ((c meth c (c (? . 6) q line-end-position)) q (211131 . 6)) ((c meth c (c (? . 91) q reparent)) q (72572 . 4)) ((c meth c (c (? . 43) q get-version)) q (124976 . 2)) ((c def c (? . 69)) q (22450 . 3)) ((c meth c (c (? . 32) q remove-boundary)) q (178010 . 2)) ((c meth c (c (? . 50) q stop)) q (79062 . 2)) ((c constructor c (? . 11)) q (170680 . 35)) ((c meth c (c (? . 6) q set-padding)) q (218423 . 9)) ((c meth c (c (? . 6) q set-paragraph-alignment)) q (218803 . 5)) ((c def c (? . 62)) q (35895 . 3)) ((c meth c (c (? . 15) q get-family)) q (127155 . 4)) ((c meth c (c (? . 21) q move)) q (79943 . 4)) ((c meth c (c (? . 19) q number-of-visible-items)) q (46935 . 3)) ((c meth c (c (? . 61) q get-height)) q (232307 . 2)) ((c meth c (c (? . 3) q collapse)) q (130332 . 3)) ((c meth c (c (? . 62) q get-orientation)) q (37932 . 2)) ((c def c (c (? . 0) q read-editor-global-header)) q (225074 . 3)) ((c def c (c (? . 0) q any-control+alt-is-altgr)) q (100548 . 4)) ((c def c (? . 40)) q (121506 . 3)) ((c meth c (c (? . 5) q can-reorder?)) q (187071 . 7)) ((c meth c (c (? . 19) q append-column)) q (45910 . 3)) ((c meth c (c (? . 7) q release-from-owner)) q (120268 . 2)) ((c def c (c (? . 92) q make-gui-empty-namespace)) q (106014 . 2)) ((c meth c (c (? . 47) q show)) q (26497 . 3)) ((c meth c (c (? . 93) q read-special)) q (112720 . 9)) ((c meth c (c (? . 60) q convert)) q (136760 . 3)) ((c meth c (c (? . 71) q get-should-raise)) q (232777 . 2)) ((c meth c (c (? . 9) q on-focus)) q (86400 . 3)) ((c meth c (c (? . 3) q get-size-in-pixels-on)) q (131456 . 2)) ((c meth c (c (? . 27) q on-paint)) q (6368 . 2)) ((c meth c (c (? . 6) q set-anchor)) q (217207 . 3)) ((c meth c (c (? . 11) q get-align-top-line)) q (172973 . 2)) ((c meth c (c (? . 6) q get-extend-start-position)) q (205215 . 3)) ((c meth c (c (? . 8) q print-to-dc)) q (153234 . 4)) ((c meth c (c (? . 11) q set-tight-text-fit)) q (176430 . 3)) ((c meth c (c (? . 98) q set-column)) q (22339 . 3)) ((c meth c (c (? . 8) q set-load-overwrites-styles)) q (158594 . 3)) ((c meth c (c (? . 24) q clear)) q (48528 . 2)) ((c constructor c (? . 76)) q (17863 . 2)) ((c meth c (c (? . 5) q resize)) q (192822 . 5)) ((c meth c (c (? . 94) q command)) q (21676 . 3)) ((c meth c (c (? . 8) q set-filename)) q (158143 . 5)) ((c meth c (c (? . 95) q get-data)) q (230403 . 2)) ((c meth c (c (? . 68) q get-field-background)) q (78072 . 2)) ((c meth c (c (? . 16) q set-scroll-via-copy)) q (168391 . 4)) ((c meth c (c (? . 56) q get-classname)) q (169580 . 2)) ((c meth c (c (? . 5) q remove)) q (192647 . 3)) ((c constructor c (? . 47)) q (24379 . 36)) ((c def c (c (? . 29) q wxme-port->port)) q (226402 . 5)) ((c def c (c (? . 0) q flush-display)) q (102153 . 2)) ((c meth c (c (? . 30) q fullscreen)) q (29137 . 3)) ((c meth c (c (? . 56) q read)) q (169644 . 4)) ((c meth c (c (? . 13) q set-clipboard-string)) q (19216 . 5)) ((c meth c (c (? . 8) q on-local-char)) q (150251 . 3)) ((c meth c (c (? . 24) q get-string-selection)) q (49061 . 3)) ((c constructor c (? . 31)) q (62760 . 14)) ((c def c (? . 76)) q (17803 . 3)) ((c meth c (c (? . 8) q default-style-name)) q (141449 . 2)) ((c def c (? . 96)) q (68282 . 4)) ((c meth c (c (? . 20) q set-control-down)) q (40952 . 3)) ((c meth c (c (? . 8) q remove-canvas)) q (155044 . 3)) ((c meth c (c (? . 8) q scroll-to)) q (156639 . 15)) ((c meth c (c (? . 32) q get-fixed-exact)) q (177543 . 3)) ((c def c (c (? . 0) q graphical-read-eval-print-loop)) q (105151 . 5)) ((c constructor c (? . 25)) q (160701 . 2)) ((c meth c (c (? . 14) q spacing)) q (3197 . 4)) ((c meth c (c (? . 7) q on-event)) q (119007 . 13)) ((c meth c (c (? . 8) q update-sha1?)) q (160095 . 3)) ((c meth c (c (? . 43) q set-version)) q (125442 . 3)) ((c def c (? . 68)) q (76024 . 4)) ((c meth c (c (? . 30) q is-fullscreened?)) q (29428 . 2)) ((c constructor c (? . 34)) q (179576 . 4)) ((c def c (c (? . 0) q can-get-page-setup-from-user?)) q (99420 . 2)) ((c meth c (c (? . 6) q on-default-event)) q (212435 . 3)) ((c meth c (c (? . 7) q grapheme-position)) q (116265 . 3)) ((c meth c (c (? . 8) q write-footers-to-file)) q (160308 . 3)) ((c meth c (c (? . 38) q call-function)) q (182342 . 9)) ((c meth c (c (? . 8) q can-load-file?)) q (140258 . 6)) ((c def c (c (? . 97) q gui-dynamic-require)) q (233136 . 3)) ((c def c (? . 33)) q (181217 . 3)) ((c meth c (c (? . 9) q get-handle)) q (85422 . 2)) ((c meth c (c (? . 25) q refresh-delayed?)) q (162464 . 2)) ((c meth c (c (? . 12) q get-virtual-size)) q (9108 . 3)) ((c def c (c (? . 0) q get-current-mouse-state)) q (105497 . 5)) ((c meth c (c (? . 41) q on-reorder)) q (75426 . 3)) ((c meth c (c (? . 20) q set-alt-down)) q (40793 . 3)) ((c meth c (c (? . 26) q get-bitmap)) q (110081 . 2)) ((c meth c (c (? . 15) q get-shift-style)) q (127468 . 2)) ((c meth c (c (? . 34) q tell)) q (180649 . 2)) ((c meth c (c (? . 90) q get-time-stamp)) q (26786 . 2)) ((c meth c (c (? . 26) q set-offset)) q (111794 . 4)) ((c meth c (c (? . 5) q can-select?)) q (187512 . 4)) ((c def c (? . 89)) q (52591 . 2)) ((c meth c (c (? . 53) q command)) q (66941 . 3)) ((c constructor c (? . 7)) q (113208 . 2)) ((c meth c (c (? . 8) q set-admin)) q (157378 . 3)) ((c def c (? . 22)) q (111888 . 2)) ((c meth c (c (? . 60) q notify-on-change)) q (137833 . 3)) ((c def c (? . 38)) q (181968 . 3)) ((c meth c (c (? . 6) q get-extend-end-position)) q (205297 . 3)) ((c meth c (c (? . 20) q get-other-shift-key-code)) q (40466 . 3)) ((c meth c (c (? . 8) q clear-undos)) q (140777 . 2)) ((c meth c (c (? . 8) q paste)) q (152418 . 3)) ((c meth c (c (? . 15) q get-text-width)) q (128148 . 4)) ((c meth c (c (? . 26) q get-filetype)) q (110388 . 6)) ((c meth c (c (? . 14) q container-flow-modified)) q (1495 . 2)) ((c meth c (c (? . 21) q can-close?)) q (79189 . 2)) ((c meth c (c (? . 58) q set-orientation)) q (84573 . 3)) ((c meth c (c (? . 41) q on-close-request)) q (75552 . 3)) ((c meth c (c (? . 6) q after-delete)) q (194364 . 4)) ((c meth c (c (? . 20) q get-shift-down)) q (40561 . 2)) ((c meth c (c (? . 19) q set)) q (47141 . 4)) ((c meth c (c (? . 10) q button-down?)) q (56683 . 3)) ((c def c (c (? . 29) q wxme-port->text-port)) q (226287 . 4)) ((c meth c (c (? . 20) q set-other-shift-altgr-key-code)) q (41898 . 3)) ((c meth c (c (? . 19) q get-data)) q (46522 . 3)) ((c meth c (c (? . 7) q set-flags)) q (120871 . 3)) ((c meth c (c (? . 38) q remove-grab-mouse-function)) q (183437 . 2)) ((c meth c (c (? . 6) q grapheme-position)) q (208528 . 3)) ((c meth c (c (? . 45) q get-item-label)) q (66251 . 3)) ((c meth c (c (? . 6) q on-change-style)) q (212200 . 4)) ((c meth c (c (? . 22) q set-a)) q (112418 . 3)) ((c meth c (c (? . 8) q can-do-edit-operation?)) q (139911 . 7)) ((c meth c (c (? . 8) q set-inactive-caret-threshold)) q (158335 . 3)) ((c def c (? . 32)) q (176757 . 3)) ((c meth c (c (? . 11) q get-editor)) q (173037 . 3)) ((c meth c (c (? . 15) q get-background)) q (126869 . 2)) ((c meth c (c (? . 8) q on-paint)) q (151081 . 21)) ((c def c (? . 39)) q (0 . 2)) ((c meth c (c (? . 34) q ok?)) q (179812 . 2)) ((c constructor c (? . 98)) q (21839 . 9)) ((c def c (c (? . 0) q read-editor-version)) q (225170 . 9)) ((c meth c (c (? . 6) q on-reflow)) q (212939 . 2)) ((c meth c (c (? . 5) q after-interactive-resize)) q (184986 . 3)) ((c constructor c (? . 99)) q (179393 . 4)) ((c meth c (c (? . 27) q on-tab-in)) q (6413 . 2)) ((c meth c (c (? . 34) q pretty-finish)) q (179867 . 2)) ((c meth c (c (? . 6) q find-wordbreak)) q (204022 . 7)) ((c meth c (c (? . 10) q set-mod5-down)) q (58994 . 3)) ((c meth c (c (? . 8) q get-paste-text-only)) q (144651 . 2)) ((c def c (c (? . 29) q broken-wxme-big-endian?)) q (227098 . 4)) ((c meth c (c (? . 28) q read)) q (178463 . 4)) ((c meth c (c (? . 26) q get-filename)) q (110241 . 4)) ((c def c (c (? . 0) q event-dispatch-handler)) q (99762 . 4)) ((c meth c (c (? . 8) q on-event)) q (149860 . 3)) ((c meth c (c (? . 6) q set-position-bias-scroll)) q (219930 . 13)) ((c meth c (c (? . 8) q editor-location-to-dc-location)) q (141928 . 5)) ((c meth c (c (? . 8) q refresh)) q (154220 . 15)) ((c meth c (c (? . 6) q get-snip-position-and-location)) q (206436 . 9)) ((c meth c (c (? . 9) q get-size)) q (85922 . 3)) ((c meth c (c (? . 7) q on-char)) q (118617 . 13)) ((c meth c (c (? . 8) q get-snip-data)) q (144711 . 4)) ((c meth c (c (? . 8) q read-header-from-file)) q (153988 . 5)) ((c meth c (c (? . 6) q do-paste-x-selection)) q (197724 . 5)) ((c def c (c (? . 0) q the-editor-wordbreak-map)) q (225746 . 2)) ((c def c (c (? . 0) q small-control-font)) q (103430 . 2)) ((c meth c (c (? . 3) q get-alignment-on)) q (130709 . 3)) ((c def c (? . 61)) q (232118 . 3)) ((c meth c (c (? . 60) q replace-named-style)) q (138152 . 6)) ((c meth c (c (? . 8) q write-to-file)) q (160538 . 3)) ((c def c (c (? . 0) q unregister-collecting-blit)) q (107331 . 3)) ((c meth c (c (? . 10) q set-caps-down)) q (58172 . 3)) ((c def c (? . 90)) q (26620 . 3)) ((c meth c (c (? . 39) q min-height)) q (432 . 4)) ((c meth c (c (? . 6) q extend-position)) q (197945 . 3)) ((c meth c (c (? . 8) q set-modified)) q (159309 . 3)) ((c def c (c (? . 0) q write-editor-global-header)) q (225962 . 3)) ((c def c (c (? . 0) q eventspace-event-evt)) q (99917 . 3)) ((c meth c (c (? . 5) q do-paste-x-selection)) q (188271 . 3)) ((c meth c (c (? . 100) q set-label)) q (5315 . 4)) ((c meth c (c (? . 5) q copy-self-to)) q (187831 . 3)) ((c meth c (c (? . 8) q scroll-editor-to)) q (155971 . 13)) ((c def c (c (? . 0) q map-command-as-meta-key)) q (223160 . 4)) ((c meth c (c (? . 6) q remove-clickback)) q (216658 . 4)) ((c meth c (c (? . 21) q get-focus-object)) q (79731 . 3)) ((c meth c (c (? . 13) q get-clipboard-string)) q (18602 . 3)) ((c constructor c (? . 50)) q (78433 . 9)) ((c meth c (c (? . 20) q set-mod5-down)) q (41581 . 3)) ((c meth c (c (? . 16) q vertical-inset)) q (168505 . 4)) ((c def c (c (? . 0) q check-for-break)) q (100012 . 2)) ((c meth c (c (? . 5) q interactive-adjust-mouse)) q (189540 . 5)) ((c meth c (c (? . 34) q put-fixed)) q (180404 . 4)) ((c meth c (c (? . 8) q get-max-view-size)) q (144300 . 2)) ((c meth c (c (? . 74) q get-parent)) q (50805 . 3)) ((c def c (c (? . 0) q get-font-from-user)) q (98172 . 9)) ((c meth c (c (? . 20) q get-key-release-code)) q (39865 . 3)) ((c meth c (c (? . 8) q copy-self)) q (140948 . 3)) ((c meth c (c (? . 8) q get-max-width)) q (144362 . 3)) ((c def c (c (? . 101) q reader)) q (231452 . 2)) ((c meth c (c (? . 7) q adjust-cursor)) q (113255 . 14)) ((c meth c (c (? . 76) q add-type)) q (17934 . 3)) ((c meth c (c (? . 12) q swap-gl-buffers)) q (11623 . 2)) ((c meth c (c (? . 12) q make-bitmap)) q (10257 . 4)) ((c meth c (c (? . 49) q find-position)) q (125883 . 4)) ((c def c (? . 67)) q (168862 . 3)) ((c meth c (c (? . 9) q get-label)) q (85533 . 9)) ((c meth c (c (? . 8) q undo)) q (159985 . 2)) ((c meth c (c (? . 11) q set-margin)) q (175739 . 6)) ((c meth c (c (? . 6) q find-newline)) q (198180 . 8)) ((c meth c (c (? . 61) q get-pin-y)) q (232440 . 2)) ((c meth c (c (? . 5) q after-select)) q (186025 . 4)) ((c constructor c (? . 100)) q (3534 . 33)) ((c meth c (c (? . 4) q set-a)) q (108622 . 3)) ((c meth c (c (? . 27) q suspend-flush)) q (6682 . 2)) ((c constructor c (? . 6)) q (193844 . 8)) ((c meth c (c (? . 5) q after-resize)) q (185660 . 9)) ((c meth c (c (? . 5) q can-interactive-move?)) q (186543 . 3)) ((c meth c (c (? . 15) q get-size-in-pixels)) q (127577 . 2)) ((c def c (? . 18)) q (42471 . 3)) ((c meth c (c (? . 6) q get-wordbreak-map)) q (208436 . 3)) ((c meth c (c (? . 82) q set-direction)) q (69457 . 3)) ((c meth c (c (? . 6) q get-tabs)) q (207000 . 7)) ((c meth c (c (? . 31) q set-min-width)) q (63640 . 3)) ((c constructor c (? . 58)) q (82728 . 33)) ((c meth c (c (? . 40) q set-caret-owner)) q (123939 . 5)) ((c def c (c (? . 0) q append-editor-font-menu-items)) q (222093 . 3)) ((c meth c (c (? . 16) q get-editor)) q (166281 . 3)) ((c meth c (c (? . 20) q get-mod3-down)) q (40008 . 2)) ((c meth c (c (? . 3) q get-foreground-add)) q (131175 . 3)) ((c meth c (c (? . 20) q get-other-caps-key-code)) q (40271 . 3)) ((c meth c (c (? . 4) q get-b)) q (108234 . 2)) ((c meth c (c (? . 21) q on-message)) q (80254 . 3)) ((c meth c (c (? . 8) q set-max-undo-history)) q (158818 . 3)) ((c meth c (c (? . 8) q get-file-creator-and-type)) q (142944 . 4)) ((c meth c (c (? . 78) q get-value)) q (31998 . 2)) ((c def c (? . 98)) q (21768 . 3)) ((c meth c (c (? . 10) q get-meta-down)) q (57464 . 2)) ((c meth c (c (? . 14) q container-size)) q (1564 . 7)) ((c meth c (c (? . 8) q after-load-file)) q (138988 . 3)) ((c meth c (c (? . 5) q get-center)) q (188784 . 2)) ((c meth c (c (? . 30) q set-status-text)) q (30128 . 3)) ((c meth c (c (? . 71) q get-error-box?)) q (233038 . 2)) ((c meth c (c (? . 71) q get-enabled?)) q (232926 . 2)) ((c meth c (c (? . 7) q get-style)) q (117692 . 2)) ((c def c (c (? . 0) q get-label-background-color)) q (104705 . 2)) ((c meth c (c (? . 8) q paste-x-selection)) q (152503 . 3)) ((c def c (? . 95)) q (230323 . 4)) ((c meth c (c (? . 9) q get-plain-label)) q (85856 . 2)) ((c meth c (c (? . 10) q set-shift-down)) q (59159 . 3)) ((c meth c (c (? . 20) q get-control+meta-is-altgr)) q (39718 . 2)) ((c meth c (c (? . 10) q set-mod4-down)) q (58912 . 3)) ((c meth c (c (? . 69) q set-event-type)) q (23333 . 6)) ((c meth c (c (? . 6) q get-top-line-base)) q (207696 . 3)) ((c meth c (c (? . 8) q end-edit-sequence)) q (142148 . 2)) ((c meth c (c (? . 9) q screen->client)) q (87729 . 5)) ((c meth c (c (? . 98) q get-column)) q (22256 . 3)) ((c meth c (c (? . 30) q is-maximized?)) q (29534 . 2)) ((c meth c (c (? . 60) q find-named-style)) q (136863 . 4)) ((c meth c (c (? . 25) q get-max-view)) q (160933 . 11)) ((c meth c (c (? . 14) q end-container-sequence)) q (1973 . 2)) ((c def c (c (? . 0) q current-eventspace-has-standard-menus?)) q (101122 . 2)) ((c constructor c (? . 1)) q (14008 . 28)) ((c def c (c (? . 0) q add-editor-keymap-functions)) q (221812 . 3)) ((c def c (? . 12)) q (6732 . 4)) ((c meth c (c (? . 28) q skip)) q (179131 . 3)) ((c meth c (c (? . 8) q set-caret-owner)) q (157483 . 5)) ((c def c (c (? . 0) q get-top-level-focus-window)) q (100150 . 3)) ((c meth c (c (? . 20) q set-y)) q (42394 . 3)) ((c meth c (c (? . 6) q do-copy)) q (197400 . 6)) ((c meth c (c (? . 10) q get-alt-down)) q (57045 . 2)) ((c meth c (c (? . 8) q get-filename)) q (143597 . 3)) ((c def c (c (? . 29) q unknown-extensions-skip-enabled)) q (226968 . 4)) ((c meth c (c (? . 6) q write-to-file)) q (221585 . 5)) ((c meth c (c (? . 6) q after-split-snip)) q (194851 . 3)) ((c def c (? . 70)) q (11877 . 4)) ((c meth c (c (? . 7) q size-cache-invalid)) q (121180 . 2)) ((c meth c (c (? . 9) q on-superwindow-enable)) q (87358 . 3)) ((c meth c (c (? . 6) q find-next-non-string-snip)) q (198545 . 4)) ((c meth c (c (? . 6) q delete)) q (197146 . 6)) ((c constructor c (? . 40)) q (121560 . 2)) ((c def c (c (? . 0) q add-text-keymap-functions)) q (222002 . 3)) ((c def c (c (? . 0) q get-highlight-text-color)) q (104633 . 2)) ((c meth c (c (? . 47) q show-without-yield)) q (26565 . 2)) ((c meth c (c (? . 6) q get-between-threshold)) q (204961 . 3)) ((c def c (c (? . 0) q get-panel-background)) q (104511 . 2)) ((c meth c (c (? . 6) q can-insert?)) q (195375 . 4)) ((c meth c (c (? . 7) q previous)) q (120202 . 2)) ((c meth c (c (? . 8) q get-min-height)) q (144458 . 3)) ((c meth c (c (? . 6) q find-string-all)) q (201889 . 14)) ((c constructor c (? . 56)) q (169507 . 2)) ((c meth c (c (? . 6) q on-delete)) q (212531 . 4)) ((c meth c (c (? . 27) q on-char)) q (6197 . 3)) ((c meth c (c (? . 40) q get-view-size)) q (122108 . 4)) ((c meth c (c (? . 6) q get-styles-sticky)) q (206945 . 2)) ((c meth c (c (? . 21) q get-edit-target-object)) q (79440 . 3)) ((c meth c (c (? . 12) q on-paint)) q (10410 . 2)) ((c meth c (c (? . 7) q get-scroll-step-offset)) q (117478 . 4)) ((c meth c (c (? . 10) q get-mod5-down)) q (57698 . 2)) ((c meth c (c (? . 23) q get-color)) q (54901 . 2)) ((c meth c (c (? . 15) q get-weight)) q (128380 . 2)) ((c meth c (c (? . 13) q get-clipboard-data)) q (18413 . 6)) ((c meth c (c (? . 19) q is-selected?)) q (46841 . 3)) ((c meth c (c (? . 82) q set-event-type)) q (69573 . 4)) ((c meth c (c (? . 10) q set-y)) q (59321 . 3)) ((c meth c (c (? . 36) q read-raw-bytes)) q (228840 . 3)) ((c meth c (c (? . 8) q get-max-height)) q (144108 . 3)) ((c meth c (c (? . 6) q call-clickback)) q (194946 . 4)) ((c meth c (c (? . 6) q set-paragraph-margins)) q (219025 . 9)) ((c meth c (c (? . 3) q set-face)) q (134936 . 3)) ((c def c (? . 82)) q (68532 . 3)) ((c constructor c (? . 52)) q (19456 . 35)) ((c def c (? . 102)) q (229207 . 3)) ((c meth c (c (? . 10) q set-x)) q (59242 . 3)) ((c def c (? . 36)) q (228457 . 2)) ((c meth c (c (? . 5) q set-scroll-step)) q (193470 . 3)) ((c meth c (c (? . 3) q set-size-in-pixels-on)) q (135346 . 3)) ((c def c (? . 60)) q (136581 . 3)) ((c meth c (c (? . 8) q scroll-line-location)) q (156507 . 4)) ((c meth c (c (? . 8) q set-file-creator-and-type)) q (157709 . 5)) ((c def c (c (? . 0) q get-display-left-top-inset)) q (102449 . 11)) ((c meth c (c (? . 3) q get-background-add)) q (130800 . 3)) ((c meth c (c (? . 22) q set-b)) q (112483 . 3)) ((c def c (c (? . 0) q get-color-from-user)) q (97744 . 9)) ((c meth c (c (? . 3) q set-alignment-off)) q (132452 . 3)) ((c meth c (c (? . 8) q get-keymap)) q (143968 . 2)) ((c def c (? . 13)) q (18255 . 2)) ((c meth c (c (? . 8) q get-load-overwrites-styles)) q (144041 . 2)) ((c meth c (c (? . 6) q find-line)) q (198039 . 4)) ((c def c (c (? . 0) q message-box)) q (91855 . 13)) ((c def c (? . 103)) q (59400 . 5)) ((c meth c (c (? . 5) q get-selection-visible)) q (188984 . 2)) ((c meth c (c (? . 19) q set-first-visible-item)) q (48094 . 3)) ((c meth c (c (? . 70) q get-value)) q (13667 . 2)) ((c meth c (c (? . 9) q on-subwindow-event)) q (86893 . 5)) ((c meth c (c (? . 3) q get-foreground-mult)) q (131254 . 3)) ((c meth c (c (? . 12) q get-scroll-pos)) q (8789 . 3)) ((c meth c (c (? . 24) q get-selection)) q (48848 . 3)) ((c meth c (c (? . 6) q split-snip)) q (221496 . 3)) ((c constructor c (? . 104)) q (34271 . 3)) ((c def c (? . 49)) q (125631 . 2)) ((c meth c (c (? . 9) q has-focus?)) q (86168 . 2)) ((c meth c (c (? . 8) q get-dc)) q (143090 . 2)) ((c meth c (c (? . 8) q undo-preserves-all-history?)) q (160027 . 2)) ((c meth c (c (? . 6) q can-set-size-constraint?)) q (195516 . 2)) ((c meth c (c (? . 27) q set-resize-corner)) q (6605 . 3)) ((c meth c (c (? . 11) q get-tight-text-fit)) q (175088 . 2)) ((c meth c (c (? . 9) q wheel-event-mode)) q (88227 . 5)) ((c meth c (c (? . 5) q insert)) q (189049 . 15)) ((c meth c (c (? . 71) q get-collapsed?)) q (232981 . 2)) ((c def c (c (? . 0) q bell)) q (103607 . 2)) ((c meth c (c (? . 5) q find-snip)) q (188550 . 6)) ((c meth c (c (? . 21) q on-system-menu-char)) q (80513 . 3)) ((c meth c (c (? . 3) q set-delta)) q (132671 . 35)) ((c def c (c (? . 29) q wxme-read)) q (227210 . 3)) ((c meth c (c (? . 67) q set-next)) q (169252 . 3)) ((c meth c (c (? . 32) q get-exact)) q (177300 . 3)) ((c meth c (c (? . 5) q on-interactive-move)) q (191522 . 3)) ((c def c (? . 52)) q (19397 . 3)) ((c meth c (c (? . 5) q delete)) q (187952 . 4)) ((c meth c (c (? . 40) q get-editor)) q (121689 . 3)) ((c def c (? . 21)) q (79102 . 3)) ((c meth c (c (? . 12) q with-gl-context)) q (11675 . 5)) ((c def c (c (? . 0) q get-display-count)) q (102328 . 2)) ((c meth c (c (? . 7) q match?)) q (118371 . 3)) ((c meth c (c (? . 8) q cut)) q (141157 . 4)) ((c meth c (c (? . 82) q get-direction)) q (69166 . 3)) ((c meth c (c (? . 8) q after-edit-sequence)) q (138931 . 2)) ((c meth c (c (? . 3) q set-weight-off)) q (136368 . 3)) ((c meth c (c (? . 6) q after-set-size-constraint)) q (194791 . 2)) ((c meth c (c (? . 41) q get-selection)) q (75339 . 3)) ((c meth c (c (? . 4) q set)) q (108432 . 6)) ((c meth c (c (? . 8) q get-file-sha1)) q (143533 . 2)) ((c meth c (c (? . 15) q get-delta)) q (127007 . 3)) ((c meth c (c (? . 6) q scroll-to-position)) q (216801 . 9)) ((c meth c (c (? . 6) q get-region-data)) q (206057 . 5)) ((c meth c (c (? . 25) q scroll-to)) q (162611 . 13)) ((c meth c (c (? . 44) q get-value)) q (71991 . 2)) ((c meth c (c (? . 5) q set-before)) q (193239 . 4)) ((c meth c (c (? . 24) q find-string)) q (48665 . 4)) ((c meth c (c (? . 20) q set-control+meta-is-altgr)) q (41035 . 3)) ((c constructor c (? . 23)) q (52862 . 31)) ((c meth c (c (? . 18) q get-help-string)) q (42636 . 3)) ((c meth c (c (? . 7) q write)) q (121423 . 3)) ((c meth c (c (? . 27) q resume-flush)) q (6459 . 2)) ((c def c (? . 28)) q (178338 . 3))))
interface
area<%> : interface?
method
(send an-area get-graphical-min-size)
 -> dimension-integer? dimension-integer?
method
(send an-area get-parent)
 -> (or/c (is-a?/c area-container<%>) #f)
method
(send an-area get-top-level-window)
 -> (or/c (is-a?/c frame%) (is-a?/c dialog%))
method
(send an-area min-width) -> dimension-integer?
(send an-area min-width w) -> void?
  w : dimension-integer?
method
(send an-area min-height) -> dimension-integer?
(send an-area min-height h) -> void?
  h : dimension-integer?
method
(send an-area stretchable-height) -> boolean?
(send an-area stretchable-height stretch?) -> void?
  stretch? : any/c
method
(send an-area stretchable-width) -> boolean?
(send an-area stretchable-width stretch?) -> void?
  stretch? : any/c
interface
area-container<%> : interface?
  implements: area<%>
method
(send an-area-container add-child child) -> void?
  child : (is-a?/c subwindow<%>)
method
(send an-area-container after-new-child child) -> void?
  child : (is-a?/c subarea<%>)
method
(send an-area-container begin-container-sequence) -> void?
method
(send an-area-container border) -> spacing-integer?
(send an-area-container border margin) -> void?
  margin : spacing-integer?
method
(send an-area-container change-children filter) -> void?
  filter : ((listof (is-a?/c subarea<%>))
            . -> . (listof (is-a?/c subarea<%>)))
method
(send an-area-container container-flow-modified) -> void?
method
(send an-area-container container-size info)
 -> dimension-integer? dimension-integer?
  info : (listof (list/c dimension-integer?
                         dimension-integer?
                         any/c
                         any/c))
method
(send an-area-container delete-child child) -> void?
  child : (is-a?/c subwindow<%>)
method
(send an-area-container end-container-sequence) -> void?
method
(send an-area-container get-alignment)
 -> (symbols 'right 'center 'left)
    (symbols 'bottom 'center 'top)
method
(send an-area-container get-children)
 -> (listof (is-a?/c subarea<%>))
method
(send an-area-container place-children info    
                                       width   
                                       height) 
 -> (listof (list/c dimension-integer?
                    dimension-integer?
                    dimension-integer?
                    dimension-integer?))
  info : (listof (list/c dimension-integer?
                         dimension-integer?
                         any/c
                         any/c))
  width : dimension-integer?
  height : dimension-integer?
method
(send an-area-container reflow-container) -> void?
method
(send an-area-container set-alignment horiz-align     
                                      vert-align) -> void?
  horiz-align : (symbols 'right 'center 'left)
  vert-align : (symbols 'bottom 'center 'top)
method
(send an-area-container spacing) -> spacing-integer?
(send an-area-container spacing spacing) -> void?
  spacing : spacing-integer?
interface
area-container-window<%> : interface?
  implements: area-container<%>
              window<%>
class
button% : class?
  superclass: object%
  extends: control<%>
constructor
(new button%                                            
              [label label]                             
              [parent parent]                           
             [[callback callback]                       
              [style style]                             
              [font font]                               
              [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 button%)
  label : (or/c label-string?
                (is-a?/c bitmap%)
                (list/c (is-a?/c bitmap%)
                        label-string?
                        (or/c 'left 'top 'right 'bottom)))
  parent : (or/c (is-a?/c frame%) (is-a?/c dialog%)
                 (is-a?/c panel%) (is-a?/c pane%))
  callback : ((is-a?/c button%) (is-a?/c control-event%) . -> . any)
           = (lambda (b e) (void))
  style : (listof (or/c 'border 'multi-line 'deleted)) = null
  font : (is-a?/c font%) = normal-control-font
  enabled : any/c = #t
  vert-margin : spacing-integer? = 2
  horiz-margin : spacing-integer? = 2
  min-width : (or/c dimension-integer? #f) = #f
  min-height : (or/c dimension-integer? #f) = #f
  stretchable-width : any/c = #f
  stretchable-height : any/c = #f
method
(send a-button set-label label) -> void?
  label : (or/c label-string?
                (is-a?/c bitmap%))
interface
canvas<%> : interface?
  implements: subwindow<%>
method
(send a-canvas accept-tab-focus) -> boolean?
(send a-canvas accept-tab-focus on?) -> void?
  on? : any/c
method
(send a-canvas flush) -> void?
method
(send a-canvas get-canvas-background)
 -> (or/c (is-a?/c color%) #f)
method
(send a-canvas get-dc) -> (is-a?/c dc<%>)
method
(send a-canvas get-scaled-client-size)
 -> dimension-integer? dimension-integer?
method
(send a-canvas min-client-height) -> dimension-integer?
(send a-canvas min-client-height h) -> void?
  h : dimension-integer?
method
(send a-canvas min-client-width) -> dimension-integer?
(send a-canvas min-client-width w) -> void?
  w : dimension-integer?
method
(send a-canvas on-char ch) -> void?
  ch : (is-a?/c key-event%)
method
(send a-canvas on-event event) -> void?
  event : (is-a?/c mouse-event%)
method
(send a-canvas on-paint) -> void?
method
(send a-canvas on-tab-in) -> void?
method
(send a-canvas resume-flush) -> void?
method
(send a-canvas set-canvas-background color) -> void?
  color : (is-a?/c color%)
method
(send a-canvas set-resize-corner on?) -> void?
  on? : any/c
method
(send a-canvas suspend-flush) -> void?
class
canvas% : class?
  superclass: object%
  extends: canvas<%>
constructor
(new canvas%                                            
              [parent parent]                           
             [[style style]                             
              [paint-callback paint-callback]           
              [label label]                             
              [gl-config gl-config]                     
              [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 canvas%)
  parent : (or/c (is-a?/c frame%) (is-a?/c dialog%)
                 (is-a?/c panel%) (is-a?/c pane%))
  style : (listof (or/c 'border 'control-border 'combo   = null
                        'vscroll 'hscroll 'resize-corner
                        'gl 'no-autoclear 'transparent
                        'no-focus 'deleted))
  paint-callback : ((is-a?/c canvas%) (is-a?/c dc<%>) . -> . any)
                 = void
  label : (or/c label-string? #f) = #f
  gl-config : (or/c (is-a?/c gl-config%) #f) = #f
  enabled : any/c = #t
  vert-margin : spacing-integer? = 0
  horiz-margin : spacing-integer? = 0
  min-width : (or/c dimension-integer? #f) = #f
  min-height : (or/c dimension-integer? #f) = #f
  stretchable-width : any/c = #t
  stretchable-height : any/c = #t
method
(send a-canvas get-gl-client-size)
 -> dimension-integer? dimension-integer?
method
(send a-canvas get-scroll-page which)
 -> positive-dimension-integer?
  which : (or/c 'horizontal 'vertical)
method
(send a-canvas get-scroll-pos which) -> dimension-integer?
  which : (or/c 'horizontal 'vertical)
method
(send a-canvas get-scroll-range which) -> dimension-integer?
  which : (or/c 'horizontal 'vertical)
method
(send a-canvas get-view-start)
 -> dimension-integer? dimension-integer?
method
(send a-canvas get-virtual-size)
 -> (value dimension-integer? dimension-integer?)
method
(send a-canvas init-auto-scrollbars horiz-pixels     
                                    vert-pixels      
                                    h-value          
                                    v-value)     -> void?
  horiz-pixels : (or/c positive-dimension-integer? #f)
  vert-pixels : (or/c positive-dimension-integer? #f)
  h-value : (real-in 0.0 1.0)
  v-value : (real-in 0.0 1.0)
method
(send a-canvas init-manual-scrollbars h-length     
                                      v-length     
                                      h-page       
                                      v-page       
                                      h-value      
                                      v-value) -> void?
  h-length : (or/c dimension-integer? #f)
  v-length : (or/c dimension-integer? #f)
  h-page : positive-dimension-integer?
  v-page : positive-dimension-integer?
  h-value : dimension-integer?
  v-value : dimension-integer?
method
(send a-canvas make-bitmap width height) -> (is-a/c? bitmap%)
  width : exact-positive-integer?
  height : exact-positive-integer?
method
(send a-canvas on-paint) -> void?
method
(send a-canvas on-scroll event) -> void?
  event : (is-a?/c scroll-event%)
method
(send a-canvas refresh-now [paint-proc            
                            #:flush? flush?]) -> void?
  paint-proc : ((is-a?/c dc<%>) . -> . any)
             = (lambda (dc) (send a-canvas on-paint))
  flush? : any/c = #t
method
(send a-canvas scroll h-value v-value) -> void?
  h-value : (or/c (real-in 0.0 1.0) #f)
  v-value : (or/c (real-in 0.0 1.0) #f)
method
(send a-canvas set-scroll-page which value) -> void?
  which : (or/c 'horizontal 'vertical)
  value : positive-dimension-integer?
method
(send a-canvas set-scroll-pos which value) -> void?
  which : (or/c 'horizontal 'vertical)
  value : dimension-integer?
method
(send a-canvas set-scroll-range which      
                                value) -> void?
  which : (or/c 'horizontal 'vertical)
  value : dimension-integer?
method
(send a-canvas show-scrollbars show-horiz?     
                               show-vert?) -> void?
  show-horiz? : any/c
  show-vert? : any/c
method
(send a-canvas swap-gl-buffers) -> void?
method
(send a-canvas with-gl-context  thunk             
                               [#:fail fail]) -> any
  thunk : (-> any)
  fail : (-> any) = (lambda () (error ....))
class
check-box% : class?
  superclass: object%
  extends: control<%>
constructor
(new check-box%                                            
                 [label label]                             
                 [parent parent]                           
                [[callback callback]                       
                 [style style]                             
                 [value value]                             
                 [font font]                               
                 [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 check-box%)
  label : (or/c label-string? (is-a?/c bitmap%))
  parent : (or/c (is-a?/c frame%) (is-a?/c dialog%)
                 (is-a?/c panel%) (is-a?/c pane%))
  callback : ((is-a?/c check-box%) (is-a?/c control-event%)
              . -> . any)
           = (lambda (c e) (void))
  style : (listof (or/c 'deleted)) = null
  value : any/c = #f
  font : (is-a?/c font%) = normal-control-font
  enabled : any/c = #t
  vert-margin : spacing-integer? = 2
  horiz-margin : spacing-integer? = 2
  min-width : (or/c dimension-integer? #f) = #f
  min-height : (or/c dimension-integer? #f) = #f
  stretchable-width : any/c = #f
  stretchable-height : any/c = #f
method
(send a-check-box get-value) -> boolean?
method
(send a-check-box set-label label) -> void?
  label : (or/c label-string? (is-a?/c bitmap%))
method
(send a-check-box set-value state) -> void?
  state : any/c
class
checkable-menu-item% : class?
  superclass: object%
  extends: selectable-menu-item<%>
constructor
(new checkable-menu-item%                                      
                           [label label]                       
                           [parent parent]                     
                          [[callback callback]                 
                           [shortcut shortcut]                 
                           [help-string help-string]           
                           [demand-callback demand-callback]   
                           [checked checked]                   
                           [shortcut-prefix shortcut-prefix]]) 
 -> (is-a?/c checkable-menu-item%)
  label : label-string?
  parent : (or/c (is-a?/c menu%) (is-a?/c popup-menu%))
  callback : ((is-a?/c checkable-menu-item%) (is-a?/c control-event%)
              . -> . any)
           = (lambda (i e) (void))
  shortcut : (or/c char? symbol? #f) = #f
  help-string : (or/c label-string? #f) = #f
  demand-callback : ((is-a?/c menu-item%) . -> . any)
                  = (lambda (i) (void))
  checked : any/c = #f
  shortcut-prefix : (and/c (listof (or/c 'alt 'cmd 'meta 'ctl
                                         'shift 'option))
                           (λ (x) (implies (equal? 'unix (system-type))
                                           (not (and (member 'alt x)
                                                     (member 'meta x)))))
                           (λ (x) (equal? x (remove-duplicates x))))
                  = (get-default-shortcut-prefix)
method
(send a-checkable-menu-item check check?) -> void?
  check? : any/c
method
(send a-checkable-menu-item is-checked?) -> boolean?
class
choice% : class?
  superclass: object%
  extends: list-control<%>
constructor
(new choice%                                            
              [label label]                             
              [choices choices]                         
              [parent parent]                           
             [[callback callback]                       
              [style style]                             
              [selection selection]                     
              [font font]                               
              [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 choice%)
  label : (or/c label-string? #f)
  choices : (listof label-string?)
  parent : (or/c (is-a?/c frame%) (is-a?/c dialog%)
                 (is-a?/c panel%) (is-a?/c pane%))
  callback : ((is-a?/c choice%) (is-a?/c control-event%) . -> . any)
           = (lambda (c e) (void))
  style : (listof (or/c 'horizontal-label 'vertical-label = null
                        'deleted))
  selection : exact-nonnegative-integer? = 0
  font : (is-a?/c font%) = normal-control-font
  enabled : any/c = #t
  vert-margin : spacing-integer? = 2
  horiz-margin : spacing-integer? = 2
  min-width : (or/c dimension-integer? #f) = #f
  min-height : (or/c dimension-integer? #f) = #f
  stretchable-width : any/c = #f
  stretchable-height : any/c = #f
class
clipboard-client% : class?
  superclass: object%
constructor
(new clipboard-client%) -> (is-a?/c clipboard-client%)
method
(send a-clipboard-client add-type format) -> void?
  format : string?
method
(send a-clipboard-client get-data format)
 -> (or/c bytes? string? #f)
  format : string?
method
(send a-clipboard-client get-types) -> (listof string?)
method
(send a-clipboard-client on-replaced) -> void?
interface
clipboard<%> : interface?
method
(send a-clipboard get-clipboard-bitmap time)
 -> (or/c (is-a?/c bitmap%) #f)
  time : exact-integer?
method
(send a-clipboard get-clipboard-data format 
                                     time)  
 -> (or/c bytes? string? #f)
  format : string?
  time : exact-integer?
method
(send a-clipboard get-clipboard-string time) -> string?
  time : exact-integer?
method
(send a-clipboard same-clipboard-client? owner) -> boolean?
  owner : (is-a?/c clipboard-client%)
method
(send a-clipboard set-clipboard-bitmap new-bitmap     
                                       time)      -> void?
  new-bitmap : (is-a?/c bitmap%)
  time : exact-integer?
method
(send a-clipboard set-clipboard-client new-owner     
                                       time)     -> void?
  new-owner : (is-a?/c clipboard-client%)
  time : exact-integer?
method
(send a-clipboard set-clipboard-string new-text     
                                       time)    -> void?
  new-text : string?
  time : exact-integer?
class
combo-field% : class?
  superclass: text-field%
constructor
(new combo-field%                                            
                   [label label]                             
                   [choices choices]                         
                   [parent parent]                           
                  [[callback callback]                       
                   [init-value init-value]                   
                   [style style]                             
                   [font font]                               
                   [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 combo-field%)
  label : (or/c label-string? #f)
  choices : (listof label-string?)
  parent : (or/c (is-a?/c frame%) (is-a?/c dialog%)
                 (is-a?/c panel%) (is-a?/c pane%))
  callback : ((is-a?/c combo-field%) (is-a?/c control-event%)
              . -> . any)
           = (lambda (c e) (void))
  init-value : string = ""
  style : (listof (or/c 'horizontal-label 'vertical-label = null
                        'deleted))
  font : (is-a?/c font%) = normal-control-font
  enabled : any/c = #t
  vert-margin : spacing-integer? = 2
  horiz-margin : spacing-integer? = 2
  min-width : (or/c dimension-integer? #f) = #f
  min-height : (or/c dimension-integer? #f) = #f
  stretchable-width : any/c = #t
  stretchable-height : any/c = #f
method
(send a-combo-field append l) -> void?
  l : label-string?
method
(send a-combo-field get-menu) -> (is-a?/c popup-menu%)
method
(send a-combo-field on-popup event) -> void?
  event : (is-a?/c control-event%)
interface
control<%> : interface?
  implements: subwindow<%>
method
(send a-control command event) -> void?
  event : (is-a?/c control-event%)
class
column-control-event% : class?
  superclass: control-event%
constructor
(new column-control-event%                            
                            [column column]           
                            [event-type event-type]   
                           [[time-stamp time-stamp]]) 
 -> (is-a?/c column-control-event%)
  column : exact-nonnegative-integer?
  event-type : (or/c 'list-box-column)
  time-stamp : exact-integer? = 0
method
(send a-column-control-event get-column)
 -> exact-nonnegative-integer?
method
(send a-column-control-event set-column column) -> void?
  column : exact-nonnegative-integer?
class
control-event% : class?
  superclass: event%
constructor
(new control-event%                            
                     [event-type event-type]   
                    [[time-stamp time-stamp]]) 
 -> (is-a?/c control-event%)
  event-type : (or/c 'button 'check-box 'choice
                     'list-box 'list-box-dclick 'list-box-column
                     'text-field 'text-field-enter
                     'menu 'slider 'radio-box 'tab-panel
                     'menu-popdown 'menu-popdown-none)
  time-stamp : exact-integer? = 0
method
(send a-control-event get-event-type)
 -> (or/c 'button 'check-box 'choice
          'list-box 'list-box-dclick 'text-field
          'text-field-enter 'menu 'slider 'radio-box
          'menu-popdown 'menu-popdown-none 'tab-panel)
method
(send a-control-event set-event-type type) -> void?
  type : (or/c 'button 'check-box 'choice
               'list-box 'list-box-dclick 'text-field
               'text-field-enter 'menu 'slider 'radio-box
               'menu-popdown 'menu-popdown-none 'tab-panel)
class
cursor% : class?
  superclass: object%
constructor
(make-object cursor%  image            
                      mask             
                     [hot-spot-x       
                      hot-spot-y]) -> (is-a?/c cursor%)
  image : (is-a?/c bitmap%)
  mask : (is-a?/c bitmap%)
  hot-spot-x : (integer-in 0 15) = 0
  hot-spot-y : (integer-in 0 15) = 0
(make-object cursor% id) -> (is-a?/c cursor%)
  id : (or/c 'arrow 'bullseye 'cross 'hand 'ibeam 'watch 'blank
             'size-n/s 'size-e/w 'size-ne/sw 'size-nw/se)
method
(send a-cursor ok?) -> boolean?
class
dialog% : class?
  superclass: object%
  extends: top-level-window<%>
constructor
(new dialog%                                            
              [label label]                             
             [[parent parent]                           
              [width width]                             
              [height height]                           
              [x x]                                     
              [y y]                                     
              [style style]                             
              [enabled enabled]                         
              [border border]                           
              [spacing spacing]                         
              [alignment alignment]                     
              [min-width min-width]                     
              [min-height min-height]                   
              [stretchable-width stretchable-width]     
              [stretchable-height stretchable-height]]) 
 -> (is-a?/c dialog%)
  label : label-string?
  parent : (or/c (is-a?/c frame%) (is-a?/c dialog%) #f) = #f
  width : (or/c dimension-integer? #f) = #f
  height : (or/c dimension-integer? #f) = #f
  x : (or/c dimension-integer? #f) = #f
  y : (or/c dimension-integer? #f) = #f
  style : (listof (or/c 'no-caption 'resize-border = null
                        'no-sheet 'close-button))
  enabled : any/c = #t
  border : spacing-integer? = 0
  spacing : spacing-integer? = 0
  alignment : (list/c (or/c 'left 'center 'right)
                      (or/c 'top 'center 'bottom))
            = '(center top)
  min-width : (or/c dimension-integer? #f) = #f
  min-height : (or/c dimension-integer? #f) = #f
  stretchable-width : any/c = #t
  stretchable-height : any/c = #t
method
(send a-dialog on-subwindow-char receiver     
                                 event)   -> boolean?
  receiver : (is-a?/c window<%>)
  event : (is-a?/c key-event%)
method
(send a-dialog show show?) -> void?
  show? : any/c
method
(send a-dialog show-without-yield) -> void?
class
event% : class?
  superclass: object%
constructor
(new event% [[time-stamp time-stamp]]) -> (is-a?/c event%)
  time-stamp : exact-integer? = 0
method
(send an-event get-time-stamp) -> exact-integer?
method
(send an-event set-time-stamp time) -> void?
  time : exact-integer?
class
frame% : class?
  superclass: object%
  extends: top-level-window<%>
constructor
(new frame%                                            
             [label label]                             
            [[parent parent]                           
             [width width]                             
             [height height]                           
             [x x]                                     
             [y y]                                     
             [style style]                             
             [enabled enabled]                         
             [border border]                           
             [spacing spacing]                         
             [alignment alignment]                     
             [min-width min-width]                     
             [min-height min-height]                   
             [stretchable-width stretchable-width]     
             [stretchable-height stretchable-height]]) 
 -> (is-a?/c frame%)
  label : label-string?
  parent : (or/c (is-a?/c frame%) (is-a?/c dialog) #f) = #f
  width : (or/c dimension-integer? #f) = #f
  height : (or/c dimension-integer? #f) = #f
  x : (or/c position-integer? #f) = #f
  y : (or/c position-integer? #f) = #f
  style : (listof (or/c 'no-resize-border 'no-caption
                        'no-system-menu 'hide-menu-bar
                        'toolbar-button 'float 'metal
                        'fullscreen-button 'fullscreen-aux))
        = null
  enabled : any/c = #t
  border : spacing-integer? = 0
  spacing : spacing-integer? = 0
  alignment : (list/c (or/c 'left 'center 'right)
                      (or/c 'top 'center 'bottom))
            = '(center top)
  min-width : (or/c dimension-integer? #f) = #f
  min-height : (or/c dimension-integer? #f) = #f
  stretchable-width : any/c = #t
  stretchable-height : any/c = #t
method
(send a-frame create-status-line) -> void?
method
(send a-frame fullscreen fullscreen?) -> void?
  fullscreen? : any/c
method
(send a-frame get-menu-bar) -> (or/c (is-a?/c menu-bar%) #f)
method
(send a-frame has-status-line?) -> boolean?
method
(send a-frame iconize iconize?) -> void?
  iconize? : any/c
method
(send a-frame is-fullscreened?) -> boolean?
method
(send a-frame is-iconized?) -> boolean?
method
(send a-frame is-maximized?) -> boolean?
method
(send a-frame maximize maximize?) -> void?
  maximize? : any/c
method
(send a-frame modified) -> boolean?
(send a-frame modified modified?) -> void?
  modified? : any/c
method
(send a-frame on-menu-char event) -> boolean?
  event : (is-a?/c key-event%)
method
(send a-frame on-subwindow-char receiver     
                                event)   -> boolean?
  receiver : (is-a?/c window<%>)
  event : (is-a?/c key-event%)
method
(send a-frame on-toolbar-button-click) -> void?
method
(send a-frame set-status-text text) -> void?
  text : string?
class
gauge% : class?
  superclass: object%
  extends: control<%>
constructor
(new gauge%                                            
             [label label]                             
             [range range]                             
             [parent parent]                           
            [[style style]                             
             [font font]                               
             [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 gauge%)
  label : (or/c label-string? #f)
  range : positive-dimension-integer?
  parent : (or/c (is-a?/c frame%) (is-a?/c dialog%)
                 (is-a?/c panel%) (is-a?/c pane%))
  style : (listof (or/c 'horizontal 'vertical
                        'vertical-label 'horizontal-label
                        'deleted))
        = '(horizontal)
  font : (is-a?/c font%) = normal-control-font
  enabled : any/c = #t
  vert-margin : spacing-integer? = 2
  horiz-margin : spacing-integer? = 2
  min-width : (or/c dimension-integer? #f) = #f
  min-height : (or/c dimension-integer? #f) = #f
  stretchable-width : any/c = (memq 'horizontal style)
  stretchable-height : any/c = (memq 'vertical style)
method
(send a-gauge get-range) -> positive-dimension-integer?
method
(send a-gauge get-value) -> dimension-integer?
method
(send a-gauge set-range range) -> void?
  range : positive-dimension-integer?
method
(send a-gauge set-value pos) -> void?
  pos : dimension-integer?
class
group-box-panel% : class?
  superclass: vertical-panel%
constructor
(new group-box-panel%                                            
                       [label label]                             
                       [parent parent]                           
                      [[style style]                             
                       [font font]                               
                       [enabled enabled]                         
                       [vert-margin vert-margin]                 
                       [horiz-margin horiz-margin]               
                       [border border]                           
                       [spacing spacing]                         
                       [alignment alignment]                     
                       [min-width min-width]                     
                       [min-height min-height]                   
                       [stretchable-width stretchable-width]     
                       [stretchable-height stretchable-height]]) 
 -> (is-a?/c group-box-panel%)
  label : label-string?
  parent : (or/c (is-a?/c frame%) (is-a?/c dialog%)
                 (is-a?/c panel%) (is-a?/c pane%))
  style : (listof (or/c 'deleted)) = null
  font : (is-a?/c font%) = small-control-font
  enabled : any/c = #t
  vert-margin : spacing-integer? = 2
  horiz-margin : spacing-integer? = 2
  border : spacing-integer? = 0
  spacing : spacing-integer? = 0
  alignment : (list/c (or/c 'left 'center 'right)
                      (or/c 'top 'center 'bottom))
            = '(center top)
  min-width : (or/c dimension-integer? #f) = #f
  min-height : (or/c dimension-integer? #f) = #f
  stretchable-width : any/c = #t
  stretchable-height : any/c = #t
class
grow-box-spacer-pane% : class?
  superclass: pane%
constructor
(new grow-box-spacer-pane% ...superclass-args...)
 -> (is-a?/c grow-box-spacer-pane%)
class
horizontal-pane% : class?
  superclass: pane%
constructor
(new horizontal-pane%                                            
                       [parent parent]                           
                      [[vert-margin vert-margin]                 
                       [horiz-margin horiz-margin]               
                       [border border]                           
                       [spacing spacing]                         
                       [alignment alignment]                     
                       [min-width min-width]                     
                       [min-height min-height]                   
                       [stretchable-width stretchable-width]     
                       [stretchable-height stretchable-height]]) 
 -> (is-a?/c horizontal-pane%)
  parent : (or/c (is-a?/c frame%) (is-a?/c dialog%)
                 (is-a?/c panel%) (is-a?/c pane%))
  vert-margin : spacing-integer? = 0
  horiz-margin : spacing-integer? = 0
  border : spacing-integer? = 0
  spacing : spacing-integer? = 0
  alignment : (list/c (or/c 'left 'center 'right)
                      (or/c 'top 'center 'bottom))
            = '(left center)
  min-width : (or/c dimension-integer? #f) = #f
  min-height : (or/c dimension-integer? #f) = #f
  stretchable-width : any/c = #t
  stretchable-height : any/c = #t
class
horizontal-panel% : class?
  superclass: panel%
constructor
(new horizontal-panel%                                            
                        [parent parent]                           
                       [[style style]                             
                        [enabled enabled]                         
                        [vert-margin vert-margin]                 
                        [horiz-margin horiz-margin]               
                        [border border]                           
                        [spacing spacing]                         
                        [alignment alignment]                     
                        [min-width min-width]                     
                        [min-height min-height]                   
                        [stretchable-width stretchable-width]     
                        [stretchable-height stretchable-height]]) 
 -> (is-a?/c horizontal-panel%)
  parent : (or/c (is-a?/c frame%) (is-a?/c dialog%)
                 (is-a?/c panel%) (is-a?/c pane%))
  style : (listof (or/c 'border 'deleted
                        'hscroll 'auto-hscroll 'hide-hscroll
                        'vscroll 'auto-vscroll 'hide-vscroll))
        = null
  enabled : any/c = #t
  vert-margin : spacing-integer? = 0
  horiz-margin : spacing-integer? = 0
  border : spacing-integer? = 0
  spacing : spacing-integer? = 0
  alignment : (list/c (or/c 'left 'center 'right)
                      (or/c 'top 'center 'bottom))
            = '(left center)
  min-width : (or/c dimension-integer? #f) = #f
  min-height : (or/c dimension-integer? #f) = #f
  stretchable-width : any/c = #t
  stretchable-height : any/c = #t
method
(send a-horizontal-panel set-orientation horizontal?) -> void?
  horizontal? : boolean?
method
(send a-horizontal-panel get-orientation) -> boolean?
class
key-event% : class?
  superclass: event%
constructor
(new key-event%                                                  
                [[key-code key-code]                             
                 [shift-down shift-down]                         
                 [control-down control-down]                     
                 [meta-down meta-down]                           
                 [alt-down alt-down]                             
                 [x x]                                           
                 [y y]                                           
                 [time-stamp time-stamp]                         
                 [caps-down caps-down]                           
                 [mod3-down mod3-down]                           
                 [mod4-down mod4-down]                           
                 [mod5-down mod5-down]                           
                 [control+meta-is-altgr control+meta-is-altgr]]) 
 -> (is-a?/c key-event%)
  key-code : (or/c char? key-code-symbol?) = #\nul
  shift-down : any/c = #f
  control-down : any/c = #f
  meta-down : any/c = #f
  alt-down : any/c = #f
  x : exact-integer? = 0
  y : exact-integer? = 0
  time-stamp : exact-integer? = 0
  caps-down : any/c = #f
  mod3-down : any/c = #f
  mod4-down : any/c = #f
  mod5-down : any/c = #f
  control+meta-is-altgr : any/c = #f
method
(send a-key-event get-alt-down) -> boolean?
method
(send a-key-event get-caps-down) -> boolean?
method
(send a-key-event get-control-down) -> boolean?
method
(send a-key-event get-control+meta-is-altgr) -> boolean?
method
(send a-key-event get-key-code)
 -> (or/c char? key-code-symbol?)
method
(send a-key-event get-key-release-code)
 -> (or/c char? key-code-symbol?)
method
(send a-key-event get-meta-down) -> boolean?
method
(send a-key-event get-mod3-down) -> boolean?
method
(send a-key-event get-mod4-down) -> boolean?
method
(send a-key-event get-mod5-down) -> boolean?
method
(send a-key-event get-other-altgr-key-code)
 -> (or/c char? key-code-symbol? #f)
method
(send a-key-event get-other-caps-key-code)
 -> (or/c char? key-code-symbol? #f)
method
(send a-key-event get-other-shift-altgr-key-code)
 -> (or/c char? key-code-symbol? #f)
method
(send a-key-event get-other-shift-key-code)
 -> (or/c char? key-code-symbol? #f)
method
(send a-key-event get-shift-down) -> boolean?
method
(send a-key-event get-wheel-steps) -> nonnegative-real?
method
(send a-key-event get-x) -> exact-integer?
method
(send a-key-event get-y) -> exact-integer?
method
(send a-key-event set-alt-down down?) -> void?
  down? : any/c
method
(send a-key-event set-caps-down down?) -> void?
  down? : any/c
method
(send a-key-event set-control-down down?) -> void?
  down? : any/c
method
(send a-key-event set-control+meta-is-altgr down?) -> void?
  down? : any/c
method
(send a-key-event set-key-code code) -> void?
  code : (or/c char? key-code-symbol?)
method
(send a-key-event set-key-release-code code) -> void?
  code : (or/c char? key-code-symbol?)
method
(send a-key-event set-meta-down down?) -> void?
  down? : any/c
method
(send a-key-event set-mod3-down down?) -> void?
  down? : any/c
method
(send a-key-event set-mod4-down down?) -> void?
  down? : any/c
method
(send a-key-event set-mod5-down down?) -> void?
  down? : any/c
method
(send a-key-event set-other-altgr-key-code code) -> void?
  code : (or/c char? key-code-symbol? #f)
method
(send a-key-event set-other-caps-key-code code) -> void?
  code : (or/c char? key-code-symbol? #f)
method
(send a-key-event set-other-shift-altgr-key-code code) -> void?
  code : (or/c char? key-code-symbol? #f)
method
(send a-key-event set-other-shift-key-code code) -> void?
  code : (or/c char? key-code-symbol? #f)
method
(send a-key-event set-shift-down down?) -> void?
  down? : any/c
method
(send a-key-event set-wheel-steps steps) -> void?
  steps : nonnegative-real?
method
(send a-key-event set-x pos) -> void?
  pos : exact-integer?
method
(send a-key-event set-y pos) -> void?
  pos : exact-integer?
interface
labelled-menu-item<%> : interface?
  implements: menu-item<%>
method
(send a-labelled-menu-item enable enabled?) -> void?
  enabled? : any/c
method
(send a-labelled-menu-item get-help-string)
 -> (or/c label-string? #f)
method
(send a-labelled-menu-item get-label) -> label-string?
method
(send a-labelled-menu-item get-plain-label) -> label-string?
method
(send a-labelled-menu-item is-enabled?) -> boolean?
method
(send a-labelled-menu-item on-demand) -> void?
method
(send a-labelled-menu-item set-help-string help) -> void?
  help : (or/c label-string? #f)
method
(send a-labelled-menu-item set-label label) -> void?
  label : label-string?
class
list-box% : class?
  superclass: object%
  extends: list-control<%>
constructor
(new list-box%                                          
                [label label]                           
                [choices choices]                       
                [parent parent]                         
               [[callback callback]                     
                [style style]                           
                [selection selection]                   
                [font font]                             
                [label-font label-font]                 
                [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] 
                [columns columns]                       
                [column-order column-order]])           
 -> (is-a?/c list-box%)
  label : (or/c label-string? #f)
  choices : (listof label-string?)
  parent : (or/c (is-a?/c frame%) (is-a?/c dialog%)
                 (is-a?/c panel%) (is-a?/c pane%))
  callback : ((is-a?/c list-box%) (is-a?/c control-event%)
              . -> . any)
           = (lambda (c e) (void))
  style : (listof (or/c 'single 'multiple 'extended
                        'vertical-label 'horizontal-label
                        'variable-columns 'column-headers
                        'clickable-headers 'reorderable-headers
                        'deleted))
        = '(single)
  selection : (or/c exact-nonnegative-integer? #f) = #f
  font : (is-a?/c font%) = view-control-font
  label-font : (is-a?/c font%) = normal-control-font
  enabled : any/c = #t
  vert-margin : spacing-integer? = 2
  horiz-margin : spacing-integer? = 2
  min-width : (or/c dimension-integer? #f) = #f
  min-height : (or/c dimension-integer? #f) = #f
  stretchable-width : any/c = #t
  stretchable-height : any/c = #t
  columns : (cons/c label-string? (listof label-string?))
          = '("Column")
  column-order : (or/c #f (listof exact-nonnegative-integer?))
               = #f
method
(send a-list-box append item [data]) -> void?
  item : label-string?
  data : any/c = #f
method
(send a-list-box append-column label) -> void?
  label : label-string?
method
(send a-list-box delete-column n) -> void?
  n : exact-nonnegative-integer?
method
(send a-list-box get-column-labels)
 -> (cons/c label-string? (listof label-string?))
method
(send a-list-box get-column-order)
 -> (listof exact-nonnegative-integer?)
method
(send a-list-box get-column-width column) -> dimension-integer?
                                             dimension-integer?
                                             dimension-integer?
  column : exact-nonnegative-integer?
method
(send a-list-box get-data n) -> any/c
  n : exact-nonnegative-integer?
method
(send a-list-box get-first-visible-item)
 -> exact-nonnegative-integer?
method
(send a-list-box get-label-font) -> (is-a?/c font%)
method
(send a-list-box get-selections)
 -> (listof exact-nonnegative-integer?)
method
(send a-list-box is-selected? n) -> boolean?
  n : exact-nonnegative-integer?
method
(send a-list-box number-of-visible-items)
 -> exact-positive-integer?
method
(send a-list-box select n [select?]) -> void?
  n : exact-nonnegative-integer?
  select? : any/c = #t
method
(send a-list-box set choices0 choices ...) -> void?
  choices0 : (listof label-string?)
  choices : (listof label-string?)
method
(send a-list-box set-column-label column     
                                  label) -> void?
  column : exact-nonnegative-integer?
  label : label-string?
method
(send a-list-box set-column-order column-order) -> void?
  column-order : (listof exact-nonnegative-integer?)
method
(send a-list-box set-column-width column         
                                  width          
                                  min-width      
                                  max-width) -> void?
  column : exact-nonnegative-integer?
  width : dimension-integer?
  min-width : dimension-integer?
  max-width : dimension-integer?
method
(send a-list-box set-data n data) -> void?
  n : exact-nonnegative-integer?
  data : any/c
method
(send a-list-box set-first-visible-item n) -> void?
  n : exact-nonnegative-integer?
method
(send a-list-box set-string n label [column]) -> void?
  n : exact-nonnegative-integer?
  label : label-string?
  column : exact-nonnegative-integer? = 0
interface
list-control<%> : interface?
  implements: control<%>
method
(send a-list-control append item) -> void?
  item : label-string?
method
(send a-list-control clear) -> void?
method
(send a-list-control delete n) -> void?
  n : exact-nonnegative-integer?
method
(send a-list-control find-string s)
 -> (or/c exact-nonnegative-integer? #f)
  s : string?
method
(send a-list-control get-number) -> exact-nonnegative-integer?
method
(send a-list-control get-selection)
 -> (or/c exact-nonnegative-integer? #f)
method
(send a-list-control get-string n)
 -> (and/c immutable? label-string?)
  n : exact-nonnegative-integer?
method
(send a-list-control get-string-selection)
 -> (or/c (and/c immutable? label-string?) #f)
method
(send a-list-control set-selection n) -> void?
  n : exact-nonnegative-integer?
method
(send a-list-control set-string-selection s) -> void?
  s : string?
class
menu% : class?
  superclass: object%
  extends: menu-item-container<%>
           labelled-menu-item<%>
constructor
(new menu%                                      
            [label label]                       
            [parent parent]                     
           [[help-string help-string]           
            [demand-callback demand-callback]]) 
 -> (is-a?/c menu%)
  label : label-string?
  parent : (or/c (is-a?/c menu%) (is-a?/c popup-menu%)
                 (is-a?/c menu-bar%))
  help-string : (or/c label-string? #f) = #f
  demand-callback : ((is-a?/c menu%) . -> . any)
                  = (lambda (m) (void))
class
menu-bar% : class?
  superclass: object%
  extends: menu-item-container<%>
constructor
(new menu-bar%                                      
                [parent parent]                     
               [[demand-callback demand-callback]]) 
 -> (is-a?/c menu-bar%)
  parent : (or/c (is-a?/c frame%) 'root)
  demand-callback : ((is-a?/c menu-bar%) . -> . any)
                  = (lambda (m) (void))
method
(send a-menu-bar enable enable?) -> void?
  enable? : any/c
method
(send a-menu-bar get-frame) -> (or/c (is-a?/c frame%) 'root)
method
(send a-menu-bar is-enabled?) -> boolean?
interface
menu-item<%> : interface?
method
(send a-menu-item delete) -> void?
method
(send a-menu-item get-parent)
 -> (or/c (is-a?/c menu%) (is-a?/c popup-menu%) (is-a?/c menu-bar%))
method
(send a-menu-item is-deleted?) -> boolean?
method
(send a-menu-item restore) -> void?
class
menu-item% : class?
  superclass: object%
  extends: selectable-menu-item<%>
constructor
(new menu-item%                                      
                 [label label]                       
                 [parent parent]                     
                 [callback callback]                 
                [[shortcut shortcut]                 
                 [help-string help-string]           
                 [demand-callback demand-callback]   
                 [shortcut-prefix shortcut-prefix]]) 
 -> (is-a?/c menu-item%)
  label : label-string?
  parent : (or/c (is-a?/c menu%) (is-a?/c popup-menu%))
  callback : ((is-a?/c menu-item%) (is-a?/c control-event%) . -> . any)
  shortcut : (or/c char? symbol? #f) = #f
  help-string : (or/c label-string? #f) = #f
  demand-callback : ((is-a?/c menu-item%) . -> . any)
                  = (lambda (i) (void))
  shortcut-prefix : (and/c (listof (or/c 'alt 'cmd 'meta 'ctl
                                         'shift 'option))
                           (λ (x) (implies (equal? 'unix (system-type))
                                           (not (and (member 'alt x)
                                                     (member 'meta x)))))
                           (λ (x) (equal? x (remove-duplicates x))))
                  = (get-default-shortcut-prefix)
interface
menu-item-container<%> : interface?
method
(send a-menu-item-container get-items)
 -> (listof (is-a?/c menu-item<%>))
method
(send a-menu-item-container on-demand) -> void?
class
message% : class?
  superclass: object%
  extends: control<%>
constructor
(new message%                                          
               [label label]                           
               [parent parent]                         
              [[style style]                           
               [font font]                             
               [color color]                           
               [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] 
               [auto-resize auto-resize]])             
 -> (is-a?/c message%)
  label : (or/c label-string? (is-a?/c bitmap%)
                (or/c 'app 'caution 'stop))
  parent : (or/c (is-a?/c frame%) (is-a?/c dialog%)
                 (is-a?/c panel%) (is-a?/c pane%))
  style : (listof (or/c 'deleted)) = null
  font : (is-a?/c font%) = normal-control-font
  color : (or/c #f string? (is-a?/c color%)) = #f
  enabled : any/c = #t
  vert-margin : spacing-integer? = 2
  horiz-margin : spacing-integer? = 2
  min-width : (or/c dimension-integer? #f) = #f
  min-height : (or/c dimension-integer? #f) = #f
  stretchable-width : any/c = #f
  stretchable-height : any/c = #f
  auto-resize : any/c = #f
method
(send a-message auto-resize) -> boolean?
(send a-message auto-resize on?) -> void?
  on? : any/c
method
(send a-message set-label label) -> void?
  label : (or/c label-string? (is-a?/c bitmap%))
method
(send a-message set-color color) -> void?
  color : (or/c #f (is-a?/c color%))
(send a-message set-color color-name) -> void?
  color-name : string?
method
(send a-message get-color) -> (or/c #f (is-a?/c color%))
class
mouse-event% : class?
  superclass: event%
constructor
(new mouse-event%                              
                   [event-type event-type]     
                  [[left-down left-down]       
                   [middle-down middle-down]   
                   [right-down right-down]     
                   [x x]                       
                   [y y]                       
                   [shift-down shift-down]     
                   [control-down control-down] 
                   [meta-down meta-down]       
                   [alt-down alt-down]         
                   [time-stamp time-stamp]     
                   [caps-down caps-down]       
                   [mod3-down mod3-down]       
                   [mod4-down mod4-down]       
                   [mod5-down mod5-down]])     
 -> (is-a?/c mouse-event%)
  event-type : (or/c 'enter 'leave 'left-down 'left-up
                     'middle-down 'middle-up
                     'right-down 'right-up 'motion)
  left-down : any/c = #f
  middle-down : any/c = #f
  right-down : any/c = #f
  x : exact-integer? = 0
  y : exact-integer? = 0
  shift-down : any/c = #f
  control-down : any/c = #f
  meta-down : any/c = #f
  alt-down : any/c = #f
  time-stamp : exact-integer? = 0
  caps-down : any/c = #f
  mod3-down : any/c = #f
  mod4-down : any/c = #f
  mod5-down : any/c = #f
method
(send a-mouse-event button-changed? [button]) -> boolean?
  button : (or/c 'left 'middle 'right 'any) = 'any
method
(send a-mouse-event button-down? [button]) -> boolean?
  button : (or/c 'left 'middle 'right 'any) = 'any
method
(send a-mouse-event button-up? [button]) -> boolean?
  button : (or/c 'left 'middle 'right 'any) = 'any
method
(send a-mouse-event dragging?) -> boolean?
method
(send a-mouse-event entering?) -> boolean?
method
(send a-mouse-event get-alt-down) -> boolean?
method
(send a-mouse-event get-caps-down) -> boolean?
method
(send a-mouse-event get-control-down) -> boolean?
method
(send a-mouse-event get-event-type)
 -> (or/c 'enter 'leave 'left-down 'left-up
          'middle-down 'middle-up
          'right-down 'right-up 'motion)
method
(send a-mouse-event get-left-down) -> boolean?
method
(send a-mouse-event get-meta-down) -> boolean?
method
(send a-mouse-event get-middle-down) -> boolean?
method
(send a-mouse-event get-mod3-down) -> boolean?
method
(send a-mouse-event get-mod4-down) -> boolean?
method
(send a-mouse-event get-mod5-down) -> boolean?
method
(send a-mouse-event get-right-down) -> boolean?
method
(send a-mouse-event get-shift-down) -> boolean?
method
(send a-mouse-event get-x) -> exact-integer?
method
(send a-mouse-event get-y) -> exact-integer?
method
(send a-mouse-event leaving?) -> boolean?
method
(send a-mouse-event moving?) -> boolean?
method
(send a-mouse-event set-alt-down down?) -> void?
  down? : any/c
method
(send a-mouse-event set-caps-down down?) -> void?
  down? : any/c
method
(send a-mouse-event set-control-down down?) -> void?
  down? : any/c
method
(send a-mouse-event set-event-type event-type) -> void?
  event-type : (or/c 'enter 'leave 'left-down 'left-up
                     'middle-down 'middle-up
                     'right-down 'right-up 'motion)
method
(send a-mouse-event set-left-down down?) -> void?
  down? : any/c
method
(send a-mouse-event set-meta-down down?) -> void?
  down? : any/c
method
(send a-mouse-event set-middle-down down?) -> void?
  down? : any/c
method
(send a-mouse-event set-mod3-down down?) -> void?
  down? : any/c
method
(send a-mouse-event set-mod4-down down?) -> void?
  down? : any/c
method
(send a-mouse-event set-mod5-down down?) -> void?
  down? : any/c
method
(send a-mouse-event set-right-down down?) -> void?
  down? : any/c
method
(send a-mouse-event set-shift-down down?) -> void?
  down? : any/c
method
(send a-mouse-event set-x pos) -> void?
  pos : exact-integer?
method
(send a-mouse-event set-y pos) -> void?
  pos : exact-integer?
class
pane% : class?
  superclass: object%
  extends: area-container<%>
           subarea<%>
constructor
(new pane%                                            
            [parent parent]                           
           [[vert-margin vert-margin]                 
            [horiz-margin horiz-margin]               
            [border border]                           
            [spacing spacing]                         
            [alignment alignment]                     
            [min-width min-width]                     
            [min-height min-height]                   
            [stretchable-width stretchable-width]     
            [stretchable-height stretchable-height]]) 
 -> (is-a?/c pane%)
  parent : (or/c (is-a?/c frame%) (is-a?/c dialog%)
                 (is-a?/c panel%) (is-a?/c pane%))
  vert-margin : spacing-integer? = 0
  horiz-margin : spacing-integer? = 0
  border : spacing-integer? = 0
  spacing : spacing-integer? = 0
  alignment : (list/c (or/c 'left 'center 'right)
                      (or/c 'top 'center 'bottom))
            = '(center top)
  min-width : (or/c dimension-integer? #f) = #f
  min-height : (or/c dimension-integer? #f) = #f
  stretchable-width : any/c = #t
  stretchable-height : any/c = #t
class
panel% : class?
  superclass: object%
  extends: area-container-window<%>
           subwindow<%>
constructor
(new panel%                                            
             [parent parent]                           
            [[style style]                             
             [enabled enabled]                         
             [vert-margin vert-margin]                 
             [horiz-margin horiz-margin]               
             [border border]                           
             [spacing spacing]                         
             [alignment alignment]                     
             [min-width min-width]                     
             [min-height min-height]                   
             [stretchable-width stretchable-width]     
             [stretchable-height stretchable-height]]) 
 -> (is-a?/c panel%)
  parent : (or/c (is-a?/c frame%) (is-a?/c dialog%)
                 (is-a?/c panel%) (is-a?/c pane%))
  style : (listof (or/c 'border 'deleted
                        'hscroll 'auto-hscroll 'hide-hscroll
                        'vscroll 'auto-vscroll 'hide-vscroll))
        = null
  enabled : any/c = #t
  vert-margin : spacing-integer? = 0
  horiz-margin : spacing-integer? = 0
  border : spacing-integer? = 0
  spacing : spacing-integer? = 0
  alignment : (list/c (or/c 'left 'center 'right)
                      (or/c 'top 'center 'bottom))
            = '(center center)
  min-width : (or/c dimension-integer? #f) = #f
  min-height : (or/c dimension-integer? #f) = #f
  stretchable-width : any/c = #t
  stretchable-height : any/c = #t
class
popup-menu% : class?
  superclass: object%
  extends: menu-item-container<%>
constructor
(new popup-menu%                                      
                 [[title title]                       
                  [popdown-callback popdown-callback] 
                  [demand-callback demand-callback]   
                  [font font]])                       
 -> (is-a?/c popup-menu%)
  title : (or/c label-string? #f) = #f
  popdown-callback : ((is-a?/c popup-menu%) (is-a?/c control-event%)
                      . -> . any)
                   = (lambda (p e) (void))
  demand-callback : ((is-a?/c popup-menu%) . -> . any)
                  = (lambda (p) (void))
  font : (is-a?/c font%) = normal-control-font
method
(send a-popup-menu get-font) -> (is-a?/c font%)
method
(send a-popup-menu get-popup-target)
 -> (or/c (is-a?/c window<%>) (is-a?/c editor<%>) #f)
method
(send a-popup-menu set-min-width width) -> void?
  width : dimension-integer?
class
printer-dc% : class?
  superclass: object%
  extends: dc<%>
constructor
(new printer-dc% [[parent parent]]) -> (is-a?/c printer-dc%)
  parent : (or/c (is-a?/c frame%) (is-a?/c dialog%) #f) = #f
class
radio-box% : class?
  superclass: object%
  extends: control<%>
constructor
(new radio-box%                                            
                 [label label]                             
                 [choices choices]                         
                 [parent parent]                           
                [[callback callback]                       
                 [style style]                             
                 [selection selection]                     
                 [font font]                               
                 [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 radio-box%)
  label : (or/c label-string? #f)
  choices : (or/c (listof label-string?) (listof (is-a?/c bitmap%)))
  parent : (or/c (is-a?/c frame%) (is-a?/c dialog%)
                 (is-a?/c panel%) (is-a?/c pane%))
  callback : ((is-a?/c radio-box%) (is-a?/c control-event%)
              . -> . any)
           = (lambda (r e) (void))
  style : (listof (or/c 'horizontal 'vertical
                        'vertical-label 'horizontal-label
                        'deleted))
        = '(vertical)
  selection : (or/c exact-nonnegative-integer? #f) = 0
  font : (is-a?/c font%) = normal-control-font
  enabled : any/c = #t
  vert-margin : spacing-integer? = 2
  horiz-margin : spacing-integer? = 2
  min-width : (or/c dimension-integer? #f) = #f
  min-height : (or/c dimension-integer? #f) = #f
  stretchable-width : any/c = #f
  stretchable-height : any/c = #f
method
(send a-radio-box enable enable?) -> void?
  enable? : any/c
(send a-radio-box enable n enable?) -> void?
  n : exact-nonnegative-integer?
  enable? : any/c
method
(send a-radio-box get-item-label n) -> string?
  n : exact-nonnegative-integer?
method
(send a-radio-box get-item-plain-label n) -> string?
  n : exact-nonnegative-integer?
method
(send a-radio-box get-number) -> exact-nonnegative-integer?
method
(send a-radio-box get-selection)
 -> (or/c exact-nonnegative-integer? #f)
method
(send a-radio-box is-enabled?) -> boolean?
(send a-radio-box is-enabled? n) -> boolean?
  n : exact-nonnegative-integer?
method
(send a-radio-box set-selection n) -> void?
  n : (or/c exact-nonnegative-integer? #f)
interface
selectable-menu-item<%> : interface?
  implements: labelled-menu-item<%>
method
(send a-selectable-menu-item command event) -> void?
  event : (is-a?/c control-event%)
method
(send a-selectable-menu-item get-shortcut)
 -> (or/c char? symbol? #f)
method
(send a-selectable-menu-item get-shortcut-prefix)
 -> (and/c (listof (or/c 'alt 'cmd 'meta 'ctl
                         'shift 'option))
           (λ (x) (implies (equal? 'unix (system-type))
                           (not (and (member 'alt x)
                                     (member 'meta x)))))
           (λ (x) (equal? x (remove-duplicates x))))
method
(send a-selectable-menu-item set-shortcut shortcut) -> void?
  shortcut : (or/c char? symbol? #f)
method
(send a-selectable-menu-item set-shortcut-prefix prefix)
 -> void?
  prefix : (and/c (listof (or/c 'alt 'cmd 'meta 'ctl
                                'shift 'option))
                  (λ (x) (implies (equal? 'unix (system-type))
                                  (not (and (member 'alt x)
                                            (member 'meta x)))))
                  (λ (x) (equal? x (remove-duplicates x))))
class
separator-menu-item% : class?
  superclass: object%
  extends: menu-item<%>
constructor
(new separator-menu-item% [parent parent])
 -> (is-a?/c separator-menu-item%)
  parent : (or/c (is-a?/c menu%) (is-a?/c popup-menu%))
class
scroll-event% : class?
  superclass: event%
constructor
(new scroll-event%                            
                   [[event-type event-type]   
                    [direction direction]     
                    [position position]       
                    [time-stamp time-stamp]]) 
 -> (is-a?/c scroll-event%)
  event-type : (or/c 'top 'bottom 'line-up 'line-down = 'thumb
                     'page-up 'page-down 'thumb)
  direction : (or/c 'horizontal 'vertical) = 'vertical
  position : dimension-integer? = 0
  time-stamp : exact-integer? = 0
method
(send a-scroll-event get-direction)
 -> (or/c 'horizontal 'vertical)
method
(send a-scroll-event get-event-type)
 -> (or/c 'top 'bottom 'line-up 'line-down
          'page-up 'page-down 'thumb)
method
(send a-scroll-event get-position) -> dimension-integer?
method
(send a-scroll-event set-direction direction) -> void?
  direction : (or/c 'horizontal 'vertical)
method
(send a-scroll-event set-event-type type) -> void?
  type : (or/c 'top 'bottom 'line-up 'line-down
               'page-up 'page-down 'thumb)
method
(send a-scroll-event set-position position) -> void?
  position : dimension-integer?
class
slider% : class?
  superclass: object%
  extends: control<%>
constructor
(new slider%                                            
              [label label]                             
              [min-value min-value]                     
              [max-value max-value]                     
              [parent parent]                           
             [[callback callback]                       
              [init-value init-value]                   
              [style style]                             
              [font font]                               
              [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 slider%)
  label : (or/c label-string? #f)
  min-value : position-integer?
  max-value : position-integer?
  parent : (or/c (is-a?/c frame%) (is-a?/c dialog%)
                 (is-a?/c panel%) (is-a?/c pane%))
  callback : ((is-a?/c slider%) (is-a?/c control-event%) . -> . any)
           = (lambda (b e) (void))
  init-value : position-integer? = min-value
  style : (listof (or/c 'horizontal 'vertical 'upward 'plain
                        'vertical-label 'horizontal-label
                        'deleted))
        = '(horizontal)
  font : (is-a?/c font%) = normal-control-font
  enabled : any/c = #t
  vert-margin : spacing-integer? = 2
  horiz-margin : spacing-integer? = 2
  min-width : (or/c dimension-integer? #f) = #f
  min-height : (or/c dimension-integer? #f) = #f
  stretchable-width : any/c = (memq 'horizontal style)
  stretchable-height : any/c = (memq 'vertical style)
method
(send a-slider get-value) -> position-integer?
method
(send a-slider set-value value) -> void?
  value : position-integer?
interface
subarea<%> : interface?
  implements: area<%>
method
(send a-subarea horiz-margin) -> spacing-integer?
(send a-subarea horiz-margin margin) -> void?
  margin : spacing-integer?
method
(send a-subarea vert-margin) -> spacing-integer?
(send a-subarea vert-margin margin) -> void?
  margin : spacing-integer?
interface
subwindow<%> : interface?
  implements: subarea<%>
              window<%>
method
(send a-subwindow reparent new-parent) -> void?
  new-parent : (or/c (is-a?/c frame%) (is-a?/c dialog%)
                     (is-a?/c panel%) (is-a?/c pane%))
class
tab-panel% : class?
  superclass: vertical-panel%
constructor
(new tab-panel%                                            
                 [choices choices]                         
                 [parent parent]                           
                [[callback callback]                       
                 [style style]                             
                 [font font]                               
                 [enabled enabled]                         
                 [vert-margin vert-margin]                 
                 [horiz-margin horiz-margin]               
                 [border border]                           
                 [spacing spacing]                         
                 [alignment alignment]                     
                 [min-width min-width]                     
                 [min-height min-height]                   
                 [stretchable-width stretchable-width]     
                 [stretchable-height stretchable-height]]) 
 -> (is-a?/c tab-panel%)
  choices : (listof label-string?)
  parent : (or/c (is-a?/c frame%) (is-a?/c dialog%)
                 (is-a?/c panel%) (is-a?/c pane%))
  callback : ((is-a?/c tab-panel%) (is-a?/c control-event%)
              . -> . any)
           = (lambda (b e) (void))
  style : (listof (or/c 'no-border
                        'can-reorder 'can-close 'new-button
                        'flat-portable 'deleted))
        = null
  font : (is-a?/c font%) = normal-control-font
  enabled : any/c = #t
  vert-margin : spacing-integer? = 0
  horiz-margin : spacing-integer? = 0
  border : spacing-integer? = 0
  spacing : spacing-integer? = 0
  alignment : (list/c (or/c 'left 'center 'right)
                      (or/c 'top 'center 'bottom))
            = '(center top)
  min-width : (or/c dimension-integer? #f) = #f
  min-height : (or/c dimension-integer? #f) = #f
  stretchable-width : any/c = #t
  stretchable-height : any/c = #t
method
(send a-tab-panel append choice) -> void?
  choice : label-string?
method
(send a-tab-panel delete n) -> void?
  n : exact-nonnegative-integer?
method
(send a-tab-panel get-item-label n) -> string?
  n : exact-nonnegative-integer?
method
(send a-tab-panel get-number) -> exact-nonnegative-integer?
method
(send a-tab-panel get-selection)
 -> (or/c exact-nonnegative-integer? #f)
method
(send a-tab-panel on-reorder former-indices) -> void?
  former-indices : (listof exact-nonnegative-integer?)
method
(send a-tab-panel on-close-request index) -> void?
  index : exact-nonnegative-integer?
method
(send a-tab-panel on-new-request) -> void?
method
(send a-tab-panel set choices) -> void?
  choices : (listof label-string?)
method
(send a-tab-panel set-item-label n label) -> void?
  n : exact-nonnegative-integer?
  label : label-string?
method
(send a-tab-panel set-selection n) -> void?
  n : exact-nonnegative-integer?
class
text-field% : class?
  superclass: object%
  extends: control<%>
constructor
(new text-field%                                            
                  [label label]                             
                  [parent parent]                           
                 [[callback callback]                       
                  [init-value init-value]                   
                  [style style]                             
                  [font font]                               
                  [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 text-field%)
  label : (or/c label-string? #f)
  parent : (or/c (is-a?/c frame%) (is-a?/c dialog%)
                 (is-a?/c panel%) (is-a?/c pane%))
  callback : ((is-a?/c text-field%) (is-a?/c control-event%)
              . -> . any)
           = (lambda (t e) (void))
  init-value : string? = ""
  style : (listof (or/c 'single 'multiple 'hscroll 'password
                        'vertical-label 'horizontal-label
                        'deleted))
        = '(single)
  font : (is-a?/c font%) = normal-control-font
  enabled : any/c = #t
  vert-margin : spacing-integer? = 2
  horiz-margin : spacing-integer? = 2
  min-width : (or/c dimension-integer? #f) = #f
  min-height : (or/c dimension-integer? #f) = #f
  stretchable-width : any/c = #t
  stretchable-height : any/c = (memq 'multiple style)
method
(send a-text-field get-editor) -> (is-a?/c text%)
method
(send a-text-field get-field-background) -> (is-a?/c color%)
method
(send a-text-field get-value) -> string?
method
(send a-text-field set-field-background color) -> void?
  color : (or/c (is-a?/c color%) #f)
method
(send a-text-field set-value val) -> void?
  val : string?
class
timer% : class?
  superclass: object%
constructor
(new timer%                                    
            [[notify-callback notify-callback] 
             [interval interval]               
             [just-once? just-once?]])         
 -> (is-a?/c timer%)
  notify-callback : (-> any) = void
  interval : (or/c (integer-in 0 1000000000) #f) = #f
  just-once? : any/c = #f
method
(send a-timer interval) -> (integer-in 0 1000000000)
method
(send a-timer notify) -> void?
method
(send a-timer start msec [just-once?]) -> void?
  msec : (integer-in 0 1000000000)
  just-once? : any/c = #f
method
(send a-timer stop) -> void?
interface
top-level-window<%> : interface?
  implements: area-container-window<%>
method
(send a-top-level-window can-close?) -> boolean?
method
(send a-top-level-window can-exit?) -> boolean?
method
(send a-top-level-window center [direction]) -> void?
  direction : (or/c 'horizontal 'vertical 'both) = 'both
method
(send a-top-level-window get-edit-target-object)
 -> (or/c (or/c (is-a?/c window<%>) (is-a?/c editor<%>)) #f)
method
(send a-top-level-window get-edit-target-window)
 -> (or/c (is-a?/c window<%>) #f)
method
(send a-top-level-window get-eventspace) -> eventspace?
method
(send a-top-level-window get-focus-object)
 -> (or/c (or/c (is-a?/c window<%>) (is-a?/c editor<%>)) #f)
method
(send a-top-level-window get-focus-window)
 -> (or/c (is-a?/c window<%>) #f)
method
(send a-top-level-window move x y) -> void?
  x : position-integer?
  y : position-integer?
method
(send a-top-level-window on-activate active?) -> void?
  active? : any/c
method
(send a-top-level-window on-close) -> void?
method
(send a-top-level-window on-exit) -> void?
method
(send a-top-level-window on-message message) -> any/c
  message : any/c
method
(send a-top-level-window display-changed) -> any/c
method
(send a-top-level-window on-traverse-char event) -> boolean?
  event : (is-a?/c key-event%)
method
(send a-top-level-window on-system-menu-char event) -> boolean?
  event : (is-a?/c key-event%)
method
(send a-top-level-window resize width       
                                height) -> void?
  width : dimension-integer?
  height : dimension-integer?
method
(send a-top-level-window set-icon  icon        
                                  [mask        
                                   which]) -> void?
  icon : (is-a?/c bitmap%)
  mask : (is-a?/c bitmap%) = #f
  which : (or/c 'small 'large 'both) = 'both
method
(send a-top-level-window show show) -> void?
  show : any/c
class
vertical-pane% : class?
  superclass: pane%
constructor
(new vertical-pane%                                            
                     [parent parent]                           
                    [[vert-margin vert-margin]                 
                     [horiz-margin horiz-margin]               
                     [border border]                           
                     [spacing spacing]                         
                     [alignment alignment]                     
                     [min-width min-width]                     
                     [min-height min-height]                   
                     [stretchable-width stretchable-width]     
                     [stretchable-height stretchable-height]]) 
 -> (is-a?/c vertical-pane%)
  parent : (or/c (is-a?/c frame%) (is-a?/c dialog%)
                 (is-a?/c panel%) (is-a?/c pane%))
  vert-margin : spacing-integer? = 0
  horiz-margin : spacing-integer? = 0
  border : spacing-integer? = 0
  spacing : spacing-integer? = 0
  alignment : (list/c (or/c 'left 'center 'right)
                      (or/c 'top 'center 'bottom))
            = '(center top)
  min-width : (or/c dimension-integer? #f) = #f
  min-height : (or/c dimension-integer? #f) = #f
  stretchable-width : any/c = #t
  stretchable-height : any/c = #t
class
vertical-panel% : class?
  superclass: panel%
constructor
(new vertical-panel%                                            
                      [parent parent]                           
                     [[style style]                             
                      [enabled enabled]                         
                      [vert-margin vert-margin]                 
                      [horiz-margin horiz-margin]               
                      [border border]                           
                      [spacing spacing]                         
                      [alignment alignment]                     
                      [min-width min-width]                     
                      [min-height min-height]                   
                      [stretchable-width stretchable-width]     
                      [stretchable-height stretchable-height]]) 
 -> (is-a?/c vertical-panel%)
  parent : (or/c (is-a?/c frame%) (is-a?/c dialog%)
                 (is-a?/c panel%) (is-a?/c pane%))
  style : (listof (or/c 'border 'deleted
                        'hscroll 'auto-hscroll 'hide-hscroll
                        'vscroll 'auto-vscroll 'hide-vscroll))
        = null
  enabled : any/c = #t
  vert-margin : spacing-integer? = 0
  horiz-margin : spacing-integer? = 0
  border : spacing-integer? = 0
  spacing : spacing-integer? = 0
  alignment : (list/c (or/c 'left 'center 'right)
                      (or/c 'top 'center 'bottom))
            = '(center top)
  min-width : (or/c dimension-integer? #f) = #f
  min-height : (or/c dimension-integer? #f) = #f
  stretchable-width : any/c = #t
  stretchable-height : any/c = #t
method
(send a-vertical-panel set-orientation horizontal?) -> void?
  horizontal? : boolean?
method
(send a-vertical-panel get-orientation) -> boolean?
interface
window<%> : interface?
  implements: area<%>
method
(send a-window accept-drop-files) -> boolean?
(send a-window accept-drop-files accept-files?) -> void?
  accept-files? : any/c
method
(send a-window client->screen x y)
 -> position-integer? position-integer?
  x : position-integer?
  y : position-integer?
method
(send a-window enable enable?) -> void?
  enable? : any/c
method
(send a-window focus) -> void?
method
(send a-window get-client-handle) -> cpointer?
method
(send a-window get-client-size)
 -> dimension-integer? dimension-integer?
method
(send a-window get-cursor) -> (or/c (is-a?/c cursor%) #f)
method
(send a-window get-handle) -> cpointer?
method
(send a-window get-height) -> dimension-integer?
method
(send a-window get-label)
 -> (or/c label-string?
          (is-a?/c bitmap%)
          (or/c 'app 'caution 'stop)
          (list/c (is-a?/c bitmap%)
                  label-string?
                  (or/c 'left 'top 'right 'bottom))
          #f)
method
(send a-window get-plain-label) -> (or/c string? #f)
method
(send a-window get-size)
 -> dimension-integer? dimension-integer?
method
(send a-window get-width) -> dimension-integer?
method
(send a-window get-x) -> position-integer?
method
(send a-window get-y) -> position-integer?
method
(send a-window has-focus?) -> boolean?
method
(send a-window is-enabled?) -> boolean?
method
(send a-window is-shown?) -> boolean?
method
(send a-window on-drop-file pathname) -> void?
  pathname : path?
method
(send a-window on-focus on?) -> void?
  on? : any/c
method
(send a-window on-move x y) -> void?
  x : position-integer?
  y : position-integer?
method
(send a-window on-size width height) -> void?
  width : dimension-integer?
  height : dimension-integer?
method
(send a-window on-subwindow-char receiver     
                                 event)   -> boolean?
  receiver : (is-a?/c window<%>)
  event : (is-a?/c key-event%)
method
(send a-window on-subwindow-event receiver     
                                  event)   -> boolean?
  receiver : (is-a?/c window<%>)
  event : (is-a?/c mouse-event%)
method
(send a-window on-subwindow-focus receiver     
                                  on?)     -> void?
  receiver : (is-a?/c window<%>)
  on? : boolean?
method
(send a-window on-superwindow-activate active?) -> void?
  active? : any/c
method
(send a-window on-superwindow-enable enabled?) -> void?
  enabled? : any/c
method
(send a-window on-superwindow-show shown?) -> void?
  shown? : any/c
method
(send a-window popup-menu menu x y) -> void?
  menu : (is-a?/c popup-menu%)
  x : position-integer?
  y : position-integer?
method
(send a-window refresh) -> void?
method
(send a-window screen->client x y)
 -> position-integer? position-integer?
  x : position-integer?
  y : position-integer?
method
(send a-window set-cursor cursor) -> void?
  cursor : (or/c (is-a?/c cursor%) #f)
method
(send a-window set-label l) -> void?
  l : label-string?
method
(send a-window show show?) -> void?
  show? : any/c
method
(send a-window warp-pointer x y) -> void?
  x : position-integer?
  y : position-integer?
method
(send a-window wheel-event-mode)
 -> (or/c 'one 'integer 'fraction)
(send a-window wheel-event-mode mode) -> void?
  mode : (or/c 'one 'integer 'fraction)
procedure
(get-file [message                           
           parent                            
           directory                         
           filename                          
           extension                         
           style                             
           filters                           
           #:dialog-mixin dialog-mixin]) -> (or/c path? #f)
  message : (or/c label-string? #f) = #f
  parent : (or/c (is-a?/c frame%) (is-a?/c dialog%) #f) = #f
  directory : (or/c path-string? #f) = #f
  filename : (or/c path-string? #f) = #f
  extension : (or/c string? #f) = #f
  style : (listof (or/c 'packages 'enter-packages 'common))
        = null
  filters : (listof (list/c string? string?)) = '(("Any" "*.*"))
  dialog-mixin : (make-mixin-contract path-dialog%) = (λ (x) x)
procedure
(get-file-list [message                       
                parent                        
                directory                     
                filename                      
                extension                     
                style                         
                filters                       
                #:dialog-mixin dialog-mixin]) 
 -> (or/c (listof path?) #f)
  message : (or/c label-string? #f) = #f
  parent : (or/c (is-a?/c frame%) (is-a?/c dialog%) #f) = #f
  directory : (or/c path-string? #f) = #f
  filename : (or/c path-string? #f) = #f
  extension : (or/c string? #f) = #f
  style : (listof (or/c 'packages 'enter-packages 'common))
        = null
  filters : (listof (list/c string? string?)) = '(("Any" "*.*"))
  dialog-mixin : (make-mixin-contract path-dialog%) = (λ (x) x)
procedure
(put-file [message                           
           parent                            
           directory                         
           filename                          
           extension                         
           style                             
           filters                           
           #:dialog-mixin dialog-mixin]) -> (or/c path? #f)
  message : (or/c label-string? #f) = #f
  parent : (or/c (is-a?/c frame%) (is-a?/c dialog%) #f) = #f
  directory : (or/c path-string? #f) = #f
  filename : (or/c path-string? #f) = #f
  extension : (or/c string? #f) = #f
  style : (listof (or/c 'packages 'enter-packages 'common))
        = null
  filters : (listof (list/c string? string?)) = '(("Any" "*.*"))
  dialog-mixin : (make-mixin-contract path-dialog%) = (λ (x) x)
procedure
(get-directory [message                           
                parent                            
                directory                         
                style                             
                #:dialog-mixin dialog-mixin]) -> (or/c path? #f)
  message : (or/c label-string? #f) = #f
  parent : (or/c (is-a?/c frame%) (is-a?/c dialog%) #f) = #f
  directory : (or/c path-string? #f) = #f
  style : (listof (or/c 'enter-packages 'common)) = null
  dialog-mixin : (make-mixin-contract path-dialog%) = (λ (x) x)
procedure
(message-box  title                         
              message                       
             [parent                        
              style                         
              #:dialog-mixin dialog-mixin]) 
 -> (or/c 'ok 'cancel 'yes 'no)
  title : label-string?
  message : string?
  parent : (or/c (is-a?/c frame%) (is-a?/c dialog%) #f) = #f
  style : (listof (or/c 'ok 'ok-cancel 'yes-no    = '(ok)
                        'caution 'stop 'no-icon))
  dialog-mixin : (make-mixin-contract dialog%) = values
procedure
(message-box/custom  title                                   
                     message                                 
                     button1-label                           
                     button2-label                           
                     button3-label                           
                    [parent                                  
                     style                                   
                     close-result                            
                     #:return-the-dialog? return-the-dialog? 
                     #:dialog-mixin dialog-mixin])           
 -> (if/c return-the-dialog?
          (is-a?/c dialog%)
          (or/c 1 2 3 close-result))
  title : label-string?
  message : string?
  button1-label : (or/c label-string? (is-a?/c bitmap%) #f)
  button2-label : (or/c label-string? (is-a?/c bitmap%) #f)
  button3-label : (or/c label-string? (is-a?/c bitmap%) #f)
  parent : (or/c (is-a?/c frame%) (is-a?/c dialog%) #f) = #f
  style : (listof (or/c 'stop 'caution 'no-icon 'number-order
                        'disallow-close 'no-default
                        'default=1 'default=2 'default=3))
        = '(no-default)
  close-result : any/c = #f
  return-the-dialog? : any/c = #f
  dialog-mixin : (make-mixin-contract dialog%) = values
procedure
(message+check-box  title                                   
                    message                                 
                    check-label                             
                   [parent                                  
                    style                                   
                    #:return-the-dialog? return-the-dialog? 
                    #:dialog-mixin dialog-mixin])           
 -> (if/c return-the-dialog?
          (is-a?/c dialog%)
          (values (or/c 'ok 'cancel 'yes 'no) boolean?))
  title : label-string?
  message : string?
  check-label : label-string?
  parent : (or/c (is-a?/c frame%) (is-a?/c dialog%) #f) = #f
  style : (listof (or/c 'ok 'ok-cancel 'yes-no
                        'caution 'stop 'no-icon 'checked))
        = '(ok)
  return-the-dialog? : any/c = #f
  dialog-mixin : (make-mixin-contract dialog%) = values
procedure
(message+check-box/custom  title                         
                           message                       
                           check-label                   
                           button1-label                 
                           button2-label                 
                           button3-label                 
                          [parent                        
                           style                         
                           close-result                  
                           #:dialog-mixin dialog-mixin]) 
 -> (or/c 1 2 3 (λ (x) (eq? x close-result)))
  title : label-string?
  message : string?
  check-label : label-string?
  button1-label : (or/c label-string? (is-a?/c bitmap%) #f)
  button2-label : (or/c label-string? (is-a?/c bitmap%) #f)
  button3-label : (or/c label-string? (is-a?/c bitmap%) #f)
  parent : (or/c (is-a?/c frame%) (is-a?/c dialog%) #f) = #f
  style : (listof (or/c 'stop 'caution 'no-icon 'number-order
                        'disallow-close 'no-default
                        'default=1 'default=2 'default=3))
        = '(no-default)
  close-result : any/c = #f
  dialog-mixin : (make-mixin-contract dialog%) = values
procedure
(get-text-from-user  title                         
                     message                       
                    [parent                        
                     init-val                      
                     style]                        
                     #:validate validate           
                    [#:dialog-mixin dialog-mixin]) 
 -> (or/c string? #f)
  title : label-string?
  message : (or/c label-string? #f)
  parent : (or/c (is-a?/c frame%) (is-a?/c dialog%) #f) = #f
  init-val : string? = ""
  style : (listof (or/c 'password 'disallow-invalid)) = null
  validate : (-> string? boolean?)
  dialog-mixin : (make-mixin-contract dialog%) = values
procedure
(get-choices-from-user  title        
                        message      
                        choices      
                       [parent       
                        init-choices 
                        style])      
 -> (or/c (listof exact-nonnegative-integer?) #f)
  title : label-string?
  message : (or/c label-string? #f)
  choices : (listof label-string?)
  parent : (or/c (is-a?/c frame%) (is-a?/c dialog%) #f) = #f
  init-choices : (listof exact-nonnegative-integer?) = null
  style : (listof (or/c 'single 'multiple 'extended))
        = '(single)
procedure
(get-color-from-user [message        
                      parent         
                      init-color     
                      style])    -> (or/c (is-a?/c color%) #f)
  message : (or/c label-string? #f) = #f
  parent : (or/c (is-a?/c frame%) (is-a?/c dialog%) #f) = #f
  init-color : (or/c (is-a?/c color%) #f) = #f
  style : (listof 'alpha) = null
procedure
(get-font-from-user [message       
                     parent        
                     init-font     
                     style])   -> (or/c (is-a?/c font%) #f)
  message : (or/c label-string? #f) = #f
  parent : (or/c (is-a?/c frame%) (is-a?/c dialog%) #f) = #f
  init-font : (or/c (is-a?/c font%) #f) = #f
  style : null? = null
procedure
(get-ps-setup-from-user [message    
                         parent     
                         init-setup 
                         style])    
 -> (or/c (is-a?/c ps-setup%) #f)
  message : (or/c label-string? #f) = #f
  parent : (or/c (is-a?/c frame%) (is-a?/c dialog%) #f) = #f
  init-setup : (or/c (is-a?/c ps-setup%) #f) = #f
  style : null? = null
procedure
(get-page-setup-from-user [message    
                           parent     
                           init-setup 
                           style])    
 -> (or/c (is-a?/c ps-setup%) #f)
  message : (or/c label-string? #f) = #f
  parent : (or/c (is-a?/c frame%) (is-a?/c dialog%) #f) = #f
  init-setup : (or/c (is-a?/c ps-setup%) #f) = #f
  style : null? = null
procedure
(can-get-page-setup-from-user?) -> boolean?
procedure
(make-eventspace [#:suspend-to-kill? suspend-to-kill?])
 -> eventspace?
  suspend-to-kill? : any/c = #f
parameter
(current-eventspace) -> eventspace?
(current-eventspace e) -> void?
  e : eventspace?
procedure
(eventspace? v) -> boolean?
  v : any/c
parameter
(event-dispatch-handler) -> (eventspace? . -> . any)
(event-dispatch-handler handler) -> void?
  handler : (eventspace? . -> . any)
procedure
(eventspace-event-evt [e]) -> evt?
  e : eventspace? = (current-eventspace)
procedure
(check-for-break) -> boolean?
procedure
(get-top-level-windows)
 -> (listof (or/c (is-a?/c frame%) (is-a?/c dialog%)))
procedure
(get-top-level-focus-window)
 -> (or/c (is-a?/c frame%) (is-a?/c dialog%) #f)
procedure
(get-top-level-edit-target-window)
 -> (or/c (is-a?/c frame%) (is-a?/c dialog%) #f)
procedure
(special-control-key on?) -> void?
  on? : any/c
(special-control-key) -> boolean?
procedure
(special-option-key on?) -> void?
  on? : any/c
(special-option-key) -> boolean?
procedure
(any-control+alt-is-altgr on?) -> void?
  on? : any/c
(any-control+alt-is-altgr) -> boolean?
procedure
(queue-callback callback [high-priority?]) -> void?
  callback : (-> any)
  high-priority? : any/c = #t
procedure
(yield) -> boolean?
(yield v) -> any/c
  v : (or/c 'wait evt?)
procedure
(sleep/yield secs) -> void?
  secs : (and/c real? (not/c negative?))
procedure
(eventspace-shutdown? e) -> boolean?
  e : eventspace?
procedure
(eventspace-handler-thread e) -> (or/c thread? #f)
  e : eventspace?
procedure
(current-eventspace-has-standard-menus?) -> boolean?
procedure
(current-eventspace-has-menu-root?) -> boolean?
procedure
(application-about-handler) -> (-> any)
(application-about-handler handler-thunk) -> void?
  handler-thunk : (-> any)
procedure
(application-file-handler) -> (path? . -> . any)
(application-file-handler handler-proc) -> void?
  handler-proc : (path? . -> . any)
procedure
(application-preferences-handler) -> (or/c (-> any) #f)
(application-preferences-handler handler-thunk) -> void?
  handler-thunk : (or/c (-> any) #f)
procedure
(application-quit-handler) -> (-> any)
(application-quit-handler handler-thunk) -> void?
  handler-thunk : (-> any)
procedure
(application-start-empty-handler) -> (-> any)
(application-start-empty-handler handler-thunk) -> void?
  handler-thunk : (-> any)
procedure
(application-dark-mode-handler) -> (-> any)
(application-dark-mode-handler handler-thunk) -> void?
  handler-thunk : (-> any)
procedure
(flush-display) -> void?
procedure
(get-display-backing-scale [#:monitor monitor])
 -> (or/c (>/c 0.0) #f)
  monitor : exact-nonnegative-integer? = 0
procedure
(get-display-count) -> exact-positive-integer?
procedure
(get-display-depth) -> exact-nonnegative-integer?
procedure
(get-display-left-top-inset [avoid-bars?         
                             #:monitor monitor]) 
 -> (if (= monitor 0)
        exact-nonnegative-integer?
        (or/c exact-nonnegative-integer? #f))
    (if (= monitor 0)
        exact-nonnegative-integer?
        (or/c exact-nonnegative-integer? #f))
  avoid-bars? : any/c = #f
  monitor : exact-nonnegative-integer? = 0
procedure
(get-display-size [full-screen?        
                   #:monitor monitor]) 
 -> (if (= monitor 0)
        exact-nonnegative-integer?
        (or/c exact-nonnegative-integer? #f))
    (if (= monitor 0)
        exact-nonnegative-integer?
        (or/c exact-nonnegative-integer? #f))
  full-screen? : any/c = #f
  monitor : exact-nonnegative-integer? = 0
procedure
(is-color-display?) -> boolean?
value
menu-control-font : (is-a?/c font%)
value
normal-control-font : (is-a?/c font%)
value
small-control-font : (is-a?/c font%)
value
tiny-control-font : (is-a?/c font%)
value
view-control-font : (is-a?/c font%)
procedure
(begin-busy-cursor) -> void?
procedure
(bell) -> void?
procedure
(dimension-integer? v) -> boolean?
  v : any/c
procedure
(end-busy-cursor) -> void?
procedure
(file-creator-and-type filename          
                       creator-bytes     
                       type-bytes)   -> void?
  filename : path?
  creator-bytes : (and/c bytes? #rx#"^....$")
  type-bytes : (and/c bytes? #rx#"^....$")
(file-creator-and-type filename) -> (and/c bytes? #rx#"^....$")
                                    (and/c bytes? #rx#"^....$")
  filename : path?
procedure
(find-graphical-system-path what) -> (or/c path? #f)
  what : (or/c 'init-file 'x-display)
procedure
(get-default-shortcut-prefix)
 -> (case (system-type)
      [(windows) (list/c 'ctl)]
      [(macosx)  (list/c 'cmd)]
      [(unix)    (list/c (or/c 'alt 'cmd 'meta 'ctl 'shift 'option))])
procedure
(get-panel-background) -> (is-a?/c color%)
procedure
(get-highlight-background-color) -> (is-a?/c color%)
procedure
(get-highlight-text-color) -> (or/c (is-a?/c color%) #f)
procedure
(get-label-background-color) -> (is-a?/c color%)
procedure
(get-label-foreground-color) -> (is-a?/c color%)
procedure
(get-window-text-extent  string         
                         font           
                        [combine?]) -> exact-nonnegative-integer?
                                       exact-nonnegative-integer?
  string : string?
  font : (is-a?/c font%)
  combine? : any/c = #f
procedure
(graphical-read-eval-print-loop [eval-eventspace       
                                 redirect-ports?]) -> void?
  eval-eventspace : (or/c eventspace? #f) = #f
  redirect-ports? : any/c = (not eval-eventspace)
procedure
(graphical-system-type) -> symbol?
procedure
(textual-read-eval-print-loop) -> void?
procedure
(get-current-mouse-state)
 -> (is-a?/c point%)
    (listof (or/c 'left 'middle 'right
                  'shift 'control 'alt 'meta 'caps))
procedure
(hide-cursor-until-moved) -> void?
procedure
(is-busy?) -> boolean?
procedure
(label->plain-label label) -> string?
  label : string?
procedure
(make-gl-bitmap width height config) -> (is-a?/c bitmap%)
  width : exact-positive-integer?
  height : exact-positive-integer?
  config : (is-a?/c gl-config%)
procedure
(make-gui-empty-namespace) -> namespace?
procedure
(make-gui-namespace) -> namespace?
procedure
(make-screen-bitmap width height) -> (is-a?/c bitmap%)
  width : exact-positive-integer?
  height : exact-positive-integer?
procedure
(play-sound filename async?) -> boolean?
  filename : path-string?
  async? : any/c
procedure
(position-integer? v) -> boolean?
  v : any/c
procedure
(positive-dimension-integer? v) -> boolean?
  v : any/c
procedure
(register-collecting-blit  canvas      
                           x           
                           y           
                           w           
                           h           
                           on          
                           off         
                          [on-x        
                           on-y        
                           off-x       
                           off-y]) -> void?
  canvas : (is-a?/c canvas%)
  x : position-integer?
  y : position-integer?
  w : dimension-integer?
  h : dimension-integer?
  on : (is-a?/c bitmap%)
  off : (is-a?/c bitmap%)
  on-x : real? = 0
  on-y : real? = 0
  off-x : real? = 0
  off-y : real? = 0
procedure
(unregister-collecting-blit canvas) -> void?
  canvas : (is-a?/c canvas%)
procedure
(send-message-to-window x y message) -> any/c
  x : position-integer?
  y : position-integer?
  message : any/c
procedure
(spacing-integer? v) -> boolean?
  v : any/c
procedure
(system-position-ok-before-cancel?) -> boolean?
value
the-clipboard : (is-a?/c clipboard<%>)
value
the-x-selection-clipboard : (is-a?/c clipboard<%>)
procedure
(label-string? v) -> boolean?
  v : any/c
procedure
(key-code-symbol? v) -> boolean?
  v : any/c
interface
add-color<%> : interface?
method
(send an-add-color get r g b [a]) -> void?
  r : (box/c (integer-in -1000 1000))
  g : (box/c (integer-in -1000 1000))
  b : (box/c (integer-in -1000 1000))
  a : (or/c (box/c real?) #f) = #f
method
(send an-add-color get-a) -> real?
method
(send an-add-color get-b) -> (integer-in -1000 1000)
method
(send an-add-color get-g) -> (integer-in -1000 1000)
method
(send an-add-color get-r) -> (integer-in -1000 1000)
method
(send an-add-color set r g b [a]) -> void?
  r : (integer-in -1000 1000)
  g : (integer-in -1000 1000)
  b : (integer-in -1000 1000)
  a : real? = 0.0
method
(send an-add-color set-a v) -> void?
  v : real?
method
(send an-add-color set-b v) -> void?
  v : (integer-in -1000 1000)
method
(send an-add-color set-g v) -> void?
  v : (integer-in -1000 1000)
method
(send an-add-color set-r v) -> void?
  v : (integer-in -1000 1000)
class
image-snip% : class?
  superclass: snip%
constructor
(make-object image-snip% [file            
                          kind            
                          relative-path?  
                          inline?         
                          backing-scale]) 
 -> (is-a?/c image-snip%)
  file : (or/c path-string? input-port? #f) = #f
  kind : (or/c 'unknown 'unknown/mask 'unknown/alpha = 'unknown
               'gif 'gif/mask 'gif/alpha
               'jpeg 'png 'png/mask 'png/alpha
               'xbm 'xpm 'bmp 'pict)
  relative-path? : any/c = #f
  inline? : any/c = #t
  backing-scale : (>/c 0.0) = 1.0
(make-object image-snip% bitmap [mask]) -> (is-a?/c image-snip%)
  bitmap : (is-a?/c bitmap%)
  mask : (or/c (is-a?/c bitmap%) #f) = #f
method
(send an-image-snip equal-hash-code-of hash-code)
 -> exact-integer?
  hash-code : (any/c . -> . exact-integer?)
method
(send an-image-snip equal-secondary-hash-code-of hash-code)
 -> exact-integer?
  hash-code : (any/c . -> . exact-integer?)
method
(send an-image-snip get-bitmap) -> (or/c (is-a?/c bitmap%) #f)
method
(send an-image-snip get-bitmap-mask)
 -> (or/c (is-a?/c bitmap%) #f)
method
(send an-image-snip get-filename [relative-path])
 -> (or/c path-string? #f)
  relative-path : (or/c (box/c any/c) #f) = #f
method
(send an-image-snip get-filetype)
 -> (or/c 'unknown 'unknown/mask 'unknown/alpha
          'gif 'gif/mask 'gif/alpha
          'jpeg 'png 'png/mask 'png/alpha
          'xbm 'xpm 'bmp 'pict)
method
(send an-image-snip load-file  file                
                              [kind                
                               relative-path?      
                               inline?             
                               backing-scale]) -> void?
  file : (or/c path-string? input-port? #f)
  kind : (or/c 'unknown 'unknown/mask 'unknown/alpha = 'unknown
               'gif 'gif/mask 'gif/alpha
               'jpeg 'png 'png/mask 'png/alpha
               'xbm 'xpm 'bmp 'pict)
  relative-path? : any/c = #f
  inline? : any/c = #t
  backing-scale : (>/c 0.0) = 1.0
method
(send an-image-snip other-equal-to? snip        
                                    equal?) -> boolean?
  snip : (is-a?/c snip%)
  equal? : (any/c any/c . -> . boolean?)
method
(send an-image-snip resize w h) -> boolean?
  w : (and/c real? (not/c negative?))
  h : (and/c real? (not/c negative?))
method
(send an-image-snip set-bitmap bm [mask]) -> void?
  bm : (is-a?/c bitmap%)
  mask : (or/c (is-a?/c bitmap%) #f) = #f
method
(send an-image-snip set-offset dx dy) -> void?
  dx : real?
  dy : real?
interface
mult-color<%> : interface?
method
(send a-mult-color get r g b [a]) -> void?
  r : (box/c real?)
  g : (box/c real?)
  b : (box/c real?)
  a : (or/c (box/c real?) #f) = #f
method
(send a-mult-color get-a) -> real?
method
(send a-mult-color get-b) -> real?
method
(send a-mult-color get-g) -> real?
method
(send a-mult-color get-r) -> real?
method
(send a-mult-color set r g b [a]) -> void?
  r : real?
  g : real?
  b : real?
  a : real? = 1.0
method
(send a-mult-color set-a v) -> void?
  v : real?
method
(send a-mult-color set-b v) -> void?
  v : real?
method
(send a-mult-color set-g v) -> void?
  v : real?
method
(send a-mult-color set-r v) -> void?
  v : real?
interface
readable-snip<%> : interface?
method
(send a-readable-snip read-special source        
                                   line          
                                   column        
                                   position) -> any/c
  source : any/c
  line : (or/c exact-nonnegative-integer? #f)
  column : (or/c exact-nonnegative-integer? #f)
  position : (or/c exact-nonnegative-integer? #f)
class
snip% : class?
  superclass: object%
  extends: equal<%>
constructor
(new snip%) -> (is-a?/c snip%)
method
(send a-snip adjust-cursor dc      
                           x       
                           y       
                           editorx 
                           editory 
                           event)  
 -> (or/c (is-a?/c cursor%) #f)
  dc : (is-a?/c dc<%>)
  x : real?
  y : real?
  editorx : real?
  editory : real?
  event : (is-a?/c mouse-event%)
method
(send a-snip blink-caret dc x y) -> void?
  dc : (is-a?/c dc<%>)
  x : real?
  y : real?
method
(send a-snip can-do-edit-operation?  op               
                                    [recursive?]) -> boolean?
  op : (or/c 'undo 'redo 'clear 'cut 'copy
             'paste 'kill 'select-all
             'insert-text-box 'insert-pasteboard-box
             'insert-image)
  recursive? : any/c = #t
method
(send a-snip copy) -> (is-a?/c snip%)
method
(send a-snip do-edit-operation  op             
                               [recursive?     
                                time])     -> void?
  op : (or/c 'undo 'redo 'clear 'cut 'copy
             'paste 'kill 'select-all
             'insert-text-box 'insert-pasteboard-box
             'insert-image)
  recursive? : any/c = #t
  time : exact-integer? = 0
method
(send a-snip draw dc              
                  x               
                  y               
                  left            
                  top             
                  right           
                  bottom          
                  dx              
                  dy              
                  draw-caret) -> void?
  dc : (is-a?/c dc<%>)
  x : real?
  y : real?
  left : real?
  top : real?
  right : real?
  bottom : real?
  dx : real?
  dy : real?
  draw-caret : (or/c 'no-caret 'show-inactive-caret 'show-caret
                     (cons/c exact-nonnegative-integer?
                             exact-nonnegative-integer?))
method
(send a-snip equal-to? snip equal?) -> boolean?
  snip : (is-a?/c snip%)
  equal? : (-> any/c any/c boolean?)
method
(send a-snip other-equal-to? that equal?) -> boolean?
  that : (is-a?/c snip%)
  equal? : (-> any/c any/c boolean?)
method
(send a-snip equal-hash-code-of hash-code) -> exact-integer?
  hash-code : (any/c . -> . exact-integer?)
method
(send a-snip equal-secondary-hash-code-of hash-code)
 -> exact-integer?
  hash-code : (any/c . -> . exact-integer?)
method
(send a-snip find-scroll-step y) -> exact-nonnegative-integer?
  y : real?
method
(send a-snip get-admin) -> (or/c (is-a?/c snip-admin%) #f)
method
(send a-snip get-count) -> exact-nonnegative-integer?
method
(send a-snip get-grapheme-count) -> exact-nonnegative-integer?
method
(send a-snip grapheme-position n) -> exact-nonnegative-integer?
  n : exact-nonnegative-integer?
method
(send a-snip get-extent  dc           
                         x            
                         y            
                        [w            
                         h            
                         descent      
                         space        
                         lspace       
                         rspace]) -> void?
  dc : (is-a?/c dc<%>)
  x : real?
  y : real?
  w : (or/c (box/c (and/c real? (not/c negative?))) #f) = #f
  h : (or/c (box/c (and/c real? (not/c negative?))) #f) = #f
  descent : (or/c (box/c (and/c real? (not/c negative?))) #f)
          = #f
  space : (or/c (box/c (and/c real? (not/c negative?))) #f) = #f
  lspace : (or/c (box/c (and/c real? (not/c negative?))) #f)
         = #f
  rspace : (or/c (box/c (and/c real? (not/c negative?))) #f)
         = #f
method
(send a-snip get-flags) -> (listof symbol?)
method
(send a-snip get-num-scroll-steps)
 -> exact-nonnegative-integer?
method
(send a-snip get-scroll-step-offset offset)
 -> (and/c real? (not/c negative?))
  offset : exact-nonnegative-integer?
method
(send a-snip get-snipclass) -> (or/c #f (is-a?/c snip-class%))
method
(send a-snip get-style) -> (is-a?/c style<%>)
method
(send a-snip get-text offset num [flattened?]) -> string?
  offset : exact-nonnegative-integer?
  num : exact-nonnegative-integer?
  flattened? : any/c = #f
method
(send a-snip get-text! buffer             
                       offset             
                       num                
                       buffer-offset) -> void?
  buffer : (and/c string? (not/c immutable?))
  offset : exact-nonnegative-integer?
  num : exact-nonnegative-integer?
  buffer-offset : exact-nonnegative-integer?
method
(send a-snip is-owned?) -> boolean?
method
(send a-snip match? snip) -> boolean?
  snip : (is-a?/c snip%)
method
(send a-snip merge-with prev) -> (or/c (is-a?/c snip%) #f)
  prev : (is-a?/c snip%)
method
(send a-snip next) -> (or/c (is-a?/c snip%) #f)
method
(send a-snip on-char dc          
                     x           
                     y           
                     editorx     
                     editory     
                     event)  -> void?
  dc : (is-a?/c dc<%>)
  x : real?
  y : real?
  editorx : real?
  editory : real?
  event : (is-a?/c key-event%)
method
(send a-snip on-event dc          
                      x           
                      y           
                      editorx     
                      editory     
                      event)  -> void?
  dc : (is-a?/c dc<%>)
  x : real?
  y : real?
  editorx : real?
  editory : real?
  event : (is-a?/c mouse-event%)
method
(send a-snip on-goodbye-event dc          
                              x           
                              y           
                              editorx     
                              editory     
                              event)  -> void?
  dc : (is-a?/c dc<%>)
  x : real?
  y : real?
  editorx : real?
  editory : real?
  event : (is-a?/c mouse-event%)
method
(send a-snip own-caret own-it?) -> void?
  own-it? : any/c
method
(send a-snip position-grapheme n) -> exact-nonnegative-integer?
  n : exact-nonnegative-integer?
method
(send a-snip partial-offset dc x y len) -> real?
  dc : (is-a?/c dc<%>)
  x : real?
  y : real?
  len : exact-nonnegative-integer?
method
(send a-snip previous) -> (or/c (is-a?/c snip%) #f)
method
(send a-snip release-from-owner) -> boolean?
method
(send a-snip resize w h) -> boolean?
  w : (and/c real? (not/c negative?))
  h : (and/c real? (not/c negative?))
method
(send a-snip set-admin admin) -> void?
  admin : (or/c (is-a?/c snip-admin%) #f)
method
(send a-snip set-count c) -> void?
  c : (integer-in 1 100000)
method
(send a-snip set-char-and-grapheme-count char-c          
                                         grapheme-c) -> void?
  char-c : exact-nonnegative-integer?
  grapheme-c : exact-nonnegative-integer?
method
(send a-snip set-flags flags) -> void?
  flags : (listof symbol?)
method
(send a-snip set-snipclass class) -> void?
  class : (is-a?/c snip-class%)
method
(send a-snip set-style style) -> void?
  style : (is-a?/c style<%>)
method
(send a-snip set-unmodified) -> void?
method
(send a-snip size-cache-invalid) -> void?
method
(send a-snip split position first second) -> void?
  position : exact-nonnegative-integer?
  first : (box/c (is-a?/c snip%))
  second : (box/c (is-a?/c snip%))
method
(send a-snip write f) -> void?
  f : (is-a?/c editor-stream-out%)
class
snip-admin% : class?
  superclass: object%
constructor
(new snip-admin%) -> (is-a?/c snip-admin%)
method
(send a-snip-admin get-dc) -> (or/c (is-a?/c dc<%>) #f)
method
(send a-snip-admin get-editor)
 -> (or/c (is-a?/c text%) (is-a?/c pasteboard%))
method
(send a-snip-admin get-view x y w h [snip]) -> void?
  x : (or/c (box/c real?) #f)
  y : (or/c (box/c real?) #f)
  w : (or/c (box/c (and/c real? (not/c negative?))) #f)
  h : (or/c (box/c (and/c real? (not/c negative?))) #f)
  snip : (or/c (is-a?/c snip%) #f) = #f
method
(send a-snip-admin get-view-size w h) -> void?
  w : (or/c (box/c (and/c real? (not/c negative?))) #f)
  h : (or/c (box/c (and/c real? (not/c negative?))) #f)
method
(send a-snip-admin modified snip modified?) -> void?
  snip : (is-a?/c snip%)
  modified? : any/c
method
(send a-snip-admin needs-update snip       
                                localx     
                                localy     
                                w          
                                h)     -> void?
  snip : (is-a?/c snip%)
  localx : real?
  localy : real?
  w : (and/c real? (not/c negative?))
  h : (and/c real? (not/c negative?))
method
(send a-snip-admin popup-menu menu snip x y) -> boolean?
  menu : (is-a?/c popup-menu%)
  snip : (is-a?/c snip%)
  x : real?
  y : real?
method
(send a-snip-admin recounted snip refresh?) -> void?
  snip : (is-a?/c snip%)
  refresh? : any/c
method
(send a-snip-admin release-snip snip) -> boolean?
  snip : (is-a?/c snip%)
method
(send a-snip-admin resized snip refresh?) -> void?
  snip : (is-a?/c snip%)
  refresh? : any/c
method
(send a-snip-admin scroll-to  snip         
                              localx       
                              localy       
                              w            
                              h            
                              refresh?     
                             [bias])   -> boolean?
  snip : (is-a?/c snip%)
  localx : real?
  localy : real?
  w : (and/c real? (not/c negative?))
  h : (and/c real? (not/c negative?))
  refresh? : any/c
  bias : (or/c 'start 'end 'none) = 'none
method
(send a-snip-admin set-caret-owner snip        
                                   domain) -> void?
  snip : (is-a?/c snip%)
  domain : (or/c 'immediate 'display 'global)
method
(send a-snip-admin update-cursor) -> void?
method
(send a-snip-admin get-line-spacing)
 -> (and/c real? (not/c negative?))
method
(send a-snip-admin get-selected-text-color)
 -> (or/c (is-a?/c color%) #f)
method
(send a-snip-admin call-with-busy-cursor thunk) -> any
  thunk : (-> any)
method
(send a-snip-admin get-tabs [length         
                             tab-width      
                             in-units]) -> (listof real?)
  length : (or/c (box/c exact-nonnegative-integer?) #f) = #f
  tab-width : (or/c (box/c real?) #f) = #f
  in-units : (or/c (box/c any/c) #f) = #f
class
snip-class% : class?
  superclass: object%
constructor
(new snip-class%) -> (is-a?/c snip-class%)
method
(send a-snip-class get-classname) -> string?
method
(send a-snip-class get-version) -> exact-integer?
method
(send a-snip-class read f) -> (or/c (is-a?/c snip%) #f)
  f : (is-a?/c editor-stream-in%)
method
(send a-snip-class read-header f) -> boolean?
  f : (is-a?/c editor-stream-in%)
method
(send a-snip-class reading-version stream) -> exact-integer?
  stream : (is-a?/c editor-stream-in%)
method
(send a-snip-class set-classname name) -> void?
  name : string?
method
(send a-snip-class set-version v) -> void?
  v : exact-integer?
method
(send a-snip-class write-header stream) -> boolean?
  stream : (is-a?/c editor-stream-out%)
interface
snip-class-list<%> : interface?
method
(send a-snip-class-list add snipclass) -> void?
  snipclass : (is-a?/c snip-class%)
method
(send a-snip-class-list find name)
 -> (or/c (is-a?/c snip-class%) #f)
  name : string?
method
(send a-snip-class-list find-position class)
 -> exact-nonnegative-integer?
  class : (is-a?/c snip-class%)
method
(send a-snip-class-list nth n)
 -> (or/c (is-a?/c snip-class%) #f)
  n : exact-nonnegative-integer?
method
(send a-snip-class-list number) -> exact-nonnegative-integer?
class
string-snip% : class?
  superclass: snip%
constructor
(make-object string-snip% [allocsize]) -> (is-a?/c string-snip%)
  allocsize : exact-nonnegative-integer? = 0
(make-object string-snip% s) -> (is-a?/c string-snip%)
  s : string?
method
(send a-string-snip insert s len [pos]) -> void?
  s : string?
  len : exact-nonnegative-integer?
  pos : exact-nonnegative-integer? = 0
method
(send a-string-snip read len f) -> void?
  len : exact-nonnegative-integer?
  f : (is-a?/c editor-stream-in%)
interface
style<%> : interface?
method
(send a-style get-alignment) -> (or/c 'top 'center 'bottom)
method
(send a-style get-background) -> (is-a?/c color%)
method
(send a-style get-base-style) -> (or/c (is-a?/c style<%>) #f)
method
(send a-style get-delta delta) -> void?
  delta : (is-a?/c style-delta%)
method
(send a-style get-face) -> (or/c string? #f)
method
(send a-style get-family)
 -> (or/c 'default 'decorative 'roman 'script
          'swiss 'modern 'symbol 'system)
method
(send a-style get-font) -> (is-a?/c font%)
method
(send a-style get-foreground) -> (is-a?/c color%)
method
(send a-style get-name) -> (or/c string? #f)
method
(send a-style get-shift-style) -> (is-a?/c style<%>)
method
(send a-style get-size) -> byte?
method
(send a-style get-size-in-pixels) -> boolean?
method
(send a-style get-smoothing)
 -> (or/c 'default 'partly-smoothed 'smoothed 'unsmoothed)
method
(send a-style get-style) -> (or/c 'normal 'italic 'slant)
method
(send a-style get-text-descent dc)
 -> (and/c real? (not/c negative?))
  dc : (is-a?/c dc<%>)
method
(send a-style get-text-height dc)
 -> (and/c real? (not/c negative?))
  dc : (is-a?/c dc<%>)
method
(send a-style get-text-space dc)
 -> (and/c real? (not/c negative?))
  dc : (is-a?/c dc<%>)
method
(send a-style get-text-width dc)
 -> (and/c real? (not/c negative?))
  dc : (is-a?/c dc<%>)
method
(send a-style get-transparent-text-backing) -> boolean?
method
(send a-style get-underlined) -> boolean?
method
(send a-style get-weight) -> (or/c 'normal 'bold 'light)
method
(send a-style is-join?) -> boolean?
method
(send a-style set-base-style base-style) -> void?
  base-style : (is-a?/c style<%>)
method
(send a-style set-delta delta) -> void?
  delta : (is-a?/c style-delta%)
method
(send a-style set-shift-style style) -> void?
  style : (is-a?/c style<%>)
method
(send a-style switch-to dc old-style) -> void?
  dc : (is-a?/c dc<%>)
  old-style : (or/c (is-a?/c style<%>) #f)
class
style-delta% : class?
  superclass: object%
constructor
(make-object style-delta% [change-command])
 -> (is-a?/c style-delta%)
  change-command : (or/c 'change-nothing
                         'change-normal
                         'change-toggle-underline
                         'change-toggle-size-in-pixels
                         'change-normal-color
                         'change-bold)
                 = 'change-nothing
(make-object style-delta% change-command v)
 -> (is-a?/c style-delta%)
  change-command : (or/c 'change-family
                         'change-style
                         'change-toggle-style
                         'change-weight
                         'change-toggle-weight
                         'change-smoothing
                         'change-toggle-smoothing
                         'change-alignment)
  v : symbol
(make-object style-delta% change-command v)
 -> (is-a?/c style-delta%)
  change-command : (or/c 'change-size
                         'change-bigger
                         'change-smaller)
  v : exact-integer?
(make-object style-delta% change-command v)
 -> (is-a?/c style-delta%)
  change-command : (or/c 'change-underline
                         'change-size-in-pixels)
  v : any/c
method
(send a-style-delta collapse delta) -> boolean?
  delta : (is-a?/c style-delta%)
method
(send a-style-delta copy delta) -> void?
  delta : (is-a?/c style-delta%)
method
(send a-style-delta equal? delta) -> boolean?
  delta : (is-a?/c style-delta%)
method
(send a-style-delta get-alignment-off)
 -> (or/c 'base 'top 'center 'bottom)
method
(send a-style-delta get-alignment-on)
 -> (or/c 'base 'top 'center 'bottom)
method
(send a-style-delta get-background-add)
 -> (is-a?/c add-color<%>)
method
(send a-style-delta get-background-mult)
 -> (is-a?/c mult-color<%>)
method
(send a-style-delta get-face) -> (or/c string? #f)
method
(send a-style-delta get-family)
 -> (or/c 'base 'default 'decorative 'roman 'script
          'swiss 'modern 'symbol 'system)
method
(send a-style-delta get-foreground-add)
 -> (is-a?/c add-color<%>)
method
(send a-style-delta get-foreground-mult)
 -> (is-a?/c mult-color<%>)
method
(send a-style-delta get-size-add) -> byte?
method
(send a-style-delta get-size-in-pixels-off) -> boolean?
method
(send a-style-delta get-size-in-pixels-on) -> boolean?
method
(send a-style-delta get-size-mult) -> real?
method
(send a-style-delta get-smoothing-off)
 -> (or/c 'base 'default 'partly-smoothed 'smoothed 'unsmoothed)
method
(send a-style-delta get-smoothing-on)
 -> (or/c 'base 'default 'partly-smoothed 'smoothed 'unsmoothed)
method
(send a-style-delta get-style-off)
 -> (or/c 'base 'normal 'italic 'slant)
method
(send a-style-delta get-style-on)
 -> (or/c 'base 'normal 'italic 'slant)
method
(send a-style-delta get-transparent-text-backing-off)
 -> boolean?
method
(send a-style-delta get-transparent-text-backing-on)
 -> boolean?
method
(send a-style-delta get-underlined-off) -> boolean?
method
(send a-style-delta get-underlined-on) -> boolean?
method
(send a-style-delta get-weight-off)
 -> (or/c 'base 'normal 'bold 'light)
method
(send a-style-delta get-weight-on)
 -> (or/c 'base 'normal 'bold 'light)
method
(send a-style-delta set-alignment-off v) -> void?
  v : (or/c 'base 'top 'center 'bottom)
method
(send a-style-delta set-alignment-on v) -> void?
  v : (or/c 'base 'top 'center 'bottom)
method
(send a-style-delta set-delta [change-command])
 -> (is-a?/c style-delta%)
  change-command : (or/c 'change-nothing
                         'change-normal
                         'change-toggle-underline
                         'change-toggle-size-in-pixels
                         'change-normal-color
                         'change-bold)
                 = 'change-nothing
(send a-style-delta set-delta change-command 
                              param)         
 -> (is-a?/c style-delta%)
  change-command : (or/c 'change-family
                         'change-style
                         'change-toggle-style
                         'change-weight
                         'change-toggle-weight
                         'change-smoothing
                         'change-toggle-smoothing
                         'change-alignment)
  param : symbol?
(send a-style-delta set-delta change-command 
                              param)         
 -> (is-a?/c style-delta%)
  change-command : (or/c 'change-size
                         'change-bigger
                         'change-smaller)
  param : byte?
(send a-style-delta set-delta change-command 
                              on?)           
 -> (is-a?/c style-delta%)
  change-command : (or/c 'change-underline
                         'change-size-in-pixels)
  on? : any/c
method
(send a-style-delta set-delta-background name)
 -> (is-a?/c style-delta%)
  name : string?
(send a-style-delta set-delta-background color)
 -> (is-a?/c style-delta%)
  color : (is-a?/c color%)
method
(send a-style-delta set-delta-face  name     
                                   [family]) 
 -> (is-a?/c style-delta%)
  name : string?
  family : (or/c 'base 'default 'decorative 'roman
                 'script 'swiss 'modern 'symbol 'system)
         = 'default
method
(send a-style-delta set-delta-foreground name)
 -> (is-a?/c style-delta%)
  name : string?
(send a-style-delta set-delta-foreground color)
 -> (is-a?/c style-delta%)
  color : (is-a?/c color%)
method
(send a-style-delta set-face v) -> void?
  v : (or/c string? #f)
method
(send a-style-delta set-family v) -> void?
  v : (or/c 'base 'default 'decorative 'roman 'script
            'swiss 'modern 'symbol 'system)
method
(send a-style-delta set-size-add v) -> void?
  v : byte?
method
(send a-style-delta set-size-in-pixels-off v) -> void?
  v : any/c
method
(send a-style-delta set-size-in-pixels-on v) -> void?
  v : any/c
method
(send a-style-delta set-size-mult v) -> void?
  v : real?
method
(send a-style-delta set-smoothing-off v) -> void?
  v : (or/c 'base 'default 'partly-smoothed
            'smoothed 'unsmoothed)
method
(send a-style-delta set-smoothing-on v) -> void?
  v : (or/c 'base 'default 'partly-smoothed
            'smoothed 'unsmoothed)
method
(send a-style-delta set-style-off v) -> void?
  v : (or/c 'base 'normal 'italic 'slant)
method
(send a-style-delta set-style-on v) -> void?
  v : (or/c 'base 'normal 'italic 'slant)
method
(send a-style-delta set-transparent-text-backing-off v) -> void?
  v : any/c
method
(send a-style-delta set-transparent-text-backing-on v) -> void?
  v : any/c
method
(send a-style-delta set-underlined-off v) -> void?
  v : any/c
method
(send a-style-delta set-underlined-on v) -> void?
  v : any/c
method
(send a-style-delta set-weight-off v) -> void?
  v : (or/c 'base 'normal 'bold 'light)
method
(send a-style-delta set-weight-on v) -> void?
  v : (or/c 'base 'normal 'bold 'light)
class
style-list% : class?
  superclass: object%
constructor
(new style-list%) -> (is-a?/c style-list%)
method
(send a-style-list basic-style) -> (is-a?/c style<%>)
method
(send a-style-list convert style) -> (is-a?/c style<%>)
  style : (is-a?/c style<%>)
method
(send a-style-list find-named-style name)
 -> (or/c (is-a?/c style<%>) #f)
  name : string?
method
(send a-style-list find-or-create-join-style base-style   
                                             shift-style) 
 -> (is-a?/c style<%>)
  base-style : (is-a?/c style<%>)
  shift-style : (is-a?/c style<%>)
method
(send a-style-list find-or-create-style base-style 
                                        delta)     
 -> (is-a?/c style<%>)
  base-style : (is-a?/c style<%>)
  delta : (is-a?/c style-delta%)
method
(send a-style-list forget-notification key) -> void?
  key : any/c
method
(send a-style-list index-to-style i)
 -> (or/c (is-a?/c style<%>) #f)
  i : exact-nonnegative-integer?
method
(send a-style-list new-named-style name        
                                   like-style) 
 -> (is-a?/c style<%>)
  name : string?
  like-style : (is-a?/c style<%>)
method
(send a-style-list notify-on-change f) -> any/c
  f : ((or/c (is-a?/c style<%>) #f) . -> . any)
method
(send a-style-list begin-style-change-sequence) -> void?
method
(send a-style-list end-style-change-sequence) -> void?
method
(send a-style-list number) -> exact-nonnegative-integer?
method
(send a-style-list replace-named-style name        
                                       like-style) 
 -> (is-a?/c style<%>)
  name : string?
  like-style : (is-a?/c style<%>)
method
(send a-style-list style-to-index style)
 -> (or/c exact-nonnegative-integer? #f)
  style : (is-a?/c style<%>)
class
tab-snip% : class?
  superclass: string-snip%
constructor
(new tab-snip%) -> (is-a?/c tab-snip%)
interface
editor<%> : interface?
method
(send an-editor add-canvas canvas) -> void?
  canvas : (is-a?/c editor-canvas%)
method
(send an-editor add-undo undoer) -> void?
  undoer : (-> any)
method
(send an-editor adjust-cursor event)
 -> (or/c (is-a?/c cursor%) #f)
  event : (is-a?/c mouse-event%)
method
(send an-editor after-edit-sequence) -> void?
method
(send an-editor after-load-file success?) -> void?
  success? : any/c
method
(send an-editor after-save-file success?) -> void?
  success? : any/c
method
(send an-editor after-scroll-to) -> void?
method
(send an-editor auto-wrap) -> boolean?
(send an-editor auto-wrap auto-wrap?) -> void?
  auto-wrap? : any/c
method
(send an-editor begin-edit-sequence [undoable?               
                                     interrupt-streak?]) -> void?
  undoable? : any/c = #t
  interrupt-streak? : any/c = #t
method
(send an-editor begin-write-header-footer-to-file f       
                                                  name    
                                                  buffer) 
 -> void?
  f : (is-a?/c editor-stream-out%)
  name : string?
  buffer : (box/c exact-integer?)
method
(send an-editor blink-caret) -> void?
method
(send an-editor can-do-edit-operation?  op               
                                       [recursive?]) -> boolean?
  op : (or/c 'undo 'redo 'clear 'cut 'copy 'paste
             'kill 'select-all 'insert-text-box
             'insert-pasteboard-box 'insert-image)
  recursive? : any/c = #t
method
(send an-editor can-load-file? filename     
                               format)  -> boolean?
  filename : path?
  format : (or/c 'guess 'same 'copy 'standard
                 'text 'text-force-cr)
method
(send an-editor can-save-file? filename     
                               format)  -> boolean?
  filename : path?
  format : (or/c 'guess 'same 'copy 'standard
                 'text 'text-force-cr)
method
(send an-editor clear) -> void?
method
(send an-editor clear-undos) -> void?
method
(send an-editor copy [extend? time]) -> void?
  extend? : any/c = #f
  time : exact-integer? = 0
method
(send an-editor copy-self)
 -> (or/c (is-a?/c text%) (is-a?/c pasteboard%))
method
(send an-editor copy-self-to dest) -> void?
  dest : (or/c (is-a?/c text%) (is-a?/c pasteboard%))
method
(send an-editor cut [extend? time]) -> void?
  extend? : any/c = #f
  time : exact-integer? = 0
method
(send an-editor dc-location-to-editor-location x      
                                               y) -> real? real?
  x : real?
  y : real?
method
(send an-editor default-style-name) -> string?
method
(send an-editor do-edit-operation  op             
                                  [recursive?     
                                   time])     -> void?
  op : (or/c 'undo 'redo 'clear 'cut 'copy 'paste
             'kill 'select-all 'insert-text-box
             'insert-pasteboard-box 'insert-image)
  recursive? : any/c = #t
  time : exact-integer? = 0
method
(send an-editor editor-location-to-dc-location x      
                                               y) -> real? real?
  x : real?
  y : real?
method
(send an-editor enable-sha1) -> void?
method
(send an-editor end-edit-sequence) -> void?
method
(send an-editor end-write-header-footer-to-file f             
                                                buffer-value) 
 -> void?
  f : (is-a?/c editor-stream-out%)
  buffer-value : exact-integer?
method
(send an-editor find-first-snip) -> (or/c (is-a?/c snip%) #f)
method
(send an-editor find-scroll-line location)
 -> exact-nonnegative-integer?
  location : real?
method
(send an-editor get-active-canvas)
 -> (or/c (is-a?/c editor-canvas%) #f)
method
(send an-editor get-admin) -> (or/c (is-a?/c editor-admin%) #f)
method
(send an-editor get-canvas)
 -> (or/c (is-a?/c editor-canvas%) #f)
method
(send an-editor get-canvases)
 -> (listof (is-a?/c editor-canvas%))
method
(send an-editor get-file-creator-and-type)
 -> (or/c #f (and/c bytes? #rx#"^....$"))
    (or/c #f (and/c bytes? #rx#"^....$"))
method
(send an-editor get-dc) -> (or/c (is-a?/c dc<%>) #f)
method
(send an-editor get-descent) -> (and/c real? (not/c negative?))
method
(send an-editor get-extent w h) -> void?
  w : (or/c (box/c (and/c real? (not/c negative?))) #f)
  h : (or/c (box/c (and/c real? (not/c negative?))) #f)
method
(send an-editor get-file directory) -> (or/c path-string? #f)
  directory : (or/c path? #f)
method
(send an-editor get-file-sha1) -> (or/c bytes? #f)
method
(send an-editor get-filename [temp]) -> (or/c path-string? #f)
  temp : (or/c (box/c any/c) #f) = #f
method
(send an-editor get-flattened-text) -> string?
method
(send an-editor get-focus-snip) -> (or/c (is-a?/c snip%) #f)
method
(send an-editor get-inactive-caret-threshold)
 -> (or/c 'no-caret 'show-inactive-caret 'show-caret)
method
(send an-editor get-keymap) -> (or/c (is-a?/c keymap%) #f)
method
(send an-editor get-load-overwrites-styles) -> boolean?
method
(send an-editor get-max-height)
 -> (or/c (and/c real? (not/c negative?)) 'none)
method
(send an-editor get-max-undo-history)
 -> (or/c (integer-in 0 100000) 'forever)
method
(send an-editor get-max-view-size) -> real? real?
method
(send an-editor get-max-width)
 -> (or/c (and/c real? (not/c negative?)) 'none)
method
(send an-editor get-min-height)
 -> (or/c (and/c real? (not/c negative?)) 'none)
method
(send an-editor get-min-width)
 -> (or/c (and/c real? (not/c negative?)) 'none)
method
(send an-editor get-paste-text-only) -> boolean?
method
(send an-editor get-snip-data thesnip)
 -> (or/c (is-a?/c editor-data%) #f)
  thesnip : (is-a?/c snip%)
method
(send an-editor get-snip-location  thesnip             
                                  [x                   
                                   y                   
                                   bottom-right?]) -> boolean?
  thesnip : (is-a?/c snip%)
  x : (or/c (box/c real?) #f) = #f
  y : (or/c (box/c real?) #f) = #f
  bottom-right? : any/c = #f
method
(send an-editor get-space) -> (and/c real? (not/c negative?))
method
(send an-editor get-style-list) -> (is-a?/c style-list%)
method
(send an-editor get-view-size w h) -> void?
  w : (or/c (box/c (and/c real? (not/c negative?))) #f)
  h : (or/c (box/c (and/c real? (not/c negative?))) #f)
method
(send an-editor global-to-local x y) -> void?
  x : (or/c (box/c real?) #f)
  y : (or/c (box/c real?) #f)
method
(send an-editor in-edit-sequence?) -> boolean?
method
(send an-editor insert snip) -> void?
  snip : (is-a?/c snip%)
method
(send an-editor insert-box [type]) -> void?
  type : (or/c 'text 'pasteboard) = 'text
method
(send an-editor insert-file  filename           
                            [format             
                             show-errors?]) -> boolean?
  filename : path-string?
  format : (or/c 'guess 'same 'copy 'standard = 'guess
                 'text 'text-force-cr)
  show-errors? : any/c = #t
method
(send an-editor insert-image [filename           
                              type               
                              relative-path?     
                              inline?])      -> void?
  filename : (or/c path-string? #f) = #f
  type : (or/c 'unknown 'unknown/mask 'unknown/alpha
               'gif 'gif/mask 'gif/alpha
               'jpeg 'png 'png/mask 'png/alpha
               'xbm 'xpm 'bmp 'pict)
       = 'unknown/alpha
  relative-path? : any/c = #f
  inline? : any/c = #t
method
(send an-editor insert-port  port              
                            [format            
                             replace-styles?]) 
 -> (or/c 'standard 'text 'text-force-cr)
  port : input-port?
  format : (or/c 'guess 'same 'copy 'standard = 'guess
                 'text 'text-force-cr)
  replace-styles? : any/c = #t
method
(send an-editor invalidate-bitmap-cache [x            
                                         y            
                                         width        
                                         height]) -> void?
  x : real? = 0.0
  y : real? = 0.0
  width : (or/c (and/c real? (not/c negative?)) 'end 'display-end)
        = 'end
  height : (or/c (and/c real? (not/c negative?)) 'end 'display-end)
         = 'end
method
(send an-editor is-locked?) -> boolean?
method
(send an-editor is-modified?) -> boolean?
method
(send an-editor is-printing?) -> boolean?
method
(send an-editor is-sha1-enabled?) -> boolean
method
(send an-editor kill [time]) -> void?
  time : exact-integer? = 0
method
(send an-editor load-file [filename           
                           format             
                           show-errors?]) -> boolean?
  filename : (or/c path-string? #f) = #f
  format : (or/c 'guess 'same 'copy 'standard = 'guess
                 'text 'text-force-cr)
  show-errors? : any/c = #t
method
(send an-editor local-to-global x y) -> void?
  x : (or/c (box/c real?) #f)
  y : (or/c (box/c real?) #f)
method
(send an-editor locations-computed?) -> boolean?
method
(send an-editor lock lock?) -> void?
  lock? : any/c
method
(send an-editor locked-for-flow?) -> boolean?
method
(send an-editor locked-for-read?) -> boolean?
method
(send an-editor locked-for-write?) -> boolean?
method
(send an-editor needs-update snip       
                             localx     
                             localy     
                             w          
                             h)     -> void?
  snip : (is-a?/c snip%)
  localx : real?
  localy : real?
  w : (and/c real? (not/c negative?))
  h : (and/c real? (not/c negative?))
method
(send an-editor num-scroll-lines) -> exact-nonnegative-integer?
method
(send an-editor on-change) -> void?
method
(send an-editor on-char event) -> void?
  event : (is-a?/c key-event%)
method
(send an-editor on-default-char event) -> void?
  event : (is-a?/c key-event%)
method
(send an-editor on-default-event event) -> void?
  event : (is-a?/c mouse-event%)
method
(send an-editor on-display-size) -> void?
method
(send an-editor on-display-size-when-ready) -> void?
method
(send an-editor on-edit-sequence) -> void?
method
(send an-editor on-event event) -> void?
  event : (is-a?/c mouse-event%)
method
(send an-editor on-focus on?) -> void?
  on? : any/c
method
(send an-editor on-load-file filename     
                             format)  -> void?
  filename : path?
  format : (or/c 'guess 'same 'copy 'standard
                 'text 'text-force-cr)
method
(send an-editor on-local-char event) -> void?
  event : (is-a?/c key-event%)
method
(send an-editor on-local-event event) -> void?
  event : (is-a?/c mouse-event%)
method
(send an-editor on-new-box type) -> (is-a?/c snip%)
  type : (or/c 'text 'pasteboard)
method
(send an-editor on-new-image-snip filename       
                                  kind           
                                  relative-path? 
                                  inline?)       
 -> (is-a?/c image-snip%)
  filename : path?
  kind : (or/c 'unknown 'unknown/mask 'unknown/alpha
               'gif 'gif/mask 'gif/alpha
               'jpeg 'png 'png/mask 'png/alpha
               'xbm 'xpm 'bmp 'pict)
  relative-path? : any/c
  inline? : any/c
method
(send an-editor on-paint before?         
                         dc              
                         left            
                         top             
                         right           
                         bottom          
                         dx              
                         dy              
                         draw-caret) -> void?
  before? : any/c
  dc : (is-a?/c dc<%>)
  left : real?
  top : real?
  right : real?
  bottom : real?
  dx : real?
  dy : real?
  draw-caret : (or/c 'no-caret 'show-inactive-caret 'show-caret
                     (cons/c exact-nonnegative-integer?
                             exact-nonnegative-integer?))
method
(send an-editor on-save-file filename     
                             format)  -> void?
  filename : path?
  format : (or/c 'guess 'same 'copy 'standard
                 'text 'text-force-cr)
method
(send an-editor on-scroll-to) -> void?
method
(send an-editor on-snip-modified snip           
                                 modified?) -> void?
  snip : (is-a?/c snip%)
  modified? : any/c
method
(send an-editor own-caret own?) -> void?
  own? : any/c
method
(send an-editor paste [time]) -> void?
  time : exact-integer? = 0
method
(send an-editor paste-x-selection [time]) -> void?
  time : exact-integer? = 0
method
(send an-editor print [interactive?            
                       fit-on-page?            
                       output-mode             
                       parent                  
                       force-ps-page-bbox?     
                       as-eps?])           -> void?
  interactive? : any/c = #t
  fit-on-page? : any/c = #t
  output-mode : (or/c 'standard 'postscript 'pdf) = 'standard
  parent : (or/c (or/c (is-a?/c frame%) (is-a?/c dialog%)) #f)
         = #f
  force-ps-page-bbox? : any/c = #t
  as-eps? : any/c = #f
method
(send an-editor print-to-dc dc [page-number]) -> void?
  dc : (is-a?/c dc<%>)
  page-number : exact-integer? = -1
method
(send an-editor put-file directory         
                         default-name) -> (or/c path-string? #f)
  directory : (or/c path? #f)
  default-name : (or/c path? #f)
method
(send an-editor read-footer-from-file stream     
                                      name)  -> boolean?
  stream : (is-a?/c editor-stream-in%)
  name : string?
method
(send an-editor read-from-file  stream                  
                               [overwrite-styles?]) -> boolean?
  stream : (is-a?/c editor-stream-in%)
  overwrite-styles? : any/c = #f
method
(send an-editor read-header-from-file stream     
                                      name)  -> boolean?
  stream : (is-a?/c editor-stream-in%)
  name : string?
method
(send an-editor redo) -> void?
method
(send an-editor refresh x               
                        y               
                        width           
                        height          
                        draw-caret      
                        background) -> void?
  x : real?
  y : real?
  width : (and/c real? (not/c negative?))
  height : (and/c real? (not/c negative?))
  draw-caret : (or/c 'no-caret 'show-inactive-caret 'show-caret
                     (cons/c exact-nonnegative-integer?
                             exact-nonnegative-integer?))
  background : (or/c (is-a?/c color%) #f)
method
(send an-editor refresh-delayed?) -> boolean?
method
(send an-editor release-snip snip) -> boolean?
  snip : (is-a?/c snip%)
method
(send an-editor remove-canvas canvas) -> void?
  canvas : (is-a?/c editor-canvas%)
method
(send an-editor resized snip redraw-now?) -> void?
  snip : (is-a?/c snip%)
  redraw-now? : any/c
method
(send an-editor save-file [filename           
                           format             
                           show-errors?]) -> boolean?
  filename : (or/c path-string? #f) = #f
  format : (or/c 'guess 'same 'copy 'standard = 'same
                 'text 'text-force-cr)
  show-errors? : any/c = #t
method
(send an-editor save-port  port               
                          [format             
                           show-errors?]) -> boolean?
  port : output-port?
  format : (or/c 'guess 'same 'copy 'standard = 'same
                 'text 'text-force-cr)
  show-errors? : any/c = #t
method
(send an-editor scroll-editor-to localx       
                                 localy       
                                 width        
                                 height       
                                 refresh?     
                                 bias)    -> boolean?
  localx : real?
  localy : real?
  width : (and/c real? (not/c negative?))
  height : (and/c real? (not/c negative?))
  refresh? : any/c
  bias : (or/c 'start 'end 'none)
method
(send an-editor scroll-line-location pos)
 -> (and/c real? (not/c negative?))
  pos : exact-nonnegative-integer?
method
(send an-editor scroll-to  snip         
                           localx       
                           localy       
                           width        
                           height       
                           refresh?     
                          [bias])   -> boolean?
  snip : (is-a?/c snip%)
  localx : real?
  localy : real?
  width : (and/c real? (not/c negative?))
  height : (and/c real? (not/c negative?))
  refresh? : any/c
  bias : (or/c 'start 'end 'none) = 'none
method
(send an-editor select-all) -> void?
method
(send an-editor set-active-canvas canvas) -> void?
  canvas : (is-a?/c editor-canvas%)
method
(send an-editor set-admin admin) -> void?
  admin : (or/c (is-a?/c editor-admin%) #f)
method
(send an-editor set-caret-owner  snip         
                                [domain]) -> void?
  snip : (or/c (is-a?/c snip%) #f)
  domain : (or/c 'immediate 'display 'global) = 'immediate
method
(send an-editor set-file-creator-and-type creator     
                                          type)   -> void?
  creator : (or/c #f (and/c bytes? #rx#"^....$"))
  type : (or/c #f (and/c bytes? #rx#"^....$"))
method
(send an-editor set-cursor  cursor          
                           [override?]) -> void?
  cursor : (or/c (is-a?/c cursor%) #f)
  override? : any/c = #t
method
(send an-editor set-filename  filename         
                             [temporary?]) -> void?
  filename : (or/c path-string? #f)
  temporary? : any/c = #f
method
(send an-editor set-inactive-caret-threshold threshold) -> void?
  threshold : (or/c 'no-caret 'show-inactive-caret 'show-caret)
method
(send an-editor set-keymap [keymap]) -> void?
  keymap : (or/c (is-a?/c keymap%) #f) = #f
method
(send an-editor set-load-overwrites-styles overwrite?) -> void?
  overwrite? : any/c
method
(send an-editor set-max-height width) -> void?
  width : (or/c (and/c real? (not/c negative?)) 'none)
method
(send an-editor set-max-undo-history count) -> void?
  count : (or/c exact-nonnegative-integer? 'forever)
method
(send an-editor set-max-width width) -> void?
  width : (or/c (and/c real? (not/c negative?)) 'none)
method
(send an-editor set-min-height width) -> void?
  width : (or/c (and/c real? (not/c negative?)) 'none)
method
(send an-editor set-min-width width) -> void?
  width : (or/c (and/c real? (not/c negative?)) 'none)
method
(send an-editor set-modified modified?) -> void?
  modified? : any/c
method
(send an-editor set-paste-text-only text-only?) -> void?
  text-only? : any/c
method
(send an-editor set-snip-data thesnip data) -> void?
  thesnip : (is-a?/c snip%)
  data : (is-a?/c editor-data%)
method
(send an-editor set-style-list style-list) -> void?
  style-list : (is-a?/c style-list%)
method
(send an-editor set-undo-preserves-all-history on?) -> void?
  on? : any/c
method
(send an-editor size-cache-invalid) -> void?
method
(send an-editor style-has-changed style) -> void?
  style : (or/c (is-a?/c style<%>) #f)
method
(send an-editor undo) -> void?
method
(send an-editor undo-preserves-all-history?) -> boolean?
method
(send an-editor update-sha1? path) -> any/c
  path : path-string?
method
(send an-editor use-file-text-mode) -> boolean?
(send an-editor use-file-text-mode on?) -> void?
  on? : any/c
method
(send an-editor write-footers-to-file stream) -> boolean?
  stream : (is-a?/c editor-stream-out%)
method
(send an-editor write-headers-to-file stream) -> boolean?
  stream : (is-a?/c editor-stream-out%)
method
(send an-editor write-to-file stream) -> boolean?
  stream : (is-a?/c editor-stream-out%)
class
editor-admin% : class?
  superclass: object%
constructor
(new editor-admin%) -> (is-a?/c editor-admin%)
method
(send an-editor-admin get-dc [x y]) -> (or/c (is-a?/c dc<%>) #f)
  x : (or/c (box/c real?) #f) = #f
  y : (or/c (box/c real?) #f) = #f
method
(send an-editor-admin get-max-view  x           
                                    y           
                                    w           
                                    h           
                                   [full?]) -> void?
  x : (or/c (box/c real?) #f)
  y : (or/c (box/c real?) #f)
  w : (or/c (box/c (and/c real? (not/c negative?))) #f)
  h : (or/c (box/c (and/c real? (not/c negative?))) #f)
  full? : any/c = #f
method
(send an-editor-admin get-view x y w h [full?]) -> void?
  x : (or/c (box/c real?) #f)
  y : (or/c (box/c real?) #f)
  w : (or/c (box/c (and/c real? (not/c negative?))) #f)
  h : (or/c (box/c (and/c real? (not/c negative?))) #f)
  full? : any/c = #f
method
(send an-editor-admin grab-caret [domain]) -> void?
  domain : (or/c 'immediate 'display 'global) = 'global
method
(send an-editor-admin modified modified?) -> void?
  modified? : any/c
method
(send an-editor-admin needs-update localx     
                                   localy     
                                   w          
                                   h)     -> void?
  localx : real?
  localy : real?
  w : (and/c real? (not/c negative?))
  h : (and/c real? (not/c negative?))
method
(send an-editor-admin popup-menu menu x y) -> boolean?
  menu : (is-a?/c popup-menu%)
  x : real?
  y : real?
method
(send an-editor-admin refresh-delayed?) -> boolean?
method
(send an-editor-admin resized refresh?) -> void?
  refresh? : any/c
method
(send an-editor-admin scroll-to  localx       
                                 localy       
                                 w            
                                 h            
                                [refresh?     
                                 bias])   -> boolean?
  localx : real?
  localy : real?
  w : (and/c real? (not/c negative?))
  h : (and/c real? (not/c negative?))
  refresh? : any/c = #t
  bias : (or/c 'start 'end 'none) = 'none
method
(send an-editor-admin update-cursor) -> void?
class
editor-canvas% : class?
  superclass: object%
  extends: canvas<%>
constructor
(new editor-canvas%                                            
                     [parent parent]                           
                    [[editor editor]                           
                     [style style]                             
                     [scrolls-per-page scrolls-per-page]       
                     [label label]                             
                     [wheel-step wheel-step]                   
                     [line-count line-count]                   
                     [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 editor-canvas%)
  parent : (or/c (is-a?/c frame%) (is-a?/c dialog%)
                 (is-a?/c panel%) (is-a?/c pane%))
  editor : (or/c (or/c (is-a?/c text%) (is-a?/c pasteboard%)) #f)
         = #f
  style : (listof (or/c 'no-border 'control-border 'combo = null
                        'no-hscroll 'no-vscroll
                        'hide-hscroll 'hide-vscroll
                        'auto-vscroll 'auto-hscroll
                        'resize-corner 'no-focus 'deleted
                        'transparent))
  scrolls-per-page : (integer-in 1 10000) = 100
  label : (or/c label-string? #f) = #f
  wheel-step : (or/c (integer-in 1 10000) #f) = 3
  line-count : (or/c (integer-in 1 1000) #f) = #f
  horizontal-inset : spacing-integer? = 5
  vertical-inset : spacing-integer? = 5
  enabled : any/c = #t
  vert-margin : spacing-integer? = 0
  horiz-margin : spacing-integer? = 0
  min-width : (or/c dimension-integer? #f) = #f
  min-height : (or/c dimension-integer? #f) = #f
  stretchable-width : any/c = #t
  stretchable-height : any/c = #t
method
(send an-editor-canvas allow-scroll-to-last) -> boolean?
(send an-editor-canvas allow-scroll-to-last on?) -> void?
  on? : any/c
method
(send an-editor-canvas allow-tab-exit) -> boolean?
(send an-editor-canvas allow-tab-exit on?) -> void?
  on? : any/c
method
(send an-editor-canvas call-as-primary-owner f) -> any
  f : (-> any)
method
(send an-editor-canvas force-display-focus) -> boolean?
(send an-editor-canvas force-display-focus on?) -> void?
  on? : any/c
method
(send an-editor-canvas get-editor)
 -> (or/c (or/c (is-a?/c text%) (is-a?/c pasteboard%)) #f)
method
(send an-editor-canvas get-line-count)
 -> (or/c (integer-in 1 1000) #f)
method
(send an-editor-canvas get-scroll-via-copy) -> boolean?
method
(send an-editor-canvas horizontal-inset)
 -> (integer-in 1 10000)
(send an-editor-canvas horizontal-inset step) -> void?
  step : (integer-in 1 10000)
method
(send an-editor-canvas lazy-refresh) -> boolean?
(send an-editor-canvas lazy-refresh on?) -> void?
  on? : any/c
method
(send an-editor-canvas on-char event) -> void?
  event : (is-a?/c key-event%)
method
(send an-editor-canvas on-event event) -> void?
  event : (is-a?/c mouse-event%)
method
(send an-editor-canvas on-focus on?) -> void?
  on? : any/c
method
(send an-editor-canvas on-paint) -> void?
method
(send an-editor-canvas on-size width       
                               height) -> void?
  width : dimension-integer?
  height : dimension-integer?
method
(send an-editor-canvas scroll-to  localx       
                                  localy       
                                  w            
                                  h            
                                  refresh?     
                                 [bias])   -> boolean?
  localx : real?
  localy : real?
  w : (and/c real? (not/c negative?))
  h : (and/c real? (not/c negative?))
  refresh? : any/c
  bias : (or/c 'start 'end 'none) = 'none
method
(send an-editor-canvas scroll-with-bottom-base) -> boolean?
(send an-editor-canvas scroll-with-bottom-base on?) -> void?
  on? : any/c
method
(send an-editor-canvas set-editor  edit          
                                  [redraw?]) -> void?
  edit : (or/c (or/c (is-a?/c text%) (is-a?/c pasteboard%)) #f)
  redraw? : any/c = #t
method
(send an-editor-canvas set-line-count count) -> void?
  count : (or/c (integer-in 1 1000) #f)
method
(send an-editor-canvas set-scroll-via-copy scroll-via-copy?)
 -> void?
  scroll-via-copy? : any/c
method
(send an-editor-canvas vertical-inset) -> (integer-in 1 10000)
(send an-editor-canvas vertical-inset step) -> void?
  step : (integer-in 1 10000)
method
(send an-editor-canvas wheel-step)
 -> (or/c (integer-in 1 10000) #f)
(send an-editor-canvas wheel-step step) -> void?
  step : (or/c (integer-in 1 10000) #f)
class
editor-data% : class?
  superclass: object%
constructor
(new editor-data%) -> (is-a?/c editor-data%)
method
(send an-editor-data get-dataclass)
 -> (or/c (is-a?/c editor-data-class%) #f)
method
(send an-editor-data get-next)
 -> (or/c (is-a?/c editor-data%) #f)
method
(send an-editor-data set-dataclass v) -> void?
  v : (is-a?/c editor-data-class%)
method
(send an-editor-data set-next v) -> void?
  v : (or/c (is-a?/c editor-data%) #f)
method
(send an-editor-data write f) -> boolean?
  f : (is-a?/c editor-stream-out%)
class
editor-data-class% : class?
  superclass: object%
constructor
(new editor-data-class%) -> (is-a?/c editor-data-class%)
method
(send an-editor-data-class get-classname) -> string?
method
(send an-editor-data-class read f)
 -> (or/c (is-a?/c editor-data%) #f)
  f : (is-a?/c editor-stream-in%)
method
(send an-editor-data-class set-classname v) -> void?
  v : string?
interface
editor-data-class-list<%> : interface?
method
(send an-editor-data-class-list add snipclass) -> void?
  snipclass : (is-a?/c editor-data-class%)
method
(send an-editor-data-class-list find name)
 -> (or/c (is-a?/c snip-class%) #f)
  name : string?
method
(send an-editor-data-class-list find-position class)
 -> exact-nonnegative-integer?
  class : (is-a?/c editor-data-class%)
method
(send an-editor-data-class-list nth n)
 -> (or/c (is-a?/c editor-data-class%) #f)
  n : exact-nonnegative-integer?
method
(send an-editor-data-class-list number)
 -> exact-nonnegative-integer?
interface
editor-snip-editor-admin<%> : interface?
method
(send an-editor-snip-editor-admin get-snip)
 -> (is-a?/c editor-snip%)
class
editor-snip% : class?
  superclass: snip%
constructor
(new editor-snip%                                
                  [[editor editor]               
                   [with-border? with-border?]   
                   [left-margin left-margin]     
                   [top-margin top-margin]       
                   [right-margin right-margin]   
                   [bottom-margin bottom-margin] 
                   [left-inset left-inset]       
                   [top-inset top-inset]         
                   [right-inset right-inset]     
                   [bottom-inset bottom-inset]   
                   [min-width min-width]         
                   [max-width max-width]         
                   [min-height min-height]       
                   [max-height max-height]])     
 -> (is-a?/c editor-snip%)
  editor : (or/c (is-a?/c editor<%>) #f) = #f
  with-border? : any/c = #t
  left-margin : exact-nonnegative-integer? = 5
  top-margin : exact-nonnegative-integer? = 5
  right-margin : exact-nonnegative-integer? = 5
  bottom-margin : exact-nonnegative-integer? = 5
  left-inset : exact-nonnegative-integer? = 1
  top-inset : exact-nonnegative-integer? = 1
  right-inset : exact-nonnegative-integer? = 1
  bottom-inset : exact-nonnegative-integer? = 1
  min-width : (or/c (and/c real? (not/c negative?)) 'none)
            = 'none
  max-width : (or/c (and/c real? (not/c negative?)) 'none)
            = 'none
  min-height : (or/c (and/c real? (not/c negative?)) 'none)
             = 'none
  max-height : (or/c (and/c real? (not/c negative?)) 'none)
             = 'none
method
(send an-editor-snip adjust-cursor dc      
                                   x       
                                   y       
                                   editorx 
                                   editory 
                                   event)  
 -> (or/c (is-a?/c cursor%) #f)
  dc : (is-a?/c dc<%>)
  x : real?
  y : real?
  editorx : real?
  editory : real?
  event : (is-a?/c mouse-event%)
method
(send an-editor-snip border-visible?) -> boolean?
method
(send an-editor-snip get-align-top-line) -> boolean?
method
(send an-editor-snip get-editor)
 -> (or/c (or/c (is-a?/c text%) (is-a?/c pasteboard%)) #f)
method
(send an-editor-snip get-extent  dc           
                                 x            
                                 y            
                                [w            
                                 h            
                                 descent      
                                 space        
                                 lspace       
                                 rspace]) -> void?
  dc : (is-a?/c dc<%>)
  x : real?
  y : real?
  w : (or/c (box/c (and/c real? (not/c negative?))) #f) = #f
  h : (or/c (box/c (and/c real? (not/c negative?))) #f) = #f
  descent : (or/c (box/c (and/c real? (not/c negative?))) #f)
          = #f
  space : (or/c (box/c (and/c real? (not/c negative?))) #f) = #f
  lspace : (or/c (box/c (and/c real? (not/c negative?))) #f)
         = #f
  rspace : (or/c (box/c (and/c real? (not/c negative?))) #f)
         = #f
method
(send an-editor-snip get-inset l t r b) -> void?
  l : (box/c exact-nonnegative-integer?)
  t : (box/c exact-nonnegative-integer?)
  r : (box/c exact-nonnegative-integer?)
  b : (box/c exact-nonnegative-integer?)
method
(send an-editor-snip get-margin l t r b) -> void?
  l : (box/c exact-nonnegative-integer?)
  t : (box/c exact-nonnegative-integer?)
  r : (box/c exact-nonnegative-integer?)
  b : (box/c exact-nonnegative-integer?)
method
(send an-editor-snip get-max-height)
 -> (or/c (and/c real? (not/c negative?)) 'none)
method
(send an-editor-snip get-max-width)
 -> (or/c (and/c real? (not/c negative?)) 'none)
method
(send an-editor-snip get-min-height)
 -> (or/c (and/c real? (not/c negative?)) 'none)
method
(send an-editor-snip get-min-width)
 -> (or/c (and/c real? (not/c negative?)) 'none)
method
(send an-editor-snip get-tight-text-fit) -> boolean?
method
(send an-editor-snip resize w h) -> boolean?
  w : (and/c real? (not/c negative?))
  h : (and/c real? (not/c negative?))
method
(send an-editor-snip set-align-top-line tight?) -> void?
  tight? : any/c
method
(send an-editor-snip set-editor editor) -> void?
  editor : (or/c (or/c (is-a?/c text%) (is-a?/c pasteboard%)) #f)
method
(send an-editor-snip set-inset l t r b) -> void?
  l : exact-nonnegative-integer?
  t : exact-nonnegative-integer?
  r : exact-nonnegative-integer?
  b : exact-nonnegative-integer?
method
(send an-editor-snip set-margin l t r b) -> void?
  l : exact-nonnegative-integer?
  t : exact-nonnegative-integer?
  r : exact-nonnegative-integer?
  b : exact-nonnegative-integer?
method
(send an-editor-snip set-max-height h) -> void?
  h : (or/c (and/c real? (not/c negative?)) 'none)
method
(send an-editor-snip set-max-width w) -> void?
  w : (or/c (and/c real? (not/c negative?)) 'none)
method
(send an-editor-snip set-min-height h) -> void?
  h : (or/c (and/c real? (not/c negative?)) 'none)
method
(send an-editor-snip set-min-width w) -> void?
  w : (or/c (and/c real? (not/c negative?)) 'none)
method
(send an-editor-snip set-tight-text-fit tight?) -> void?
  tight? : any/c
method
(send an-editor-snip show-border show?) -> void?
  show? : any/c
method
(send an-editor-snip style-background-used?) -> boolean?
method
(send an-editor-snip use-style-background use?) -> void?
  use? : any/c
class
editor-stream-in% : class?
  superclass: object%
constructor
(make-object editor-stream-in% base)
 -> (is-a?/c editor-stream-in%)
  base : (is-a?/c editor-stream-in-base%)
method
(send an-editor-stream-in get v) -> (is-a?/c editor-stream-in%)
  v : (box/c exact-integer?)
(send an-editor-stream-in get v) -> (is-a?/c editor-stream-in%)
  v : (box/c real?)
method
(send an-editor-stream-in get-bytes [len]) -> (or/c bytes? #f)
  len : (or/c (box/c exact-nonnegative-integer?) #f) = #f
method
(send an-editor-stream-in get-exact)
 -> (or/c exact-integer? (and/c real? inexact?))
method
(send an-editor-stream-in get-fixed v)
 -> (is-a?/c editor-stream-in%)
  v : (box/c (integer-in -9999999999 99999999999))
method
(send an-editor-stream-in get-fixed-exact)
 -> (integer-in -9999999999 99999999999)
method
(send an-editor-stream-in get-inexact) -> real?
method
(send an-editor-stream-in get-unterminated-bytes [len])
 -> (or/c bytes? #f)
  len : (or/c (box/c exact-nonnegative-integer?) #f) = #f
method
(send an-editor-stream-in jump-to pos) -> void?
  pos : exact-nonnegative-integer?
method
(send an-editor-stream-in ok?) -> boolean?
method
(send an-editor-stream-in remove-boundary) -> void?
method
(send an-editor-stream-in set-boundary n) -> void?
  n : exact-nonnegative-integer?
method
(send an-editor-stream-in skip n) -> void?
  n : exact-nonnegative-integer?
method
(send an-editor-stream-in tell) -> exact-nonnegative-integer?
class
editor-stream-in-base% : class?
  superclass: object%
method
(send an-editor-stream-in-base bad?) -> boolean?
method
(send an-editor-stream-in-base read data)
 -> exact-nonnegative-integer?
  data : (and/c vector? (not immutable?))
method
(send an-editor-stream-in-base read-bytes  bstr  
                                          [start 
                                           end]) 
 -> exact-nonnegative-integer?
  bstr : (and/c bytes? (not immutable?))
  start : exact-nonnegative-integer? = 0
  end : exact-nonnegative-integer? = (bytes-length bstr)
method
(send an-editor-stream-in-base read-byte) -> (or/c byte? #f)
method
(send an-editor-stream-in-base seek pos) -> void?
  pos : exact-nonnegative-integer?
method
(send an-editor-stream-in-base skip n) -> void?
  n : exact-nonnegative-integer?
method
(send an-editor-stream-in-base tell)
 -> exact-nonnegative-integer?
class
editor-stream-in-bytes-base% : class?
  superclass: editor-stream-in-base%
constructor
(make-object editor-stream-in-bytes-base% s)
 -> (is-a?/c editor-stream-in-bytes-base%)
  s : bytes?
class
editor-stream-out% : class?
  superclass: object%
constructor
(make-object editor-stream-out% base)
 -> (is-a?/c editor-stream-out%)
  base : (is-a?/c editor-stream-out-base%)
method
(send an-editor-stream-out jump-to pos) -> void?
  pos : exact-nonnegative-integer?
method
(send an-editor-stream-out ok?) -> boolean?
method
(send an-editor-stream-out pretty-finish) -> void?
method
(send an-editor-stream-out pretty-start) -> void?
method
(send an-editor-stream-out put n v)
 -> (is-a?/c editor-stream-out%)
  n : exact-nonnegative-integer?
  v : bytes?
(send an-editor-stream-out put v)
 -> (is-a?/c editor-stream-out%)
  v : bytes?
(send an-editor-stream-out put v)
 -> (is-a?/c editor-stream-out%)
  v : exact-integer?
(send an-editor-stream-out put v)
 -> (is-a?/c editor-stream-out%)
  v : real?
method
(send an-editor-stream-out put-fixed v)
 -> (is-a?/c editor-stream-out%)
  v : (integer-in -9999999999 99999999999)
method
(send an-editor-stream-out put-unterminated v)
 -> (is-a?/c editor-stream-out%)
  v : bytes?
method
(send an-editor-stream-out tell) -> exact-nonnegative-integer?
class
editor-stream-out-base% : class?
  superclass: object%
method
(send an-editor-stream-out-base bad?) -> boolean?
method
(send an-editor-stream-out-base seek pos) -> void?
  pos : exact-nonnegative-integer?
method
(send an-editor-stream-out-base tell)
 -> exact-nonnegative-integer?
method
(send an-editor-stream-out-base write data) -> void?
  data : (listof char?)
method
(send an-editor-stream-out-base write-bytes bstr) -> void?
  bstr : bytes?
class
editor-stream-out-bytes-base% : class?
  superclass: editor-stream-out-base%
constructor
(new editor-stream-out-bytes-base%)
 -> (is-a?/c editor-stream-out-bytes-base%)
method
(send an-editor-stream-out-bytes-base get-bytes) -> bytes?
class
editor-wordbreak-map% : class?
  superclass: object%
constructor
(new editor-wordbreak-map%) -> (is-a?/c editor-wordbreak-map%)
method
(send an-editor-wordbreak-map get-map char)
 -> (listof (or/c 'caret 'line 'selection 'user1 'user2))
  char : char?
method
(send an-editor-wordbreak-map set-map char       
                                      value) -> void?
  char : char?
  value : (listof (or/c 'caret 'line 'selection 'user1 'user2))
class
keymap% : class?
  superclass: object%
constructor
(new keymap%) -> (is-a?/c keymap%)
method
(send a-keymap add-function name func) -> void?
  name : string?
  func : (any/c (is-a?/c event%) . -> . any)
method
(send a-keymap is-function-added? fname) -> boolean?
  fname : string?
method
(send a-keymap break-sequence) -> void?
method
(send a-keymap call-function  name             
                              in               
                              event            
                             [try-chain?]) -> boolean?
  name : string?
  in : any/c
  event : (is-a?/c event%)
  try-chain? : any/c = #f
method
(send a-keymap chain-to-keymap next         
                               prefix?) -> void?
  next : (is-a?/c keymap%)
  prefix? : any/c
method
(send a-keymap get-double-click-interval)
 -> (integer-in 0 1000000)
method
(send a-keymap handle-key-event in event) -> boolean?
  in : any/c
  event : (is-a?/c key-event%)
method
(send a-keymap handle-mouse-event in event) -> boolean?
  in : any/c
  event : (is-a?/c mouse-event%)
method
(send a-keymap map-function keyname fname) -> void?
  keyname : string?
  fname : string?
method
(send a-keymap remove-chained-keymap keymap) -> void?
  keymap : (is-a?/c keymap%)
method
(send a-keymap remove-grab-key-function) -> void?
method
(send a-keymap remove-grab-mouse-function) -> void?
method
(send a-keymap set-break-sequence-callback f) -> void?
  f : (-> any)
method
(send a-keymap set-double-click-interval n) -> void?
  n : (integer-in 0 1000000)
method
(send a-keymap set-grab-key-function f) -> void?
  f : ((or/c string? false?)
       (is-a?/c keymap%)
       any/c
       (is-a?/c key-event%)
       . -> . any)
method
(send a-keymap set-grab-mouse-function f) -> void?
  f : ((or/c string? false?)
       (is-a?/c keymap%)
       any/c
       (is-a?/c mouse-event%)
       . -> . any)
class
pasteboard% : class?
  superclass: object%
  extends: editor<%>
constructor
(new pasteboard%) -> (is-a?/c pasteboard%)
method
(send a-pasteboard add-selected snip) -> void?
  snip : (is-a?/c snip%)
(send a-pasteboard add-selected x y w h) -> void?
  x : real?
  y : real?
  w : (and/c real? (not/c negative?))
  h : (and/c real? (not/c negative?))
method
(send a-pasteboard after-delete snip) -> void?
  snip : (is-a?/c snip%)
method
(send a-pasteboard after-insert snip       
                                before     
                                x          
                                y)     -> void?
  snip : (is-a?/c snip%)
  before : (or/c (is-a?/c snip%) #f)
  x : real?
  y : real?
method
(send a-pasteboard after-interactive-move event) -> void?
  event : (is-a?/c mouse-event%)
method
(send a-pasteboard after-interactive-resize snip) -> void?
  snip : (is-a?/c snip%)
method
(send a-pasteboard after-move-to snip           
                                 x              
                                 y              
                                 dragging?) -> void?
  snip : (is-a?/c snip%)
  x : real?
  y : real?
  dragging? : any/c
method
(send a-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-pasteboard after-resize snip          
                                w             
                                h             
                                resized?) -> void?
  snip : (is-a?/c snip%)
  w : (and/c real? (not/c negative?))
  h : (and/c real? (not/c negative?))
  resized? : any/c
method
(send a-pasteboard after-select snip on?) -> void?
  snip : (is-a?/c snip%)
  on? : any/c
method
(send a-pasteboard can-delete? snip) -> boolean?
  snip : (is-a?/c snip%)
method
(send a-pasteboard can-insert? snip       
                               before     
                               x          
                               y)     -> boolean?
  snip : (is-a?/c snip%)
  before : (or/c (is-a?/c snip%) #f)
  x : real?
  y : real?
method
(send a-pasteboard can-interactive-move? event) -> boolean?
  event : (is-a?/c mouse-event%)
method
(send a-pasteboard can-interactive-resize? snip) -> boolean?
  snip : (is-a?/c snip%)
method
(send a-pasteboard can-move-to? snip           
                                x              
                                y              
                                dragging?) -> boolean?
  snip : (is-a?/c snip%)
  x : real?
  y : real?
  dragging? : any/c
method
(send a-pasteboard can-reorder? snip         
                                to-snip      
                                before?) -> boolean?
  snip : (is-a?/c snip%)
  to-snip : (is-a?/c snip%)
  before? : any/c
method
(send a-pasteboard can-resize? snip w h) -> boolean?
  snip : (is-a?/c snip%)
  w : (and/c real? (not/c negative?))
  h : (and/c real? (not/c negative?))
method
(send a-pasteboard can-select? snip on?) -> boolean?
  snip : (is-a?/c snip%)
  on? : any/c
method
(send a-pasteboard change-style [style snip]) -> void?
  style : (or/c (is-a?/c style-delta%) (is-a?/c style<%>) #f)
        = #f
  snip : (or/c (is-a?/c snip%) #f) = #f
method
(send a-pasteboard copy-self-to dest) -> void?
  dest : (or/c (is-a?/c text%) (is-a?/c pasteboard%))
method
(send a-pasteboard delete) -> void?
(send a-pasteboard delete snip) -> void?
  snip : (is-a?/c snip%)
method
(send a-pasteboard do-copy time extend?) -> void?
  time : exact-integer?
  extend? : any/c
method
(send a-pasteboard do-paste time) -> void?
  time : exact-integer?
method
(send a-pasteboard do-paste-x-selection time) -> void?
  time : exact-integer?
method
(send a-pasteboard erase) -> void?
method
(send a-pasteboard find-next-selected-snip start)
 -> (or/c (is-a?/c snip%) #f)
  start : (or/c (is-a?/c snip%) #f)
method
(send a-pasteboard find-snip x y [after])
 -> (or/c (is-a?/c snip%) #f)
  x : real?
  y : real?
  after : (or/c (is-a?/c snip%) #f) = #f
method
(send a-pasteboard get-area-selectable) -> boolean?
method
(send a-pasteboard get-center) -> real? real?
method
(send a-pasteboard get-dragable) -> boolean?
method
(send a-pasteboard get-scroll-step)
 -> (and/c real? (not/c negative?))
method
(send a-pasteboard get-selection-visible) -> boolean?
method
(send a-pasteboard insert snip) -> void?
  snip : (is-a?/c snip%)
(send a-pasteboard insert snip before x y) -> void?
  snip : (is-a?/c snip%)
  before : (or/c (is-a?/c snip%) #f)
  x : real?
  y : real?
(send a-pasteboard insert snip x y) -> void?
  snip : (is-a?/c snip%)
  x : real?
  y : real?
(send a-pasteboard insert snip before) -> void?
  snip : (is-a?/c snip%)
  before : (or/c (is-a?/c snip%) #f)
method
(send a-pasteboard interactive-adjust-mouse x      
                                            y) -> void?
  x : (box/c real?)
  y : (box/c real?)
method
(send a-pasteboard interactive-adjust-move snip     
                                           x        
                                           y)   -> void?
  snip : (is-a?/c snip%)
  x : (box/c real?)
  y : (box/c real?)
method
(send a-pasteboard interactive-adjust-resize snip        
                                             width       
                                             height) -> void?
  snip : (is-a?/c snip%)
  width : (box/c (and/c real? (not/c negative?)))
  height : (box/c (and/c real? (not/c negative?)))
method
(send a-pasteboard is-selected? snip) -> boolean?
  snip : (is-a?/c snip%)
method
(send a-pasteboard lower snip) -> void?
  snip : (is-a?/c snip%)
method
(send a-pasteboard move snip x y) -> void?
  snip : (is-a?/c snip%)
  x : real?
  y : real?
(send a-pasteboard move x y) -> void?
  x : real?
  y : real?
method
(send a-pasteboard move-to snip x y) -> void?
  snip : (is-a?/c snip%)
  x : real?
  y : real?
method
(send a-pasteboard no-selected) -> void?
method
(send a-pasteboard on-default-char event) -> void?
  event : (is-a?/c key-event%)
method
(send a-pasteboard on-default-event event) -> void?
  event : (is-a?/c mouse-event%)
method
(send a-pasteboard on-delete snip) -> void?
  snip : (is-a?/c snip%)
method
(send a-pasteboard on-double-click snip       
                                   event) -> void?
  snip : (is-a?/c snip%)
  event : (is-a?/c mouse-event%)
method
(send a-pasteboard on-insert snip before x y) -> void?
  snip : (is-a?/c snip%)
  before : (or/c (is-a?/c snip%) #f)
  x : real?
  y : real?
method
(send a-pasteboard on-interactive-move event) -> void?
  event : (is-a?/c mouse-event%)
method
(send a-pasteboard on-interactive-resize snip) -> void?
  snip : (is-a?/c snip%)
method
(send a-pasteboard on-move-to snip           
                              x              
                              y              
                              dragging?) -> void?
  snip : (is-a?/c snip%)
  x : real?
  y : real?
  dragging? : any/c
method
(send a-pasteboard on-reorder snip         
                              to-snip      
                              before?) -> void?
  snip : (is-a?/c snip%)
  to-snip : (is-a?/c snip%)
  before? : any/c
method
(send a-pasteboard on-resize snip w h) -> void?
  snip : (is-a?/c snip%)
  w : (and/c real? (not/c negative?))
  h : (and/c real? (not/c negative?))
method
(send a-pasteboard on-select snip on?) -> void?
  snip : (is-a?/c snip%)
  on? : any/c
method
(send a-pasteboard raise snip) -> void?
  snip : (is-a?/c snip%)
method
(send a-pasteboard remove snip) -> void?
  snip : (is-a?/c snip%)
method
(send a-pasteboard remove-selected snip) -> void?
  snip : (is-a?/c snip%)
method
(send a-pasteboard resize snip w h) -> boolean?
  snip : (is-a?/c snip%)
  w : (and/c real? (not/c negative?))
  h : (and/c real? (not/c negative?))
method
(send a-pasteboard set-after snip after) -> void?
  snip : (is-a?/c snip%)
  after : (or/c (is-a?/c snip%) #f)
method
(send a-pasteboard set-area-selectable allow-drag?) -> void?
  allow-drag? : any/c
method
(send a-pasteboard set-before snip before) -> void?
  snip : (is-a?/c snip%)
  before : (or/c (is-a?/c snip%) #f)
method
(send a-pasteboard set-dragable allow-drag?) -> void?
  allow-drag? : any/c
method
(send a-pasteboard set-scroll-step stepsize) -> void?
  stepsize : (and/c real? (not/c negative?))
method
(send a-pasteboard set-selected snip) -> void?
  snip : (is-a?/c snip%)
method
(send a-pasteboard set-selection-visible visible?) -> void?
  visible? : any/c
class
text% : class?
  superclass: object%
  extends: editor<%>
constructor
(new text%                                  
           [[line-spacing line-spacing]     
            [tab-stops tab-stops]           
            [auto-wrap auto-wrap]])     -> (is-a?/c text%)
  line-spacing : (and/c real? (not/c negative?)) = 1.0
  tab-stops : (listof real?) = null
  auto-wrap : any/c = #f
method
(send a-text after-change-style start len) -> void?
  start : exact-nonnegative-integer?
  len : exact-nonnegative-integer?
method
(send a-text after-delete start len) -> void?
  start : exact-nonnegative-integer?
  len : exact-nonnegative-integer?
method
(send a-text after-insert start len) -> void?
  start : exact-nonnegative-integer?
  len : exact-nonnegative-integer?
method
(send a-text after-merge-snips pos) -> void?
  pos : exact-nonnegative-integer?
method
(send a-text after-set-position) -> void?
method
(send a-text after-set-size-constraint) -> void?
method
(send a-text after-split-snip pos) -> void?
  pos : exact-nonnegative-integer?
method
(send a-text call-clickback start end) -> void?
  start : exact-nonnegative-integer?
  end : exact-nonnegative-integer?
method
(send a-text can-change-style? start len) -> boolean?
  start : exact-nonnegative-integer?
  len : exact-nonnegative-integer?
method
(send a-text can-delete? start len) -> boolean?
  start : exact-nonnegative-integer?
  len : exact-nonnegative-integer?
method
(send a-text can-insert? start len) -> boolean?
  start : exact-nonnegative-integer?
  len : exact-nonnegative-integer?
method
(send a-text can-set-size-constraint?) -> boolean?
method
(send a-text caret-hidden?) -> boolean?
method
(send a-text change-style  delta                
                          [start                
                           end                  
                           counts-as-mod?]) -> void?
  delta : (or/c (is-a?/c style-delta%) #f)
  start : (or/c exact-nonnegative-integer? 'start) = 'start
  end : (or/c exact-nonnegative-integer? 'end) = 'end
  counts-as-mod? : any/c = #t
(send a-text change-style  style                
                          [start                
                           end                  
                           counts-as-mod?]) -> void?
  style : (or/c (is-a?/c style<%>) #f)
  start : (or/c exact-nonnegative-integer? 'start) = 'start
  end : (or/c exact-nonnegative-integer? 'end) = 'end
  counts-as-mod? : any/c = #t
method
(send a-text copy [extend? time start end]) -> void?
  extend? : any/c = #f
  time : exact-integer? = 0
  start : (or/c exact-nonnegative-integer? 'start) = 'start
  end : (or/c exact-nonnegative-integer? 'end) = 'end
method
(send a-text copy-self-to dest) -> void?
  dest : (or/c (is-a?/c text%) (is-a?/c pasteboard%))
method
(send a-text cut [extend? time start end]) -> void?
  extend? : any/c = #f
  time : exact-integer? = 0
  start : (or/c exact-nonnegative-integer? 'start) = 'start
  end : (or/c exact-nonnegative-integer? 'end) = 'end
method
(send a-text delete start [end scroll-ok?]) -> void?
  start : (or/c exact-nonnegative-integer? 'start)
  end : (or/c exact-nonnegative-integer? 'back) = 'back
  scroll-ok? : any/c = #t
(send a-text delete) -> void?
method
(send a-text do-copy start end time extend?) -> void?
  start : exact-nonnegative-integer?
  end : exact-nonnegative-integer?
  time : exact-integer?
  extend? : any/c
method
(send a-text do-paste start time) -> void?
  start : exact-nonnegative-integer?
  time : exact-integer?
method
(send a-text do-paste-x-selection start     
                                  time) -> void?
  start : exact-nonnegative-integer?
  time : exact-integer?
method
(send a-text erase) -> void?
method
(send a-text extend-position pos) -> void?
  pos : exact-nonnegative-integer?
method
(send a-text find-line y [on-it]) -> exact-nonnegative-integer?
  y : real?
  on-it : (or/c (box/c any/c) #f) = #f
method
(send a-text find-newline [direction 
                           start     
                           end])     
 -> (or/c exact-nonnegative-integer? #f)
  direction : (or/c 'forward 'backward) = 'forward
  start : (or/c exact-nonnegative-integer? 'start) = 'start
  end : (or/c exact-nonnegative-integer? 'eof) = 'eof
method
(send a-text find-next-non-string-snip after)
 -> (or/c (is-a?/c snip%) #f)
  after : (or/c (is-a?/c snip%) #f)
method
(send a-text find-position  x            
                            y            
                           [at-eol       
                            on-it        
                            edge-close]) 
 -> exact-nonnegative-integer?
  x : real?
  y : real?
  at-eol : (or/c (box/c any/c) #f) = #f
  on-it : (or/c (box/c any/c) #f) = #f
  edge-close : (or/c (box/c real?) #f) = #f
method
(send a-text find-position-in-line  line         
                                    x            
                                   [at-eol       
                                    on-it        
                                    edge-close]) 
 -> exact-nonnegative-integer?
  line : exact-nonnegative-integer?
  x : real?
  at-eol : (or/c (box/c any/c) #f) = #f
  on-it : (or/c (box/c any/c) #f) = #f
  edge-close : (or/c (box/c real?) #f) = #f
method
(send a-text find-snip pos direction [s-pos])
 -> (or/c (is-a?/c snip%) #f)
  pos : exact-nonnegative-integer?
  direction : (or/c 'before-or-none 'before 'after 'after-or-none)
  s-pos : (or/c (box/c exact-nonnegative-integer?) #f) = #f
method
(send a-text find-string  str               
                         [direction         
                          start             
                          end               
                          get-start?        
                          case-sensitive?]) 
 -> (or/c exact-nonnegative-integer? #f)
  str : non-empty-string?
  direction : (or/c 'forward 'backward) = 'forward
  start : (or/c exact-nonnegative-integer? 'start) = 'start
  end : (or/c exact-nonnegative-integer? 'eof) = 'eof
  get-start? : any/c = #t
  case-sensitive? : any/c = #t
method
(send a-text find-string-embedded                                  
                                   str                             
                                  [direction                       
                                   start                           
                                   end                             
                                   get-start?                      
                                   case-sensitive?                 
                                   #:recur-inside? recur-inside?]) 
 -> (or/c exact-nonnegative-integer?
          #f
          (cons/c
           (is-a?/c editor<%>)
           (flat-rec-contract
            nested-editor-search-result
            (or/c (cons/c (is-a?/c editor<%>)
                          nested-editor-search-result)
                  exact-nonnegative-integer?))))
  str : non-empty-string?
  direction : (or/c 'forward 'backward) = 'forward
  start : (or/c exact-nonnegative-integer? 'start) = 'start
  end : (or/c exact-nonnegative-integer? 'eof) = 'eof
  get-start? : any/c = #t
  case-sensitive? : any/c = #t
  recur-inside? : (-> (is-a?/c editor-snip%) any/c) = (λ (x) #t)
method
(send a-text find-string-all  str              
                             [direction        
                              start            
                              end              
                              get-start?       
                              case-sensitive]) 
 -> (listof exact-nonnegative-integer?)
  str : non-empty-string?
  direction : (or/c 'forward 'backward) = 'forward
  start : (or/c exact-nonnegative-integer? 'start) = 'start
  end : (or/c exact-nonnegative-integer? 'eof) = 'eof
  get-start? : any/c = #t
  case-sensitive : any/c = #t
method
(send a-text find-string-embedded-all                                  
                                       str                             
                                      [direction                       
                                       start                           
                                       end                             
                                       get-start?                      
                                       case-sensitive                  
                                       #:recur-inside? recur-inside?]) 
 -> (listof (or/c exact-nonnegative-integer?
                  (cons/c
                   (is-a?/c editor<%>)
                   (flat-rec-contract
                    nested-editor-search-result
                    (or/c (cons/c (is-a?/c editor<%>)
                                  nested-editor-search-result)
                          (listof exact-nonnegative-integer?))))))
  str : non-empty-string?
  direction : (or/c 'forward 'backward) = 'forward
  start : (or/c exact-nonnegative-integer? 'start) = 'start
  end : (or/c exact-nonnegative-integer? 'eof) = 'eof
  get-start? : any/c = #t
  case-sensitive : any/c = #t
  recur-inside? : (-> (is-a?/c editor-snip%) any/c) = (λ (x) #t)
method
(send a-text find-wordbreak start       
                            end         
                            reason) -> void?
  start : (or/c (box/c exact-nonnegative-integer?) #f)
  end : (or/c (box/c exact-nonnegative-integer?) #f)
  reason : (or/c 'caret 'line 'selection 'user1 'user2)
method
(send a-text flash-off) -> void?
method
(send a-text flash-on  start         
                       end           
                      [at-eol?       
                       scroll?       
                       timeout]) -> void?
  start : exact-nonnegative-integer?
  end : exact-nonnegative-integer?
  at-eol? : any/c = #f
  scroll? : any/c = #t
  timeout : exact-nonnegative-integer? = 500
method
(send a-text get-anchor) -> boolean?
method
(send a-text get-autowrap-bitmap-width)
 -> (and/c real? (not/c negative?))
method
(send a-text get-between-threshold)
 -> (and/c real? (not/c negative?))
method
(send a-text get-character start) -> char?
  start : exact-nonnegative-integer?
method
(send a-text get-end-position) -> exact-nonnegative-integer?
method
(send a-text get-extend-start-position)
 -> exact-nonnegative-integer?
method
(send a-text get-extend-end-position)
 -> exact-nonnegative-integer?
method
(send a-text get-file-format)
 -> (or/c 'standard 'text 'text-force-cr)
method
(send a-text get-line-spacing)
 -> (and/c real? (not/c negative?))
method
(send a-text get-overwrite-mode) -> boolean?
method
(send a-text get-padding) -> (and/c real? (not/c negative?))
                             (and/c real? (not/c negative?))
                             (and/c real? (not/c negative?))
                             (and/c real? (not/c negative?))
method
(send a-text get-position start [end]) -> void?
  start : (or/c (box/c exact-nonnegative-integer?) #f)
  end : (or/c (box/c exact-nonnegative-integer?) #f) = #f
method
(send a-text get-region-data start end)
 -> (or/c (is-a?/c editor-data%) #f)
  start : exact-nonnegative-integer?
  end : exact-nonnegative-integer?
method
(send a-text get-revision-number)
 -> (and/c real? (not/c negative?))
method
(send a-text get-snip-position snip)
 -> (or/c exact-nonnegative-integer? #f)
  snip : (is-a?/c snip%)
method
(send a-text get-snip-position-and-location  snip     
                                             pos      
                                            [x        
                                             y])  -> boolean?
  snip : (is-a?/c snip%)
  pos : (or/c (box/c exact-nonnegative-integer?) #f)
  x : (or/c (box/c real?) #f) = #f
  y : (or/c (box/c real?) #f) = #f
method
(send a-text get-start-position) -> exact-nonnegative-integer?
method
(send a-text get-styles-sticky) -> boolean?
method
(send a-text get-tabs [length         
                       tab-width      
                       in-units]) -> (listof real?)
  length : (or/c (box/c exact-nonnegative-integer?) #f) = #f
  tab-width : (or/c (box/c real?) #f) = #f
  in-units : (or/c (box/c any/c) #f) = #f
method
(send a-text get-text [start           
                       end             
                       flattened?      
                       force-cr?]) -> string?
  start : exact-nonnegative-integer? = 0
  end : (or/c exact-nonnegative-integer? 'eof) = 'eof
  flattened? : any/c = #f
  force-cr? : any/c = #f
method
(send a-text get-top-line-base)
 -> (and/c real? (not/c negative?))
method
(send a-text get-visible-line-range  start      
                                     end        
                                    [all?]) -> void?
  start : (or/c (box/c exact-nonnegative-integer?) #f)
  end : (or/c (box/c exact-nonnegative-integer?) #f)
  all? : any/c = #t
method
(send a-text get-visible-position-range  start      
                                         end        
                                        [all?]) -> void?
  start : (or/c (box/c exact-nonnegative-integer?) #f)
  end : (or/c (box/c exact-nonnegative-integer?) #f)
  all? : any/c = #t
method
(send a-text get-wordbreak-map)
 -> (or/c (is-a?/c editor-wordbreak-map%) #f)
method
(send a-text grapheme-position n) -> exact-nonnegative-integer?
  n : exact-nonnegative-integer?
method
(send a-text hide-caret hide?) -> void?
  hide? : any/c
method
(send a-text insert  str                   
                     start                 
                    [end                   
                     scroll-ok?            
                     join-graphemes?]) -> void?
  str : string?
  start : exact-nonnegative-integer?
  end : (or/c exact-nonnegative-integer? 'same) = 'same
  scroll-ok? : any/c = #t
  join-graphemes? : any/c = #f
(send a-text insert  n                     
                     str                   
                     start                 
                    [end                   
                     scroll-ok?            
                     join-graphemes?]) -> void?
  n : (and/c exact-nonnegative-integer?
             (<=/c (string-length str)))
  str : string?
  start : exact-nonnegative-integer?
  end : (or/c exact-nonnegative-integer? 'same) = 'same
  scroll-ok? : any/c = #t
  join-graphemes? : any/c = #f
(send a-text insert str) -> void?
  str : string?
(send a-text insert n str [join-graphemes?]) -> void?
  n : (and/c exact-nonnegative-integer?
             (<=/c (string-length str)))
  str : string?
  join-graphemes? : any/c = #f
(send a-text insert  snip             
                     start            
                    [end              
                     scroll-ok?]) -> void?
  snip : (is-a?/c snip%)
  start : exact-nonnegative-integer?
  end : (or/c exact-nonnegative-integer? 'same) = 'same
  scroll-ok? : any/c = #t
(send a-text insert snip) -> void?
  snip : (is-a?/c snip%)
(send a-text insert char) -> void?
  char : char?
(send a-text insert char start [end]) -> void?
  char : char?
  start : exact-nonnegative-integer?
  end : (or/c exact-nonnegative-integer? 'same) = 'same
method
(send a-text kill [time]) -> void?
  time : exact-integer? = 0
(send a-text kill time start end) -> void?
  time : exact-integer?
  start : exact-nonnegative-integer?
  end : exact-nonnegative-integer?
method
(send a-text last-line) -> exact-nonnegative-integer?
method
(send a-text last-paragraph) -> exact-nonnegative-integer?
method
(send a-text last-position) -> exact-nonnegative-integer?
method
(send a-text line-end-position  line       
                               [visible?]) 
 -> exact-nonnegative-integer?
  line : exact-nonnegative-integer?
  visible? : any/c = #t
method
(send a-text line-length i) -> exact-nonnegative-integer?
  i : exact-nonnegative-integer?
method
(send a-text line-location line [top?]) -> real?
  line : exact-nonnegative-integer?
  top? : any/c = #t
method
(send a-text line-paragraph start) -> exact-nonnegative-integer?
  start : exact-nonnegative-integer?
method
(send a-text line-start-position  line       
                                 [visible?]) 
 -> exact-nonnegative-integer?
  line : exact-nonnegative-integer?
  visible? : any/c = #t
method
(send a-text move-position  code        
                           [extend?     
                            kind])  -> void?
  code : (or/c 'home 'end 'right 'left 'up 'down)
  extend? : any/c = #f
  kind : (or/c 'simple 'word 'page 'line) = 'simple
method
(send a-text on-change-style start len) -> void?
  start : exact-nonnegative-integer?
  len : exact-nonnegative-integer?
method
(send a-text on-default-char event) -> void?
  event : (is-a?/c key-event%)
method
(send a-text on-default-event event) -> void?
  event : (is-a?/c mouse-event%)
method
(send a-text on-delete start len) -> void?
  start : exact-nonnegative-integer?
  len : exact-nonnegative-integer?
method
(send a-text on-insert start len) -> void?
  start : exact-nonnegative-integer?
  len : exact-nonnegative-integer?
method
(send a-text on-new-string-snip) -> (is-a?/c string-snip%)
method
(send a-text on-new-tab-snip) -> (is-a?/c tab-snip%)
method
(send a-text on-reflow) -> void?
method
(send a-text on-set-size-constraint) -> void?
method
(send a-text paragraph-end-line paragraph)
 -> exact-nonnegative-integer?
  paragraph : exact-nonnegative-integer?
method
(send a-text paragraph-end-position  paragraph  
                                    [visible?]) 
 -> exact-nonnegative-integer?
  paragraph : exact-nonnegative-integer?
  visible? : any/c = #t
method
(send a-text paragraph-start-line paragraph)
 -> exact-nonnegative-integer?
  paragraph : exact-nonnegative-integer?
method
(send a-text paragraph-start-position  paragraph  
                                      [visible?]) 
 -> exact-nonnegative-integer?
  paragraph : exact-nonnegative-integer?
  visible? : any/c = #t
method
(send a-text paste [time start end]) -> void?
  time : exact-integer? = 0
  start : (or/c exact-nonnegative-integer? 'start 'end) = 'start
  end : (or/c exact-nonnegative-integer? 'same) = 'same
method
(send a-text paste-next) -> void?
method
(send a-text paste-x-selection [time      
                                start     
                                end]) -> void?
  time : exact-integer? = 0
  start : (or/c exact-nonnegative-integer? 'start 'end) = 'start
  end : (or/c exact-nonnegative-integer? 'same) = 'same
method
(send a-text position-grapheme n) -> exact-nonnegative-integer?
  n : exact-nonnegative-integer?
method
(send a-text position-line start [at-eol?])
 -> exact-nonnegative-integer?
  start : exact-nonnegative-integer?
  at-eol? : any/c = #f
method
(send a-text position-location  start             
                               [x                 
                                y                 
                                top?              
                                at-eol?           
                                whole-line?]) -> void?
  start : exact-nonnegative-integer?
  x : (or/c (box/c real?) #f) = #f
  y : (or/c (box/c real?) #f) = #f
  top? : any/c = #t
  at-eol? : any/c = #f
  whole-line? : any/c = #f
method
(send a-text position-locations  start             
                                [top-x             
                                 top-y             
                                 bottom-x          
                                 bottom-y          
                                 at-eol?           
                                 whole-line?]) -> void?
  start : exact-nonnegative-integer?
  top-x : (or/c (box/c real?) #f) = #f
  top-y : (or/c (box/c real?) #f) = #f
  bottom-x : (or/c (box/c real?) #f) = #f
  bottom-y : (or/c (box/c real?) #f) = #f
  at-eol? : any/c = #f
  whole-line? : any/c = #f
method
(send a-text position-paragraph  start     
                                [at-eol?]) 
 -> exact-nonnegative-integer?
  start : exact-nonnegative-integer?
  at-eol? : any/c = #f
method
(send a-text read-from-file  stream                  
                             start                   
                            [overwrite-styles?]) -> boolean?
  stream : (is-a?/c editor-stream-in%)
  start : (or/c exact-nonnegative-integer? 'start)
  overwrite-styles? : any/c = #f
(send a-text read-from-file  stream                  
                            [overwrite-styles?]) -> boolean?
  stream : (is-a?/c editor-stream-in%)
  overwrite-styles? : any/c = #f
method
(send a-text remove-clickback start end) -> void?
  start : exact-nonnegative-integer?
  end : exact-nonnegative-integer?
method
(send a-text scroll-to-position  start       
                                [at-eol?     
                                 end         
                                 bias])  -> boolean?
  start : exact-nonnegative-integer?
  at-eol? : any/c = #f
  end : (or/c exact-nonnegative-integer? 'same) = 'same
  bias : (or/c 'start 'end 'none) = 'none
method
(send a-text set-anchor on?) -> void?
  on? : any/c
method
(send a-text set-autowrap-bitmap bitmap)
 -> (or/c (is-a?/c bitmap%) #f)
  bitmap : (or/c (is-a?/c bitmap%) #f)
method
(send a-text set-between-threshold threshold) -> void?
  threshold : (and/c real? (not/c negative?))
method
(send a-text set-clickback  start               
                            end                 
                            f                   
                           [hilite-delta        
                            call-on-down?]) -> void?
  start : exact-nonnegative-integer?
  end : exact-nonnegative-integer?
  f : (-> (is-a?/c text%)
          exact-nonnegative-integer?
          exact-nonnegative-integer?
          any)
  hilite-delta : (or/c (is-a?/c style-delta%) #f) = #f
  call-on-down? : any/c = #f
method
(send a-text set-file-format format) -> void?
  format : (or/c 'standard 'text 'text-force-cr)
method
(send a-text set-line-spacing space) -> void?
  space : (and/c real? (not/c negative?))
method
(send a-text set-overwrite-mode on?) -> void?
  on? : any/c
method
(send a-text set-padding left        
                         top         
                         right       
                         bottom) -> void?
  left : (and/c real? (not/c negative?))
  top : (and/c real? (not/c negative?))
  right : (and/c real? (not/c negative?))
  bottom : (and/c real? (not/c negative?))
method
(send a-text set-paragraph-alignment paragraph      
                                     alignment) -> void?
  paragraph : exact-nonnegative-integer?
  alignment : (or/c 'left 'center 'right)
method
(send a-text set-paragraph-margins paragraph      
                                   first-left     
                                   left           
                                   right)     -> void?
  paragraph : exact-nonnegative-integer?
  first-left : (and/c real? (not/c negative?))
  left : (and/c real? (not/c negative?))
  right : (and/c real? (not/c negative?))
method
(send a-text set-position  start         
                          [end           
                           at-eol?       
                           scroll?       
                           seltype]) -> void?
  start : exact-nonnegative-integer?
  end : (or/c exact-nonnegative-integer? 'same) = 'same
  at-eol? : any/c = #f
  scroll? : any/c = #t
  seltype : (or/c 'default 'x 'local) = 'default
method
(send a-text set-position-bias-scroll  bias          
                                       start         
                                      [end           
                                       ateol?        
                                       scroll?       
                                       seltype]) -> void?
  bias : (or/c 'start-only 'start 'none 'end 'end-only)
  start : exact-nonnegative-integer?
  end : (or/c exact-nonnegative-integer? 'same) = 'same
  ateol? : any/c = #f
  scroll? : any/c = #t
  seltype : (or/c 'default 'x 'local) = 'default
method
(send a-text set-region-data start end data) -> void?
  start : exact-nonnegative-integer?
  end : exact-nonnegative-integer?
  data : (is-a?/c editor-data%)
method
(send a-text set-styles-sticky sticky?) -> void?
  sticky? : any/c
method
(send a-text set-tabs  tabs            
                      [tab-width       
                       in-units?]) -> void?
  tabs : (listof real?)
  tab-width : real? = 20
  in-units? : any/c = #t
method
(send a-text set-wordbreak-func f) -> void?
  f : ((is-a?/c text%) (or/c (box/c exact-nonnegative-integer?) #f)
                       (or/c (box/c exact-nonnegative-integer?) #f)
                       symbol?
       . -> . any)
method
(send a-text set-wordbreak-map map) -> void?
  map : (or/c (is-a?/c editor-wordbreak-map%) #f)
method
(send a-text split-snip pos) -> void?
  pos : exact-nonnegative-integer?
method
(send a-text write-to-file stream [start end]) -> boolean?
  stream : (is-a?/c editor-stream-out%)
  start : exact-nonnegative-integer? = 0
  end : (or/c exact-nonnegative-integer? 'eof) = 'eof
procedure
(add-editor-keymap-functions keymap) -> void?
  keymap : (is-a?/c keymap%)
procedure
(add-pasteboard-keymap-functions keymap) -> void?
  keymap : (is-a?/c keymap%)
procedure
(add-text-keymap-functions keymap) -> void?
  keymap : (is-a?/c keymap%)
procedure
(append-editor-font-menu-items menu) -> void?
  menu : (or/c (is-a?/c menu%) (is-a?/c popup-menu%))
procedure
(append-editor-operation-menu-items                                    
                                     menu                              
                                    [text-only?                        
                                     #:popup-position popup-position]) 
 -> void?
  menu : (or/c (is-a?/c menu%) (is-a?/c popup-menu%))
  text-only? : any/c = #t
  popup-position : (or/c #f (list/c (is-a?/c text%) exact-nonnegative-integer?))
                 = #f
parameter
(current-text-keymap-initializer)
 -> ((is-a?/c keymap%) . -> . any/c)
(current-text-keymap-initializer proc) -> void?
  proc : ((is-a?/c keymap%) . -> . any/c)
procedure
(editor-set-x-selection-mode on) -> void?
  on : any/c
procedure
(get-the-editor-data-class-list)
 -> (is-a?/c editor-data-class-list<%>)
procedure
(get-the-snip-class-list) -> (is-a?/c snip-class-list<%>)
procedure
(map-command-as-meta-key on?) -> void?
  on? : any/c
(map-command-as-meta-key) -> boolean?
procedure
(open-input-graphical-file filename) -> input-port?
  filename : string?
procedure
(open-input-text-editor                                              
                         text-editor                                 
                        [start-position                              
                         end-position                                
                         snip-filter                                 
                         port-name                                   
                         expect-to-read-all?                         
                         #:lock-while-reading? lock-while-reading?]) 
 -> input-port
  text-editor : (is-a?/c text%)
  start-position : exact-nonnegative-integer? = 0
  end-position : (or/c exact-nonnegative-integer? 'end) = 'end
  snip-filter : ((is-a?/c snip%) . -> . any/c) = (lambda (s) s)
  port-name : any/c = text-editor
  expect-to-read-all? : any/c = #f
  lock-while-reading? : any/c = #f
procedure
(open-output-text-editor  text-editor                   
                         [start-position                
                          special-filter                
                          port-name                     
                          #:eventspace eventspace]) -> output-port
  text-editor : (is-a?/c text%)
  start-position : (or/c exact-nonnegative-integer? (one/of 'end))
                 = 'end
  special-filter : (any/c . -> . any/c) = (lambda (x) x)
  port-name : any/c = text-editor
  eventspace : (or/c eventspace? #f) = (current-eventspace)
procedure
(read-editor-global-footer in) -> boolean?
  in : (is-a?/c editor-stream-in%)
procedure
(read-editor-global-header in) -> boolean?
  in : (is-a?/c editor-stream-in%)
procedure
(read-editor-version  in                  
                      in-base             
                      parse-format?       
                     [raise-errors?]) -> boolean?
  in : (is-a?/c editor-stream-in%)
  in-base : (is-a?/c editor-stream-in-base%)
  parse-format? : any/c
  raise-errors? : any/c = #t
procedure
(text-editor-load-handler [filename]                 
                           expected-module-name) -> any/c
  filename : path = string
  expected-module-name : (or/c symbol? #f)
value
the-editor-wordbreak-map : (is-a?/c editor-wordbreak-map%)
value
the-style-list : (is-a?/c style-list%)
procedure
(write-editor-global-footer out) -> boolean?
  out : (is-a?/c editor-stream-out%)
procedure
(write-editor-global-header out) -> boolean?
  out : (is-a?/c editor-stream-out%)
procedure
(write-editor-version out out-base) -> boolean?
  out : (is-a?/c editor-stream-out%)
  out-base : (is-a?/c editor-stream-out-base%)
procedure
(is-wxme-stream? in) -> boolean?
  in : input-port?
procedure
(wxme-port->text-port in [close?]) -> input-port?
  in : input-port?
  close? : any/c = #t
procedure
(wxme-port->port in [close? snip-filter]) -> input-port?
  in : input-port?
  close? : any/c = #t
  snip-filter : (any/c . -> . any/c) = (lambda (x) x)
procedure
(extract-used-classes in) -> (listof string?) (listof string?)
  in : input-port?
procedure
(register-lib-mapping! str mod-path) -> void?
  str : string?
  mod-path : (cons/c 'lib (listof string?))
procedure
(string->lib-path str gui?)
 -> (or/c (cons/c 'lib (listof string?))
          #f)
  str : string?
  gui? : any/c
parameter
(unknown-extensions-skip-enabled) -> boolean?
(unknown-extensions-skip-enabled skip?) -> void?
  skip? : any/c
parameter
(broken-wxme-big-endian?) -> boolean?
(broken-wxme-big-endian? big?) -> void?
  big? : any/c
procedure
(wxme-read in) -> any/c
  in : input-port?
procedure
(wxme-read-syntax source-v in) -> (or/c syntax? eof-object?)
  source-v : any/c
  in : input-port?
interface
snip-reader<%> : interface?
method
(send a-snip-reader read-header version     
                                stream) -> any
  version : exact-nonnegative-integer?
  stream : (is-a?/c stream<%>)
method
(send a-snip-reader read-snip text-only?     
                              version        
                              stream)    -> (if text-only?
                                                bytes?
                                                any/c)
  text-only? : boolean?
  version : exact-nonnegative-integer?
  stream : (is-a?/c stream<%>)
interface
readable<%> : interface?
method
(send a-readable read-special source        
                              line          
                              column        
                              position) -> any/c
  source : any/c
  line : (or/c exact-nonnegative-integer? #f)
  column : (or/c exact-nonnegative-integer? #f)
  position : (or/c exact-nonnegative-integer? #f)
interface
stream<%> : interface?
method
(send a-stream read-integer what)
 -> (or/c (integer-in (- (expt 2 31)) (expt 2 31))
          (and/c real? inexact?))
  what : any/c
method
(send a-stream read-fixed-integer what) -> exact-integer?
  what : any/c
method
(send a-stream read-inexact what) -> (and/c real? inexact?)
  what : any/c
method
(send a-stream read-raw-bytes what) -> bytes?
  what : any/c
method
(send a-stream read-bytes what) -> bytes?
  what : any/c
method
(send a-stream read-editor what) -> input-port?
  what : any/c
procedure
(read-snip-from-port name who stream) -> bytes?
  name : string?
  who : any/c
  stream : (is-a?/c stream<%>)
class
editor% : class?
  superclass: object%
method
(send an-editor get-content-port) -> input-port?
class
image% : class?
  superclass: image-snip%
method
(send an-image get-data) -> (or/c bytes? #f)
method
(send an-image get-w) -> (or/c exact-nonnegative-integer? -1)
method
(send an-image get-h) -> (or/c exact-nonnegative-integer? -1)
method
(send an-image get-dx) -> exact-integer?
method
(send an-image get-dy) -> exact-integer?
value
reader : (is-a?/c snip-reader<%>)
class
comment-editor% : class?
  superclass: editor%
  extends: readable<%>
method
(send a-comment-editor get-data) -> #f
method
(send a-comment-editor read-special source        
                                    line          
                                    column        
                                    position) -> any/c
  source : any/c
  line : (or/c exact-nonnegative-integer? #f)
  column : (or/c exact-nonnegative-integer? #f)
  position : (or/c exact-nonnegative-integer? #f)
value
reader : (is-a?/c snip-reader<%>)
class
xml-editor% : class?
  superclass: editor%
  extends: readable<%>
method
(send a-xml-editor get-data) -> any/c
method
(send a-xml-editor read-special source        
                                line          
                                column        
                                position) -> any/c
  source : any/c
  line : (or/c exact-nonnegative-integer? #f)
  column : (or/c exact-nonnegative-integer? #f)
  position : (or/c exact-nonnegative-integer? #f)
value
reader : (is-a?/c snip-reader<%>)
class
scheme-editor% : class?
  superclass: editor%
  extends: readable<%>
method
(send a-scheme-editor get-data) -> any/c
method
(send a-scheme-editor read-special source        
                                   line          
                                   column        
                                   position) -> any/c
  source : any/c
  line : (or/c exact-nonnegative-integer? #f)
  column : (or/c exact-nonnegative-integer? #f)
  position : (or/c exact-nonnegative-integer? #f)
value
reader : (is-a?/c snip-reader<%>)
class
text-editor% : class?
  superclass: editor%
  extends: readable<%>
method
(send a-text-editor get-data) -> #f
method
(send a-text-editor read-special source        
                                 line          
                                 column        
                                 position) -> any/c
  source : any/c
  line : (or/c exact-nonnegative-integer? #f)
  column : (or/c exact-nonnegative-integer? #f)
  position : (or/c exact-nonnegative-integer? #f)
value
reader : (is-a?/c snip-reader<%>)
value
reader : (is-a?/c snip-reader<%>)
class
cache-image% : class?
  superclass: object%
method
(send a-cache-image get-argb) -> (vectorof byte?)
method
(send a-cache-image get-width) -> exact-nonnegative-integer?
method
(send a-cache-image get-height) -> exact-nonnegative-integer?
method
(send a-cache-image get-pin-x) -> exact-integer?
method
(send a-cache-image get-pin-y) -> exact-integer?
value
reader : (is-a?/c snip-reader<%>)
class
test-case% : class?
  superclass: object%
method
(send a-test-case get-comment) -> (or/c #f input-port?)
method
(send a-test-case get-test) -> input-port?
method
(send a-test-case get-expected) -> input-port?
method
(send a-test-case get-should-raise) -> (or/c #f input-port?)
method
(send a-test-case get-error-message) -> (or/c #f input-port?)
method
(send a-test-case get-enabled?) -> boolean?
method
(send a-test-case get-collapsed?) -> boolean?
method
(send a-test-case get-error-box?) -> boolean?
procedure
(gui-available?) -> boolean?
procedure
(gui-dynamic-require sym) -> any
  sym : symbol?
