/
gdk-auto.f90
6624 lines (5938 loc) · 210 KB
/
gdk-auto.f90
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799
800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
816
817
818
819
820
821
822
823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
838
839
840
841
842
843
844
845
846
847
848
849
850
851
852
853
854
855
856
857
858
859
860
861
862
863
864
865
866
867
868
869
870
871
872
873
874
875
876
877
878
879
880
881
882
883
884
885
886
887
888
889
890
891
892
893
894
895
896
897
898
899
900
901
902
903
904
905
906
907
908
909
910
911
912
913
914
915
916
917
918
919
920
921
922
923
924
925
926
927
928
929
930
931
932
933
934
935
936
937
938
939
940
941
942
943
944
945
946
947
948
949
950
951
952
953
954
955
956
957
958
959
960
961
962
963
964
965
966
967
968
969
970
971
972
973
974
975
976
977
978
979
980
981
982
983
984
985
986
987
988
989
990
991
992
993
994
995
996
997
998
999
1000
! Do not modify this file automatically generated by cfwrapper.py using:
! gtk-fortran 4.6.0, GTK 4.14.2, GLib 2.80.0, Fedora 40 x86_64
! This file is part of the gtk-fortran library, distributed under
! GNU General Public License version 3.
module gdk
use, intrinsic :: iso_c_binding
implicit none
interface
!--------------------------------------------------
! /usr/include/gtk-4.0/gdk/gdkseat.h
!--------------------------------------------------
! GDK_AVAILABLE_IN_ALL
!GType gdk_seat_get_type (void) ;
function gdk_seat_get_type() bind(c)
import :: c_size_t
implicit none
integer(c_size_t) :: gdk_seat_get_type
end function
! GDK_AVAILABLE_IN_ALL
!GdkDisplay * gdk_seat_get_display (GdkSeat *seat);
function gdk_seat_get_display(seat) bind(c)
import :: c_ptr
implicit none
type(c_ptr) :: gdk_seat_get_display
type(c_ptr), value :: seat
end function
!
!GdkSeatCapabilities gdk_seat_get_capabilities (GdkSeat *seat);
function gdk_seat_get_capabilities(seat) bind(c)
import :: c_int, c_ptr
implicit none
integer(c_int) :: gdk_seat_get_capabilities
type(c_ptr), value :: seat
end function
! GDK_AVAILABLE_IN_ALL
!GList * gdk_seat_get_devices (GdkSeat *seat, GdkSeatCapabilities capabilities);
function gdk_seat_get_devices(seat, capabilities) bind(c)
import :: c_ptr, c_int
implicit none
type(c_ptr) :: gdk_seat_get_devices
type(c_ptr), value :: seat
integer(c_int), value :: capabilities
end function
! GDK_AVAILABLE_IN_ALL
!GList * gdk_seat_get_tools (GdkSeat *seat);
function gdk_seat_get_tools(seat) bind(c)
import :: c_ptr
implicit none
type(c_ptr) :: gdk_seat_get_tools
type(c_ptr), value :: seat
end function
! GDK_AVAILABLE_IN_ALL
!GdkDevice * gdk_seat_get_pointer (GdkSeat *seat);
function gdk_seat_get_pointer(seat) bind(c)
import :: c_ptr
implicit none
type(c_ptr) :: gdk_seat_get_pointer
type(c_ptr), value :: seat
end function
! GDK_AVAILABLE_IN_ALL
!GdkDevice * gdk_seat_get_keyboard (GdkSeat *seat);
function gdk_seat_get_keyboard(seat) bind(c)
import :: c_ptr
implicit none
type(c_ptr) :: gdk_seat_get_keyboard
type(c_ptr), value :: seat
end function
!--------------------------------------------------
! /usr/include/gtk-4.0/gdk/gdkcairo.h
!--------------------------------------------------
! GDK_AVAILABLE_IN_ALL
!void gdk_cairo_set_source_rgba (cairo_t *cr, const GdkRGBA *rgba);
subroutine gdk_cairo_set_source_rgba(cr, rgba) bind(c)
import :: c_ptr
implicit none
type(c_ptr), value :: cr
type(c_ptr), value :: rgba
end subroutine
! GDK_AVAILABLE_IN_ALL
!void gdk_cairo_set_source_pixbuf (cairo_t *cr, const GdkPixbuf *pixbuf, double pixbuf_x, double pixbuf_y);
subroutine gdk_cairo_set_source_pixbuf(cr, pixbuf, pixbuf_x, pixbuf_y) bind(c)
import :: c_ptr, c_double
implicit none
type(c_ptr), value :: cr
type(c_ptr), value :: pixbuf
real(c_double), value :: pixbuf_x
real(c_double), value :: pixbuf_y
end subroutine
! GDK_AVAILABLE_IN_ALL
!void gdk_cairo_rectangle (cairo_t *cr, const GdkRectangle *rectangle);
subroutine gdk_cairo_rectangle(cr, rectangle) bind(c)
import :: c_ptr
implicit none
type(c_ptr), value :: cr
type(c_ptr), value :: rectangle
end subroutine
! GDK_AVAILABLE_IN_ALL
!void gdk_cairo_region (cairo_t *cr, const cairo_region_t *region);
subroutine gdk_cairo_region(cr, region) bind(c)
import :: c_ptr
implicit none
type(c_ptr), value :: cr
type(c_ptr), value :: region
end subroutine
!
!cairo_region_t * gdk_cairo_region_create_from_surface (cairo_surface_t *surface);
function gdk_cairo_region_create_from_surface(surface) bind(c)
import :: c_ptr
implicit none
type(c_ptr) :: gdk_cairo_region_create_from_surface
type(c_ptr), value :: surface
end function
! GDK_DEPRECATED_IN_4_6_FOR(gdk_gl_texture_new)
!void gdk_cairo_draw_from_gl (cairo_t *cr, GdkSurface *surface, int source, int source_type, int buffer_scale, int x, int y, int width, int height);
subroutine gdk_cairo_draw_from_gl(cr, surface, source, source_type,&
& buffer_scale, x, y, width, height) bind(c)
import :: c_ptr, c_int
implicit none
type(c_ptr), value :: cr
type(c_ptr), value :: surface
integer(c_int), value :: source
integer(c_int), value :: source_type
integer(c_int), value :: buffer_scale
integer(c_int), value :: x
integer(c_int), value :: y
integer(c_int), value :: width
integer(c_int), value :: height
end subroutine
!--------------------------------------------------
! /usr/include/gtk-4.0/gdk/gdkgltexture.h
!--------------------------------------------------
! GDK_AVAILABLE_IN_ALL
!GType gdk_gl_texture_get_type (void) ;
function gdk_gl_texture_get_type() bind(c)
import :: c_size_t
implicit none
integer(c_size_t) :: gdk_gl_texture_get_type
end function
! GDK_DEPRECATED_IN_4_12_FOR(GdkGLTextureBuilder)
!GdkTexture * gdk_gl_texture_new (GdkGLContext *context, guint id, int width, int height, GDestroyNotify destroy, gpointer data);
function gdk_gl_texture_new(context, id, width, height, destroy, data) bind(c)
import :: c_ptr, c_int, c_funptr
implicit none
type(c_ptr) :: gdk_gl_texture_new
type(c_ptr), value :: context
integer(c_int), value :: id
integer(c_int), value :: width
integer(c_int), value :: height
type(c_funptr), value :: destroy
type(c_ptr), value :: data
end function
! GDK_AVAILABLE_IN_ALL
!void gdk_gl_texture_release (GdkGLTexture *self);
subroutine gdk_gl_texture_release(self) bind(c)
import :: c_ptr
implicit none
type(c_ptr), value :: self
end subroutine
!--------------------------------------------------
! /usr/include/gtk-4.0/gdk/gdksurface.h
!--------------------------------------------------
! GDK_AVAILABLE_IN_ALL
!GType gdk_surface_get_type (void) ;
function gdk_surface_get_type() bind(c)
import :: c_size_t
implicit none
integer(c_size_t) :: gdk_surface_get_type
end function
! GDK_AVAILABLE_IN_ALL
!GdkSurface * gdk_surface_new_toplevel (GdkDisplay *display);
function gdk_surface_new_toplevel(display) bind(c)
import :: c_ptr
implicit none
type(c_ptr) :: gdk_surface_new_toplevel
type(c_ptr), value :: display
end function
! GDK_AVAILABLE_IN_ALL
!GdkSurface * gdk_surface_new_popup (GdkSurface *parent, gboolean autohide);
function gdk_surface_new_popup(parent, autohide) bind(c)
import :: c_ptr, c_int
implicit none
type(c_ptr) :: gdk_surface_new_popup
type(c_ptr), value :: parent
integer(c_int), value :: autohide
end function
! GDK_AVAILABLE_IN_ALL
!void gdk_surface_destroy (GdkSurface *surface);
subroutine gdk_surface_destroy(surface) bind(c)
import :: c_ptr
implicit none
type(c_ptr), value :: surface
end subroutine
! GDK_AVAILABLE_IN_ALL
!gboolean gdk_surface_is_destroyed (GdkSurface *surface);
function gdk_surface_is_destroyed(surface) bind(c)
import :: c_int, c_ptr
implicit none
integer(c_int) :: gdk_surface_is_destroyed
type(c_ptr), value :: surface
end function
! GDK_AVAILABLE_IN_ALL
!GdkDisplay * gdk_surface_get_display (GdkSurface *surface);
function gdk_surface_get_display(surface) bind(c)
import :: c_ptr
implicit none
type(c_ptr) :: gdk_surface_get_display
type(c_ptr), value :: surface
end function
! GDK_AVAILABLE_IN_ALL
!void gdk_surface_hide (GdkSurface *surface);
subroutine gdk_surface_hide(surface) bind(c)
import :: c_ptr
implicit none
type(c_ptr), value :: surface
end subroutine
! GDK_AVAILABLE_IN_ALL
!void gdk_surface_set_input_region (GdkSurface *surface, cairo_region_t *region);
subroutine gdk_surface_set_input_region(surface, region) bind(c)
import :: c_ptr
implicit none
type(c_ptr), value :: surface
type(c_ptr), value :: region
end subroutine
! GDK_AVAILABLE_IN_ALL
!gboolean gdk_surface_get_mapped (GdkSurface *surface);
function gdk_surface_get_mapped(surface) bind(c)
import :: c_int, c_ptr
implicit none
integer(c_int) :: gdk_surface_get_mapped
type(c_ptr), value :: surface
end function
! GDK_AVAILABLE_IN_ALL
!void gdk_surface_set_cursor (GdkSurface *surface, GdkCursor *cursor);
subroutine gdk_surface_set_cursor(surface, cursor) bind(c)
import :: c_ptr
implicit none
type(c_ptr), value :: surface
type(c_ptr), value :: cursor
end subroutine
! GDK_AVAILABLE_IN_ALL
!GdkCursor *gdk_surface_get_cursor (GdkSurface *surface);
function gdk_surface_get_cursor(surface) bind(c)
import :: c_ptr
implicit none
type(c_ptr) :: gdk_surface_get_cursor
type(c_ptr), value :: surface
end function
! GDK_AVAILABLE_IN_ALL
!void gdk_surface_set_device_cursor (GdkSurface *surface, GdkDevice *device, GdkCursor *cursor);
subroutine gdk_surface_set_device_cursor(surface, device, cursor) bind(c)
import :: c_ptr
implicit none
type(c_ptr), value :: surface
type(c_ptr), value :: device
type(c_ptr), value :: cursor
end subroutine
! GDK_AVAILABLE_IN_ALL
!GdkCursor *gdk_surface_get_device_cursor (GdkSurface *surface, GdkDevice *device);
function gdk_surface_get_device_cursor(surface, device) bind(c)
import :: c_ptr
implicit none
type(c_ptr) :: gdk_surface_get_device_cursor
type(c_ptr), value :: surface
type(c_ptr), value :: device
end function
! GDK_AVAILABLE_IN_ALL
!int gdk_surface_get_width (GdkSurface *surface);
function gdk_surface_get_width(surface) bind(c)
import :: c_int, c_ptr
implicit none
integer(c_int) :: gdk_surface_get_width
type(c_ptr), value :: surface
end function
! GDK_AVAILABLE_IN_ALL
!int gdk_surface_get_height (GdkSurface *surface);
function gdk_surface_get_height(surface) bind(c)
import :: c_int, c_ptr
implicit none
integer(c_int) :: gdk_surface_get_height
type(c_ptr), value :: surface
end function
! GDK_AVAILABLE_IN_ALL
!gboolean gdk_surface_translate_coordinates (GdkSurface *from, GdkSurface *to, double *x, double *y);
function gdk_surface_translate_coordinates(from, to, x, y) bind(c)
import :: c_int, c_ptr
implicit none
integer(c_int) :: gdk_surface_translate_coordinates
type(c_ptr), value :: from
type(c_ptr), value :: to
type(c_ptr), value :: x
type(c_ptr), value :: y
end function
! GDK_AVAILABLE_IN_ALL
!int gdk_surface_get_scale_factor (GdkSurface *surface);
function gdk_surface_get_scale_factor(surface) bind(c)
import :: c_int, c_ptr
implicit none
integer(c_int) :: gdk_surface_get_scale_factor
type(c_ptr), value :: surface
end function
! GDK_AVAILABLE_IN_4_12
!double gdk_surface_get_scale (GdkSurface *surface);
function gdk_surface_get_scale(surface) bind(c)
import :: c_double, c_ptr
implicit none
real(c_double) :: gdk_surface_get_scale
type(c_ptr), value :: surface
end function
! GDK_AVAILABLE_IN_ALL
!gboolean gdk_surface_get_device_position (GdkSurface *surface, GdkDevice *device, double *x, double *y, GdkModifierType *mask);
function gdk_surface_get_device_position(surface, device, x, y, mask) bind(c)
import :: c_int, c_ptr
implicit none
integer(c_int) :: gdk_surface_get_device_position
type(c_ptr), value :: surface
type(c_ptr), value :: device
type(c_ptr), value :: x
type(c_ptr), value :: y
integer(c_int), value :: mask
end function
!
!cairo_surface_t * gdk_surface_create_similar_surface (GdkSurface *surface, cairo_content_t content, int width, int height);
function gdk_surface_create_similar_surface(surface, content, width, height)&
& bind(c)
import :: c_ptr, c_int
implicit none
type(c_ptr) :: gdk_surface_create_similar_surface
type(c_ptr), value :: surface
integer(c_int), value :: content
integer(c_int), value :: width
integer(c_int), value :: height
end function
! GDK_AVAILABLE_IN_ALL
!void gdk_surface_beep (GdkSurface *surface);
subroutine gdk_surface_beep(surface) bind(c)
import :: c_ptr
implicit none
type(c_ptr), value :: surface
end subroutine
! GDK_AVAILABLE_IN_ALL
!void gdk_surface_queue_render (GdkSurface *surface);
subroutine gdk_surface_queue_render(surface) bind(c)
import :: c_ptr
implicit none
type(c_ptr), value :: surface
end subroutine
! GDK_AVAILABLE_IN_ALL
!void gdk_surface_request_layout (GdkSurface *surface);
subroutine gdk_surface_request_layout(surface) bind(c)
import :: c_ptr
implicit none
type(c_ptr), value :: surface
end subroutine
! GDK_AVAILABLE_IN_ALL
!GdkFrameClock* gdk_surface_get_frame_clock (GdkSurface *surface);
function gdk_surface_get_frame_clock(surface) bind(c)
import :: c_ptr
implicit none
type(c_ptr) :: gdk_surface_get_frame_clock
type(c_ptr), value :: surface
end function
! GDK_AVAILABLE_IN_ALL
!void gdk_surface_set_opaque_region (GdkSurface *surface, cairo_region_t *region);
subroutine gdk_surface_set_opaque_region(surface, region) bind(c)
import :: c_ptr
implicit none
type(c_ptr), value :: surface
type(c_ptr), value :: region
end subroutine
! GDK_AVAILABLE_IN_ALL
!GdkCairoContext *gdk_surface_create_cairo_context(GdkSurface *surface);
function gdk_surface_create_cairo_context(surface) bind(c)
import :: c_ptr
implicit none
type(c_ptr) :: gdk_surface_create_cairo_context
type(c_ptr), value :: surface
end function
! GDK_AVAILABLE_IN_ALL
!GdkGLContext * gdk_surface_create_gl_context (GdkSurface *surface, GError **error);
function gdk_surface_create_gl_context(surface, error) bind(c)
import :: c_ptr
implicit none
type(c_ptr) :: gdk_surface_create_gl_context
type(c_ptr), value :: surface
type(c_ptr), value :: error
end function
!
!GdkVulkanContext * gdk_surface_create_vulkan_context(GdkSurface *surface, GError **error);
function gdk_surface_create_vulkan_context(surface, error) bind(c)
import :: c_ptr
implicit none
type(c_ptr) :: gdk_surface_create_vulkan_context
type(c_ptr), value :: surface
type(c_ptr), value :: error
end function
!--------------------------------------------------
! /usr/include/gtk-4.0/gdk/gdkdisplay.h
!--------------------------------------------------
! GDK_AVAILABLE_IN_ALL
!GType gdk_display_get_type (void) ;
function gdk_display_get_type() bind(c)
import :: c_size_t
implicit none
integer(c_size_t) :: gdk_display_get_type
end function
! GDK_AVAILABLE_IN_ALL
!GdkDisplay *gdk_display_open (const char *display_name);
function gdk_display_open(display_name) bind(c)
import :: c_ptr, c_char
implicit none
type(c_ptr) :: gdk_display_open
character(kind=c_char), dimension(*) :: display_name
end function
! GDK_AVAILABLE_IN_ALL
!const char * gdk_display_get_name (GdkDisplay *display);
function gdk_display_get_name(display) bind(c)
import :: c_ptr
implicit none
type(c_ptr) :: gdk_display_get_name
type(c_ptr), value :: display
end function
! GDK_AVAILABLE_IN_ALL
!gboolean gdk_display_device_is_grabbed (GdkDisplay *display, GdkDevice *device);
function gdk_display_device_is_grabbed(display, device) bind(c)
import :: c_int, c_ptr
implicit none
integer(c_int) :: gdk_display_device_is_grabbed
type(c_ptr), value :: display
type(c_ptr), value :: device
end function
! GDK_AVAILABLE_IN_ALL
!void gdk_display_beep (GdkDisplay *display);
subroutine gdk_display_beep(display) bind(c)
import :: c_ptr
implicit none
type(c_ptr), value :: display
end subroutine
! GDK_AVAILABLE_IN_ALL
!void gdk_display_sync (GdkDisplay *display);
subroutine gdk_display_sync(display) bind(c)
import :: c_ptr
implicit none
type(c_ptr), value :: display
end subroutine
! GDK_AVAILABLE_IN_ALL
!void gdk_display_flush (GdkDisplay *display);
subroutine gdk_display_flush(display) bind(c)
import :: c_ptr
implicit none
type(c_ptr), value :: display
end subroutine
! GDK_AVAILABLE_IN_ALL
!void gdk_display_close (GdkDisplay *display);
subroutine gdk_display_close(display) bind(c)
import :: c_ptr
implicit none
type(c_ptr), value :: display
end subroutine
! GDK_AVAILABLE_IN_ALL
!gboolean gdk_display_is_closed (GdkDisplay *display);
function gdk_display_is_closed(display) bind(c)
import :: c_int, c_ptr
implicit none
integer(c_int) :: gdk_display_is_closed
type(c_ptr), value :: display
end function
! GDK_AVAILABLE_IN_ALL
!gboolean gdk_display_is_composited (GdkDisplay *display);
function gdk_display_is_composited(display) bind(c)
import :: c_int, c_ptr
implicit none
integer(c_int) :: gdk_display_is_composited
type(c_ptr), value :: display
end function
! GDK_AVAILABLE_IN_ALL
!gboolean gdk_display_is_rgba (GdkDisplay *display);
function gdk_display_is_rgba(display) bind(c)
import :: c_int, c_ptr
implicit none
integer(c_int) :: gdk_display_is_rgba
type(c_ptr), value :: display
end function
! GDK_AVAILABLE_IN_4_14
!gboolean gdk_display_supports_shadow_width (GdkDisplay *display);
function gdk_display_supports_shadow_width(display) bind(c)
import :: c_int, c_ptr
implicit none
integer(c_int) :: gdk_display_supports_shadow_width
type(c_ptr), value :: display
end function
! GDK_AVAILABLE_IN_ALL
!gboolean gdk_display_supports_input_shapes (GdkDisplay *display);
function gdk_display_supports_input_shapes(display) bind(c)
import :: c_int, c_ptr
implicit none
integer(c_int) :: gdk_display_supports_input_shapes
type(c_ptr), value :: display
end function
! GDK_AVAILABLE_IN_4_4
!gboolean gdk_display_prepare_gl (GdkDisplay *self, GError **error);
function gdk_display_prepare_gl(self, error) bind(c)
import :: c_int, c_ptr
implicit none
integer(c_int) :: gdk_display_prepare_gl
type(c_ptr), value :: self
type(c_ptr), value :: error
end function
! GDK_AVAILABLE_IN_4_6
!GdkGLContext *gdk_display_create_gl_context(GdkDisplay *self, GError **error);
function gdk_display_create_gl_context(self, error) bind(c)
import :: c_ptr
implicit none
type(c_ptr) :: gdk_display_create_gl_context
type(c_ptr), value :: self
type(c_ptr), value :: error
end function
! GDK_AVAILABLE_IN_ALL
!GdkDisplay *gdk_display_get_default (void);
function gdk_display_get_default() bind(c)
import :: c_ptr
implicit none
type(c_ptr) :: gdk_display_get_default
end function
! GDK_AVAILABLE_IN_ALL
!GdkClipboard * gdk_display_get_clipboard (GdkDisplay *display);
function gdk_display_get_clipboard(display) bind(c)
import :: c_ptr
implicit none
type(c_ptr) :: gdk_display_get_clipboard
type(c_ptr), value :: display
end function
! GDK_AVAILABLE_IN_ALL
!GdkClipboard * gdk_display_get_primary_clipboard (GdkDisplay *display);
function gdk_display_get_primary_clipboard(display) bind(c)
import :: c_ptr
implicit none
type(c_ptr) :: gdk_display_get_primary_clipboard
type(c_ptr), value :: display
end function
! GDK_DEPRECATED_IN_4_10_FOR(gdk_toplevel_set_startup_id)
!void gdk_display_notify_startup_complete (GdkDisplay *display, const char *startup_id);
subroutine gdk_display_notify_startup_complete(display, startup_id) bind(c)
import :: c_ptr, c_char
implicit none
type(c_ptr), value :: display
character(kind=c_char), dimension(*) :: startup_id
end subroutine
! GDK_DEPRECATED_IN_4_10
!const char * gdk_display_get_startup_notification_id (GdkDisplay *display);
function gdk_display_get_startup_notification_id(display) bind(c)
import :: c_ptr
implicit none
type(c_ptr) :: gdk_display_get_startup_notification_id
type(c_ptr), value :: display
end function
! GDK_AVAILABLE_IN_ALL
!GdkAppLaunchContext *gdk_display_get_app_launch_context (GdkDisplay *display);
function gdk_display_get_app_launch_context(display) bind(c)
import :: c_ptr
implicit none
type(c_ptr) :: gdk_display_get_app_launch_context
type(c_ptr), value :: display
end function
! GDK_AVAILABLE_IN_ALL
!GdkSeat * gdk_display_get_default_seat (GdkDisplay *display);
function gdk_display_get_default_seat(display) bind(c)
import :: c_ptr
implicit none
type(c_ptr) :: gdk_display_get_default_seat
type(c_ptr), value :: display
end function
! GDK_AVAILABLE_IN_ALL
!GList * gdk_display_list_seats (GdkDisplay *display);
function gdk_display_list_seats(display) bind(c)
import :: c_ptr
implicit none
type(c_ptr) :: gdk_display_list_seats
type(c_ptr), value :: display
end function
! GDK_AVAILABLE_IN_ALL
!GListModel * gdk_display_get_monitors (GdkDisplay *self) ;
function gdk_display_get_monitors(self) bind(c)
import :: c_ptr
implicit none
type(c_ptr) :: gdk_display_get_monitors
type(c_ptr), value :: self
end function
! GDK_AVAILABLE_IN_ALL
!GdkMonitor * gdk_display_get_monitor_at_surface (GdkDisplay *display, GdkSurface *surface);
function gdk_display_get_monitor_at_surface(display, surface) bind(c)
import :: c_ptr
implicit none
type(c_ptr) :: gdk_display_get_monitor_at_surface
type(c_ptr), value :: display
type(c_ptr), value :: surface
end function
! GDK_DEPRECATED_IN_4_10
!void gdk_display_put_event (GdkDisplay *display, GdkEvent *event);
subroutine gdk_display_put_event(display, event) bind(c)
import :: c_ptr
implicit none
type(c_ptr), value :: display
type(c_ptr), value :: event
end subroutine
! GDK_AVAILABLE_IN_ALL
!gboolean gdk_display_map_keyval (GdkDisplay *display, guint keyval, GdkKeymapKey **keys, int *n_keys);
function gdk_display_map_keyval(display, keyval, keys, n_keys) bind(c)
import :: c_int, c_ptr
implicit none
integer(c_int) :: gdk_display_map_keyval
type(c_ptr), value :: display
integer(c_int), value :: keyval
type(c_ptr), value :: keys
type(c_ptr), value :: n_keys
end function
! GDK_AVAILABLE_IN_ALL
!gboolean gdk_display_map_keycode (GdkDisplay *display, guint keycode, GdkKeymapKey **keys, guint **keyvals, int *n_entries);
function gdk_display_map_keycode(display, keycode, keys, keyvals, n_entries)&
& bind(c)
import :: c_int, c_ptr
implicit none
integer(c_int) :: gdk_display_map_keycode
type(c_ptr), value :: display
integer(c_int), value :: keycode
type(c_ptr), value :: keys
type(c_ptr), value :: keyvals
type(c_ptr), value :: n_entries
end function
! GDK_AVAILABLE_IN_ALL
!gboolean gdk_display_translate_key (GdkDisplay *display, guint keycode, GdkModifierType state, int group, guint *keyval, int *effective_group, int *level, GdkModifierType *consumed);
function gdk_display_translate_key(display, keycode, state, group, keyval,&
& effective_group, level, consumed) bind(c)
import :: c_int, c_ptr
implicit none
integer(c_int) :: gdk_display_translate_key
type(c_ptr), value :: display
integer(c_int), value :: keycode
integer(c_int), value :: state
integer(c_int), value :: group
type(c_ptr), value :: keyval
type(c_ptr), value :: effective_group
type(c_ptr), value :: level
integer(c_int), value :: consumed
end function
! GDK_AVAILABLE_IN_ALL
!gboolean gdk_display_get_setting (GdkDisplay *display, const char *name, GValue *value);
function gdk_display_get_setting(display, name, value) bind(c)
import :: c_int, c_ptr, c_char
implicit none
integer(c_int) :: gdk_display_get_setting
type(c_ptr), value :: display
character(kind=c_char), dimension(*) :: name
type(c_ptr), value :: value
end function
!
!GdkDmabufFormats * gdk_display_get_dmabuf_formats (GdkDisplay *display);
function gdk_display_get_dmabuf_formats(display) bind(c)
import :: c_ptr
implicit none
type(c_ptr) :: gdk_display_get_dmabuf_formats
type(c_ptr), value :: display
end function
!--------------------------------------------------
! /usr/include/gtk-4.0/gdk/gdktoplevellayout.h
!--------------------------------------------------
! GDK_AVAILABLE_IN_ALL
!GType gdk_toplevel_layout_get_type (void);
function gdk_toplevel_layout_get_type() bind(c)
import :: c_size_t
implicit none
integer(c_size_t) :: gdk_toplevel_layout_get_type
end function
! GDK_AVAILABLE_IN_ALL
!GdkToplevelLayout * gdk_toplevel_layout_new (void);
function gdk_toplevel_layout_new() bind(c)
import :: c_ptr
implicit none
type(c_ptr) :: gdk_toplevel_layout_new
end function
! GDK_AVAILABLE_IN_ALL
!GdkToplevelLayout * gdk_toplevel_layout_ref (GdkToplevelLayout *layout);
function gdk_toplevel_layout_ref(layout) bind(c)
import :: c_ptr
implicit none
type(c_ptr) :: gdk_toplevel_layout_ref
type(c_ptr), value :: layout
end function
! GDK_AVAILABLE_IN_ALL
!void gdk_toplevel_layout_unref (GdkToplevelLayout *layout);
subroutine gdk_toplevel_layout_unref(layout) bind(c)
import :: c_ptr
implicit none
type(c_ptr), value :: layout
end subroutine
! GDK_AVAILABLE_IN_ALL
!GdkToplevelLayout * gdk_toplevel_layout_copy (GdkToplevelLayout *layout);
function gdk_toplevel_layout_copy(layout) bind(c)
import :: c_ptr
implicit none
type(c_ptr) :: gdk_toplevel_layout_copy
type(c_ptr), value :: layout
end function
! GDK_AVAILABLE_IN_ALL
!gboolean gdk_toplevel_layout_equal (GdkToplevelLayout *layout, GdkToplevelLayout *other);
function gdk_toplevel_layout_equal(layout, other) bind(c)
import :: c_int, c_ptr
implicit none
integer(c_int) :: gdk_toplevel_layout_equal
type(c_ptr), value :: layout
type(c_ptr), value :: other
end function
! GDK_AVAILABLE_IN_ALL
!void gdk_toplevel_layout_set_maximized (GdkToplevelLayout *layout, gboolean maximized);
subroutine gdk_toplevel_layout_set_maximized(layout, maximized) bind(c)
import :: c_ptr, c_int
implicit none
type(c_ptr), value :: layout
integer(c_int), value :: maximized
end subroutine
! GDK_AVAILABLE_IN_ALL
!void gdk_toplevel_layout_set_fullscreen (GdkToplevelLayout *layout, gboolean fullscreen, GdkMonitor *monitor);
subroutine gdk_toplevel_layout_set_fullscreen(layout, fullscreen, monitor)&
& bind(c)
import :: c_ptr, c_int
implicit none
type(c_ptr), value :: layout
integer(c_int), value :: fullscreen
type(c_ptr), value :: monitor
end subroutine
! GDK_AVAILABLE_IN_ALL
!gboolean gdk_toplevel_layout_get_maximized (GdkToplevelLayout *layout, gboolean *maximized);
function gdk_toplevel_layout_get_maximized(layout, maximized) bind(c)
import :: c_int, c_ptr
implicit none
integer(c_int) :: gdk_toplevel_layout_get_maximized
type(c_ptr), value :: layout
type(c_ptr), value :: maximized
end function
! GDK_AVAILABLE_IN_ALL
!gboolean gdk_toplevel_layout_get_fullscreen (GdkToplevelLayout *layout, gboolean *fullscreen);
function gdk_toplevel_layout_get_fullscreen(layout, fullscreen) bind(c)
import :: c_int, c_ptr
implicit none
integer(c_int) :: gdk_toplevel_layout_get_fullscreen
type(c_ptr), value :: layout
type(c_ptr), value :: fullscreen
end function
! GDK_AVAILABLE_IN_ALL
!GdkMonitor * gdk_toplevel_layout_get_fullscreen_monitor (GdkToplevelLayout *layout);
function gdk_toplevel_layout_get_fullscreen_monitor(layout) bind(c)
import :: c_ptr
implicit none
type(c_ptr) :: gdk_toplevel_layout_get_fullscreen_monitor
type(c_ptr), value :: layout
end function
! GDK_AVAILABLE_IN_ALL
!void gdk_toplevel_layout_set_resizable (GdkToplevelLayout *layout, gboolean resizable);
subroutine gdk_toplevel_layout_set_resizable(layout, resizable) bind(c)
import :: c_ptr, c_int
implicit none
type(c_ptr), value :: layout
integer(c_int), value :: resizable
end subroutine
! GDK_AVAILABLE_IN_ALL
!gboolean gdk_toplevel_layout_get_resizable (GdkToplevelLayout *layout);
function gdk_toplevel_layout_get_resizable(layout) bind(c)
import :: c_int, c_ptr
implicit none
integer(c_int) :: gdk_toplevel_layout_get_resizable
type(c_ptr), value :: layout
end function
!--------------------------------------------------
! /usr/include/gtk-4.0/gdk/gdktexture.h
!--------------------------------------------------
! GDK_AVAILABLE_IN_4_6
!GQuark gdk_texture_error_quark (void);
function gdk_texture_error_quark() bind(c)
import :: c_int32_t
implicit none
integer(c_int32_t) :: gdk_texture_error_quark
end function
! GDK_AVAILABLE_IN_ALL
!GType gdk_texture_get_type (void) ;
function gdk_texture_get_type() bind(c)
import :: c_size_t
implicit none
integer(c_size_t) :: gdk_texture_get_type
end function
! GDK_AVAILABLE_IN_ALL
!GdkTexture * gdk_texture_new_for_pixbuf (GdkPixbuf *pixbuf);
function gdk_texture_new_for_pixbuf(pixbuf) bind(c)
import :: c_ptr
implicit none
type(c_ptr) :: gdk_texture_new_for_pixbuf
type(c_ptr), value :: pixbuf
end function
! GDK_AVAILABLE_IN_ALL
!GdkTexture * gdk_texture_new_from_resource (const char *resource_path);
function gdk_texture_new_from_resource(resource_path) bind(c)
import :: c_ptr, c_char
implicit none
type(c_ptr) :: gdk_texture_new_from_resource
character(kind=c_char), dimension(*) :: resource_path
end function
! GDK_AVAILABLE_IN_ALL
!GdkTexture * gdk_texture_new_from_file (GFile *file, GError **error);
function gdk_texture_new_from_file(file, error) bind(c)
import :: c_ptr
implicit none
type(c_ptr) :: gdk_texture_new_from_file
type(c_ptr), value :: file
type(c_ptr), value :: error
end function
! GDK_AVAILABLE_IN_4_6
!GdkTexture * gdk_texture_new_from_filename (const char *path, GError **error);
function gdk_texture_new_from_filename(path, error) bind(c)
import :: c_ptr, c_char
implicit none
type(c_ptr) :: gdk_texture_new_from_filename
character(kind=c_char), dimension(*) :: path
type(c_ptr), value :: error
end function
! GDK_AVAILABLE_IN_4_6
!GdkTexture * gdk_texture_new_from_bytes (GBytes *bytes, GError **error);
function gdk_texture_new_from_bytes(bytes, error) bind(c)
import :: c_ptr
implicit none
type(c_ptr) :: gdk_texture_new_from_bytes
type(c_ptr), value :: bytes
type(c_ptr), value :: error
end function
! GDK_AVAILABLE_IN_ALL
!int gdk_texture_get_width (GdkTexture *texture) ;
function gdk_texture_get_width(texture) bind(c)
import :: c_int, c_ptr
implicit none
integer(c_int) :: gdk_texture_get_width
type(c_ptr), value :: texture
end function
! GDK_AVAILABLE_IN_ALL
!int gdk_texture_get_height (GdkTexture *texture) ;
function gdk_texture_get_height(texture) bind(c)
import :: c_int, c_ptr
implicit none
integer(c_int) :: gdk_texture_get_height
type(c_ptr), value :: texture
end function
! GDK_AVAILABLE_IN_4_10
!GdkMemoryFormat gdk_texture_get_format (GdkTexture *self) ;
function gdk_texture_get_format(self) bind(c)
import :: c_int, c_ptr
implicit none
integer(c_int) :: gdk_texture_get_format
type(c_ptr), value :: self
end function
! GDK_AVAILABLE_IN_ALL
!void gdk_texture_download (GdkTexture *texture, guchar *data, gsize stride);
subroutine gdk_texture_download(texture, data, stride) bind(c)
import :: c_ptr, c_char, c_size_t
implicit none
type(c_ptr), value :: texture
character(kind=c_char), dimension(*) :: data
integer(c_size_t), value :: stride
end subroutine
! GDK_AVAILABLE_IN_ALL
!gboolean gdk_texture_save_to_png (GdkTexture *texture, const char *filename);
function gdk_texture_save_to_png(texture, filename) bind(c)
import :: c_int, c_ptr, c_char
implicit none
integer(c_int) :: gdk_texture_save_to_png
type(c_ptr), value :: texture
character(kind=c_char), dimension(*) :: filename
end function
! GDK_AVAILABLE_IN_4_6
!GBytes * gdk_texture_save_to_png_bytes (GdkTexture *texture);
function gdk_texture_save_to_png_bytes(texture) bind(c)
import :: c_ptr
implicit none
type(c_ptr) :: gdk_texture_save_to_png_bytes
type(c_ptr), value :: texture
end function
! GDK_AVAILABLE_IN_4_6
!gboolean gdk_texture_save_to_tiff (GdkTexture *texture, const char *filename);
function gdk_texture_save_to_tiff(texture, filename) bind(c)
import :: c_int, c_ptr, c_char
implicit none
integer(c_int) :: gdk_texture_save_to_tiff
type(c_ptr), value :: texture
character(kind=c_char), dimension(*) :: filename
end function
! GDK_AVAILABLE_IN_4_6
!GBytes * gdk_texture_save_to_tiff_bytes (GdkTexture *texture);
function gdk_texture_save_to_tiff_bytes(texture) bind(c)
import :: c_ptr
implicit none
type(c_ptr) :: gdk_texture_save_to_tiff_bytes