From: matz@... (Yukihiro Matsumoto)
Date: 1997-12-10T16:29:52+09:00
Subject: [ruby-dev:1027] Re: [1.1b1] tkdialog.rb

まつもと ゆきひろです

In message "[ruby-dev:1021] [1.1b1] tkdialog.rb"
    on 97/12/10, Kikutani Makoto <kikutani@jdc.ericsson.se> writes:

|きくたにです。
|
|# パッチどうもっす。

御迷惑をかけます．どうも菊谷さんのところでは問題ばかりで．

|tkdialog.rb がライブラリにあるので使えるようになったのかなと
|思ったのですが、
|
|include TkLowlevel
|
|とかしてるところで蹴られてます。

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

--
require "tk"

class TkDialog < TkWindow
  # initialize tk_dialog
  def initialize
    super
    @var = TkVariable.new
    res = INTERP._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