mirror of
https://gitlab.com/eql/EQL5.git
synced 2025-12-06 02:30:31 -08:00
15 lines
443 B
Common Lisp
15 lines
443 B
Common Lisp
#-qt-wrapper-functions ; see README-OPTIONAL.txt
|
|
(load (in-home "src/lisp/all-wrappers"))
|
|
|
|
;;; 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))
|