find-or-create-pen in pen-list%

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

• (send a-pen-list find-or-create-pen color width style) -> pen% object
     color : color% object
     width : real number in [0, 255]
     style : symbol in '(transparent solid xor dot long-dash short-dash dot-dash xor-dot xor-long-dash xor-short-dash xor-dot-dash)

  See pen%.

  
  

• (send a-pen-list find-or-create-pen color-name width style) -> pen% object or #f
   color-name : string
     width : real number in [0, 255]
     style : symbol in '(transparent solid xor dot long-dash short-dash dot-dash xor-dot xor-long-dash xor-short-dash xor-dot-dash)

  See pen%.

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