allegro怎么修改文本_在Allegro CL中更改可编辑文本值(Change an editable-text value in Allegro CL)...

I'm trying to change the value of an Editable-Text control in Allegro CL (version 8.0.1) by clicking a Default-Button.

I've read about (setf value) but haven't found any examples.

The function I have ttached to the on-click event is the following

(defun form1-default-button-2-on-click (dialog widget)

(declare (ignorable dialog widget))

t)

As you can see there's a lack of code in there :) I've tried various methods as (setf (slot value :txt 'value) 'TEXT) and (setf value 'TEXT) but to no avail.

The dialog-items slot on the form is a list with the following elements defined by

(list (make-instance 'default-button :font

(make-font-ex nil "Segoe UI / Default" 12) :left

56 :name :default-button-2 :on-change

'form1-default-button-2-on-change :top 36)

(make-instance 'editable-text :font

(make-font-ex nil "Segoe UI / Default" 12) :left

52 :name :txt :top 152 :value "")

)

Any help? Thanks in advance.