Я создаю метки в Tcl Tk, но их текст не выделяется (для копирования-вставки). Как сделать доступным для выбора?
Я создаю этикетки, используя:
set n 0
foreach t $list_of_labels {
incrr n
set lbl2 [label .prop_menu.main_frame.val_$n -text $t]
grid $lbl2 ...
}
Вы не можете этого сделать, не взяв много кода привязки из какого-нибудь другого виджета и не применив его к своей этикетке. Если вам это нужно, вам лучше взять виджет входа и сделать его похожим на метку. Что-то вроде:
entry .e1 -textvar t -relief flat -background [$parentWindow cget -background]
Если вы не хотите, чтобы фокус перемещался на них, добавьте -takefocus 0.
Чтобы текст в метке можно было выбрать всем, должны быть применены привязки, чтобы программа знала, когда его выбирать (а не что-то еще), и должен быть какой-то код для размещения код в выделение (точнее в буфер обмена). Последнее на самом деле довольно просто сделать с помощью команды clipboard:
clipboard clear
clipboard append $text
Неловко настроить привязки и показать, что выбор сделан. Самый простой — просто сделать что-то вроде этого (привязка к щелчку мыши):
bind .lbl <1> {
clipboard clear
clipboard append [%W cget -text]
bell
}
Хорошо, это определенно отстой; ты можешь лучше! Чего вы не получите, так это стиля выделения, который часто поддерживают собственные встроенные ярлыки Windows (где вы можете перетащить выделение и просто нажать Ctrl+C), как это требуется возможность рисовать подсветку, которой у виджетов ярлыков Tk просто нет. (Вы можете взломать что-то с помощью записей, но они не могут отображать несколько строк текста, или вы можете использовать текстовый виджет, но тогда вам придется проделать много работы с привязками, чтобы заставить его вести себя как вы хотите.)
Я решил это, используя записи только для чтения, я заменил создание метки на:
set lbl2 [entry .prop_menu.main_frame.val_$n -relief flat]
$lbl2 insert 0 $t
$lbl2 configure -state readonly
И смог создать записи, которые действуют как метки, но могут быть выбраны.
nиtкаждый раз получают другие значения. Я не хочу создавать текстовую переменную для каждой новой записи. Есть ли способ поместить текст в запись без использования переменной? 10.06.2012.e1 insert 0 $t10.06.2012