mirrors/EQL5
1
Fork 0
mirror of https://gitlab.com/eql/EQL5.git synced 2026-01-10 03:02:24 -08:00
Code Issues Projects Releases Packages Wiki Activity

add OpenGL primitives docu

Browse source
This commit is contained in:
polos 2016-11-30 18:18:43 +01:00
parent be725660e6
commit 096976f026
1 changed files with 6 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

8
gui/gui.lisp
View file

@ -72,7 +72,7 @@
(set-tree *q-properties* 3 nil nil (tr "Read Only"))
(set-tree *n-methods* 3 nil (tr "Method") (tr "Static"))
(set-tree *n-override*)
(set-tree *primitives* 2 nil (tr "Example"))
(set-tree *primitives* 2 (tr "Qt/C++ type") (tr "Lisp example / type"))
;; please see example 9: editor.lisp for better completer examples
(let ((cpl (qnew "QCompleter")))
(dolist (w (list *display* *edit* *package-name* *selected-widget* (! "popup" cpl)))
@ -249,7 +249,11 @@
(cons "QRgb" "(qrgb r g b &optional a)")
(cons "QSize / QSizeF" "(list width height)")
(cons "QString" "\"a Unicode string\"")
(cons "QStringList" "(list \"one\" \"two\" \"three\")")))
(cons "QStringList" "(list \"one\" \"two\" \"three\")")
(cons "GLint" "<integer>")
(cons "GLuint" "<unsigned integer>")
(cons "GLenum" "<unsigned integer>")
(cons "GLfloat" "<single float>")))
(let ((item (qnew "QTreeWidgetItem")))
(x:do-with item
("setText" 0 (car type))