mirrors/EQL5
1
Fork 0
mirror of https://gitlab.com/eql/EQL5.git synced 2026-04-17 10:21:36 -07:00
Code Issues Projects Releases Packages Wiki Activity

add example "video-graphics-item"; add QIdentityProxyModel, QItemEditorCreatorBase; various revisions;

Browse source
This commit is contained in:
polos 2016-12-20 16:40:05 +01:00
parent dac54ad8a1
commit 61a67c20ae
78 changed files with 2209 additions and 1804 deletions
Download patch file Download diff file Expand all files Collapse all files

8
examples/M-modules/webkit/Examples-Browser/examples-browser.lisp
View file

@ -37,15 +37,13 @@
(lambda ()
(|addToJavaScriptWindowObject| (frame) "Lisp" *webkit-bridge*)))
(qconnect *network-manager* "finished(QNetworkReply*)" 'download-finished)
(|setUrl| *web-view* (qnew "QUrl(QString)"
(x:cc "file://" (namestring (probe-file "examples-browser.htm")))))
(|setUrl| *web-view* (|fromUserInput.QUrl| (namestring (probe-file "examples-browser.htm"))))
(|showMaximized| *web-view*))
;;; download
(defun download (url id name)
(qlet ((qurl "QUrl(QString)" url)
(request "QNetworkRequest(QUrl)" qurl)
(qlet ((request "QNetworkRequest(QUrl)" url)
(qid "QVariant(QString)" id)
(qname "QVariant(QString)" name))
(let ((reply (|get| *network-manager* request)))
@ -108,7 +106,7 @@
*ini-file* ini-file)
;; QNetworkAccessManager does it all for us (asynchroneous, parallel download)
(dolist (name file-names)
(download (format nil "file:///~A" (in-home "examples/" name)) ; change this to a network location
(download (|fromUserInput.QUrl| (in-home "examples/" name)) ; change this to a network location
id
name))))))