scrollbar
proc autoscroll { scrollbar first last} {
if {$first <= 0 && $last >= 1} {
grid remove $scrollbar
} else {
grid $scrollbar
}
$scrollbar set $first $last
}
itk_component add viewcryst_scroll {
scrollbar $itk_interior.iscroll \
-command [code $this component treectrlcom yview] \
-orient vertical
}
$itk_component(treectrlcom) configure \
-yscrollcommand [list autoscroll $itk_component(viewcryst_scroll)]
grid $itk_component(treectrlcom) $itk_component(viewcryst_scroll) -sticky nswe
【推荐】编程新体验,更懂你的AI,立即体验豆包MarsCode编程助手
【推荐】凌霞软件回馈社区,博客园 & 1Panel & Halo 联合会员上线
【推荐】抖音旗下AI助手豆包,你的智能百科全书,全免费不限次数
【推荐】博客园社区专享云产品让利特惠,阿里云新客6.5折上折
【推荐】轻量又高性能的 SSH 工具 IShell:AI 加持,快人一步