1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
|
#
# listbox widget demo 'colors' (called by 'widget')
#
# toplevel widget ¤¬Â¸ºß¤¹¤ì¤Ðºï½ü¤¹¤ë
if defined?($colors_demo) && $colors_demo
$colors_demo.destroy
$colors_demo = nil
end
# demo ÍѤΠtoplevel widget ¤òÀ¸À®
$colors_demo = TkToplevel.new {|w|
title("Listbox Demonstration (colors)")
iconname("colors")
positionWindow(w)
}
# label À¸À®
msg = TkLabel.new($colors_demo) {
font $font
wraplength '4i'
justify 'left'
text "²¼¤Ë¤Ï¿§¤Î̾Á°¤¬Æþ¤Ã¤¿¥¹¥¯¥í¡¼¥ë¥Ð¡¼ÉդΥꥹ¥È¥Ü¥Ã¥¯¥¹¤¬É½¼¨¤µ¤ì¤Æ¤¤¤Þ¤¹¡£¥ê¥¹¥È¤ò¥¹¥¯¥í¡¼¥ë¤µ¤»¤ë¤Î¤Ï¥¹¥¯¥í¡¼¥ë¥Ð¡¼¤Ç¤â¤Ç¤¤Þ¤¹¤·¡¢¥ê¥¹¥È¥Ü¥Ã¥¯¥¹¤ÎÃæ¤Ç¥Þ¥¦¥¹¤Î¥Ü¥¿¥ó2(Ãæ¥Ü¥¿¥ó)¤ò²¡¤·¤¿¤Þ¤Þ¥É¥é¥Ã¥°¤·¤Æ¤â¤Ç¤¤Þ¤¹¡£¤¢¤ë¿§¤ò¥Ü¥¿¥ó1(º¸¥Ü¥¿¥ó)¤Ç¥À¥Ö¥ë¥¯¥ê¥Ã¥¯¤¹¤ë¤È¥¢¥×¥ê¥±¡¼¥·¥ç¥óÁ´ÂΤ¬¤½¤Î¿§¤Ë¤Ê¤ê¤Þ¤¹¡£"
}
msg.pack('side'=>'top')
# frame À¸À®
TkFrame.new($colors_demo) {|frame|
TkButton.new(frame) {
#text 'λ²ò'
text 'ÊĤ¸¤ë'
command proc{
tmppath = $colors_demo
$colors_demo = nil
tmppath.destroy
}
}.pack('side'=>'left', 'expand'=>'yes')
TkButton.new(frame) {
text '¥³¡¼¥É»²¾È'
command proc{showCode 'colors'}
}.pack('side'=>'left', 'expand'=>'yes')
}.pack('side'=>'bottom', 'fill'=>'x', 'pady'=>'2m')
# frame À¸À®
colors_lbox = nil
TkFrame.new($colors_demo, 'borderwidth'=>10) {|w|
s = TkScrollbar.new(w)
colors_lbox = TkListbox.new(w) {
setgrid 1
width 10
height 12
yscrollcommand proc{|first,last| s.set first,last}
}
s.command(proc{|*args| colors_lbox.yview(*args)})
s.pack('side'=>'right', 'fill'=>'y')
colors_lbox.pack('side'=>'left', 'expand'=>1, 'fill'=>'both')
}.pack('side'=>'top', 'expand'=>'yes', 'fill'=>'y')
colors_lbox.bind('Double-1', proc{TkPalette.setPalette TkSelection.get})
ins_data = [
'gray60','gray70','gray80','gray85','gray90','gray95',
'snow1','snow2','snow3','snow4','seashell1','seashell2',
'seashell3','seashell4','AntiqueWhite1','AntiqueWhite2',
'AntiqueWhite3','AntiqueWhite4','bisque1','bisque2',
'bisque3','bisque4','PeachPuff1','PeachPuff2',
'PeachPuff3','PeachPuff4','NavajoWhite1','NavajoWhite2',
'NavajoWhite3','NavajoWhite4','LemonChiffon1',
'LemonChiffon2','LemonChiffon3','LemonChiffon4',
'cornsilk1','cornsilk2','cornsilk3','cornsilk4',
'ivory1','ivory2','ivory3','ivory4','honeydew1',
'honeydew2','honeydew3','honeydew4','LavenderBlush1',
'LavenderBlush2','LavenderBlush3','LavenderBlush4',
'MistyRose1','MistyRose2','MistyRose3','MistyRose4',
'azure1','azure2','azure3','azure4','SlateBlue1',
'SlateBlue2','SlateBlue3','SlateBlue4','RoyalBlue1',
'RoyalBlue2','RoyalBlue3','RoyalBlue4','blue1','blue2',
'blue3','blue4','DodgerBlue1','DodgerBlue2',
'DodgerBlue3','DodgerBlue4','SteelBlue1','SteelBlue2',
'SteelBlue3','SteelBlue4','DeepSkyBlue1','DeepSkyBlue2',
'DeepSkyBlue3','DeepSkyBlue4','SkyBlue1','SkyBlue2',
'SkyBlue3','SkyBlue4','LightSkyBlue1','LightSkyBlue2',
'LightSkyBlue3','LightSkyBlue4','SlateGray1',
'SlateGray2','SlateGray3','SlateGray4',
'LightSteelBlue1','LightSteelBlue2','LightSteelBlue3',
'LightSteelBlue4','LightBlue1','LightBlue2',
'LightBlue3','LightBlue4','LightCyan1','LightCyan2',
'LightCyan3','LightCyan4','PaleTurquoise1',
'PaleTurquoise2','PaleTurquoise3','PaleTurquoise4',
'CadetBlue1','CadetBlue2','CadetBlue3','CadetBlue4',
'turquoise1','turquoise2','turquoise3','turquoise4',
'cyan1','cyan2','cyan3','cyan4','DarkSlateGray1',
'DarkSlateGray2','DarkSlateGray3','DarkSlateGray4',
'aquamarine1','aquamarine2','aquamarine3','aquamarine4',
'DarkSeaGreen1','DarkSeaGreen2','DarkSeaGreen3',
'DarkSeaGreen4','SeaGreen1','SeaGreen2','SeaGreen3',
'SeaGreen4','PaleGreen1','PaleGreen2','PaleGreen3',
'PaleGreen4','SpringGreen1','SpringGreen2',
'SpringGreen3','SpringGreen4','green1','green2',
'green3','green4','chartreuse1','chartreuse2',
'chartreuse3','chartreuse4','OliveDrab1','OliveDrab2',
'OliveDrab3','OliveDrab4','DarkOliveGreen1',
'DarkOliveGreen2','DarkOliveGreen3','DarkOliveGreen4',
'khaki1','khaki2','khaki3','khaki4','LightGoldenrod1',
'LightGoldenrod2','LightGoldenrod3','LightGoldenrod4',
'LightYellow1','LightYellow2','LightYellow3',
'LightYellow4','yellow1','yellow2','yellow3','yellow4',
'gold1','gold2','gold3','gold4','goldenrod1',
'goldenrod2','goldenrod3','goldenrod4','DarkGoldenrod1',
'DarkGoldenrod2','DarkGoldenrod3','DarkGoldenrod4',
'RosyBrown1','RosyBrown2','RosyBrown3','RosyBrown4',
'IndianRed1','IndianRed2','IndianRed3','IndianRed4',
'sienna1','sienna2','sienna3','sienna4','burlywood1',
'burlywood2','burlywood3','burlywood4','wheat1',
'wheat2','wheat3','wheat4','tan1','tan2','tan3','tan4',
'chocolate1','chocolate2','chocolate3','chocolate4',
'firebrick1','firebrick2','firebrick3','firebrick4',
'brown1','brown2','brown3','brown4','salmon1','salmon2',
'salmon3','salmon4','LightSalmon1','LightSalmon2',
'LightSalmon3','LightSalmon4','orange1','orange2',
'orange3','orange4','DarkOrange1','DarkOrange2',
'DarkOrange3','DarkOrange4','coral1','coral2','coral3',
'coral4','tomato1','tomato2','tomato3','tomato4',
'OrangeRed1','OrangeRed2','OrangeRed3','OrangeRed4',
'red1','red2','red3','red4','DeepPink1','DeepPink2',
'DeepPink3','DeepPink4','HotPink1','HotPink2',
'HotPink3','HotPink4','pink1','pink2','pink3','pink4',
'LightPink1','LightPink2','LightPink3','LightPink4',
'PaleVioletRed1','PaleVioletRed2','PaleVioletRed3',
'PaleVioletRed4','maroon1','maroon2','maroon3',
'maroon4','VioletRed1','VioletRed2','VioletRed3',
'VioletRed4','magenta1','magenta2','magenta3',
'magenta4','orchid1','orchid2','orchid3','orchid4',
'plum1','plum2','plum3','plum4','MediumOrchid1',
'MediumOrchid2','MediumOrchid3','MediumOrchid4',
'DarkOrchid1','DarkOrchid2','DarkOrchid3',
'DarkOrchid4','purple1','purple2','purple3','purple4',
'MediumPurple1','MediumPurple2','MediumPurple3',
'MediumPurple4','thistle1','thistle2','thistle3', 'thistle4'
]
colors_lbox.insert(0, *ins_data)
|