method

(send an-editor-snip:decorated get-corner-bitmap )

→(or/c false/c (is-a?/c bitmap% ))

Returns a bitmap that is drawn in the upper-right corner of this snip.

method

(send an-editor-snip:decorated get-color )

→(or/c string? (is-a?/c color% ))

Returns the color used to draw the background part of the snip.

method

(send an-editor-snip:decorated get-menu )

→(or/c false/c (is-a?/c popup-menu% ))

Returns a popup menu that is used when clicking on the top part of the snip.

method

(send an-editor-snip:decorated get-position )

→(symbols 'top-right'left-top)

Returns the location of the image and the clickable region. The symbol 'top-right indicates top portion is clickable and icon on right. The symbol 'left-top means left portion is clickable and icon on top.

method

(send an-editor-snip:decorated reset-min-sizes )→void?

Sets the minimum sizes based on the result of get-corner-bitmap .

method

(send an-editor-snip:decorated get-corner-bitmap )

→(or/c false/c (is-a?/c bitmap% ))

Returns #f.

method

(send an-editor-snip:decorated get-color )

→(or/c string? (is-a?/c color% ))

Returns

(if (preferences:get 'framework:white-on-black?)

"white"

"black")

method

(send an-editor-snip:decorated get-menu )

→(or/c false/c (is-a?/c popup-menu% ))

Returns #f.

method

(send an-editor-snip:decorated get-position )

→(symbols 'top-right'left-top)

Returns 'top-right.

constructor

( new editor-snip:decorated% ...superclass-args...)

→(is-a?/c editor-snip:decorated% )

Invokes the super constructor with the keyword editor as a call to make-editor .

method

(send an-editor-snip:decorated make-snip )

→(is-a?/c editor-snip:decorated% )

This method should return an instance of the class it is invoked in. If you create a subclass of this class, be sure to override this method and have it create instances of the subclass.

method

(send an-editor-snip:decorated make-editor )

→(is-a?/c editor<%> )

Creates an editor to be used in this snip.

method

(send an-editor-snip:decorated copy )

→(is-a?/c editor-snip:decorated% )

Uses the make-editor and make-snip methods to create a copy of this snip, as follows:

#lang (let ([snip(make-snip)])(send snipset-editor(send (get-editor)copy-self))(send snipset-style(get-style))snip)

method

(send an-editor-snip:decorated-snipclass make-snip stream-in)

→(is-a?/c editor-snip:decorated<%> )

stream-in:(is-a?/c editor-stream-in% )

Returns an instance of editor-snip:decorated% .

method

(send an-editor-snip:decorated-snipclass read stream-in)

→(is-a?/c editor-snip:decorated<%> )

stream-in:(is-a?/c editor-stream-in% )

Calls make-snip to get an object and then invokes its editor<%> ’s read-from-file method in order to read a snip from stream-in, eg:

(let ([snip(make-snipstream-in)])

(send (send snipget-editor)read-from-filestream-in#f)

snip)