From: Hiramatu Yoshifumi <hiramatu@...>
Date: 1998-06-25T13:09:57+09:00
Subject: [ruby-list:8501] Widget-demo of TkMenubutton

平松です。

Tk のメニューボタンのデモができたので、

http://www.cdrom.co.jp/~hiramatu/menubu.rb

に置いておきます。
以前、TkPhotoImage.putが動かないと書きましたが、
def put(data, *to)
  tk_send 'put', data, '-to', *to
end
とするととりあえずデモは動きます。本当は *to が与えられていない
ときの処理も書いておかなければならないのですが。

ところで、Wm モジュールの中のメソッドの group と iconbitmap は
下のように修正して下さい。

def group(*args)
  tk_call 'wm', 'group', path, *args
end
def iconbitmap(*args)
  tk_call 'wm', 'iconbitmap', path, *args
end

// 平松祥史(Hiramatsu, Yoshifumi)
// hiramatu@cdrom.co.jp