mirror of
https://gitlab.com/eql/EQL5.git
synced 2025-12-13 13:50:29 -08:00
12 lines
352 B
Common Lisp
12 lines
352 B
Common Lisp
;;; Ported Qt Widgets Tutorial - Child Widgets
|
|
|
|
(in-package :eql-user)
|
|
|
|
(let ((window (qnew "QWidget"
|
|
"size" '(320 240)
|
|
"windowTitle" "Child widget"))
|
|
(button (qnew "QPushButton"
|
|
"text" "Press me"
|
|
"pos" '(100 100))))
|
|
(|setParent| button window)
|
|
(|show| window))
|