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

   1 # -*- coding: euc-jp -*-
   2 #
   3 # text (basic facilities) widget demo (called by 'widget')
   4 #
   5
   6 # toplevel widget ¤¬Â¸ºß¤¹¤ì¤Ðºï½ü¤¹¤ë
   7 if defined?($text_demo) && $text_demo
   8   $text_demo.destroy
   9   $text_demo = nil
  10 end
  11
  12 # demo ÍÑ¤Î toplevel widget ¤òÀ¸À®
  13 $text_demo = TkToplevel.new {|w|
  14   title("Text Demonstration - Basic Facilities")
  15   iconname("text")
  16   positionWindow(w)
  17 }
  18
  19 base_frame = TkFrame.new($text_demo).pack(:fill=>:both, :expand=>true)
  20
  21 # version check
  22 if ((Tk::TK_VERSION.split('.').collect{|n| n.to_i} <=> [8,4]) < 0)
  23   undo_support = false
  24 else
  25   undo_support = true
  26 end
  27
  28 # frame À¸À®
  29 TkFrame.new(base_frame) {|frame|
  30   TkButton.new(frame) {
  31     #text 'Î»²ò'
  32     text 'ÊÄ¤¸¤ë'
  33     command proc{
  34       tmppath = $text_demo
  35       $text_demo = nil
  36       tmppath.destroy
  37     }
  38   }.pack('side'=>'left', 'expand'=>'yes')
  39
  40   TkButton.new(frame) {
  41     text '¥³¡¼¥É»²¾È'
  42     command proc{showCode 'text'}
  43   }.pack('side'=>'left', 'expand'=>'yes')
  44 }.pack('side'=>'bottom', 'fill'=>'x', 'pady'=>'2m')
  45
  46 # text À¸À®
  47 TkText.new(base_frame){|t|
  48   # À¸À®
  49   relief 'sunken'
  50   bd 2
  51   setgrid 1
  52   height 30
  53   TkScrollbar.new(base_frame) {|s|
  54     pack('side'=>'right', 'fill'=>'y')
  55     command proc{|*args| t.yview(*args)}
  56     t.yscrollcommand proc{|first,last| s.set first,last}
  57   }
  58   pack('expand'=>'yes', 'fill'=>'both')
  59
  60   # ¥Æ¥¥¹¥ÈÁÞÆþ
  61   insert('0.0', <<EOT)
  62 ¤³¤Î¥¦¥£¥ó¥É¥¦¤Ï¥Æ¥¥¹¥È widget ¤Ç¤¹¡£1¹Ô¤Þ¤¿¤Ï¤½¤ì°Ê¾å¤Î¥Æ¥¥¹¥È¤òÉ½
  63 ¼¨¡¦ÊÔ½¸¤¹¤ë¤³¤È¤¬¤Ç¤¤Þ¤¹¡£°Ê²¼¤Ï¥Æ¥¥¹¥È widget ¤Ç¤Ç¤¤ëÁàºî¤Ë¤Ä¤¤¤Æ
  64 ¤Þ¤È¤á¤¿¤â¤Î¤Ç¤¹¡£
  65
  66 1. ¥¹¥¯¥í¡¼¥ë¡£¥¹¥¯¥í¡¼¥ë¥Ð¡¼¤Ç¥Æ¥¥¹¥È¤ÎÉ½¼¨ÉôÊ¬¤òÆ°¤«¤¹¤³¤È¤¬¤Ç¤¤Þ¤¹¡£
  67
  68 2. ¥¹¥¥ã¥Ë¥ó¥°¡£¥Æ¥¥¹¥È¤Î¥¦¥£¥ó¥É¥¦¤Ç¥Þ¥¦¥¹¥Ü¥¿¥ó2 (Ãæ¥Ü¥¿¥ó¤ò) ¤ò²¡
  69 ¤·¤Æ¾å²¼¤Ë¥É¥é¥Ã¥°¤·¤Æ¤¯¤À¤µ¤¤¡£¤½¤¦¤¹¤ë¤È¥Æ¥¥¹¥È¤¬¹âÂ®¤Ç¥É¥é¥Ã¥°¤µ¤ì¡¢
  70 ÆâÍÆ¤ò¤¶¤Ã¤ÈÄ¯¤á¤ë¤³¤È¤¬¤Ç¤¤Þ¤¹¡£
  71
  72 3. ¥Æ¥¥¹¥È¤ÎÁÞÆþ¡£¥Þ¥¦¥¹¥Ü¥¿¥ó1 (º¸¥Ü¥¿¥ó) ¤ò²¡¤·¡¢ÁÞÆþ¥«¡¼¥½¥ë¤ò¥»¥Ã
  73 ¥È¤·¤Æ¤«¤é¥Æ¥¥¹¥È¤òÆþÎÏ¤·¤Æ¤¯¤À¤µ¤¤¡£ÆþÎÏ¤·¤¿¤â¤Î¤¬ widget ¤ËÆþ¤ê¤Þ¤¹¡£
  74
  75 4. ÁªÂò¡£¤¢¤ëÈÏ°Ï¤ÎÊ¸»ú¤òÁªÂò¤¹¤ë¤Ë¤Ï¥Þ¥¦¥¹¥Ü¥¿¥ó1 ¤ò²¡¤·¡¢¥É¥é¥Ã¥°¤·
  76 ¤Æ¤¯¤À¤µ¤¤¡£°ìÅÙ¥Ü¥¿¥ó¤òÎ¥¤·¤¿¤é¡¢¥·¥Õ¥È¥¡¼¤ò²¡¤·¤Ê¤¬¤é¥Ü¥¿¥ó1 ¤ò²¡¤¹
  77 ¤³¤È¤ÇÁªÂòÈÏ°Ï¤ÎÄ´À°¤¬¤Ç¤¤Þ¤¹¡£¤³¤ì¤ÏÁªÂòÈÏ°Ï¤ÎºÇ¸å¤ò¥Þ¥¦¥¹¥«¡¼¥½¥ë¤Ë
  78 ºÇ¤â¶á¤¤°ÌÃÖ¤Ë¥ê¥»¥Ã¥È¤·¡¢¥Ü¥¿¥ó¤òÎ¥¤¹Á°¤Ë¥Þ¥¦¥¹¤ò¥É¥é¥Ã¥°¤¹¤ë¤³¤È¤Ç¤µ
  79 ¤é¤ËÁªÂòÈÏ°Ï¤òÄ´À°¤Ç¤¤Þ¤¹¡£¥À¥Ö¥ë¥¯¥ê¥Ã¥¯¤Ç¥ï¡¼¥É¤ò¡¢¤Þ¤¿¥È¥ê¥×¥ë¥¯¥ê¥Ã
  80 ¥¯¤Ç¹ÔÁ´ÂÎ¤òÁªÂò¤¹¤ë¤³¤È¤¬¤Ç¤¤Þ¤¹¡£
  81
  82 5. ¾Ãµî¤ÈÃÖ´¹¡£¥Æ¥¥¹¥È¤ò¾Ãµî¤¹¤ë¤Ë¤Ï¡¢¾Ãµî¤·¤¿¤¤Ê¸»ú¤òÁªÂò¤·¤Æ¥Ð¥Ã¥¯
  83 ¥¹¥Ú¡¼¥¹¤«¥Ç¥ê¡¼¥È¥¡¼¤òÆþÎÏ¤·¤Æ¤¯¤À¤µ¤¤¡£¤¢¤ë¤¤¤Ï¡¢¿·¤·¤¤¥Æ¥¥¹¥È¤ò
  84 ÆþÎÏ¤¹¤ë¤ÈÁªÂò¤µ¤ì¤¿¥Æ¥¥¹¥È¤ÈÃÖ´¹¤µ¤ì¤Þ¤¹¡£
  85
  86 6. ÁªÂòÉôÊ¬¤Î¥³¥Ô¡¼¡£ÁªÂòÉôÊ¬¤ò¤³¤Î¥¦¥£¥ó¥É¥¦¤ÎÃæ¤Î¤É¤³¤«¤Ë¥³¥Ô¡¼¤¹¤ë
  87 ¤Ë¤Ï¡¢¤Þ¤º¥³¥Ô¡¼¤·¤¿¤¤½ê¤òÁªÂò(¤³¤³¤Ç¡¢¤¢¤ë¤¤¤ÏÊÌ¤Î¥¢¥×¥ê¥±¡¼¥·¥ç¥ó¤Ç)
  88 ¤·¡¢¥Ü¥¿¥ó 2 ¤ò¥¯¥ê¥Ã¥¯¤·¤Æ¡¢ÁÞÆþ¥«¡¼¥½¥ë¤Î°ÌÃÖ¤Ë¥³¥Ô¡¼¤·¤Æ¤¯¤À¤µ¤¤¡£
  89
  90 7. ÊÔ½¸¡£¥Æ¥¥¹¥È widget ¤Ï Emacs ¤Î¥¡¼¥Ð¥¤¥ó¥É¤Ë²Ã¤¨¤ÆÉ¸½àÅª¤Ê¤Î Motif
  91 ¤ÎÊÔ½¸µ¡Ç½¤ò¥µ¥Ý¡¼¥È¤·¤Æ¤¤¤Þ¤¹¡£¥Ð¥Ã¥¯¥¹¥Ú¡¼¥¹¤È¥³¥ó¥È¥í¡¼¥ë-H ¤ÏÁÞÆþ
  92 ¥«¡¼¥½¥ë¤Îº¸Â¦¤ÎÊ¸»ú¤òºï½ü¤·¤Þ¤¹¡£¥Ç¥ê¡¼¥È¥¡¼¤È¥³¥ó¥È¥í¡¼¥ë-D ¤ÏÁÞÆþ
  93 ¥«¡¼¥½¥ë¤Î±¦Â¦¤ÎÊ¸»ú¤òºï½ü¤·¤Þ¤¹¡£Meta-¥Ð¥Ã¥¯¥¹¥Ú¡¼¥¹¤ÏÁÞÆþ¥«¡¼¥½¥ë¤Î
  94 ±¦Â¦¤ÎÃ±¸ì¤òºï½ü¤·¡¢Meta-D ¤ÏÁÞÆþ¥«¡¼¥½¥ë¤Îº¸Â¦¤ÎÃ±¸ì¤òºï½ü¤·¤Þ¤¹¡£
  95 ¥³¥ó¥È¥í¡¼¥ë-K ¤ÏÁÞÆþ¥«¡¼¥½¥ë¤«¤é¹ÔËö¤Þ¤Ç¤òºï½ü¤·¡¢¤½¤Î°ÌÃÖ¤Ë²þ¹Ô
  96 ¤·¤«¤Ê¤«¤Ã¤¿¾ì¹ç¤Ï¡¢²þ¹Ô¤òºï½ü¤·¤Þ¤¹¡£#{
  97       if undo_support
  98         undo_text = "Control-z ¤ÏºÇ¸å¤Ë¹Ô¤Ã¤¿ÊÑ¹¹¤Î¼è¤ê¾Ã¤·(undo)¤ò¹Ô¤¤¡¢"
  99         case $tk_platform['platform']
 100         when "unix", "macintosh"
 101           undo_text << "Control-Shift-z"
 102         else # 'windows'
 103           undo_text << "Control-y"
 104         end
 105         undo_text << "¤Ïundo¤·¤¿ÊÑ¹¹¤ÎºÆÅ¬ÍÑ(redo)¤ò¹Ô¤¤¤Þ¤¹¡£"
 106       else
 107         ""
 108       end
 109 }
 110
 111
 112 8. ¥¦¥£¥ó¥É¥¦¤Î¥ê¥µ¥¤¥º¡£¤³¤Î widget ¤Ï "setGrid" ¥ª¥×¥·¥ç¥ó¤ò¥ª¥ó¤Ë¤·
 113 ¤Æ¤¢¤ê¤Þ¤¹¤Î¤Ç¡¢¥¦¥£¥ó¥É¥¦¤ò¥ê¥µ¥¤¥º¤¹¤ë»þ¤Ë¤Ï¹â¤µ¤ÈÉý¤Ï¾ï¤ËÊ¸»ú¹â¤ÈÊ¸
 114 »úÉý¤ÎÀ°¿ôÇÜ¤Ë¤Ê¤ê¤Þ¤¹¡£¤Þ¤¿¡¢¥¦¥£¥ó¥É¥¦¤ò¶¹¤¯¤·¤¿¾ì¹ç¤Ë¤ÏÄ¹¤¤¹Ô¤¬¼«Æ°
 115 Åª¤ËÀÞ¤êÊÖ¤µ¤ì¡¢¾ï¤ËÁ´¤Æ¤ÎÆâÍÆ¤¬¸«¤¨¤ë¤è¤¦¤Ë¤Ê¤Ã¤Æ¤¤¤Þ¤¹¡£
 116 EOT
 117
 118   set_insert('0.0')
 119 }
 120