{"size": 1290, "ext": "scrbl", "max_stars_repo_path": "gui-doc/scribblings/framework/comment-box.scrbl", "max_stars_repo_name": "jjsimpso/gui", "max_stars_repo_stars_event_min_datetime": "2015-03-17T22:11:52.000Z", "max_stars_repo_stars_event_max_datetime": "2022-03-12T15:09:34.000Z", "max_issues_repo_path": "gui-doc/scribblings/framework/comment-box.scrbl", "max_issues_repo_name": "jjsimpso/gui", "max_issues_repo_issues_event_min_datetime": "2015-01-09T15:53:25.000Z", "max_issues_repo_issues_event_max_datetime": "2022-03-31T16:21:29.000Z", "max_forks_repo_path": "gui-doc/scribblings/framework/comment-box.scrbl", "max_forks_repo_name": "jjsimpso/gui", "max_forks_repo_forks_event_min_datetime": "2015-01-08T13:03:07.000Z", "max_forks_repo_forks_event_max_datetime": "2022-03-26T21:49:09.000Z"}
{"max_stars_count": 65, "max_issues_count": 231, "max_forks_count": 89, "avg_line_length": 36.8571428571, "max_line_length": 95, "alphanum_fraction": 0.6891472868}
#lang scribble/doc
@(require scribble/manual scribble/extract)
@(require (for-label framework))
@(require (for-label scheme/gui))
@title{Comment Box}

@defclass[comment-box:snip% editor-snip:decorated% (readable-snip<%>)]{
  This snip implements the comment boxes that you see in
  DrRacket.

  @defmethod*[#:mode override (((make-editor) (is-a?/c text%)))]{
    Makes an instance of
    @racketblock[(racket:text-mixin text:keymap%)]}

  @defmethod*[#:mode override (((make-snip) (is-a?/c comment-snip%)))]{
    Returns an instance of the @racket[comment-snip%] class.}

  @defmethod*[#:mode override (((get-corner-bitmap) (is-a?/c bitmap%)))]{
    Returns the semicolon bitmap from the file
    @racketblock[(build-path (collection-path "icons") "semicolon.gif")]}

  @defmethod*[#:mode override (((get-position) (symbols (quote left-top) (quote top-right))))]{
    Returns @racket['left-top]}

  @defmethod*[#:mode override (((get-text) string))]{
    Returns the same string as the super method, but with
    newlines replaced by newline-semicolon-space.}

  @defmethod*[#:mode override (((get-menu) (is-a?/c popup-menu%)))]{
    Returns a menu with a single item to change the box into
    semicolon comments.}
}

@(include-previously-extracted "main-extracts.rkt" #rx"^comment-box:")
