1# -*- coding: utf-8 -*- 2# 3# a dialog box with a global grab (called by 'widget') 4# 5class TkDialog_Demo2 < TkDialog 6 ############### 7 private 8 ############### 9 def title 10 "Dialog with global grab" 11 end 12 13 def message 14 'このダイアログボックスはグローバルグラブを使用しています。下のボタンを実行するまで、ディスプレイ上のいかなるものとも対話できません。グローバルグラブを使用することは、まず良い考えではありません。どうしても必要になるまで使おうと思わないで下さい。' 15 end 16 17 def bitmap 18 'info' 19 end 20 21 def default_button 22 0 23 end 24 25 def buttons 26# "了解 キャンセル コード参照" 27 ["了解", "キャンセル", "コード参照"] 28 end 29end 30 31ret = TkDialog_Demo2.new('message_config'=>{'wraplength'=>'4i'}, 32 'prev_command'=>proc{|dialog| 33 Tk.after 100, proc{dialog.grab('global')} 34 }).value 35case ret 36when 0 37 print "あなたは「了解」を押しましたね。\n" 38when 1 39 print "あなたは「キャンセル」を押しましたね。\n" 40when 2 41 showCode 'dialog2' 42end 43 44