Private package: GWindows.Internal

Dependencies

with GWindows.Base;
with GWindows.GStrings;
pragma Elaborate_All (GWindows.GStrings);

Description

Internal interfaces to the OS

Header

private package GWindows.Internal is
 

Type Summary

Keyboard_Control
Pointer_To_Keyboard_Control

Variables

Bottom_Keyboard_Control : Pointer_To_Keyboard_Control := null;
Current_hInstance : Interfaces.C.long;
Current hInstance
GWindows_Object_Property_Atom : Interfaces.C.unsigned_short := 0;
Atomized version of custom property
GWindows_Object_Property_Name : GString_C :=
  GWindows.GStrings.To_GString_C ("GWindows_Oject");
Name to use for custom property to hold reference to object
Main_Thread_ID : Interfaces.C.unsigned_long;
Main application thread ID
Top_Keyboard_Control : Pointer_To_Keyboard_Control := null;
Window_Class_Name : GString_C :=
  GWindows.GStrings.To_GString_C ("GWindows_Class");
Class name used for all GWindows windows

Other Items:

function Desktop_Width return Natural;

function Desktop_Height return Natural;

type Keyboard_Control;
--  Full declaration: Keyboard_Control

type Pointer_To_Keyboard_Control is access all Keyboard_Control;

type Keyboard_Control is
   record
      Window : GWindows.Base.Pointer_To_Base_Window_Class := null;
      Next   : Pointer_To_Keyboard_Control := null;
   end record;
--  Incomplete declaration: Keyboard_Control

procedure Add_Keyboard_Control
  (Window : GWindows.Base.Pointer_To_Base_Window_Class);
Add window to list of windows to handle keyboard control

procedure Remove_Keyboard_Control
  (Window : GWindows.Base.Pointer_To_Base_Window_Class);
Add window to list of windows to handle keyboard control
end GWindows.Internal;