~ubuntu-branches/ubuntu/hardy/ruby1.8/hardy-updates

'text'=>"��Υ��Х�widget�ϥ롼�顼��Ϸ��Ǥ��롼�顼�α��ˤ��Τϥ��֥��ȥåפΰ�ͤǡ��ĥ�äƤ��뤳�Ȥˤ�äƥ��֥��ȥåפ��뤳�Ȥ��Ǥ��ޤ��ޤ��Ǥˤ��륿�֥��ȥåפ�ư��Ȥ�Ǥ��ޤ��֥��ȥåפ��ޤ��ϲ��ˤ��ɽ��ޤǥɥ�å��ȡ��ޥ��ܥ��Υ��ˤ��Υ��֥��ȥåפϾä��ޤ��"){

pack('side'=>'top')

}

# frame ��

$ruler_buttons = TkFrame.new($ruler_demo) {|frame|

TkButton.new(frame) {

#text 'λ��'

text '�Ĥ��'

command proc{

tmppath = $ruler_demo

$ruler_demo = nil

tmppath.destroy

}

}.pack('side'=>'left', 'expand'=>'yes')

TkButton.new(frame) {

text '��ɻ��'

command proc{showCode 'ruler'}

}.pack('side'=>'left', 'expand'=>'yes')

}

$ruler_buttons.pack('side'=>'bottom', 'fill'=>'x', 'pady'=>'2m')

# canvas ��

$ruler_canvas = TkCanvas.new($ruler_demo, 'width'=>'14.8c', 'height'=>'2.5c')

$ruler_canvas.pack('side'=>'top', 'fill'=>'x')

# ��

unless Struct.const_defined?("RulerInfo")

$demo_rulerInfo = Struct.new("RulerInfo", :grid, :left, :right, :x, :y,

:top, :bottom, :size, :normalStyle,

:activeStyle, :deleteStyle).new

end

$demo_rulerInfo.grid = '.25c'

$demo_rulerInfo.left = TkWinfo.fpixels($ruler_canvas, '1c')

$demo_rulerInfo.right = TkWinfo.fpixels($ruler_canvas, '13c')

$demo_rulerInfo.top = TkWinfo.fpixels($ruler_canvas, '1c')

$demo_rulerInfo.bottom = TkWinfo.fpixels($ruler_canvas, '1.5c')

$demo_rulerInfo.size = TkWinfo.fpixels($ruler_canvas, '.2c')

$demo_rulerInfo.normalStyle = {'fill'=>'black'}

if TkWinfo.depth($ruler_canvas) > 1

$demo_rulerInfo.activeStyle = {'fill'=>'red', 'stipple'=>''}

$demo_rulerInfo.deleteStyle = {'fill'=>'red',

'stipple'=>'@'+[$demo_dir, '..',

'images', 'gray25.xbm'].join(File::Separator)}

else

$demo_rulerInfo.activeStyle = {'fill'=>'black', 'stipple'=>''}

$demo_rulerInfo.deleteStyle = {'fill'=>'black',

'stipple'=>'@'+[$demo_dir, '..',

'images', 'gray25.xbm'].join(File::Separator)}

end

TkcLine.new($ruler_canvas,

'1c', '0.5c', '1c', '1c', '13c', '1c', '13c', '0.5c', 'width'=>1)

(0..11).each{|i|

x = i+1

TkcLine.new($ruler_canvas, "#{x}c", '1c', "#{x}c", '0.6c', 'width'=>1)

TkcLine.new($ruler_canvas, "#{x}.25c", '1c', "#{x}.25c", '0.8c', 'width'=>1)

TkcLine.new($ruler_canvas, "#{x}.5c", '1c', "#{x}.5c", '0.7c', 'width'=>1)

TkcLine.new($ruler_canvas, "#{x}.75c", '1c', "#{x}.75c", '0.8c', 'width'=>1)

TkcText.new($ruler_canvas, "#{x}.15c", '0.75c', 'text'=>i, 'anchor'=>'sw')

}

