Fl_Color_Chooser(int X, int Y, int W, int H, const char *L=0);

function Create
       (X, Y, W, H : in Integer;
        Text       : in String)
    return Color_Chooser;

double b() const;

function Get_Blue
       (This : in Color_Chooser)
    return Long_Float;

function Color_Was_Changed
       (This : in Color_Chooser)
    return Boolean;

procedure Clear_Changed
       (This : in out Color_Chooser);

procedure Draw
       (This : in out Color_Chooser);

double g() const;

function Get_Green
       (This : in Color_Chooser)
    return Long_Float;

function Handle
       (This  : in out Color_Chooser;
        Event : in     Event_Kind)
    return Event_Outcome;

int hsv(double H, double S, double V);

procedure Set_HSV
       (This    : in out Color_Chooser;
        H, S, V : in     Long_Float);

double hue() const;

function Get_Hue
       (This : in Color_Chooser)
    return Long_Float;

int mode();

function Get_Mode
       (This : in Color_Chooser)
    return Color_Mode;

void mode(int newMode);

procedure Set_Mode
       (This : in out Color_Chooser;
        To   : in     Color_Mode);

double r() const;

function Get_Red
       (This : in Color_Chooser)
    return Long_Float;

int rgb(double R, double G, double B);

procedure Set_RGB
       (This    : in out Color_Chooser;
        R, G, B : in     Long_Float);

double saturation() const;

function Get_Saturation
       (This : in Color_Chooser)
    return Long_Float;

double value() const;

function Get_Value
       (This : in Color_Chooser)
    return Long_Float;

static void hsv2rgb(double H, double S, double V, double &R, double &G, double &B);

procedure HSV_To_RGB
       (H, S, V : in     Long_Float;
        R, G, B :    out Long_Float);

static void rgb2hsv(double R, double G, double B, double &H, double &S, double &V);

procedure RGB_To_HSV
       (R, G, B : in     Long_Float;
        H, S, V :    out Long_Float);