diff -ur qt-light-0.991/main.cpp qt-light-0.991-1/main.cpp --- qt-light-0.991/main.cpp 2017-10-20 03:17:41.703598762 +0200 +++ qt-light-0.991-1/main.cpp 2017-10-20 19:54:37.936256717 +0200 @@ -64,6 +64,7 @@ #define qtapplication QApplication * #define qtreceiver SimpleReceiver * #define qtwidget QWidget * +#define qtlayout QLayout * #define qtpixmap QPixmap * #define qttimer QTimer * #define qtsound QSound * @@ -98,7 +99,6 @@ return w; } - ___bool qt_run(___bool once) { if(once) { @@ -413,6 +413,7 @@ void qt_clearlistwidget(qtwidget w) { ((QListWidget *)w)->clear(); } void qt_addcomboboxitem(qtwidget w, char *s) { ((QComboBox *)w)->addItem(s); } void qt_addlistwidgetitem(qtwidget w, char *s) { ((QListWidget *)w)->addItem(s); } +void qt_layoutaddwidget(qtlayout l, qtwidget w) { ((QLayout *)l)->addWidget(w); } void qt_addtreewidgetitem(qtwidget w, char *s) { diff -ur qt-light-0.991/prototypes.h qt-light-0.991-1/prototypes.h --- qt-light-0.991/prototypes.h 2017-10-20 03:17:41.702598757 +0200 +++ qt-light-0.991-1/prototypes.h 2017-10-20 19:51:03.023146491 +0200 @@ -49,6 +49,7 @@ void qt_addcomboboxitem(qtwidget w, char *s); void qt_addlistwidgetitem(qtwidget w, char *s); void qt_addtreewidgetitem(qtwidget w, char *s); +void qt_layoutaddwidget(qtlayout l, qtwidget w); char *qt_listwidgetitem(qtwidget w, int i); char *qt_getexistingdirectory(qtwidget p, char *cap, char *dir, int opts); char *qt_getopenfilename(qtwidget p, char *cap, char *dir, char *filter, int opts); Only in qt-light-0.991-1: qt-light-0.991 Only in qt-light-0.991-1: qt-light.cpp Only in qt-light-0.991-1: qt-light.import.scm diff -ur qt-light-0.991/qt-light.scm qt-light-0.991-1/qt-light.scm --- qt-light-0.991/qt-light.scm 2017-10-20 03:17:41.703598762 +0200 +++ qt-light-0.991-1/qt-light.scm 2017-10-20 20:07:19.548003372 +0200 @@ -171,6 +171,13 @@ ((string=? "QTreeWidget" (qt:classname w)) (qt:addtreewidgetitem w x)) (else (error 'qt:add "invalid widget" w x)) ) ) +(define (qt:layout-add-widget l w) + (if (string=? "QLayout" (qt:classname l)) + (if (string=? "QWidget" (qt:classname w)) + (qt:layoutaddwidget l w) + (error 'qt-layout-add-widget "invalid widget")) + (error 'qt:layout-add-widget "invalid layout") ) ) + (define (qt:item w i) (and (positive? i) (qt:listwidgetitem w i))) (define qt:clear qt:clearlistwidget)