find-or-create-pen

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 : exact integer 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 : exact integer 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.