11 lines
304 B
Scheme
11 lines
304 B
Scheme
;; -*- geiser-scheme-implementation: chicken -*-
|
|
|
|
(foreign-declare "#include <QtCore/private/qmetaobjectbuilder_p.h>")
|
|
|
|
(define-class <QMetaStringTable> ()
|
|
(this))
|
|
|
|
(define make-QMetaStringTable
|
|
(foreign-lambda (instance "QMetaStringTable" <QMetaStringTable>)
|
|
"new QMetaStringTable" c-string))
|