fpc/packages/xforms/examples/colsel.pp

program colsel;

uses xforms;

begin
   fl_initialize(@argc, argv, 'FormDemo', nil, 0);
   fl_show_colormap(0);
end.