4 Close Icon

(require mrlib/close-icon)

The close-icon% class provides a clickable close button icon.

close-icon% : class?

superclass: canvas%

(new close-icon%   [parent parent]      [ [callback callback]       [horizontal-pad horizontal-pad]       [vertical-pad vertical-pad]])

→ (is-a?/c close-icon%)

parent : (is-a? area-container<%>)

callback : (-> any) = void

horizontal-pad : positive-integer? = 4

vertical-pad : positive-integer? = 4

The callback is called when the close icon is clicked.