Pane对象中没有鼠标滚动？

Question

使用鼠标滚轮时，以下Pane对象不会滚动。有没有人经历过同样的行为？这是默认行为吗？知道为什么吗？它可能是特定于平台的吗？

CreateDialog[Pane[Column[Range[30]], {300, 200}, Scrollbars -> True]]

我的平台：Win7-64，Mathematica 8.0.1

Answer 1

另一种解决方案：

Needs["GUIKit`"]
ref = GUIRun[
   Widget["Panel", {
     Widget["ScrollPane", {
       "viewportView" -> Widget["List", {
          "visibleRowCount" -> 4,
          "items" -> Script[Range[30]]
          }] }] }]
   ];

Pane的问题是MouseWheel事件没有绑定，就像在GUIKit中一样。使用此技术，您还可以Bind["MouseWheel" ...]执行任何其他操作。