mirror of
https://gitlab.com/eql/EQL5.git
synced 2025-12-25 03:11:44 -08:00
81 lines
3.2 KiB
Common Lisp
81 lines
3.2 KiB
Common Lisp
;;; THIS FILE IS GENERATED (see 'eql5 -quic')
|
|
|
|
(defpackage :ui
|
|
(:use :common-lisp :eql)
|
|
(:export
|
|
;; all DEFVARs except layouts, spacers
|
|
#:*central-widget*
|
|
#:*dock-widget*
|
|
#:*dock-widget-contents*
|
|
#:*main*
|
|
#:*menu-bar*
|
|
#:*status-bar*
|
|
#:*tree-widget*
|
|
#:*web-view*
|
|
#:ini
|
|
#:retranslate-ui
|
|
#:show))
|
|
|
|
(in-package :ui)
|
|
|
|
(defvar *main*) ; QMainWindow (main widget)
|
|
(defvar *central-widget*) ; QWidget
|
|
(defvar *dock-widget*) ; QDockWidget
|
|
(defvar *dock-widget-contents*) ; QWidget
|
|
(defvar *menu-bar*) ; QMenuBar
|
|
(defvar *status-bar*) ; QStatusBar
|
|
(defvar *tree-widget*) ; QTreeWidget
|
|
(defvar *vertical-layout-1*) ; QVBoxLayout
|
|
(defvar *vertical-layout-2*) ; QVBoxLayout
|
|
(defvar *web-view*) ; QWebView
|
|
|
|
(defun ini (&optional show)
|
|
(qlet ()
|
|
(let (--qtreewidgetitem)
|
|
(setf *main* (qnew "QMainWindow"))
|
|
(qfun *main* "setObjectName" "main")
|
|
(qfun *main* "resize" 800 600)
|
|
(setf *central-widget* (qnew "QWidget(QWidget*)" *main*))
|
|
(qfun *central-widget* "setObjectName" "central_widget")
|
|
(setf *vertical-layout-1* (qnew "QVBoxLayout(QWidget*)" *central-widget*))
|
|
(qfun *vertical-layout-1* "setObjectName" "vertical_Layout_1")
|
|
(qfun *vertical-layout-1* "setContentsMargins" -1 4 -1 4)
|
|
(setf *web-view* (qnew "QWebView(QWidget*)" *central-widget*))
|
|
(qfun *web-view* "setObjectName" "web_view")
|
|
(qfun *vertical-layout-1* "addWidget" *web-view*)
|
|
(qfun *main* "setCentralWidget" *central-widget*)
|
|
(setf *menu-bar* (qnew "QMenuBar(QWidget*)" *main*))
|
|
(qfun *menu-bar* "setObjectName" "menu_bar")
|
|
(qfun *menu-bar* "setGeometry" 0 0 800 22)
|
|
(qfun *main* "setMenuBar" *menu-bar*)
|
|
(setf *status-bar* (qnew "QStatusBar(QWidget*)" *main*))
|
|
(qfun *status-bar* "setObjectName" "status_bar")
|
|
(qfun *main* "setStatusBar" *status-bar*)
|
|
(setf *dock-widget* (qnew "QDockWidget(QWidget*)" *main*))
|
|
(qfun *dock-widget* "setObjectName" "dock_widget")
|
|
(qfun *dock-widget* "setAllowedAreas" (logior |Qt.LeftDockWidgetArea| |Qt.RightDockWidgetArea|))
|
|
(setf *dock-widget-contents* (qnew "QWidget"))
|
|
(qfun *dock-widget-contents* "setObjectName" "dock_widget_contents")
|
|
(setf *vertical-layout-2* (qnew "QVBoxLayout(QWidget*)" *dock-widget-contents*))
|
|
(qfun *vertical-layout-2* "setContentsMargins" 4 4 4 4)
|
|
(qfun *vertical-layout-2* "setObjectName" "vertical_layout_2")
|
|
(setf *tree-widget* (qnew "QTreeWidget(QWidget*)" *dock-widget-contents*))
|
|
(setf --qtreewidgetitem (qnew "QTreeWidgetItem"))
|
|
(qfun --qtreewidgetitem "setText" 0 "1")
|
|
(qfun *tree-widget* "setHeaderItem" --qtreewidgetitem)
|
|
(qfun *tree-widget* "setObjectName" "tree_widget")
|
|
(qfun (qfun *tree-widget* "header") "setVisible" nil)
|
|
(qfun *vertical-layout-2* "addWidget" *tree-widget*)
|
|
(qfun *dock-widget* "setWidget" *dock-widget-contents*)
|
|
(qfun *main* "addDockWidget" 1 *dock-widget*)
|
|
(retranslate-ui)
|
|
(when show
|
|
(show)))))
|
|
|
|
(defun show ()
|
|
(qfun *main* "show"))
|
|
|
|
(defun retranslate-ui ()
|
|
(let ()
|
|
(qfun *main* "setWindowTitle" (tr "Web Element DOM Traversal"))
|
|
(qfun *dock-widget* "setWindowTitle" (tr "Document Structure"))))
|