Go语言和Tcl/Tk GUI库的例子1 按钮

最新推荐文章于 2025-01-25 10:51:17 发布

D_SJ

最新推荐文章于 2025-01-25 10:51:17 发布

阅读量745

点赞数

原文链接：https://my.oschina.net/tsl/blog/408726

版权

本文介绍了如何将Tcl/Tk界面代码转换为Go语言，并详细说明了转换过程中的关键步骤及注意事项。通过实例演示，展示了如何在Go中实现界面功能，包括按钮样式设置、布局调整等，最终实现与Go应用的无缝集成。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

为什么80%的码农都做不了架构师？>>>

a 用vtcl建立一个新project，然后制作界面并保存

我自己做的如图1

b 用文本编辑器打开vtcl产生的main.tcl文件，我们即将进行提取和界面相关的代码

复制如下匹配的n行代码到一个新建的文本文件，

    ###################
    # CREATING WIDGETS
    ###################

。。。此处省略Tcl/Tk代码n行

    ###################
    # SETTING GEOMETRY
    ###################

。。。此处省略Tcl/Tk代码n行

#############################################################################
##

我复制出来的大概100多行，接着要进行删除和精简

1 把第一行到最后一个以wm起头的行【1-18行】之间的所有内容删除，如下图

2 把所有以 vTcl:DefineAlias起头的行删除

3 把 -in $top 全部去掉【或者替换成 -in . 】

4 把$top全部去掉

5 把倒数第三第四行的

vTcl:FireEvent $base <<Ready>>
}

去掉

完成后如下图（抓图早了，还有$top还没去掉，懒得换正确的图了），总计大概50行，这些就是可以用在go里的界面代码了

c 打开LiteIDE，新建一个go文件，把刚才得到的50行界面代码复制到init_script字符串常量里面，完成代码如下

package main
import "github.com/nsf/gothic"

const init_script = `
#把界面代码复制到这里，注释行使用#符号，\符号是续行符
wm geometry . 500x400+100+100
#上面wm起头的行是我自己增加的，目的是撑大界面大小
     button .but69 \
        -pady 0 -text 默认 
      button .but70 \
        -background {#0000ff} -foreground {#ffffff} -pady 0 -text 蓝背景 
      button .but71 \
        -cursor X_cursor -pady 0 -text 光标变化 
      button .but73 \
        -borderwidth 10 -pady 0 -text {bd 10px} 
      button .but74 \
        -activeforeground {#ff00ff} \
        -font "-family 黑体 -size 28 -weight bold -slant roman -underline 0 -overstrike 0" \
        -pady 0 -text 黑体28px 
        #前面一行在vtcl原句如下，经修改去掉【vTcl。。。 和 】，只保留双引号之间的内容即可
        # -font [vTcl:font:getFontFromDescr "-family 黑体 -size 28 -weight bold -slant roman -underline 0 -overstrike 0"] \

      button .but75 \
        -foreground {#ff0000} -pady 0 -text 按钮 
      button .but76 \
        -foreground {#000000} -pady 0 -text raised 
      button .but77 \
        -pady 0 -relief flat -text flat 
      button .but78 \
        -pady 0 -relief groove -text groove 
      button .but79 \
        -pady 0 -relief ridge -text ridge 
      button .but80 \
        -pady 0 -relief sunken -text sunken 
    ###################
    # SETTING GEOMETRY
    ###################
    place .but69 \
         -x 40 -y 30 -anchor nw -bordermode ignore 
    place .but70 \
         -x 130 -y 30 -anchor nw -bordermode ignore 
    place .but71 \
         -x 30 -y 120 -anchor nw -bordermode ignore 
    place .but73 \
         -x 210 -y 105 -anchor nw -bordermode ignore 
    place .but74 \
         -x 255 -y 15 -anchor nw -bordermode ignore 
    place .but75 \
         -x 360 -y 120 -anchor nw -bordermode ignore 
    place .but76 \
         -x 25 -y 320 -anchor nw -bordermode ignore 
    place .but77 \
         -x 175 -y 275 -anchor nw -bordermode ignore 
    place .but78 \
         -x 95 -y 275 -anchor nw -bordermode ignore 
    place .but79 \
         -x 30 -y 275 -anchor nw -bordermode ignore 
    place .but80 \
         -x 95 -y 320 -anchor nw -bordermode ignore 
  

#############################################################################
## 
`

func main() {
    ir := gothic.NewInterpreter(init_script)

    <-ir.Done
}

【其实还可以进一步精简，比如去掉 -bordermode ignore 和去掉大部分续行符，省下来一共才30来行的界面代码】

运行效果如下图