patch added by anonymous on Fri Oct 20 20:15:42 2017

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)