select.tk

来自「Linux程序设计(原书第2版)源码」· TK 代码 · 共 19 行

#!/usr/bin/wish -f
interp create foo 

foo eval {
    load {} Tk
    text .t 
    pack .t
    .t insert end "Hello World!"
    .t tag add sel  0.0 end
    selection own
    .t insert end "\n"
#   .t insert end "[selection get -selection SECONDARY]"
    .t insert end "[selection get ]"

    
}
puts "[selection get]"