select_color
Entity: function

Usage:
ColorReturn is select_color(ParentWindow, ColorStart)

Invokes a standard select color dialog box using ParentWindow for parent window and ColorStart for start color (selected in the beginning). The new selected color is returned in ColorReturn .

ColorReturn | variable to receive the selected color
ParentWindow | Parent window for the dialog box. Use _ for default.
ColorStart | integer containing a color, you can use rgb to create such integer.

Example:

?-
Color is select_color(_, 0), % 0 is black, 0xffffff is white
brush(Color),
window(_, _, win_func(_), "select_color demo", 100, 100, 200, 200).

win_func(paint) :- ellipse(50,50,150,150).

See also:

rgb