TFPgtkButton

type TFPgtkButton = class(TFPgtkBin)

protected

  procedure CreateGtkObject; override;

  function LabelClass; virtual;

  procedure NotifyDestroy(); override;

  procedure LabelCreated; virtual;

public

  function TheGtkObject;

  function ConnectClicked();

  function ConnectAfterClicked();

  function ConnectPressed();

  function ConnectAfterPressed();

  function ConnectReleased();

  function ConnectAfterReleased();

  function ConnectEnter();

  function ConnectAfterEnter();

  function ConnectLeave();

  function ConnectAfterLeave();

  procedure Clicked;

  procedure Pressed;

  procedure Released;

  procedure Enter;

  procedure Leave;

  constructor Create;

  constructor CreateWithLabel();

  property TheLabel: TFPgtkLabel; [r]

  property Text: string; [rw]

  property ReliefStyle: TGtkReliefStyle; [rw]

  property AddContainer: TFPgtkContainer; [rw]

  property AccelKey: guint; [r]

end;

TFPgtkButton

TFPgtkBin

TFPgtkContainer

TFPgtkWidget

TFPgtkObject

TObject