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

example 'cl-repl': add help, screenshot; several revisions

Browse source
This commit is contained in:
pls.153 2022-04-11 16:47:17 +02:00
parent ad70df7399
commit a131436dde
14 changed files with 86 additions and 73 deletions
Download patch file Download diff file Expand all files Collapse all files

30
examples/cl-repl/qml/ext/QueryDialog.qml
View file

@ -14,11 +14,6 @@ Rectangle {
Ext.MenuBack {
id: menuBack
label: "Query Dialog"
onPressed: {
queryInput.clear()
Lisp.call("dialogs:exited")
}
}
TextField {
@ -44,29 +39,4 @@ Rectangle {
font.pixelSize: queryInput.font.pixelSize - (main.small ? 2 : 0)
}
}
Row {
anchors.horizontalCenter: parent.horizontalCenter
y: queryInput.y + queryInput.height + (main.small ? 7 : 10)
spacing: 20
visible: queryInput.focus
// cursor back
Ext.ArrowButton {
opacity: 0.15
text: "\uf137"
onPressed: queryInput.cursorPosition--
onPressAndHold: queryInput.cursorPosition = 0
}
// cursor forward
Ext.ArrowButton {
opacity: 0.15
text: "\uf138"
onPressed: queryInput.cursorPosition++
onPressAndHold: queryInput.cursorPosition = queryInput.length
}
}
}