lib/ruby-1.9.1-rc1/ext/tk/sample/demos-jp/mclist.rb

   1 # -*- coding: euc-jp -*-
   2 #
   3 # mclist.rb --
   4 #
   5 # This demonstration script creates a toplevel window containing a Ttk
   6 # tree widget configured as a multi-column listbox.
   7 #
   8 # based on "Id: mclist.tcl,v 1.3 2007/12/13 15:27:07 dgp Exp"
   9
  10 if defined?($mclist_demo) && $mclist_demo
  11   $mclist_demo.destroy
  12   $mclist_demo = nil
  13 end
  14
  15 $mclist_demo = TkToplevel.new {|w|
  16   title("Multi-Column List")
  17   iconname("mclist")
  18   positionWindow(w)
  19 }
  20
  21 base_frame = TkFrame.new($mclist_demo).pack(:fill=>:both, :expand=>true)
  22
  23 ## Explanatory text
  24 Ttk::Label.new(base_frame, :font=>$font, :wraplength=>'4i',
  25                :justify=>:left, :anchor=>'n', :padding=>[10, 2, 10, 6],
  26                :text=><<EOL).pack(:fill=>:x)
  27 Ttk¤È¤Ï¡¤¥Æ¡¼¥Þ»ØÄê²ÄÇ½¤Ê¿·¤·¤¤¥¦¥£¥¸¥§¥Ã¥È½¸¹ç¤Ç¤¹¡¥\
  28 Ttk::Treeview¥¦¥£¥¸¥§¥Ã¥È¤Ï\
  29 Ttk¥¦¥£¥¸¥§¥Ã¥È¥»¥Ã¥È¤Ë´Þ¤Þ¤ì¤ë¥¦¥£¥¸¥§¥Ã¥È¤Î°ì¤Ä¤Ç¡¤\
  30 ¤½¤ì¤¬ÊÝ»ý¤¹¤ëÌÚ¹½Â¤¤Î¥Ç¡¼¥¿¤½¤Î¤â¤Î¤Þ¤Ç¤ÏÉ½¼¨¤¹¤ë¤³¤È¤Ê¤¯¡¤\
  31 ¼¨¤·¤¿¤¤¾ðÊó¤ò¥Þ¥ë¥Á¥«¥é¥à¤ÇÉ½¼¨¤µ¤»¤ë¤³¤È¤¬¤Ç¤¤Þ¤¹¡¥
  32 ¤³¤Î¥µ¥ó¥×¥ë¤Ï¡¤Ê£¿ô¤Î¥«¥é¥à¤ò»ý¤Ã¤¿¥ê¥¹¥È¥Ü¥Ã¥¯¥¹¤òºîÀ®¤¹¤ë´ÊÃ±¤ÊÎã¤Ç¤¹¡¥
  33 ³Æ¥«¥é¥à¤Î¥¿¥¤¥È¥ë(heading)¤ò¥¯¥ê¥Ã¥¯¤¹¤ì¤Ð¡¤\
  34 ¤½¤Î¥«¥é¥à¤Î¾ðÊó¤Ë´ð¤Å¤¤¤Æ¥ê¥¹¥È¤ÎÊÂ¤ÙÂØ¤¨¤¬¤Ê¤µ¤ì¤ë¤Ï¤º¤Ç¤¹¡¥\
  35 ¤Þ¤¿¡¤¥«¥é¥à¤Î¥¿¥¤¥È¥ë´Ö¤Î¶èÀÚ¤êÉôÊ¬¤ò¥É¥é¥Ã¥°¤¹¤ë¤³¤È¤Ç¡¤\
  36 ¥«¥é¥à¤ÎÉý¤òÊÑ¹¹¤¹¤ë¤³¤È¤â²ÄÇ½¤Ç¤¹¡¥
  37 EOL
  38
  39 ## See Code / Dismiss
  40 Ttk::Frame.new(base_frame) {|frame|
  41   sep = Ttk::Separator.new(frame)
  42   Tk.grid(sep, :columnspan=>4, :row=>0, :sticky=>'ew', :pady=>2)
  43   TkGrid('x',
  44          Ttk::Button.new(frame, :text=>'¥³¡¼¥É»²¾È',
  45                          :image=>$image['view'], :compound=>:left,
  46                          :command=>proc{showCode 'mclist'}),
  47          Ttk::Button.new(frame, :text=>'ÊÄ¤¸¤ë',
  48                          :image=>$image['delete'], :compound=>:left,
  49                          :command=>proc{
  50                            $mclist_demo.destroy
  51                            $mclist_demo = nil
  52                          }),
  53          :padx=>4, :pady=>4)
  54   grid_columnconfigure(0, :weight=>1)
  55   pack(:side=>:bottom, :fill=>:x)
  56 }
  57
  58 container = Ttk::Frame.new(base_frame)
  59 tree = Ttk::Treeview.new(base_frame, :columns=>%w(country capital currency),
  60                           :show=>:headings)
  61 if Tk.windowingsystem != 'aquq'
  62   vsb = tree.yscrollbar(Ttk::Scrollbar.new(base_frame))
  63   hsb = tree.xscrollbar(Ttk::Scrollbar.new(base_frame))
  64 else
  65   vsb = tree.yscrollbar(Tk::Scrollbar.new(base_frame))
  66   hsb = tree.xscrollbar(Tk::Scrollbar.new(base_frame))
  67 end
  68
  69 container.pack(:fill=>:both, :expand=>true)
  70 Tk.grid(tree, vsb, :in=>container, :sticky=>'nsew')
  71 Tk.grid(hsb,       :in=>container, :sticky=>'nsew')
  72 container.grid_columnconfigure(0, :weight=>1)
  73 container.grid_rowconfigure(0, :weight=>1)
  74
  75 ## The data we're going to insert
  76 data = [
  77   ['¥¢¥ë¥¼¥ó¥Á¥ó',      '¥Ö¥¨¥Î¥¹¥¢¥¤¥ì¥¹',     'ARS'],
  78   ['¥ª¡¼¥¹¥È¥é¥ê¥¢',    '¥¥ã¥ó¥Ù¥é',           'AUD'],
  79   ['¥Ö¥é¥¸¥ë',          '¥Ö¥é¥¸¥ê¥¢',           'BRL'],
  80   ['¥«¥Ê¥À',            '¥ª¥¿¥ï',               'CAD'],
  81   ['Ãæ¹ñ',              'ËÌµþ',                 'CNY'],
  82   ['¥Õ¥é¥ó¥¹',          '¥Ñ¥ê',                 'EUR'],
  83   ['¥É¥¤¥Ä',            '¥Ù¥ë¥ê¥ó',             'EUR'],
  84   ['¥¤¥ó¥É',            '¥Ë¥å¡¼¥Ç¥ê¡¼',         'INR'],
  85   ['¥¤¥¿¥ê¥¢',          '¥í¡¼¥Þ',               'EUR'],
  86   ['ÆüËÜ',              'Åìµþ',                 'JPY'],
  87   ['¥á¥¥·¥³',          '¥á¥¥·¥³¥·¥Æ¥£',       'MXN'],
  88   ['¥í¥·¥¢',            '¥â¥¹¥¯¥ï',             'RUB'],
  89   ['Æî¥¢¥Õ¥ê¥«',        '¥×¥ì¥È¥ê¥¢',           'ZAR'],
  90   ['±Ñ¹ñ',              '¥í¥ó¥É¥ó',             'GBP'],
  91   ['¥¢¥á¥ê¥«',          '¥ï¥·¥ó¥È¥ó D.C.',      'USD'],
  92 ]
  93
  94 ## Code to insert the data nicely
  95 font = Ttk::Style.lookup(tree[:style], :font)
  96 cols = %w(country capital currency)
  97 cols.zip(%w(¹ñÌ¾ ¼óÅÔ ÄÌ²ß)).each{|col, name|
  98   tree.heading_configure(col, :text=>name,
  99                          :command=>proc{sort_by(tree, col, false)})
 100   tree.column_configure(col, :width=>TkFont.measure(font, name))
 101 }
 102
 103 data.each{|country, capital, currency|
 104   #tree.insert('', :end, :values=>[country, capital, currency])
 105   tree.insert(nil, :end, :values=>[country, capital, currency])
 106   cols.zip([country, capital, currency]).each{|col, val|
 107     len = TkFont.measure(font, "#{val}  ")
 108     if tree.column_cget(col, :width) < len
 109       tree.column_configure(col, :width=>len)
 110     end
 111   }
 112 }
 113
 114 ## Code to do the sorting of the tree contents when clicked on
 115 def sort_by(tree, col, direction)
 116   tree.children(nil).map!{|row| [tree.get(row, col), row.id]} .
 117     sort(&((direction)? proc{|x, y| y <=> x}: proc{|x, y| x <=> y})) .
 118     each_with_index{|info, idx| tree.move(info[1], nil, idx)}
 119
 120   tree.heading_configure(col, :command=>proc{sort_by(tree, col, ! direction)})
 121 end