From 77773831db5234d1cdcb25a5325f475aa11afa36 Mon Sep 17 00:00:00 2001 From: nagai Date: Mon, 16 Jun 2008 18:50:53 +0000 Subject: [PATCH] * ext/tk/sample/demos-jp/toolber.rb, ext/tk/sample/demos-en/toolber.rb: fail to back a tear-off marker when reattach the toolbar. git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@17369 b2dd03c8-39d4-4d8f-98ff-823fe69b080e --- ext/tk/sample/demos-en/toolbar.rb | 2 +- ext/tk/sample/demos-jp/toolbar.rb | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/ext/tk/sample/demos-en/toolbar.rb b/ext/tk/sample/demos-en/toolbar.rb index 5cf863717b..633c52c15d 100644 --- a/ext/tk/sample/demos-en/toolbar.rb +++ b/ext/tk/sample/demos-en/toolbar.rb @@ -70,7 +70,7 @@ if Tk.windowingsystem != 'aqua' w.grid_remove self.wm_manage # self.wm_title('Toolbar') # if you don't want to use its widget name as a window title. - self.wm_protocol('WM_DELETE_WINDOW'){ self.untearoff(self) } + self.wm_protocol('WM_DELETE_WINDOW'){ self.untearoff(w) } end def tbar_base.untearoff(w) self.wm_forget diff --git a/ext/tk/sample/demos-jp/toolbar.rb b/ext/tk/sample/demos-jp/toolbar.rb index 9cb3834c34..1bb265d1f8 100644 --- a/ext/tk/sample/demos-jp/toolbar.rb +++ b/ext/tk/sample/demos-jp/toolbar.rb @@ -73,7 +73,7 @@ if Tk.windowingsystem != 'aqua' w.grid_remove self.wm_manage # self.wm_title('Toolbar') # もしウィジェット名をウィンドウタイトルにしたくないなら，ここで設定してください - self.wm_protocol('WM_DELETE_WINDOW'){ self.untearoff(self) } + self.wm_protocol('WM_DELETE_WINDOW'){ self.untearoff(w) } end def tbar_base.untearoff(w) self.wm_forget