у меня есть окно с кнопками ,и полем ввода текста.мне нежно запилить кнопочки которые вставляют html тег в текст, например: ввел Hello world выделил нажал на кнопку Абзац и получаем <Abzac>Hello world</Abzac>

(defun run ()

  (let ((output *standard-output*))

    (gtk:within-main-loop

      (let ((window (make-instance 'gtk:gtk-window

 

                                   :window-position :center

                                   :title "Hello world!"

                                   :default-width 100

                                   :default-height 100))

		(button1 (make-instance 'gtk:button :label "Abzac"))

		(button2 (make-instance 'gtk:button :label "Teorema"))

		(entry (make-instance 'gtk:entry :width 100 :height 100))

		(scroll (make-instance 'gtk:scrolled-window

                                    :hscrollbar-policy :automatic

                                    :vscrollbar-policy :automatic)))

		(let ((v-box (make-instance 'gtk:v-box))

              (box (make-instance 'gtk:h-box)))

          (gtk:container-add window v-box)

          (gtk:box-pack-start v-box box :expand nil)

          (gtk:box-pack-start box entry :expand nil)

          (gtk:box-pack-start box button1 :expand nil)

	  (gtk:box-pack-start box button2 :expand nil)

          (gtk:box-pack-start v-box scroll))

       (gtk:widget-show window)))))

 

 

(run)

Цитата

---

Дальше не читал

---

да блин скопипастил!забыл убрать!это такая проблема что ли?