1 # -*- coding: euc-jp -*-
3 # Canvas Text widget demo (called by 'widget')
6 # toplevel widget ¤¬Â¸ºß¤¹¤ì¤Ðºï½ü¤¹¤ë
7 if defined?($ctext_demo) && $ctext_demo
12 # demo ÍѤΠtoplevel widget ¤òÀ¸À®
13 $ctext_demo = TkToplevel.new {|w|
14 title("Canvas Text Demonstration")
19 base_frame = TkFrame.new($ctext_demo).pack(:fill=>:both, :expand=>true)
22 TkLabel.new(base_frame, 'font'=>$font, 'wraplength'=>'5i', 'justify'=>'left',
23 'text'=>"¤³¤Î¥¦¥£¥ó¥É¥¦¤Ë¤Ï¥¥ã¥ó¥Ð¥¹widget¤Î¥Æ¥¥¹¥Èµ¡Ç½¤ò¥Ç¥â¤¹¤ë¤¿¤á¤Î¥Æ¥¥¹¥Èʸ»úÎó¤¬É½¼¨¤µ¤ì¤Æ¤¤¤Þ¤¹¡£¥Þ¥¦¥¹¤ò»Í³Ñ¤ÎÃæ¤Ë»ý¤Ã¤Æ¤¤¤¡¢¥¯¥ê¥Ã¥¯¤¹¤ë¤È°ÌÃÖ¤®¤áÍѤÎÅÀ¤«¤é¤ÎÁêÂаÌÃÖ¤òÊѤ¨¤¿¤ê¡¢¹Ô·¤¨¤òÊѤ¨¤¿¤ê¤¹¤ë¤³¤È¤¬¤Ç¤¤Þ¤¹¡£¤Þ¤¿°Ê²¼¤Î¤è¤¦¤ÊÊÔ½¸¤Î¤¿¤á¤Î´Êñ¤Ê¥Ð¥¤¥ó¥Ç¥£¥ó¥°¤ò¥µ¥Ý¡¼¥È¤·¤Æ¤¤¤Þ¤¹¡£
25 1. ¥Þ¥¦¥¹¤ò»ý¤Ã¤Æ¤¤¤¡¢¥¯¥ê¥Ã¥¯¤·¡¢ÆþÎϤǤ¤Þ¤¹¡£
26 2. ¥Ü¥¿¥ó1¤ÇÁªÂò¤Ç¤¤Þ¤¹¡£
27 3. ¥Þ¥¦¥¹¤Î°ÌÃ֤˥ܥ¿¥ó2¤ÇÁªÂò¤·¤¿¥Æ¥¥¹¥È¤ò¥³¥Ô¡¼¤Ç¤¤Þ¤¹¡£
28 4.¥Ð¥Ã¥¯¥¹¥Ú¡¼¥¹¤ò¥³¥ó¥È¥í¡¼¥ë-H¤ÇÁÞÆþ¥«¡¼¥½¥ë¤ÎľÁ°¤Îʸ»ú¤òºï½ü¤·¤Þ¤¹¡£
29 5. Delete¥¡¼¤ÏÁÞÆþ¥«¡¼¥½¥ë¤Îľ¸å¤Îʸ»ú¤òºï½ü¤·¤Þ¤¹¡£"){
34 $ctext_buttons = TkFrame.new(base_frame) {|frame|
43 }.pack('side'=>'left', 'expand'=>'yes')
47 command proc{showCode 'ctext'}
48 }.pack('side'=>'left', 'expand'=>'yes')
50 $ctext_buttons.pack('side'=>'bottom', 'fill'=>'x', 'pady'=>'2m')
53 $ctext_canvas = TkCanvas.new(base_frame, 'relief'=>'flat',
54 'borderwidth'=>0, 'width'=>500, 'height'=>350)
55 $ctext_canvas.pack('side'=>'top', 'expand'=>'yes', 'fill'=>'both')
58 if $tk_version =~ /^4.*/
59 textFont = '-*-Helvetica-Medium-R-Normal--*-240-*-*-*-*-*-*'
61 textFont = 'Helvetica 24'
65 TkcRectangle.new($ctext_canvas, 245, 195, 255, 205,
66 'outline'=>'black', 'fill'=>'red')
69 'text'=>"¤³¤ì¤Ï¥¥ã¥ó¥Ð¥¹widget¤Î¥Æ¥¥¹¥Èµ¡Ç½¤ò¥Ç¥â¤¹¤ë¤¿¤á¤Îʸ»úÎó¤Ç¤¹¡£\n¾å¤Ç½Ò¤Ù¤¿¤è¤¦¤ÊÊÔ½¸¤ò²Äǽ¤È¤¹¤ë¤¿¤á¤Î¥Ð¥¤¥ó¥Ç¥£¥ó¥°¤ò»Ü¤·¤Æ¤¤¤Þ¤¹¡£",
70 'width'=>440, 'anchor'=>'n', 'justify'=>'left'
72 if $tk_version =~ /^4.*/
73 ctag_text_param['font'] = '-*-Helvetica-Medium-R-Normal--*-240-*-*-*-*-*-*'
74 ctag_text_param['kanjifont'] = '-*-r-*--24-*-jisx0208.1983-0'
76 ctag_text_param['font'] = 'Helvetica 24'
78 $ctag_text = TkcTag.new($ctext_canvas)
79 $ctag_text.withtag(TkcText.new($ctext_canvas, 250, 200, ctag_text_param))
81 $ctag_text.bind('1', proc{|x,y| textB1Press $ctext_canvas,x,y}, "%x %y")
82 $ctag_text.bind('B1-Motion', proc{|x,y| textB1Move $ctext_canvas,x,y}, "%x %y")
83 $ctag_text.bind('Shift-1',
84 proc{|x,y| $ctext_canvas.seleect_adjust 'current', "@#{x},#{y}"},
86 $ctag_text.bind('Shift-B1-Motion',
87 proc{|x,y| textB1Move $ctext_canvas,x,y}, "%x %y")
88 $ctag_text.bind('KeyPress', proc{|a| textInsert $ctext_canvas,a}, "%A")
89 $ctag_text.bind('Return', proc{textInsert $ctext_canvas,"\n"})
90 $ctag_text.bind('Control-h', proc{textBs $ctext_canvas})
91 $ctag_text.bind('BackSpace', proc{textBs $ctext_canvas})
92 $ctag_text.bind('Delete', proc{textDel $ctext_canvas})
93 $ctag_text.bind('2', proc{|x,y| textPaste $ctext_canvas, "@#{x},#{y}"},
96 # Next, create some items that allow the text's anchor position
99 def mkTextConfig(w,x,y,option,value,color)
100 item = TkcRectangle.new(w, x, y, x+30, y+30,
101 'outline'=>'black', 'fill'=>color, 'width'=>1)
102 item.bind('1', proc{$ctag_text.configure option, value})
103 w.addtag_withtag('config', item)
108 color = 'LightSkyBlue1'
109 mkTextConfig $ctext_canvas, x, y, 'anchor', 'se', color
110 mkTextConfig $ctext_canvas, x+30, y, 'anchor', 's', color
111 mkTextConfig $ctext_canvas, x+60, y, 'anchor', 'sw', color
112 mkTextConfig $ctext_canvas, x, y+30, 'anchor', 'e', color
113 mkTextConfig $ctext_canvas, x+30, y+30, 'anchor', 'center', color
114 mkTextConfig $ctext_canvas, x+60, y+30, 'anchor', 'w', color
115 mkTextConfig $ctext_canvas, x, y+60, 'anchor', 'ne', color
116 mkTextConfig $ctext_canvas, x+30, y+60, 'anchor', 'n', color
117 mkTextConfig $ctext_canvas, x+60, y+60, 'anchor', 'nw', color
118 item = TkcRectangle.new($ctext_canvas, x+40, y+40, x+50, y+50,
119 'outline'=>'black', 'fill'=>'red')
120 item.bind('1', proc{$ctag_text.configure 'anchor', 'center'})
121 if $tk_version =~ /^4.*/
122 TkcText.new($ctext_canvas, x+45, y-5, 'text'=>'Text Position',
123 'font'=>'-*-times-medium-r-normal--*-240-*-*-*-*-*-*',
124 'anchor'=>'s', 'fill'=>'brown')
126 TkcText.new($ctext_canvas, x+45, y-5, 'text'=>'Text Position',
127 'font'=>'Times 24', 'anchor'=>'s', 'fill'=>'brown')
130 # Lastly, create some items that allow the text's justification to be
136 mkTextConfig $ctext_canvas, x, y, 'justify', 'left', color
137 mkTextConfig $ctext_canvas, x+30, y, 'justify', 'center', color
138 mkTextConfig $ctext_canvas, x+60, y, 'justify', 'right', color
139 if $tk_version =~ /^4.*/
140 TkcText.new($ctext_canvas, x+45, y-5, 'text'=>'Justification',
141 'font'=>'-*-times-medium-r-normal--*-240-*-*-*-*-*-*',
142 'anchor'=>'s', 'fill'=>'brown')
144 TkcText.new($ctext_canvas, x+45, y-5, 'text'=>'Justification',
145 'font'=>'Times 24', 'anchor'=>'s', 'fill'=>'brown')
148 $ctext_canvas.itembind('config', 'Enter', proc{textEnter $ctext_canvas})
149 $ctext_canvas.itembind('config', 'Leave',
151 .itemconfigure('current',
152 'fill'=>$textConfigFill)})
157 $textConfigFill = (w.itemconfiginfo 'current', 'fill')[4]
158 w.itemconfigure 'current', 'fill', 'black'
161 def textInsert(w, string)
162 return if string == ""
164 $ctag_text.dchars 'sel.first', 'sel.last'
167 $ctag_text.insert 'insert', string
170 def textPaste(w, pos)
172 $ctag_text.insert pos, TkSelection.get
177 def textB1Press(w,x,y)
178 w.icursor 'current', "@#{x},#{y}"
179 w.itemfocus 'current'
181 w.select_from 'current', "@#{x},#{y}"
184 def textB1Move(w,x,y)
185 w.select_to 'current', "@#{x},#{y}"
190 $ctag_text.dchars 'sel.first', 'sel.last'
192 char = $ctag_text.index('insert').to_i - 1
193 $ctag_text.dchars(char) if char >= 0
199 $ctag_text.dchars 'sel.first', 'sel.last'
201 $ctag_text.dchars 'insert'