nichkara/lace
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

gel.window: Add support for a Gtk window.

Browse Source
This commit is contained in:
Rod Kay
2023-11-03 15:21:29 +11:00
parent 6a1d544e10
commit 0b4d19522b
17 changed files with 1340 additions and 26 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
4-high/gel/source/applet/gel-applet.adb
View File

@@ -31,6 +31,14 @@ is
procedure my_context_Clearer
is
begin
global_Window.disable_GL;
end my_context_Clearer;
procedure my_Swapper
is
begin
@@ -96,7 +104,8 @@ is
Self.Window.disable_GL;
Self.Renderer.Context_Setter_is (my_context_Setter'unrestricted_Access);
Self.Renderer.Context_Setter_is (my_context_Setter 'unrestricted_Access);
Self.Renderer.Context_Clearer_is (my_context_Clearer'unrestricted_Access);
Self.Renderer.start_Engine;
Self.Renderer.add_Font (Self. Font);
@@ -428,6 +437,7 @@ is
begin
Self.Window.emit_Events;
Self.Window.freshen;
Self.Window.swap_GL;
Self .respond;