代码示例:
encoding system gbk2312; # 编码方式
# hm_framework learning code
catch {destroy $f}
set f [frame .dialog]; # 定义frame
hm_framework addpanel $f "" ; # framework添加panel
hm_framework drawpanel $f; # 显示panel
# panel上增加布局按钮
# set btn_ok [button $f.btn_ok -text "OK"]; # 定义按钮
# pack $btn_ok -side top -anchor -ne; # 布局
set lbfm_set [labelframe $f.lbm_set -text "setting"]; # 定义lableframe
pack $lbfm_set -side left -fill y -padx 20 -ipadx 100; # 布局
# pack参数 -padx为控件外部x方向空白大小; -ipadx为控件内部x方向空白大小
set lb_str [label $lbfm_set.lb_str -text "test"]; # 定义label
pack $lb_str; # 布局
运行效果:
</