如何使用Tix Python启用鼠标滚轮滚动清单中的滚动条

Question

如何启用鼠标滚轮滚动窗口。我可以使用滚动条滚动窗口，但我想使用鼠标滚轮滚动窗口。

请告诉我怎么做？

Tix中是否有可用的方法？

import Tix

class View(object):
    def __init__(self, root):
        self.root = root
        self.makeCheckList()

    def makeCheckList(self):
        self.cl = Tix.CheckList(self.root, browsecmd=self.selectItem)
        self.cl.pack()
        self.cl.hlist.add("CL1", text="checklist1")
        self.cl.setstatus("CL1", "off")

        self.cl.hlist.add("CL1.Item1", text="subitem1")
        self.cl.setstatus("CL1.Item1", "off")
        self.cl.hlist.add("CL1.Item2", text="subitem2")
        self.cl.setstatus("CL1.Item2", "off")
        self.cl.hlist.add("CL1.Item3", text="subitem3")
        self.cl.setstatus("CL1.Item3", "off")
        self.cl.hlist.add("CL1.Item4", text="subitem4")
        self.cl.setstatus("CL1.Item4", "off")
        self.cl.hlist.add("CL1.Item5", text="subitem5")
        self.cl.setstatus("CL1.Item5", "off")
        self.cl.hlist.add("CL1.Item6", text="subitem6")
        self.cl.setstatus("CL1.Item6", "off")
        self.cl.hlist.add("CL1.Item7", text="subitem7")
        self.cl.setstatus("CL1.Item7", "off")
        self.cl.hlist.add("CL1.Item8", text="subitem8")
        self.cl.setstatus("CL1.Item8", "off")

        self.cl.hlist.add("CL2", text="item2")
        self.cl.setstatus("CL2", "on")

        self.cl.hlist.add("CL2.Item1", text="subitem1")
        self.cl.setstatus("CL2.Item1", "on")
        self.cl.hlist.add("CL2.Item2", text="subitem2")
        self.cl.setstatus("CL2.Item2", "on")
        self.cl.hlist.add("CL2.Item3", text="subitem3")
        self.cl.setstatus("CL2.Item3", "on")
        self.cl.hlist.add("CL2.Item4", text="subitem4")
        self.cl.setstatus("CL2.Item4", "on")



        self.cl.autosetmode()

    def selectItem(self, item):
        print item, self.cl.getstatus(item)

def main():
    root = Tix.Tk()
    view = View(root)
    root.update()
    root.mainloop()

if __name__ == '__main__':
    main()

此代码的输出：