- android - 多次调用 OnPrimaryClipChangedListener
- android - 无法更新 RecyclerView 中的 TextView 字段
- android.database.CursorIndexOutOfBoundsException : Index 0 requested, 光标大小为 0
- android - 使用 AppCompat 时,我们是否需要明确指定其 UI 组件(Spinner、EditText)颜色
函数的种类是:
(defun display-all ()
"Display all items in the database."
(dolist (item *database*)
(format t "~{~a:~10t~a~%~}~%" item)))
(defun prompt-read (prompt)
(format *query-io* "~a: " prompt)
(force-output *query-io*)
(read-line *query-io*))
(defun prompt-for-item ()
(make-database
(prompt-read "Name")
(prompt-read "Price")))
我已经阅读了 Ltk 文档,但似乎没有任何文本小部件使用示例。
最佳答案
您可以像创建其他小部件一样创建文本小部件。 Lisp 端对象具有 text
访问器函数,带有 writer 方法,可在 Tk 端设置文本。最小示例:
(with-ltk ()
(let* ((text-widget (make-instance 'text :width 15 :height 2))
(b1 (make-instance 'button
:text "Print"
:command #'(lambda () (princ (text text-widget)))))
(b2 (make-instance 'button :text "Reset"
:command #'(lambda () (setf (text text-widget) "reset")))))
(pack text-widget)
(pack b1)
(pack b2)))
关于lisp - 我如何让 Ltk 显示用户正在写的内容以及函数打印的内容?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/277480/
我的第一个 LTK 应用程序。尝试使用输入字段中的参数执行函数。 (defpackage :test (:use :cl :ltk)) (in-package :test) (defun
函数的种类是: (defun display-all () "Display all items in the database." (dolist (item *database*)
有没有办法消除在 LTK 的 Entry 小部件中键入的字符的回显? 对于 CLI 界面,我使用 c 字符串函数(外星例程) (sb-alien:define-alien-routine getpas
我已经编写了读取 Windows 位图的代码,现在想用 ltk 显示它。我怎样才能构造一个合适的对象? ltk中有这样的功能吗?如果不是,我如何才能直接连接到 tk? 最佳答案 我已经有一段时间没有使
我正在使用 ltk 为 Common-Lisp 中的 Dijkstra 算法开发一个 GUI 应用程序。但是,要在 Canvas 上放置一个节点,我需要它的标签,为此,执行必须等到用户输入一个字符串(
我正在尝试使用 ltk 在普通的 lisp 中制作一个 GUI 应用程序,但有一件事我就是想不通。我知道我可以使用 configure 设置 ltk 小部件的选项,但我无法找到读取值的方法。 例如,我
我使用 asdf-install 将 ltk 安装到 Steel Bank Common Lisp,但我什至无法开始使用它 V_V。下面的代码是文档中最简单的示例,几乎是逐字复制的。 (asdf:op
我正在用 Common Lisp 制作一个简单的小程序,我想使用鼠标移动来控制它。我使用 LTK 作为窗口。我找不到任何可以检索鼠标位置的函数。例如,Emacs Lisp 有 (mouse-pixel
我正在尝试为即将到来的项目在 Clojure 和 CL 之间做出决定。为了弄湿我的脚,我在玩一些简单的 GUI 东西。 这是我在 CL/Ltk 中的内容: (ql:quickload "ltk") (
我正在 AMD64 计算机上使用适用于 Linux 的 SBCL。函数 CONTROL-TEST 创建一个带有绘图 Canvas 和两个滑动比例尺的窗口。 slider :VARIABLES for
我正在 Mac 上学习 Common Lisp (Clozure CL) 并安装了 quicklisp,在这里得到了一位慷慨的贡献者的帮助。 'ltk' 库在运行 (ltk::ltk-eyes) 或
对于 BLE 专家,我有一个概念性问题,关于在两个 BLE 设备之间发生绑定(bind)时生成和交换的 key 。我可能错了,或者我的问题可能很幼稚,所以请多多包涵。 考虑以下示例,我们称其为 Cas
我正在修补 ltk因为它提供了运行远程 GUI 的选项。但是,在尝试使用远程 GUI 时,我遇到了在本地运行 ltk 时没有遇到的问题: (in-package :ltk-user) (defun a
我正在使用 LLRP 库开发应用程序。网关(计算机)从阅读器(使用本地主机的模拟阅读器)收到我的消息后,我想使用 将其转换为 LLRPMessage Org.LLRP.LTK.LLRPV1.LLRPX
我是一名优秀的程序员,十分优秀!