test/t5.lua

   1 #!/usr/bin/lua
   2
   3 require'qtcore'
   4 require'qtgui'
   5
   6 local new_MyWidget = function(...)
   7         local this = QWidget.new(...)
   8
   9         local quit = QPushButton.new(QString.new'Quit')
  10         quit:setFont(QFont.new(QString.new'Times', 18, 75))
  11
  12         local lcd = QLCDNumber.new()
  13         lcd:setSegmentStyle'Filled'
  14
  15         local slider = QSlider.new'Horizontal'
  16         slider:setRange(0, 99)
  17         slider:setValue(0)
  18
  19         QObject.connect(quit, '2clicked()', QCoreApplication.instance(), '1quit()')
  20         QObject.connect(slider, '2valueChanged(int)', lcd, '1display(int)')
  21
  22         local layout = QVBoxLayout.new()
  23         layout:addWidget(quit)
  24         layout:addWidget(lcd)
  25         layout:addWidget(slider)
  26         this:setLayout(layout)
  27         return this
  28 end
  29
  30 app = QApplication.new(1 + select('#', ...), {arg[0], ...})
  31 app.__gc = app.delete -- take ownership of object
  32
  33 widget = new_MyWidget()
  34 widget:show()
  35
  36 app.exec()
  37
  38