1# -*- coding: utf-8 -*- 2# 3# a dialog box with a local grab (called by 'widget') 4# 5class TkDialog_Demo1 < TkDialog 6 ############### 7 private 8 ############### 9 def title 10 "Dialog with local grab" 11 end 12 13 def message 14 'モーダルダイアログボックスです。Tk の "grab" コマンドを使用してダイアログボックスで「ローカルグラブ」しています。下のいずれかのボタンを実行することによって、このダイアログに答えるまで、このグラブによってアプリケーションの他のウィンドウでは、ポインタ関係のイベントを受け取ることができなくなっています。' 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_Demo1.new('message_config'=>{'wraplength'=>'4i'}).value 32case ret 33when 0 34 print "あなたは「了解」を押しましたね。\n" 35when 1 36 print "あなたは「キャンセル」を押しましたね。\n" 37when 2 38 showCode 'dialog1' 39end 40