Welcome to the CHICKEN Scheme pasting service

(use qt-light)
(qt:char-encoding 'utf8)
(define *qtapp* (qt:init))
(define *win* (qt:widget (read-all "char.ui")))
(define *extlist* (qt:find *win* "testlist"))
(define *l* (qt:find *win* "label"))
(qt:add *extlist* (qt:property *l* "text"))
(print (qt:property *l* "text"))
(qt:show *win*)
(qt:run)

/// char.ui
<?xml version="1.0" encoding="UTF-8"?>
<ui version="4.0">
 <class>Form</class>
 <widget class="QWidget" name="Form">
  <property name="geometry">
   <rect>
    <x>0</x>
    <y>0</y>
    <width>400</width>
    <height>300</height>
   </rect>
  </property>
  <property name="windowTitle">
   <string>Form</string>
  </property>
  <widget class="QLabel" name="label">
   <property name="geometry">
    <rect>
     <x>60</x>
     <y>30</y>
     <width>91</width>
     <height>17</height>
    </rect>
   </property>
   <property name="text">
    <string>����ɂ��́I</string>
   </property>
  </widget>
  <widget class="QListView" name="testlist">
   <property name="geometry">
    <rect>
     <x>50</x>
     <y>60</y>
     <width>256</width>
     <height>192</height>
    </rect>
   </property>
  </widget>
 </widget>
 <resources/>
 <connections/>
</ui>