2

我正在尝试制作一个小程序来将一些数据转换为可用的形式。我想做的一件事是能够选择一些文件并对它们执行操作，所以我想我会使用 Tk 中的列表框对象来做到这一点。我希望能够打开一个文件并看到它的文件名显示在列表框中。据我所知，这正是在列表框中使用 listvariable 的目的。然而，当我运行我的代码时，列表框永远不会更新（尽管 listvariable 变量中已经显示的项目很好）。

所以这是一个接近 MWE 的地方。我做错了什么，我误解了什么基本思想？

require 'tk'
require 'tkextlib/tile'

$path_list = []
$populate_list = TkVariable.new( $path_list )

def get_file
  file = Tk.getOpenFile
  file = open(file) unless file.empty?
  path = File.basename(file, ".out")
  if $path_list.include?(path)
    Tk.messageBox(
        'type'    => "ok",
        'icon'    => "warning",
        'title'   => " - Minimum Working Example - ",
        'message' => "This file has already been added! Nothing was added to the list"
    )
  else
    $path_list.push(path)
  end
end

root = TkRoot.new {title "- Minimum Working Example -"}
frame = Tk::Tile::Frame.new(root) {padding "3 3 12 12"}.grid( :sticky => 'nsew') # 'north south east west'
TkGrid.columnconfigure root, 0, :weight => 1; TkGrid.rowconfigure root, 0, :weight => 1

$file_listbox = Tk::Listbox.new(frame) {
  listvariable $populate_list}.grid( :column => 1, :row => 0, :rowspan => 6)

Tk::Tile::Button.new(frame) {
  width 15; text 'Open file...'; command {get_file}}.grid( :column => 0, :row => 1)

Tk.mainloop

我是否可能必须以其他顺序编写它？

4

1 回答 1

3

只需添加一行代码：

$populate_list.value = $path_list

在这个下：

$path_list.push(path)

它对我有用，虽然看起来很奇怪。

TkVariable为您的 ruby​​ 变量创建一个代理，从而将您的 ruby​​ var 引用与 Tk 小部件连接起来。但我不知道为什么代理 var 的更改不会影响它指向的 var。我不确定它是否应该自动执行此操作。

于 2013-02-08T06:27:56.920 回答