$rulerTag_well = TkcTag.new($ruler_canvas)

$ruler_canvas\

.addtag_withtag($rulerTag_well,

TkcRectangle.new($ruler_canvas,

100

'13.2c', '1c', '13.8c', '0.5c',

101

'outline'=>'black',

102

'fill'=>($ruler_canvas\

103

.configinfo('background'))[4]) )

104

$ruler_canvas\

105

.addtag_withtag($rulerTag_well,

106

rulerMkTab($ruler_canvas,

107

TkWinfo.pixels($ruler_canvas, '13.5c'),

108

TkWinfo.pixels($ruler_canvas, '.65c') ) )

109

110

$rulerTag_well.bind('1', proc{|x,y| rulerNewTab($ruler_canvas,x,y)}, '%x %y')

111

$ruler_canvas.itembind('tab', '1',

112

proc{|x,y| rulerSelectTab($ruler_canvas,x,y)}, '%x %y')

113

$ruler_canvas.bind('B1-Motion',

114

proc{|x,y| rulerMoveTab($ruler_canvas,x,y)}, '%x %y')

115

$ruler_canvas.bind('Any-ButtonRelease-1', proc{rulerReleaseTab($ruler_canvas)})

116

117

# rulerNewTab --

118

# Does all the work of creating a tab stop, including creating the

119

# triangle object and adding tags to it to give it tab behavior.

120

121

# Arguments:

122

# c - The canvas window.

123

# x, y - The coordinates of the tab stop.

124

125

def rulerNewTab(c,x,y)

126

v = $demo_rulerInfo

127

c.addtag_withtag('active', rulerMkTab(c,x,y))

128

c.addtag_withtag('tab', 'active')

129

v.x = x

130

v.y = y

131

rulerMoveTab(c,x,y)

132

end

133

134

# rulerSelectTab --

135

# This method is invoked when mouse button 1 is pressed over

136

# a tab. It remembers information about the tab so that it can

137

# be dragged interactively.

138

139

# Arguments:

140

# c - The canvas widget.

141

# x, y - The coordinates of the mouse (identifies the point by

142

# which the tab was picked up for dragging).

143

144

def rulerSelectTab(c,x,y)

145

v = $demo_rulerInfo

146

v.x = c.canvasx(x, v.grid)

147

v.y = v.top+2

148

c.addtag_withtag('active', 'current')

149

c.itemconfigure('active', v.activeStyle)

150

c.raise('active')

151

end

152

153

# rulerMoveTab --

154

# This method is invoked during mouse motion events to drag a tab.

155

# It adjusts the position of the tab, and changes its appearance if

156

# it is about to be dragged out of the ruler.

157

158

# Arguments:

159

# c - The canvas widget.

160

# x, y - The coordinates of the mouse.

161

162

def rulerMoveTab(c,x,y)

163

v = $demo_rulerInfo

164

return if c.find_withtag('active') == []

165

cx = c.canvasx(x,v.grid)

166

cy = c.canvasy(y)

167

cx = v.left if cx < v.left

168

cx = v.right if cx > v.right

169

if (cy >= v.top && cy <= v.bottom)

170

cy = v.top+2

171

c.itemconfigure('active', v.activeStyle)

172

else

173

cy = cy-v.size-2

174

c.itemconfigure('active', v.deleteStyle)

175

end

176

c.move('active', cx-v.x, cy-v.y)

177

v.x = cx

178

v.y = cy

179

end

180

181

# rulerReleaseTab --

182

# This method is invoked during button release events that end

183

# a tab drag operation. It deselects the tab and deletes the tab if

184

# it was dragged out of the ruler.

185

186

# Arguments:

187

# c - The canvas widget.

188

# x, y - The coordinates of the mouse.

189

190

def rulerReleaseTab(c)

191

v = $demo_rulerInfo

192

return if c.find_withtag('active') == []

193

if v.y != v.top+2

194

c.delete('active')

195

else

196

c.itemconfigure('active', v.normalStyle)

197

c.dtag('active')

198

end

199

end

200

Older »