mirrors/lqml
1
Fork 0
mirror of https://gitlab.com/eql/lqml.git synced 2025-12-06 02:30:38 -08:00
Code Issues Projects Releases Packages Wiki Activity

revisions

Browse source
This commit is contained in:
pls.153 2023-03-22 20:06:44 +01:00
parent a18dd8a725
commit b25acd28c0
2 changed files with 4 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

2
examples/app-template/lisp/qml-reload/on-reloaded.lisp
View file

@ -2,4 +2,4 @@
(in-package :qml-user)
;;(eval:eval-in-thread "(qml::help)")

5
examples/cl-repl/qml/ext/FileBrowser.qml
View file

@ -12,7 +12,7 @@ Rectangle {
property string editFrom
function urlToString(url) {
var cut = (Qt.platform.os === "windows") ? "file:/" : "file://"
var cut = (Qt.platform.os === "windows") ? "file:///" : "file://"
return url.toString().substring(cut.length)
}
@ -60,7 +60,6 @@ Rectangle {
objectName: "path"
width: fileBrowser.width
inputMethodHints: Qt.ImhNoAutoUppercase | Qt.ImhNoPredictiveText
text: urlToString(folderModel.folder)
onFocusChanged: if (focus) { cursorPosition = length }
@ -113,6 +112,8 @@ Rectangle {
showHidden: true
nameFilters: ["*.lisp", "*.lsp", "*.qml", "*.asd", "*.exp", "*.sexp",
"*.fas", "*.fasb", "*.fasc", ".eclrc", ".repl-history"]
onFolderChanged: path.text = urlToString(folder)
}
Row {