▼ |  | Framework: PLT 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 | Scheme
27 | Text
28 | Test
29 | Version
| Index

On this page:

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

Version: 4.1.4
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 DrScheme.

> (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 →