Method: TkXIM.configinfo

Defined in:
ext/lib/tk/xim.rb

.configinfo(win, slot = nil) ⇒ Object 



61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
 
# File 'ext/lib/tk/xim.rb', line 61

def TkXIM.configinfo(win, slot=nil)
  if TkComm::GET_CONFIGINFOwoRES_AS_ARRAY
    begin
      if /^8\.*/ === Tk::TK_VERSION  && JAPANIZED_TK
        if slot
          conf = tk_split_list(tk_call('imconfigure', win, "-#{slot}"))
          conf[0] = conf[0][1..-1]
          conf
        else
          tk_split_list(tk_call('imconfigure', win)).collect{|conf|
            conf[0] = conf[0][1..-1]
            conf
          }
        end
      else
        []
      end
    rescue
      []
    end
  else # ! TkComm::GET_CONFIGINFOwoRES_AS_ARRAY
    TkXIM.current_configinfo(win, slot)
  end
end