Aggressive_snail的专栏

canvas放大后，移动canvas使其在屏幕中央通过拖拽鼠标画方框的方式放大### 下面是对x轴方向的代码my $canvasx = xxxxx; ## canvas画布的x方向长度my $canvas_point_x0 = $canvas->canvasx(x0); ## view window的（x0,y0）点处画布上的x坐标my $canvas_point_x1 = $canvas-

tkx笔记，tkx顶级窗口，tkx使用，

在Perl中使用Tkx模块调用tk场景：当主窗口需要一个短期的窗口（如对话框、提示框、配置选项框等），而要求短期窗口暂时代表主窗口且能始终在主窗口之上。实现：窗口管理器可以对窗口进行特别的处理。## 配置高级选项use Tkx;## my $mw = Tkx::widget->new("."); ...##sub advancedUI { my $parent =

tcl/tk text组件命令解析使用text组件对文件编辑tcltk text组件命令解析text命令创建文本组件文本索引 index文本标记 tag标记选项 -font标记优先级 raise标记绑定 bind搜索与替换 search replace虚拟事件 <<Selection>>撤销和重做 undo redo同级文本组件 peer

记录涉及到tcl用到的函数和其他选项uplevel 执行一个脚本, uplevel script ?arg? ...catch 捕获异常,执行成功返回0否则返回1catch command

所以滚动条的实现是一个双向的过程一个滚动条控制多个组件，同步滚动perl/python/tk滚动条