mirror of
https://gitlab.com/eql/EQL5.git
synced 2025-12-12 13:20:51 -08:00
14 lines
423 B
Common Lisp
14 lines
423 B
Common Lisp
;;; Ported Qt Widgets Tutorial - Using Layouts
|
|
|
|
(in-package :eql-user)
|
|
|
|
(let ((window (qnew "QWidget"
|
|
"windowTitle" "Window layout"))
|
|
(label (qnew "QLabel"
|
|
"text" "Name:"))
|
|
(line-edit (qnew "QLineEdit"))
|
|
(layout (qnew "QHBoxLayout")))
|
|
(dolist (w (list label line-edit))
|
|
(|addWidget| layout w))
|
|
(|setLayout| window layout)
|
|
(|show| window))
|