← 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/search.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/search.rb
62
62
 
63
63
def textToggle(cmd1,sleep1,cmd2,sleep2)
64
64
  sleep_list = [sleep2, sleep1]
65
 
  TkAfter.new(proc{sleep = sleep_list.shift; sleep_list.push(sleep); sleep}, 
 
65
  TkAfter.new(proc{sleep = sleep_list.shift; sleep_list.push(sleep); sleep},
66
66
              -1, cmd1, cmd2).start(sleep1)
67
67
end
68
68
 
69
69
# toplevel widget
70
70
if defined?($search_demo) && $search_demo
71
 
  $search_demo.destroy 
 
71
  $search_demo.destroy
72
72
  $search_demo = nil
73
73
end
74
74
 
101
101
 
102
102
# frame
103
103
TkFrame.new(base_frame) {|f|
104
 
  TkLabel.new(f, 'text'=>'File name:', 
 
104
  TkLabel.new(f, 'text'=>'File name:',
105
105
              'width'=>13, 'anchor'=>'w').pack('side'=>'left')
106
106
  $search_fileName = TkVariable.new
107
 
  TkEntry.new(f, 'width'=>40, 
 
107
  TkEntry.new(f, 'width'=>40,
108
108
              'textvariable'=>$search_fileName) {
109
109
    pack('side'=>'left')
110
110
    bind('Return', proc{textLoadFile($search_text, $search_fileName.value)
111
111
                        $search_string_entry.focus})
112
112
    focus
113
113
  }
114
 
  TkButton.new(f, 'text'=>'Load File', 
115
 
               'command'=>proc{textLoadFile($search_text, 
 
114
  TkButton.new(f, 'text'=>'Load File',
 
115
               'command'=>proc{textLoadFile($search_text,
116
116
                                            $search_fileName.value)})\
117
117
  .pack('side'=>'left', 'pady'=>5, 'padx'=>10)
118
118
}.pack('side'=>'top', 'fill'=>'x')
119
119
 
120
120
TkFrame.new(base_frame) {|f|
121
 
  TkLabel.new(f, 'text'=>'Search string:', 
 
121
  TkLabel.new(f, 'text'=>'Search string:',
122
122
              'width'=>13, 'anchor'=>'w').pack('side'=>'left')
123
123
  $search_searchString = TkVariable.new
124
 
  $search_string_entry = TkEntry.new(f, 'width'=>40, 
 
124
  $search_string_entry = TkEntry.new(f, 'width'=>40,
125
125
                                     'textvariable'=>$search_searchString) {
126
126
    pack('side'=>'left')
127
 
    bind('Return', proc{textSearch($search_text, $search_searchString.value, 
 
127
    bind('Return', proc{textSearch($search_text, $search_searchString.value,
128
128
                                   $search_Tag)})
129
129
  }
130
 
  TkButton.new(f, 'text'=>'Highlight', 
131
 
               'command'=>proc{textSearch($search_text, 
132
 
                                          $search_searchString.value, 
 
130
  TkButton.new(f, 'text'=>'Highlight',
 
131
               'command'=>proc{textSearch($search_text,
 
132
                                          $search_searchString.value,
133
133
                                          $search_Tag)}) {
134
134
    pack('side'=>'left', 'pady'=>5, 'padx'=>10)
135
135
  }
148
148
 
149
149
if TkWinfo.depth($search_demo) > 1
150
150
  textToggle(proc{
151
 
               $search_Tag.configure('background'=>'#ce5555', 
 
151
               $search_Tag.configure('background'=>'#ce5555',
152
152
                                     'foreground'=>'white')
153
153
             },
154
 
             800, 
 
154
             800,
155
155
             proc{
156
156
               $search_Tag.configure('background'=>'', 'foreground'=>'')
157
157
             },
158
158
             200 )
159
159
else
160
160
  textToggle(proc{
161
 
               $search_Tag.configure('background'=>'black', 
 
161
               $search_Tag.configure('background'=>'black',
162
162
                                     'foreground'=>'white')
163
163
             },
164
 
             800, 
 
164
             800,
165
165
             proc{
166
166
               $search_Tag.configure('background'=>'', 'foreground'=>'')
167
167
             },