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