← Back to branch summary

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

« back to all changes in this revision

Viewing changes to ext/tk/sample/demos-en/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
http://bugs.debian.org/580852
http://bugs.debian.org/590002
http://bugs.debian.org/543805
http://bugs.debian.org/542927
* 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:
ext/tk/sample/demos-en/radio3.rb
8
8
 
9
9
# toplevel widget
10
10
if defined?($radio3_demo) && $radio3_demo
11
 
  $radio3_demo.destroy 
 
11
  $radio3_demo.destroy
12
12
  $radio3_demo = nil
13
13
end
14
14
 
21
21
 
22
22
base_frame = TkFrame.new($radio3_demo).pack(:fill=>:both, :expand=>true)
23
23
 
24
 
# label 
 
24
# label
25
25
msg = TkLabel.new(base_frame) {
26
26
  font $font
27
27
  wraplength '5i'
35
35
color = TkVariable.new
36
36
align = TkVariable.new
37
37
 
38
 
# frame 
 
38
# frame
39
39
TkFrame.new(base_frame) {|frame|
40
 
  TkGrid(TkFrame.new(frame, :height=>2, :relief=>:sunken, :bd=>2), 
 
40
  TkGrid(TkFrame.new(frame, :height=>2, :relief=>:sunken, :bd=>2),
41
41
         :columnspan=>4, :row=>0, :sticky=>'ew', :pady=>2)
42
 
  TkGrid('x', 
43
 
         TkButton.new(frame, :text=>'See Variables', 
44
 
                      :image=>$image['view'], :compound=>:left, 
 
42
  TkGrid('x',
 
43
         TkButton.new(frame, :text=>'See Variables',
 
44
                      :image=>$image['view'], :compound=>:left,
45
45
                      :command=>proc{
46
 
                        showVars(base_frame, ['size', size], 
 
46
                        showVars(base_frame, ['size', size],
47
47
                                 ['color', color], ['compound', align])
48
 
                      }), 
49
 
         TkButton.new(frame, :text=>'See Code', 
50
 
                      :image=>$image['view'], :compound=>:left, 
51
 
                      :command=>proc{showCode 'radio3'}), 
52
 
         TkButton.new(frame, :text=>'Dismiss', 
53
 
                      :image=>$image['delete'], :compound=>:left, 
 
48
                      }),
 
49
         TkButton.new(frame, :text=>'See Code',
 
50
                      :image=>$image['view'], :compound=>:left,
 
51
                      :command=>proc{showCode 'radio3'}),
 
52
         TkButton.new(frame, :text=>'Dismiss',
 
53
                      :image=>$image['delete'], :compound=>:left,
54
54
                      :command=>proc{
55
55
                        tmppath = $radio3_demo
56
56
                        $radio3_demo = nil
57
57
                        $showVarsWin[tmppath.path] = nil
58
58
                        tmppath.destroy
59
 
                      }), 
 
59
                      }),
60
60
         :padx=>4, :pady=>4)
61
61
  frame.grid_columnconfigure(0, :weight=>1)
62
62
  TkGrid(frame, :row=>3, :column=>0, :columnspan=>3, :sticky=>'nsew')
63
63
}
64
64
 
65
 
# frame 
66
 
f_left  = TkLabelFrame.new(base_frame, 'text'=>'Point Size', 
67
 
                           'pady'=>2, 'padx'=>2)
68
 
f_mid   = TkLabelFrame.new(base_frame, 'text'=>'Color', 
69
 
                           'pady'=>2, 'padx'=>2)
70
 
f_right = TkLabelFrame.new(base_frame, 'text'=>'Alignment', 
 
65
# frame
 
66
f_left  = TkLabelFrame.new(base_frame, 'text'=>'Point Size',
 
67
                           'pady'=>2, 'padx'=>2)
 
68
f_mid   = TkLabelFrame.new(base_frame, 'text'=>'Color',
 
69
                           'pady'=>2, 'padx'=>2)
 
70
f_right = TkLabelFrame.new(base_frame, 'text'=>'Alignment',
71
71
                           'pady'=>2, 'padx'=>2)
72
72
f_left .grid('column'=>0, 'row'=>1, 'pady'=>'.5c', 'padx'=>'.5c', 'rowspan'=>2)
73
73
f_mid  .grid('column'=>1, 'row'=>1, 'pady'=>'.5c', 'padx'=>'.5c', 'rowspan'=>2)
74
74
f_right.grid('column'=>2, 'row'=>1, 'pady'=>'.5c', 'padx'=>'.5c')
75
75
 
76
 
TkButton.new(base_frame, 'text'=>'Tristate', 
 
76
TkButton.new(base_frame, 'text'=>'Tristate',
77
77
             'command'=>proc{size.value = 'multi'; color.value = 'multi'}){
78
78
  grid('column'=>2, 'row'=>2, 'pady'=>'.5c', 'padx'=>'.5c')
79
79
}
80
80
 
81
 
# radiobutton 
 
81
# radiobutton
82
82
[10, 12, 14, 18, 24].each {|sz|
83
83
  TkRadioButton.new(f_left) {
84
84
    text "Point Size #{sz}"
101
101
  }.pack('side'=>'top', 'pady'=>2, 'fill'=>'x')
102
102
}
103
103
 
104
 
# label = TkLabel.new(f_right, 'text'=>'Label', 'bitmap'=>'questhead', 
105
 
label = Tk::Label.new(f_right, 'text'=>'Label', 'bitmap'=>'questhead', 
 
104
# label = TkLabel.new(f_right, 'text'=>'Label', 'bitmap'=>'questhead',
 
105
label = Tk::Label.new(f_right, 'text'=>'Label', 'bitmap'=>'questhead',
106
106
                    'compound'=>'left')
107
107
label.configure('width'=>TkWinfo.reqwidth(label), 'compound'=>'top')
108
108
label.height(TkWinfo.reqheight(label))
109
109
a_btn = ['Top', 'Left', 'Right', 'Bottom'].collect{|a|
110
 
  TkRadioButton.new(f_right, 'text'=>a, 'variable'=>align, 'relief'=>'flat', 
111
 
                    'value'=>a.downcase, 'indicatoron'=>0, 'width'=>7, 
 
110
  TkRadioButton.new(f_right, 'text'=>a, 'variable'=>align, 'relief'=>'flat',
 
111
                    'value'=>a.downcase, 'indicatoron'=>0, 'width'=>7,
112
112
                    'command'=>proc{label.compound(align.value)})
113
113
}
114
114