Program XColor_Library_ColourRequester_Demo;

{$path "pascal:include/";incl"XColor.lib" }

Var ScreenPointer : ^Screen;
    Dummy         : ^Ptr;
    Palette       : cr_ColourRequester;
    Return        : Long;

Begin

  OpenLib(IntBase,'intuition.library',0);
  OpenLib(XColorBase,'xcolor.library',0);

  { get pointer of first screen / Zeiger auf obersten Screen holen }

  Dummy:=Ptr((Long(IntBase))+60);
  ScreenPointer:=Ptr(Dummy^)



  { put up structure / Struktur erstellen }

  with Palette do begin
  Screen:=ScreenPointer;
  TextColour:=0;
  BackColour:=1;
  GBorderColour:=2;
  GTextColour:=0;
  Flags:=FLAG_NORMAL+FLAG_RGB+FLAG_RMBTRAP;
  LeftEdge:=40;
  TopEdge:=20;
  Font:=NIL;
  DefaultEntries:=0;
  JMPWindow:=NIL;
  JMPMessage:=NIL;
  JMPMode:=NIL;
  JMPDraw:=NIL;
  Mode:=0;
  ScreenTitle:="Palette demo using KICKPASCAL";
  DefaultWTitle:="Palette";
  end;

  RETURN:=COLOURREQUESTER(^Palette);



  CloseLib(IntBase)
  CloseLib(XColorBase)

End.