From 283826f751e9447485bd322ea108daf8b9b824d4 Mon Sep 17 00:00:00 2001 From: nagai Date: Thu, 12 Jun 2008 16:51:12 +0000 Subject: * ext/tk/tcltklib.c: [trial patch] On some environments, it gives better responce about callbacks across threads. But on the other environments, it has no effect. git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@17115 b2dd03c8-39d4-4d8f-98ff-823fe69b080e --- ext/tk/sample/demos-en/msgbox2.rb | 4 ++-- ext/tk/sample/demos-jp/msgbox2.rb | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) (limited to 'ext/tk/sample') diff --git a/ext/tk/sample/demos-en/msgbox2.rb b/ext/tk/sample/demos-en/msgbox2.rb index 6fe6c778b3..136a723c73 100644 --- a/ext/tk/sample/demos-en/msgbox2.rb +++ b/ext/tk/sample/demos-en/msgbox2.rb @@ -42,7 +42,7 @@ TkFrame.new(base_frame) {|frame| TkButton.new(frame) { text 'Message Box' - command proc{showMessageBox $msgbox2_demo} + command proc{showMessageBox2 $msgbox2_demo} }.pack('side'=>'left', 'expand'=>'yes') }.pack('side'=>'bottom', 'fill'=>'x', 'pady'=>'2m') @@ -79,7 +79,7 @@ $msgboxType = TkVariable.new('ok') 'anchor'=>'w', 'fill'=>'x') } -def showMessageBox(w) +def showMessageBox2(w) button = Tk.messageBox('icon'=>$msgboxIcon.value, 'type'=>$msgboxType.value, 'title'=>'Message', 'parent'=>w, 'message'=>"\"#{$msgboxType.value}\" Type MessageBox", diff --git a/ext/tk/sample/demos-jp/msgbox2.rb b/ext/tk/sample/demos-jp/msgbox2.rb index d61f25129a..e2944c59ed 100644 --- a/ext/tk/sample/demos-jp/msgbox2.rb +++ b/ext/tk/sample/demos-jp/msgbox2.rb @@ -41,7 +41,7 @@ TkFrame.new(base_frame) {|frame| TkButton.new(frame) { text 'メッセージボックス' - command proc{showMessageBox $msgbox2_demo} + command proc{showMessageBox2 $msgbox2_demo} }.pack('side'=>'left', 'expand'=>'yes') }.pack('side'=>'bottom', 'fill'=>'x', 'pady'=>'2m') @@ -78,7 +78,7 @@ $msgboxType = TkVariable.new('ok') 'anchor'=>'w', 'fill'=>'x') } -def showMessageBox(w) +def showMessageBox2(w) button = Tk.messageBox('icon'=>$msgboxIcon.value, 'type'=>$msgboxType.value, 'title'=>'Message', 'parent'=>w, 'message'=>"\"#{$msgboxType.value}\"タイプのメッセージボックス", -- cgit v1.2.3