文章/答案/技术大牛

发布

社区首页 >问答首页 >无法在笔记本中向下滚动

问无法在笔记本中向下滚动
EN

Stack Overflow用户

提问于 2016-08-26 19:26:30

回答 2查看 130关注 0票数 0

我创建了一个tcl笔记本，它有两个标签，如果文件太大，我无法向下滚动。在这里分享我的代码。要执行这段代码，您需要两个文件(Warning.txt和Error.txt)，在运行这段代码之前将它们放在同一目录中。请创建两个文件Error.txt和Warning.txt。在其中添加一些内容，使其大约有10,000行。

#!/usr/bin/wish -f
#
package require Tk

proc noteb {} {
    global rundir logfile
    frame .lpo
    pack .lpo -side top -fill both -expand true
    #cd $rundir
    set ft [exec grep -c Warning ./Warning.txt]
    puts $ft
    set ert [exec grep -c Error ./Error.txt]
    puts $ert
    pack [frame .fa] -fill both -side top
    pack [ttk::notebook .fa.nb] -fill both
    set gt "Errors"
    set bt "Warnings"
    set delim ":"
    set rt [concat [string trim $bt][string trim $delim][string trim $ft]]
    set dt [concat [string trim $gt][string trim $delim][string trim $ert]]

    if {$ft > 0} {
        .fa.nb add [frame .fa.nb.f1] -text $rt
    } else {
        .fa.nb add [frame .fa.nb.f1] -text "Warnings"
    }
    pack [frame .fa.nb.f1.f11] -side top -fill both -expand true
    pack [text .fa.nb.f1.f11.t1 -bg LightYellow -borderwidth 2 -width 80 -height 6 -relief raised -setgrid true ] -side left -fill both -expand true
    scrollbar .fa.nb.f1.f11.scroll -command {.fa.nb.f1.f11.t1 yview}
    pack .fa.nb.f1.f11.scroll -side right -fill y
    set fp1 [open Warning.txt r]
    set v [read $fp1]
    .fa.nb.f1.f11.t1 insert 1.0 $v
    close $fp1

    if {$ert > 0} {
        .fa.nb add [frame .fa.nb.f2] -text $dt
    } else {
        .fa.nb add [frame .fa.nb.f2] -text "Errors"
    }

    pack [frame .fa.nb.f2.f11] -side top  -fill both -expand true
    pack [text .fa.nb.f2.f11.t1 -bg LightYellow -borderwidth 2  -width 80 -height 6 -relief raised -setgrid true ] -side left -fill both -expand true
    scrollbar .fa.nb.f2.f11.scroll -command {.fa.nb.f2.f11.t1 yview}
    pack .fa.nb.f2.f11.scroll -side right -fill y
    set fp [open Error.txt r]
    set c [read $fp]
    .fa.nb.f2.f11.t1 insert 1.0 $c
    close $fp
}

button .mn -text summary -command {noteb}
pack .mn -side left

tcl

回答 2

Stack Overflow用户

发布于 2016-08-26 20:21:26

在下面这几行中，您将告诉scrollbar有关文本小部件的信息，但不告诉文本小部件有关scrollbar的信息。你需要同时做这两件事。

pack [text .fa.nb.f1.f11.t1 -bg LightYellow -borderwidth 2 -width 80 -height 6 -relief raised -setgrid true ] -side left -fill both -expand true
scrollbar .fa.nb.f1.f11.scroll -command {.fa.nb.f1.f11.t1 yview}
pack .fa.nb.f1.f11.scroll -side right -fill y

让它变成这样：

text .fa.nb.f1.f11.t1 -bg LightYellow -borderwidth 2 -width 80 -height 6 \
        -relief raised -setgrid true -yscroll {.fa.nb.f1.f11.scroll set}
scrollbar .fa.nb.f1.f11.scroll -command {.fa.nb.f1.f11.t1 yview}

pack .fa.nb.f1.f11.t1 -side left -fill both -expand true
pack .fa.nb.f1.f11.scroll -side right -fill y

尽管我实际上更倾向于这样做：

set w .fa.nb.f1.f11
text $w.t1 -bg LightYellow -borderwidth 2 -width 80 -height 6 -relief raised \
        -setgrid true -yscroll [list $w.scroll set]
scrollbar $w.scroll -command [list $w.t1 yview]

pack $w.t1 -side left -fill both -expand true
pack $w.scroll -side right -fill y

将容器小部件名称放在一个变量中有助于使您的代码更合理，并使文本和滚动条更明显地相关。(如果需要，它还使重构代码变得更容易。)

票数 2

Stack Overflow用户

发布于 2016-08-26 19:59:05

我认为如果您在text小部件上设置了-yscroll选项，它将会起作用。

票数 1

页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持

原文链接：

https://stackoverflow.com/questions/39165238

复制

相似问题

问无法在笔记本中向下滚动
EN

回答 2

Stack Overflow用户

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问无法在笔记本中向下滚动EN

回答 2

Stack Overflow用户

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问无法在笔记本中向下滚动
EN