▼ |  | Framework: Racket GUI Application Framework

1 | Application
2 | Autosave
3 | Canvas
4 | Color Model
5 | Color Prefs
6 | Color
7 | Comment Box
8 | Editor Snip
9 | Editor
10 | Exit
11 | Finder
12 | Frame
13 | Group
14 | GUI Utilities
15 | Handler
16 | Icon
17 | Keymap
18 | Menu
19 | Mode
20 | Number Snip
21 | Panel
22 | Pasteboard
23 | Path Utils
24 | Preferences
25 | Preferences, Textual
26 | Racket
27 | Text
28 | Splash
29 | Test
30 | Version
| Index

On this page:

comment-box: snip%
make-editor
make-snip
get-corner-bitmap
get-position
get-text
get-menu

top ← prev up next →

### 7`` Comment Box

comment-box:snip% : class?
superclass: editor-snip:decorated%

extends: | readable-snip<%>

This snip implements the comment boxes that you see in DrRacket.

> ( send a-comment-box:snip make-editor ) → ( is-a?/c text% )

> Overrides make-editor in editor-snip:decorated%.
> Makes an instance of
> ( scheme:text-mixin text:keymap% )

> ( send a-comment-box:snip make-snip ) → ( is-a?/c comment-snip%)

> Overrides make-snip in editor-snip:decorated%.
> Returns an instance of the comment-snip% class.

> ( send a-comment-box:snip get-corner-bitmap )
> → ( is-a?/c bitmap% )

> Overrides get-corner-bitmap in editor-snip:decorated-mixin.
> Returns the semicolon bitmap from the file
> ( build-path ( collection-path "icons") "semicolon.gif")

> ( send a-comment-box:snip get-position )
> → ( symbols 'left-top 'top-right)

> Overrides get-position in editor-snip:decorated-mixin.
> Returns 'left-top

> ( send a-comment-box:snip get-text ) → string

> Overrides get-text in snip%.
> Returns the same string as the super method, but with newlines replaced by newline-semicolon-space.

> ( send a-comment-box:snip get-menu ) → ( is-a?/c popup-menu% )

> Overrides get-menu in editor-snip:decorated-mixin.
> Returns a menu with a single item to change the box into semicolon comments.

top ← prev up next →