Gtkada.Application

Description

This object adds support for opening files from OS commands, using the standard Glib Application mechanism for opening those files.

This requires some support that is system-specific:

On windows, this registers a DDE server using the application's Id as name. So for example com.adacore.TestGtk will register a DDE server whose name is TestGtk.

On OSX, this requires the application to be part of a bundle. This bundle needs to declare the file patterns that are supported by the application.

<group>Layout containers</group>

Cb_Gtkada_Application_Files

type Cb_Gtkada_Application_Files is access procedure
  (Application : Gtkada_Application;
   Files       : GFile_Array);

Parameters

Application

Files

Get_Path

function Get_Path (File : GFile) return UTF8_String

Parameters

File

Return Value

GFile

type GFile is private;

GFile_Array

type GFile_Array is array (Positive range <>) of GFile;

Gtk_Application_New

function Gtk_Application_New
   (Application_Id : UTF8_String := "";
    Flags          : Glib.Application.GApplication_Flags;
    Gtkada_Flags   : Gtkada_Application_Flags)
    return Gtkada_Application

Parameters

Application_Id

Flags

Gtkada_Flags

Return Value

Gtk_New

procedure Gtk_New
   (Self           : out Gtkada_Application;
    Application_Id : UTF8_String := "";
    Flags          : Glib.Application.GApplication_Flags;
    Gtkada_Flags   : Gtkada_Application_Flags)

Parameters

Self

Application_Id

Flags

Gtkada_Flags

Gtkada_Application

type Gtkada_Application is access all Gtkada_Application_Record'Class;

Gtkada_Application_Flags

type Gtkada_Application_Flags is mod 2 ** Integer'Size;

Flags used to define the behaviour of a Glib.Application.Gapplication.

Gtkada_Application_Flags_None

Gtkada_Application_Flags_None     : constant Gtkada_Application_Flags := 0;

Gtkada_Application_Handles_Open

Gtkada_Application_Handles_Open   : constant Gtkada_Application_Flags := 1;

Gtkada_Application_OSX_FullScreen

Gtkada_Application_OSX_FullScreen : constant Gtkada_Application_Flags := 2;

Gtkada_Application_Record

type Gtkada_Application_Record is new Gtk_Application_Record
  with private;

Initialize

procedure Initialize
   (Self           : not null access Gtkada_Application_Record'Class;
    Application_Id : UTF8_String := "";
    Flags          : Glib.Application.GApplication_Flags;
    Gtkada_Flags   : Gtkada_Application_Flags)

Parameters

Self

Application_Id

Flags

Gtkada_Flags

On_Open

procedure On_Open
  (Self      : not null access Gtkada_Application_Record;
   Call      : Cb_Gtkada_Application_Files)

Parameters

Self

Call