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