~ubuntu-branches/ubuntu/quantal/ruby1.9.1/quantal

« back to all changes in this revision

Viewing changes to ext/tk/sample/demos-jp/radio3.rb

  • Committer: Bazaar Package Importer
  • Author(s): Lucas Nussbaum
  • Date: 2010-07-31 17:08:39 UTC
  • mfrom: (1.1.4 upstream) (8.1.2 sid)
  • Revision ID: james.westby@ubuntu.com-20100731170839-j034dmpdqt1cc4p6
Tags: 1.9.2~svn28788-1
* New release based on upstream snapshot from the 1.9.2 branch,
  after 1.9.2 RC2. That branch is (supposed to be) binary-compatible
  with the 1.9.1 branch.
  + Builds fine on i386. Closes: #580852.
* Upgrade to Standards-Version: 3.9.1. No changes needed.
* Updated generated incs.
* Patches that still need work:
  + Unclear status, need more investigation:
   090729_fix_Makefile_deps.dpatch
   090803_exclude_rdoc.dpatch
   203_adjust_base_of_search_path.dpatch
   902_define_YAML_in_yaml_stringio.rb.dpatch
   919_common.mk_tweaks.dpatch
   931_libruby_suffix.dpatch
   940_test_thread_mutex_sync_shorter.dpatch
  + Maybe not needed anymore, keeping but not applying.
   102_skip_test_copy_stream.dpatch (test doesn't block anymore?)
   104_skip_btest_io.dpatch (test doesn't block anymore?)
   201_gem_prelude.dpatch (we don't use that rubygems anyway?)
   202_gem_default_dir.dpatch (we don't use that rubygems anyway?)
   940_test_file_exhaustive_fails_as_root.dpatch
   940_test_priority_fails.dpatch
   100518_load_libc_libm.dpatch
* Add disable-tests.diff: disable some tests that cause failures on FreeBSD.
  Closes: #590002, #543805, #542927.
* However, many new failures on FreeBSD. Since that version is still an
  improvement, add the check that makes test suite failures non-fatal on
  FreeBSD again. That still needs to be investigated.
* Re-add 903_skip_base_ruby_check.dpatch
* Add build-dependency on ruby1.8 and drop all pre-generated files.

Show diffs side-by-side

added added

removed removed

Lines of Context:
10
10
 
11
11
# toplevel widget
12
12
if defined?($radio3_demo) && $radio3_demo
13
 
  $radio3_demo.destroy 
 
13
  $radio3_demo.destroy
14
14
  $radio3_demo = nil
15
15
end
16
16
 
23
23
 
24
24
base_frame = TkFrame.new($radio3_demo).pack(:fill=>:both, :expand=>true)
25
25
 
26
 
# label 
 
26
# label
27
27
msg = TkLabel.new(base_frame) {
28
28
  font $font
29
29
  wraplength '5i'
37
37
color = TkVariable.new
38
38
align = TkVariable.new
39
39
 
40
 
# frame 
 
40
# frame
41
41
TkFrame.new(base_frame) {|frame|
42
 
  TkGrid(TkFrame.new(frame, :height=>2, :relief=>:sunken, :bd=>2), 
 
42
  TkGrid(TkFrame.new(frame, :height=>2, :relief=>:sunken, :bd=>2),
43
43
         :columnspan=>4, :row=>0, :sticky=>'ew', :pady=>2)
44
 
  TkGrid('x', 
45
 
         TkButton.new(frame, :text=>'�ѿ�����', 
46
 
                      :image=>$image['view'], :compound=>:left, 
 
44
  TkGrid('x',
 
45
         TkButton.new(frame, :text=>'�ѿ�����',
 
46
                      :image=>$image['view'], :compound=>:left,
47
47
                      :command=>proc{
48
 
                        showVars(base_frame, ['size', size], 
 
48
                        showVars(base_frame, ['size', size],
49
49
                                 ['color', color], ['compound', align])
50
 
                      }), 
51
 
         TkButton.new(frame, :text=>'�����ɻ���', 
52
 
                      :image=>$image['view'], :compound=>:left, 
53
 
                      :command=>proc{showCode 'radio3'}), 
54
 
         TkButton.new(frame, :text=>'�Ĥ���', 
55
 
                      :image=>$image['delete'], :compound=>:left, 
 
50
                      }),
 
51
         TkButton.new(frame, :text=>'�����ɻ���',
 
52
                      :image=>$image['view'], :compound=>:left,
 
53
                      :command=>proc{showCode 'radio3'}),
 
54
         TkButton.new(frame, :text=>'�Ĥ���',
 
55
                      :image=>$image['delete'], :compound=>:left,
56
56
                      :command=>proc{
57
57
                        tmppath = $radio3_demo
58
58
                        $radio3_demo = nil
59
59
                        $showVarsWin[tmppath.path] = nil
60
60
                        tmppath.destroy
61
 
                      }), 
 
61
                      }),
62
62
         :padx=>4, :pady=>4)
63
63
  frame.grid_columnconfigure(0, :weight=>1)
64
64
  TkGrid(frame, :row=>3, :column=>0, :columnspan=>3, :sticky=>'nsew')
65
65
}
66
66
 
67
 
# frame 
68
 
f_left  = TkLabelFrame.new(base_frame, 'text'=>'ʸ��������', 
69
 
                           'pady'=>2, 'padx'=>2)
70
 
f_mid   = TkLabelFrame.new(base_frame, 'text'=>'��', 
71
 
                           'pady'=>2, 'padx'=>2)
72
 
f_right = TkLabelFrame.new(base_frame, 'text'=>'�ӥåȥޥå�����', 
 
67
# frame
 
68
f_left  = TkLabelFrame.new(base_frame, 'text'=>'ʸ��������',
 
69
                           'pady'=>2, 'padx'=>2)
 
70
f_mid   = TkLabelFrame.new(base_frame, 'text'=>'��',
 
71
                           'pady'=>2, 'padx'=>2)
 
72
f_right = TkLabelFrame.new(base_frame, 'text'=>'�ӥåȥޥå�����',
73
73
                           'pady'=>2, 'padx'=>2)
74
74
f_left .grid('column'=>0, 'row'=>1, 'pady'=>'.5c', 'padx'=>'.5c', 'rowspan'=>2)
75
75
f_mid  .grid('column'=>1, 'row'=>1, 'pady'=>'.5c', 'padx'=>'.5c', 'rowspan'=>2)
76
76
f_right.grid('column'=>2, 'row'=>1, 'pady'=>'.5c', 'padx'=>'.5c')
77
77
 
78
 
TkButton.new(base_frame, 'text'=>'�ȥ饤���ơ���', 
 
78
TkButton.new(base_frame, 'text'=>'�ȥ饤���ơ���',
79
79
             'command'=>proc{size.value = 'multi'; color.value = 'multi'}){
80
80
  grid('column'=>2, 'row'=>2, 'pady'=>'.5c', 'padx'=>'.5c')
81
81
}
82
82
 
83
 
# radiobutton 
 
83
# radiobutton
84
84
[10, 12, 14, 18, 24].each {|sz|
85
85
  TkRadioButton.new(f_left) {
86
86
    text "�ݥ���ȥ����� #{sz}"
103
103
  }.pack('side'=>'top', 'pady'=>2, 'fill'=>'x')
104
104
}
105
105
 
106
 
# label = TkLabel.new(f_right, 'text'=>'��٥�', 'bitmap'=>'questhead', 
107
 
label = Tk::Label.new(f_right, 'text'=>'��٥�', 'bitmap'=>'questhead', 
 
106
# label = TkLabel.new(f_right, 'text'=>'��٥�', 'bitmap'=>'questhead',
 
107
label = Tk::Label.new(f_right, 'text'=>'��٥�', 'bitmap'=>'questhead',
108
108
                    'compound'=>'left')
109
109
label.configure('width'=>TkWinfo.reqwidth(label), 'compound'=>'top')
110
110
label.height(TkWinfo.reqheight(label))
111
111
a_btn = ['Top', 'Left', 'Right', 'Bottom'].collect{|a|
112
 
  TkRadioButton.new(f_right, 'text'=>a, 'variable'=>align, 'relief'=>'flat', 
113
 
                    'value'=>a.downcase, 'indicatoron'=>0, 'width'=>7, 
 
112
  TkRadioButton.new(f_right, 'text'=>a, 'variable'=>align, 'relief'=>'flat',
 
113
                    'value'=>a.downcase, 'indicatoron'=>0, 'width'=>7,
114
114
                    'command'=>proc{label.compound(align.value)})
115
115
}
116
116