jyapayne/gintro
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

disable the foreach macro for gtk4

Browse source
This commit is contained in:
Stefan Salewski 2022-08-21 17:27:54 +02:00
commit 0a6bbb59eb
1 changed files with 42 additions and 39 deletions
Download patch file Download diff file Expand all files Collapse all files

81
gintro/gimplgobj.nim
View file

@ -411,43 +411,46 @@ gtk_container_foreach (
gpointer callback_data
)
]#
# https://docs.gtk.org/gtk3/method.Container.foreach.html
macro foreach*(container: gtk.Container; p: untyped; arg: typed): untyped =
var foreachID {.compileTime, global.}: int
inc(foreachID)
var ats = $getTypeInst(arg).toStrLit
let procName = "foreach_" & $foreachID
let procNameCdecl = "foreach_cdecl_" & $foreachID
var r1s = """
proc $1(c: ptr gtk.Widget00; p: pointer) {.cdecl.} =
when $3 is ref:
let a = cast[$3](p)
else:
let a = cast[ref $3](p)
let h: pointer = g_object_get_qdata(c, Quark)
assert(h != nil)
let cn: gtk.Container = cast[gtk.Container](h)
when $3 is ref:
$2(cn, a)
else:
$2(cn, a[])
""" % [$procNameCdecl, $p, ats]
let r2s ="""
proc $1(container: gtk.Container; a: $2) =
when a is ref:
GC_ref(a)
gtk_container_foreach(cast[ptr gtk.Container00](container.impl), $3, cast[pointer](a))
else:
var ar: ref $2
new(ar)
ar[] = a
GC_ref(ar)
gtk_container_foreach(cast[ptr gtk.Container00](container.impl), $3, cast[pointer](ar))
$1($5, $4)
""" % [$procName, ats, $procNameCdecl, $arg, $container]
#echo r1s
#echo r2s
result = parseStmt(r1s & r2s)
# 453 lines
when not declared(gtk4): # only for old gtk3, gtk4 has no gtk.Container widget.
# https://docs.gtk.org/gtk3/method.Container.foreach.html
macro foreach*(container: gtk.Container; p: untyped; arg: typed): untyped =
var foreachID {.compileTime, global.}: int
inc(foreachID)
var ats = $getTypeInst(arg).toStrLit
let procName = "foreach_" & $foreachID
let procNameCdecl = "foreach_cdecl_" & $foreachID
var r1s = """
proc $1(c: ptr gtk.Widget00; p: pointer) {.cdecl.} =
when $3 is ref:
let a = cast[$3](p)
else:
let a = cast[ref $3](p)
let h: pointer = g_object_get_qdata(c, Quark)
assert(h != nil)
let cn: gtk.Container = cast[gtk.Container](h)
when $3 is ref:
$2(cn, a)
else:
$2(cn, a[])
""" % [$procNameCdecl, $p, ats]
let r2s ="""
proc $1(container: gtk.Container; a: $2) =
when a is ref:
GC_ref(a)
gtk_container_foreach(cast[ptr gtk.Container00](container.impl), $3, cast[pointer](a))
else:
var ar: ref $2
new(ar)
ar[] = a
GC_ref(ar)
gtk_container_foreach(cast[ptr gtk.Container00](container.impl), $3, cast[pointer](ar))
$1($5, $4)
""" % [$procName, ats, $procNameCdecl, $arg, $container]
#echo r1s
#echo r2s
result = parseStmt(r1s & r2s)
# 456 lines