mirror of
https://gitlab.com/eql/EQL5.git
synced 2025-12-25 03:11:44 -08:00
238 lines
12 KiB
Common Lisp
238 lines
12 KiB
Common Lisp
;;; THIS FILE IS GENERATED (see 'eql5 -quic')
|
|
|
|
(defpackage :ui
|
|
(:use :common-lisp :eql)
|
|
(:export
|
|
;; all DEFVARs except layouts, spacers
|
|
#:*action-exit*
|
|
#:*action-settings*
|
|
#:*action-start-camera*
|
|
#:*action-stop-camera*
|
|
#:*capture-widget*
|
|
#:*central-widget*
|
|
#:*exposure-compensation*
|
|
#:*label*
|
|
#:*last-image-preview-label*
|
|
#:*lock-button*
|
|
#:*main*
|
|
#:*menu-bar*
|
|
#:*menu-devices*
|
|
#:*menu-file*
|
|
#:*mute-button*
|
|
#:*pause-button*
|
|
#:*preview-page*
|
|
#:*record-button*
|
|
#:*stacked-widget*
|
|
#:*status-bar*
|
|
#:*stop-button*
|
|
#:*tab*
|
|
#:*tab-2*
|
|
#:*take-image-button*
|
|
#:*viewfinder*
|
|
#:*viewfinder-page*
|
|
#:ini
|
|
#:retranslate-ui
|
|
#:show))
|
|
|
|
(in-package :ui)
|
|
|
|
(defvar *main*) ; QMainWindow (main widget)
|
|
(defvar *action-exit*) ; QAction
|
|
(defvar *action-settings*) ; QAction
|
|
(defvar *action-start-camera*) ; QAction
|
|
(defvar *action-stop-camera*) ; QAction
|
|
(defvar *capture-widget*) ; QTabWidget
|
|
(defvar *central-widget*) ; QWidget
|
|
(defvar *exposure-compensation*) ; QSlider
|
|
(defvar *grid-layout*) ; QGridLayout
|
|
(defvar *grid-layout-2*) ; QGridLayout
|
|
(defvar *grid-layout-3*) ; QGridLayout
|
|
(defvar *grid-layout-4*) ; QGridLayout
|
|
(defvar *grid-layout-5*) ; QGridLayout
|
|
(defvar *label*) ; QLabel
|
|
(defvar *last-image-preview-label*) ; QLabel
|
|
(defvar *lock-button*) ; QPushButton
|
|
(defvar *menu-bar*) ; QMenuBar
|
|
(defvar *menu-devices*) ; QMenu
|
|
(defvar *menu-file*) ; QMenu
|
|
(defvar *mute-button*) ; QPushButton
|
|
(defvar *pause-button*) ; QPushButton
|
|
(defvar *preview-page*) ; QWidget
|
|
(defvar *record-button*) ; QPushButton
|
|
(defvar *stacked-widget*) ; QStackedWidget
|
|
(defvar *status-bar*) ; QStatusBar
|
|
(defvar *stop-button*) ; QPushButton
|
|
(defvar *tab*) ; QWidget
|
|
(defvar *tab-2*) ; QWidget
|
|
(defvar *take-image-button*) ; QPushButton
|
|
(defvar *verticalspacer*) ; QSpacerItem
|
|
(defvar *verticalspacer-2*) ; QSpacerItem
|
|
(defvar *viewfinder*) ; QCameraViewfinder
|
|
(defvar *viewfinder-page*) ; QWidget
|
|
|
|
(defun ini (&optional show)
|
|
(qlet (sizepolicy palette brush brush1 sizepolicy1)
|
|
(let ()
|
|
(setf *main* (qnew "QMainWindow"))
|
|
(qfun *main* "setObjectName" "main")
|
|
(qfun *main* "resize" 668 422)
|
|
(setf *action-exit* (qnew "QAction(QObject*)" *main*))
|
|
(qfun *action-exit* "setObjectName" "action_exit")
|
|
(setf *action-start-camera* (qnew "QAction(QObject*)" *main*))
|
|
(qfun *action-start-camera* "setObjectName" "action_start_camera")
|
|
(setf *action-stop-camera* (qnew "QAction(QObject*)" *main*))
|
|
(qfun *action-stop-camera* "setObjectName" "action_stop_camera")
|
|
(setf *action-settings* (qnew "QAction(QObject*)" *main*))
|
|
(qfun *action-settings* "setObjectName" "action_settings")
|
|
(setf *central-widget* (qnew "QWidget(QWidget*)" *main*))
|
|
(qfun *central-widget* "setObjectName" "central_widget")
|
|
(setf *grid-layout-3* (qnew "QGridLayout(QWidget*)" *central-widget*))
|
|
(qfun *grid-layout-3* "setObjectName" "grid_layout_3")
|
|
(setf *stacked-widget* (qnew "QStackedWidget(QWidget*)" *central-widget*))
|
|
(qfun *stacked-widget* "setObjectName" "stacked_widget")
|
|
(setf sizepolicy (qnew "QSizePolicy(QSizePolicy::Policy,QSizePolicy::Policy)" |QSizePolicy.Preferred| |QSizePolicy.Preferred|))
|
|
(qfun sizepolicy "setHorizontalStretch" 1)
|
|
(qfun sizepolicy "setVerticalStretch" 0)
|
|
(qfun sizepolicy "setHeightForWidth" (qfun (qfun *stacked-widget* "sizePolicy") "hasHeightForWidth"))
|
|
(qfun *stacked-widget* "setSizePolicy" sizepolicy)
|
|
(setf palette (qnew "QPalette"))
|
|
(setf brush (qnew "QBrush(QColor)" (qfun "QColor" "fromRgb" 255 255 255 255)))
|
|
(qfun brush "setStyle" |Qt.SolidPattern|)
|
|
(qfun palette "setBrush" |QPalette.Active| |QPalette.Base| brush)
|
|
(setf brush1 (qnew "QBrush(QColor)" (qfun "QColor" "fromRgb" 145 145 145 255)))
|
|
(qfun brush1 "setStyle" |Qt.SolidPattern|)
|
|
(qfun palette "setBrush" |QPalette.Active| |QPalette.Window| brush1)
|
|
(qfun palette "setBrush" |QPalette.Inactive| |QPalette.Base| brush)
|
|
(qfun palette "setBrush" |QPalette.Inactive| |QPalette.Window| brush1)
|
|
(qfun palette "setBrush" |QPalette.Disabled| |QPalette.Base| brush1)
|
|
(qfun palette "setBrush" |QPalette.Disabled| |QPalette.Window| brush1)
|
|
(qfun *stacked-widget* "setPalette" palette)
|
|
(setf *viewfinder-page* (qnew "QWidget"))
|
|
(qfun *viewfinder-page* "setObjectName" "viewfinder_page")
|
|
(setf *grid-layout-5* (qnew "QGridLayout(QWidget*)" *viewfinder-page*))
|
|
(qfun *grid-layout-5* "setObjectName" "grid_layout_5")
|
|
(setf *viewfinder* (qnew "QCameraViewfinder(QWidget*)" *viewfinder-page*))
|
|
(qfun *viewfinder* "setObjectName" "viewfinder")
|
|
(qfun *grid-layout-5* "addWidget" *viewfinder* 0 0 1 1)
|
|
(qfun *stacked-widget* "addWidget" *viewfinder-page*)
|
|
(setf *preview-page* (qnew "QWidget"))
|
|
(qfun *preview-page* "setObjectName" "preview_page")
|
|
(setf *grid-layout-4* (qnew "QGridLayout(QWidget*)" *preview-page*))
|
|
(qfun *grid-layout-4* "setObjectName" "grid_layout_4")
|
|
(setf *last-image-preview-label* (qnew "QLabel(QWidget*)" *preview-page*))
|
|
(qfun *last-image-preview-label* "setObjectName" "last_image_preview_label")
|
|
(setf sizepolicy1 (qnew "QSizePolicy(QSizePolicy::Policy,QSizePolicy::Policy)" |QSizePolicy.Preferred| |QSizePolicy.MinimumExpanding|))
|
|
(qfun sizepolicy1 "setHorizontalStretch" 0)
|
|
(qfun sizepolicy1 "setVerticalStretch" 0)
|
|
(qfun sizepolicy1 "setHeightForWidth" (qfun (qfun *last-image-preview-label* "sizePolicy") "hasHeightForWidth"))
|
|
(qfun *last-image-preview-label* "setSizePolicy" sizepolicy1)
|
|
(qfun *last-image-preview-label* "setFrameShape" |QFrame.Box|)
|
|
(qfun *grid-layout-4* "addWidget" *last-image-preview-label* 0 0 1 1)
|
|
(qfun *stacked-widget* "addWidget" *preview-page*)
|
|
(qfun *grid-layout-3* "addWidget" *stacked-widget* 0 0 3 1)
|
|
(setf *lock-button* (qnew "QPushButton(QWidget*)" *central-widget*))
|
|
(qfun *lock-button* "setObjectName" "lock_button")
|
|
(qfun *grid-layout-3* "addWidget" *lock-button* 1 1 1 2)
|
|
(setf *capture-widget* (qnew "QTabWidget(QWidget*)" *central-widget*))
|
|
(qfun *capture-widget* "setObjectName" "capture_widget")
|
|
(setf *tab-2* (qnew "QWidget"))
|
|
(qfun *tab-2* "setObjectName" "tab_2")
|
|
(setf *grid-layout* (qnew "QGridLayout(QWidget*)" *tab-2*))
|
|
(qfun *grid-layout* "setObjectName" "grid_layout")
|
|
(setf *take-image-button* (qnew "QPushButton(QWidget*)" *tab-2*))
|
|
(qfun *take-image-button* "setObjectName" "take_image_button")
|
|
(qfun *take-image-button* "setEnabled" nil)
|
|
(qfun *grid-layout* "addWidget" *take-image-button* 0 0 1 1)
|
|
(setf *verticalspacer-2* (qnew "QSpacerItem(int,int,QSizePolicy::Policy,QSizePolicy::Policy)" 20 161 |QSizePolicy.Minimum| |QSizePolicy.Expanding|))
|
|
(qfun *grid-layout* "addItem" *verticalspacer-2* 1 0 1 1)
|
|
(setf *label* (qnew "QLabel(QWidget*)" *tab-2*))
|
|
(qfun *label* "setObjectName" "label")
|
|
(qfun *grid-layout* "addWidget" *label* 2 0 1 1)
|
|
(setf *exposure-compensation* (qnew "QSlider(QWidget*)" *tab-2*))
|
|
(qfun *exposure-compensation* "setObjectName" "exposure_compensation")
|
|
(qfun *exposure-compensation* "setMinimum" -4)
|
|
(qfun *exposure-compensation* "setMaximum" 4)
|
|
(qfun *exposure-compensation* "setPageStep" 2)
|
|
(qfun *exposure-compensation* "setOrientation" |Qt.Horizontal|)
|
|
(qfun *exposure-compensation* "setTickPosition" |QSlider.TicksAbove|)
|
|
(qfun *grid-layout* "addWidget" *exposure-compensation* 3 0 1 1)
|
|
(qfun *capture-widget* "addTab" *tab-2* "")
|
|
(setf *tab* (qnew "QWidget"))
|
|
(qfun *tab* "setObjectName" "tab")
|
|
(setf *grid-layout-2* (qnew "QGridLayout(QWidget*)" *tab*))
|
|
(qfun *grid-layout-2* "setObjectName" "grid_layout_2")
|
|
(setf *record-button* (qnew "QPushButton(QWidget*)" *tab*))
|
|
(qfun *record-button* "setObjectName" "record_button")
|
|
(qfun *grid-layout-2* "addWidget" *record-button* 0 0 1 1)
|
|
(setf *pause-button* (qnew "QPushButton(QWidget*)" *tab*))
|
|
(qfun *pause-button* "setObjectName" "pause_button")
|
|
(qfun *grid-layout-2* "addWidget" *pause-button* 1 0 1 1)
|
|
(setf *stop-button* (qnew "QPushButton(QWidget*)" *tab*))
|
|
(qfun *stop-button* "setObjectName" "stop_button")
|
|
(qfun *grid-layout-2* "addWidget" *stop-button* 2 0 1 1)
|
|
(setf *verticalspacer* (qnew "QSpacerItem(int,int,QSizePolicy::Policy,QSizePolicy::Policy)" 20 76 |QSizePolicy.Minimum| |QSizePolicy.Expanding|))
|
|
(qfun *grid-layout-2* "addItem" *verticalspacer* 3 0 1 1)
|
|
(setf *mute-button* (qnew "QPushButton(QWidget*)" *tab*))
|
|
(qfun *mute-button* "setObjectName" "mute_button")
|
|
(qfun *mute-button* "setCheckable" t)
|
|
(qfun *grid-layout-2* "addWidget" *mute-button* 4 0 1 1)
|
|
(qfun *capture-widget* "addTab" *tab* "")
|
|
(qfun *grid-layout-3* "addWidget" *capture-widget* 2 1 1 2)
|
|
(qfun *main* "setCentralWidget" *central-widget*)
|
|
(setf *menu-bar* (qnew "QMenuBar(QWidget*)" *main*))
|
|
(qfun *menu-bar* "setObjectName" "menu_bar")
|
|
(qfun *menu-bar* "setGeometry" 0 0 668 25)
|
|
(setf *menu-file* (qnew "QMenu(QWidget*)" *menu-bar*))
|
|
(qfun *menu-file* "setObjectName" "menu_file")
|
|
(setf *menu-devices* (qnew "QMenu(QWidget*)" *menu-bar*))
|
|
(qfun *menu-devices* "setObjectName" "menu_devices")
|
|
(qfun *main* "setMenuBar" *menu-bar*)
|
|
(setf *status-bar* (qnew "QStatusBar(QWidget*)" *main*))
|
|
(qfun *status-bar* "setObjectName" "status_bar")
|
|
(qfun *main* "setStatusBar" *status-bar*)
|
|
(qfun *menu-bar* "addAction(QAction*)" (qfun *menu-file* "menuAction"))
|
|
(qfun *menu-bar* "addAction(QAction*)" (qfun *menu-devices* "menuAction"))
|
|
(qfun *menu-file* "addAction(QAction*)" *action-start-camera*)
|
|
(qfun *menu-file* "addAction(QAction*)" *action-stop-camera*)
|
|
(qfun *menu-file* "addSeparator")
|
|
(qfun *menu-file* "addAction(QAction*)" *action-settings*)
|
|
(qfun *menu-file* "addSeparator")
|
|
(qfun *menu-file* "addAction(QAction*)" *action-exit*)
|
|
;; (qconnect *record-button* "clicked()" *main* "record()")
|
|
;; (qconnect *stop-button* "clicked()" *main* "stop()")
|
|
;; (qconnect *pause-button* "clicked()" *main* "pause()")
|
|
;; (qconnect *action-exit* "triggered()" *main* "close()")
|
|
;; (qconnect *take-image-button* "clicked()" *main* "takeImage()")
|
|
;; (qconnect *lock-button* "clicked()" *main* "toggleLock()")
|
|
;; (qconnect *mute-button* "toggled(bool)" *main* "setMuted(bool)")
|
|
;; (qconnect *exposure-compensation* "valueChanged(int)" *main* "setExposureCompensation(int)")
|
|
;; (qconnect *action-settings* "triggered()" *main* "configureCaptureSettings()")
|
|
;; (qconnect *action-stop-camera* "triggered()" *main* "stopCamera()")
|
|
(qfun *stacked-widget* "setCurrentIndex" 0)
|
|
(qfun *capture-widget* "setCurrentIndex" 0)
|
|
(retranslate-ui)
|
|
(when show
|
|
(show)))))
|
|
|
|
(defun show ()
|
|
(qfun *main* "show"))
|
|
|
|
(defun retranslate-ui ()
|
|
(let ()
|
|
(qfun *main* "setWindowTitle" (tr "Camera"))
|
|
(qfun *action-exit* "setText" (tr "Exit"))
|
|
(qfun *action-start-camera* "setText" (tr "Start Camera"))
|
|
(qfun *action-stop-camera* "setText" (tr "Stop Camera"))
|
|
(qfun *action-settings* "setText" (tr "Settings"))
|
|
(qfun *last-image-preview-label* "setText" "")
|
|
(qfun *lock-button* "setText" (tr "Focus"))
|
|
(qfun *take-image-button* "setText" (tr "Capture Photo"))
|
|
(qfun *label* "setText" (tr "Exposure Compensation:"))
|
|
(qfun *capture-widget* "setTabText" (qfun *capture-widget* "indexOf" *tab-2*) (tr "Image"))
|
|
(qfun *record-button* "setText" (tr "Record"))
|
|
(qfun *pause-button* "setText" (tr "Pause"))
|
|
(qfun *stop-button* "setText" (tr "Stop"))
|
|
(qfun *mute-button* "setText" (tr "Mute"))
|
|
(qfun *capture-widget* "setTabText" (qfun *capture-widget* "indexOf" *tab*) (tr "Video"))
|
|
(qfun *menu-file* "setTitle" (tr "File"))
|
|
(qfun *menu-devices* "setTitle" (tr "Devices"))))
|