find-or-create-brush in brush-list%

Finds a brush of the given specification, or creates one and adds it to the list.

• (send a-brush-list find-or-create-brush color style) -> brush% object
     color : color% object
     style : symbol in '(transparent solid opaque xor bdiagonal-hatch crossdiag-hatch fdiagonal-hatch cross-hatch horizontal-hatch vertical-hatch)

  See brush%.

  
  

• (send a-brush-list find-or-create-brush color-name style) -> brush% object or #f
   color-name : string
     style : symbol in '(transparent solid opaque xor bdiagonal-hatch crossdiag-hatch fdiagonal-hatch cross-hatch horizontal-hatch vertical-hatch)

  See brush%.

  The return value is #f when no color matching color-name can be found in the color database.