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

« back to all changes in this revision

Viewing changes to ext/tk/lib/tkextlib/winico/winico.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:
46
46
  end
47
47
 
48
48
  def self.info
49
 
    simplelist(Tk.tk_call('winico', 'info')).collect{|id| 
 
49
    simplelist(Tk.tk_call('winico', 'info')).collect{|id|
50
50
      Tk::Winico.id2obj(id)
51
51
    }
52
52
  end
82
82
    elsif winico_id
83
83
      @id = winico_id
84
84
    else
85
 
      fail ArgumentError, 
 
85
      fail ArgumentError,
86
86
           "must be given proper information from where loading icons"
87
87
    end
88
88
    @path = @id
96
96
  end
97
97
 
98
98
  def set_window(win_id, *opts) # opts := ?'big'|'small'?, ?pos?
99
 
    # NOTE:: the window, which is denoted by win_id, MUST BE MAPPED. 
 
99
    # NOTE:: the window, which is denoted by win_id, MUST BE MAPPED.
100
100
    #        If not, then this may fail or crash.
101
101
    tk_call('winico', 'setwindow', win_id, @id, *opts)
102
102
  end
119
119
  class Winico_callback < TkValidateCommand
120
120
    class ValidateArgs < TkUtil::CallbackSubst
121
121
      KEY_TBL = [
122
 
        [ ?m, ?s, :message ], 
123
 
        [ ?i, ?x, :icon ], 
124
 
        [ ?x, ?n, :x ], 
125
 
        [ ?y, ?n, :y ], 
126
 
        [ ?X, ?n, :last_x ], 
127
 
        [ ?Y, ?n, :last_y ], 
128
 
        [ ?t, ?n, :tickcount ], 
129
 
        [ ?w, ?n, :icon_idnum ], 
130
 
        [ ?l, ?n, :msg_idnum ], 
 
122
        [ ?m, ?s, :message ],
 
123
        [ ?i, ?x, :icon ],
 
124
        [ ?x, ?n, :x ],
 
125
        [ ?y, ?n, :y ],
 
126
        [ ?X, ?n, :last_x ],
 
127
        [ ?Y, ?n, :last_y ],
 
128
        [ ?t, ?n, :tickcount ],
 
129
        [ ?w, ?n, :icon_idnum ],
 
130
        [ ?l, ?n, :msg_idnum ],
131
131
        nil
132
132
      ]
133
133
 
134
134
      PROC_TBL = [
135
 
        [ ?n, TkComm.method(:number) ], 
136
 
        [ ?s, TkComm.method(:string) ], 
137
 
        [ ?x, proc{|id| 
 
135
        [ ?n, TkComm.method(:number) ],
 
136
        [ ?s, TkComm.method(:string) ],
 
137
        [ ?x, proc{|id|
138
138
            Tk::Winico::WinicoID_TBL.mutex.synchronize{
139
139
              if Tk::Winico::WinicoID_TBL.key?(id)
140
140
                obj = Tk::Winico::WinicoID_TBL[id]
146
146
              end
147
147
              obj
148
148
            }
149
 
          } ], 
 
149
          } ],
150
150
        nil
151
151
      ]
152
152