<?xml version="1.0"?>
<paste-with-annotations>
  <paste>
    <number>
      <integer>48646</integer>
    </number>
    <user>
      <string>turbo24prg</string>
    </user>
    <title>
      <string>c++ constructors</string>
    </title>
    <contents>
      <string>
  class SColor
  {
  public:

    //! Constructor of the Color. Does nothing. The color value
    //! is not initialized to save time.
    inline SColor() {}

    //! Constructs the color from 4 values representing the alpha, red, green and
    //! blue components of the color. Must be values between 0 and 255.
    inline SColor (u32 a, u32 r, u32 g, u32 b)
      : color(((a &amp; 0xff)&lt;&lt;24) | ((r &amp; 0xff)&lt;&lt;16) | ((g &amp; 0xff)&lt;&lt;8) | (b &amp; 0xff)) {}

    //! Constructs the color from a 32 bit value. Could be another color.
    inline SColor(u32 clr)
      : color(clr) {}
 ...

=&gt;

 define C-function new_SColor
  c-name: &quot;_wrap_new_SColor__SWIG_0&quot;;
  result _result :: :pointer;
end;

define C-function new_SColor
  c-name: &quot;_wrap_new_SColor__SWIG_1&quot;;
  result _result :: :pointer;
  parameter a :: :pointer;
  parameter r :: :pointer;
  parameter g :: :pointer;
  parameter b :: :pointer;
end;

define C-function new_SColor
  c-name: &quot;_wrap_new_SColor__SWIG_2&quot;;
  result _result :: :pointer;
  parameter clr :: :pointer;
end;

=&gt; 

define class &lt;irr-video-scolor&gt; (&lt;c++-class&gt;) end;

define method initialize (object :: &lt;irr-video-scolor&gt;, #key )
  object.foreign-object := new_SColor();
end;
  
define method initialize (object :: &lt;irr-video-scolor&gt;, #key a, r, g, b)
  object.foreign-object := new_SColor(a, r, g, b);
end;
  
define method initialize (object :: &lt;irr-video-scolor&gt;, #key clr)
  object.foreign-object := new_SColor(clr);
end;
</string>
    </contents>
    <universal-time>
      <integer>3400502788</integer>
    </universal-time>
    <channel>
      <string>#dylan</string>
    </channel>
    <colorization-mode>
      <string></string>
    </colorization-mode>
    <maybe-spam>
      <null/>
    </maybe-spam>
    <is-unicode>
      <null/>
    </is-unicode>
  </paste>
</paste-with-annotations>