mirror of
https://gitlab.com/eql/EQL5.git
synced 2025-12-25 03:11:44 -08:00
23 lines
448 B
Common Lisp
23 lines
448 B
Common Lisp
;;; WebKit Application
|
|
|
|
(require :h-utils "h-utils")
|
|
|
|
(defpackage :template
|
|
(:nicknames)
|
|
(:use :common-lisp :eql)
|
|
(:export))
|
|
|
|
(in-package :template)
|
|
|
|
(defun ini (html-file size)
|
|
(qconnect h:*web-view* "loadFinished(bool)" (lambda (ok) (ini-html)))
|
|
(x:do-with h:*web-view*
|
|
("setUrl" (|fromUserInput.QUrl| html-file))
|
|
("setWindowTitle" "")
|
|
("resize" size)
|
|
("show")))
|
|
|
|
(defun ini-html ()
|
|
)
|
|
|
|
(ini "template.htm" '(500 400))
|