Изменить значение редактируемого текста в Allegro CL - PullRequest
Новая
       18

Изменить значение редактируемого текста в Allegro CL

1 голос
/ 10 февраля 2010

Я пытаюсь изменить значение элемента управления Editable-Text в Allegro CL (версия 8.0.1), нажав кнопку по умолчанию.

Я читал о (setf value), но не нашел примеров.

Функция, которую я подключил к событию при нажатии, следующая 

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

    t)

Как вы видите, там не хватает кода :) Я пробовал различные методы, как (setf (slot value :txt 'value) 'TEXT) и (setf value 'TEXT), но безрезультатно.

Слот элементов диалога в форме представляет собой список со следующими элементами, определенными 

(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 "")
 )

Любая помощь? Заранее спасибо.

Ответы [ 3 ]

0 голосов
/ 05 августа 2011

Где-то на franz.com есть пример, где я нашел это: 

(defun form1-button5-on-change (widget new-value old-value)
  (declare (ignorable widget new-value old-value))
  (let ((szerkeszto (find-sibling :multi-line-editable-text-1 widget)))
    (setf (value szerkeszto) "bla" ))
  t) ; Accept the new value

символ "szerkeszto" становится multi-line-editable-text-1, тогда вы можете использовать setf, как указано выше, для установки соответствующих атрибутов (например, "value").

надеюсь, это поможет.

0 голосов
/ 24 февраля 2014

Вам необходимо использовать функции "find-component" и "value" вместе.

Функция "find-component" находит виджет в вашем проекте а "value" возвращает значение виджета.

Если у вас есть статический текст в форме, вы можете изменить значение статического текста следующим образом.

(let ((ed1 (find-component: static-text-1: form1))) (setf (значение ed1) "Я сделал это."))

0 голосов
/ 10 февраля 2010 
(setf (slot-value widget 'value) "foo")

Нечто подобное выше. Вам нужно получить значение символа в правильной упаковке. вероятно, есть также функция доступа, такая как WIDGET-VALUE. Тогда (setf (widget-value widget) "foo") может работать ...

Я не пользователь ACL - возможно, есть лучшие способы. Вопросы, относящиеся к ACL, лучше всего задавать в списке рассылки их пользователей.

...