tcl/tk text组件命令解析

使用text组件对文件编辑

tcltk 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 nsproc loadFile {} {set file [tk_getOpenFile -initialfile text].text delete 1.0 end;   # delete content in .textset 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 2.4

insert 识别插入光标的位置

 .text delete insert "insert + 2 chars"

文本标记

文本标记提供了一种类似画布的标记机制,区别是文本标记作用于字符而不是图像. 文本组件中标记提供三种功能:

它们可以用于调整字符的排版格式,如前景色背景色字体间隔和左右页边距.
它们提供了一种管理选择的方式.
它们提供事件绑定功能,能将纯文本转换为活动的控件.

标记的名称可是为任意字符串值,也能应用与文本中的任何范围
单个字符也可能有多个标记
单个标记可能会与多个字符关联

.text tag add thisTag 1.0 1.end
## 将1.0-1.end标记thisTag

.text tag ranges hot
## 返回所有标记为hot的字符的起始和末尾列表

 .text delete 1.0 end## 在text重新加载一个文件时,使用该命令把之前的内容删除## 1.0是1行0字符的位置,end是文章的结尾.text delete first first + 4 chars

其他详见tk/text文档

标记选项

标记选项大概24个,分为三类:

用于隐藏文本,只有一个
- elide 布尔值
用于格式化文本
- background
- borderwidth
- font
- …
用于布局
- justify
- tabs
- …

### 搜索文本row,改变背景色字体大小和浮雕
proc doChange {} {forAllMatches .text row {.text tag add big first last}.text tag configure big -background "blue" -font {30} -relief raised
}

标记优先级

某个范围的字符能对应多个标记,对可能的冲突事件,需要根据优先级处理
新定义的标记,优先级最高
用raise提升优先级,用lower降低优先级

.text tag raise thisTag
.text tag lower thisTag thatTag

标记绑定

文本组件允许使用tag bind子命令关联绑定和标记.
可以使用绑定是部分文本处于激活状态,从而响应鼠标键盘 <Enter> <Leave>或虚拟事件.

proc doChange {} {forAllMatches .text row {.text tag add big first last}.text tag configure big -background "blue" -font {30} -relief raised.text tag bind big <Enter> {.text tag configure big -background "red" -font {40}}.text tag bind big <Leave> {.text tag configure big -background "blue" -font {30} -relief raised}
}

搜索与替换

文本组件支持search子命令和replace子命令.

### 用记号和索引提供的一般性搜索功能
proc forAllMatches {w pattern script} {set countList [list]set startList [$w search -all -regexp -count countList $pattern 1.0 end]foreach first $startList count $countList {$w mark set first $first$w mark set last [$w index "$first + $count chars"]uplevel 1 $script}
}

forAllMatches总过有三个参数:文本组件名正则表达式和脚本.
它使用search命令执行匹配并找出匹配文本的开始索引
-count选项为变量countList中的每一个匹配对象返回字符的个数
对每个匹配对象,forAllMatches设置记号first和last分别标记起始和末端,然后调用脚本

## 搜索文本p并打印起始和末端的索引
proc doSearch {} {forAllMatches .text p {puts "[.text index first]---->[.text index last]"}
}

虚拟事件

文本组件产生两个虚拟事件

<<Modified>>事件与撤销机制相关
- 该特性需要将-undo设置为真来启用
- 通常用于启用save特性
<<Selection>>事件与选择有关
- 当且仅当sel标记应用于任意字符时,它会启用接口特性,如剪切和复制,若没有应用,则它会禁用该特性

撤销和重做

文本组件有无限的撤销/重做机制,使用前要text的-undo特性启用
该机制记录了在一个堆栈上的每一个插入和删除操作,撤销和重做是以两个堆栈边界之间的内容为基本单元执行操作的

## bool设置为0,用来清除修改标识,通常文件加载后清除修改标识.
.text edit modified ?bool?
## .text撤销
.text edit undo
## .text重做
.text edit redo
## 增加堆栈边界,通常一行一次修改会自动作为加载一个堆栈边界
.text edit separator


proc undoText {tw} {catch {$tw edit undo}
}
proc redoText {tw} {catch {$tw edit redo}
}
proc separatorText {tw} {catch {$tw edit separator}
}
proc resetText {tw} {catch {$tw edit reset}
}proc dataModified {tw} {if {[$tw edit modified]} {.undo configure -state normal.redo configure -state normal} else {.undo configure -state disabled.undo configure -state disabled}
}button .undo -text undo -command {undoText .text}
button .redo -text redo -command {redoText .text}
button .separ -text sepStack -command {separatorText .text}
button .reset -text resetUndo -command {resetText .text}

同级文本组件

peer文本组件命令用于创建文本组件副本,它们能共享相同的文本数据.一个文本组件中的任何改变都能立即出现在它的同级组件中.
同级组件共享所有的文本图像和标记.
它们不共享嵌入式窗口 sel标记, 记号insert和current

toplevel .shareText
.text peer create .shareText.text -relief raised -bg green -yscrollcommand ".scroll2 set" -undo 1
scrollbar .scroll2 -command ".shareText.text yview"pack .shareText.text -in .shareText

嵌入式窗口和嵌入图像

………………..

获取代码

https://github.com/guowenshuai/perl_program/blob/master/wish/eg1.tcl

Perl/Tkx ---- tcl/tk文本组件text相关推荐

Flutter文本组件Text
Flutter 文本组件Text 在android中,一个页面,一般是用 Activity 或者是一个Fragement 来加载显示出来的,而其中的一个View 或者一个布局文件(layout.x ...
微信小程序文本组件text使用详解-微信小程序系统学习攻略
也许你迷茫,但是我想说,在你迷茫的同时,保持本心,过好今天就好. 在微信小程序中,组件 text 用来显示文本,基本使用代码如下: <text >测试使用</text> 1 基 ...
uni-app中text文本组件的基本使用
text文本组件的用法 001 - text 组件的属性属性类型默认值必填说明 selectable boolean false 否文本是否可选 space string . 否显示连续 ...
【text】文本组件说明
text文本组件:在小程序里除了文本节点以外的其他节点都无法长按选中. 原型: <textselectable="[Boolean]"space="[ensp | ...
Tcl/Tk的一些笔记
Tcl/Tk的一些笔记快速图形界面开发语言Tcl/Tk 0.前言.在unix like系统下,有没有像VB一样的快速图象界面开发工具呢?很多人大概马上会想到Kylix,基于Java的一些图形开发工 ...
Tcl/Tk 快速入门
2019独角兽企业重金招聘Python工程师标准>>> 关于本教程谁应该学习本教程? 本教程是针对那些具有一种或多种编程或脚本语言经验的人员设计的.可以在几种平台(包括 Win32 ...
python：tkinter —— Tcl/Tk 的 Python 接口
python:tkinter -- Tcl/Tk 的 Python 接口架构 Tkinter 模块 Tkinter 拾遗 Hello World 程序重要的 Tk 概念了解 Tkinter 如何 ...
The History of Tcl/Tk
http://blog.csdn.net/ganxingming/archive/2006/09/11/1210067.aspx Tcl/Tk 进度声明我所知道的就这么多了,大家可以尽情的批评了!感 ...
tkinter —— Tcl/Tk 的 Python 接口
注:PYTHON最新版本3.12.0a3 源代码: Lib/tkinter/__init__.py tkinter 包 ("Tk 接口") 是针对 Tcl/Tk GUI 工具包的标 ...

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