Perl/Tkx ---- tcl/tk文本组件text

tcl/tk text组件命令解析

使用text组件对文件编辑

text命令创建文本组件

text .text -relief raised -bg yellow -yscrollcommand {.scroll set}
scrollbar .scroll -command {.text yview}
grid .text -row 0 -column 0 -sticky news
grid .scroll -row 0 -column 1 -sticky ns

proc loadFile {} {
    set file [tk_getOpenFile -initialfile text]
    .text delete 1.0 end;   # delete content in .text
    set f [open $file];		# read $file into $f
    .text insert end [read $f];    # 
    close $f
}

文本索引

文本中的位置说明符称为索引

• 最简单的形式,一个点分开的两个数组组成,如2.3表示第二行字符索引是3的位置. 行号从1开始编号,一行中的字符从0开始编号.

• 5.end表示代表第五行终止的换行符

## 删除一行
## 5.0->5.end到删除一行但是不包括换行符,5.end再删除换行符
.text delete 5.0 5.end 5.end 
.text delete 5.0 6.0

• @x.y形式的索引中的数字x和y指在窗口中最靠近x,y坐标处像素的字符.

• 对文本中表征位置的字符设定名称,称为设定记号

.text mark set first