[ruby-dev:1029] Re: [1.1b1] tkdialog.rb

まつもと ゆきひろです

In message "[ruby-dev:1027] Re: [1.1b1] tkdialog.rb"
    on 97/12/10, Yukihiro Matsumoto <[e-mail]> writes:

|まつもと ゆきひろです

|すいません．含まれているだけで，新しいtk.rbに対応していませ
|ん．対応した(というかとりあえず動く)tkdialog.rbは以下のよう
|な感じです．まだなんか動きが変なのですが…．

ちょっと古いファイルを出しちゃいました．その上 tk.rb に必要
なパッチも忘れてました．

まず，tkdialog.rbの正解を出します．
--
require "tk"

class TkDialog < TkWindow
  # initialize tk_dialog
  def initialize
    super
    @var = TkVariable.new("{aaaa")
    res = INTERP._eval('eval {global '+@var+';'+
		       'set '+@var+' [tk_dialog '+ 
		       @path+" "+title+" \"#{message}\" "+bitmap+" "+
		       default_button+" "+buttons+']}')
  end
  def value
    return @var.value.to_i
  end
  ######################################################
  #                                                    #
  # these methods must be overridden for each dialog   #
  #                                                    #
  ######################################################
  def title
    return "DIALOG"
  end
  def message
    return "MESSAGE"
  end
  def bitmap
    return "info"
  end
  def default_button
    return 0
  end
  def buttons
    return "BUTTON1 BUTTON2"
  end
end

#
# dialog for warning
#
class TkWarning < TkDialog
  def initialize(mes)
    @mes = mes
    super()
  end
  def message
    return @mes
  end
  def title
    return "WARNING";
  end
  def bitmap
    return "warning";
  end
  def default_button
    return 0;
  end
  def buttons
    return "OK";
  end
end
--

次に tk.rb へのパッチです

--- tk.rb~	Wed Dec 10 10:50:31 1997
+++ tk.rb	Wed Dec 10 17:06:46 1997
@@ -426,3 +427,3 @@
     Tk_VARIABLE_ID[0] = Tk_VARIABLE_ID[0].succ
-    tk_call(format('global %s; set %s', @id, @id), val)
+    INTERP._eval(format('global %s; set %s %s', @id, @id, _get_eval_string(val)))
   end
@@ -434,3 +435,3 @@
   def value
-    tk_call(format('global %s; set', @id), @id)
+    INTERP._eval(format('global %s; set %s', @id, @id))
   end