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

'justify'=>'left', 'text'=>"This window displays a canvas widget that can be scrolled either using the scrollbars or by dragging with button 2 in the canvas. If you click button 1 on one of the rectangles, its indices will be printed on stdout."){

pack('side'=>'top')

}

# frame

$cscroll_buttons = TkFrame.new($cscroll_demo) {|frame|

TkButton.new(frame) {

text 'Dismiss'

command proc{

tmppath = $cscroll_demo

$cscroll_demo = nil

tmppath.destroy

}

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

TkButton.new(frame) {

text 'Show Code'

command proc{showCode 'cscroll'}

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

}

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

# frame

unless $tk_version =~ /^4\.[01]/

$cscroll_grid = TkFrame.new($cscroll_demo) {

pack('expand'=>'yes', 'fill'=>'both', 'padx'=>1, 'pady'=>1)

}

TkGrid.rowconfigure($cscroll_grid, 0, 'weight'=>1, 'minsize'=>0)

TkGrid.columnconfigure($cscroll_grid, 0, 'weight'=>1, 'minsize'=>0)

end

# canvas

$cscroll_canvas = TkCanvas.new($cscroll_demo,

'relief'=>'sunken', 'borderwidth'=>2,

'scrollregion'=>['-11c', '-11c', '50c', '20c']

) {|c|

if $tk_version =~ /^4\.[01]/

pack('expand'=>'yes', 'fill'=>'both')

else

grid('in'=>$cscroll_grid, 'padx'=>1, 'pady'=>1, 'row'=>0, 'column'=>0,

'rowspan'=>1, 'columnspan'=>1, 'sticky'=>'news')

end

TkScrollbar.new($cscroll_demo, 'command'=>proc{|*args| c.yview(*args)}) {|vs|

c.yscrollcommand(proc{|first,last| vs.set first,last})

if $tk_version =~ /^4\.[01]/

pack('side'=>'right', 'fill'=>'y')

else

grid('in'=>$cscroll_grid, 'padx'=>1, 'pady'=>1, 'row'=>0, 'column'=>1,

'rowspan'=>1, 'columnspan'=>1, 'sticky'=>'news')

end

}

TkScrollbar.new($cscroll_demo, 'orient'=>'horiz',

'command'=>proc{|*args| c.xview(*args)}) {|hs|

c.xscrollcommand(proc{|first,last| hs.set first,last})

if $tk_version =~ /^4\.[01]/

pack('side'=>'bottom', 'fill'=>'x')

else

grid('in'=>$cscroll_grid, 'padx'=>1, 'pady'=>1, 'row'=>1, 'column'=>0,

'rowspan'=>1, 'columnspan'=>1, 'sticky'=>'news')

end

}

bg = $cscroll_canvas.configinfo('bg')[4]

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

x = -10+3*i

y = -10

(0..9).each{|j|

TkcRectangle.new($cscroll_canvas, "#{x}c", "#{y}c", "#{x+2}c", "#{y+2}c",

'outline'=>'black', 'fill'=>bg, 'tags'=>'rect')

TkcText.new($cscroll_canvas, "#{x+1}c", "#{y+1}c",

'text'=>"#{i},#{j}", 'anchor'=>'center', 'tags'=>'text')

y += 3

}

100

}

101

102

$cscroll_canvas.itembind('all', 'Any-Enter', proc{scrollEnter $cscroll_canvas})

103

$cscroll_canvas.itembind('all', 'Any-Leave', proc{scrollLeave $cscroll_canvas})

104

$cscroll_canvas.itembind('all', '1', proc{scrollButton $cscroll_canvas})

105

$cscroll_canvas.itembind('all', 'Any-Enter', proc{scrollEnter $cscroll_canvas})

106

$cscroll_canvas.bind('2', proc{|x,y| $cscroll_canvas.scan_mark(x,y)}, '%x %y')

107

$cscroll_canvas.bind('B2-Motion',

108

proc{|x,y| $cscroll_canvas.scan_dragto(x,y)}, '%x %y')

109

110

def scrollEnter(c)

111

id = c.find_withtag('current')[0].id

112

id -= 1 if c.gettags('current').include?('text')

113

$oldFill = c.itemconfiginfo(id, 'fill')[4]

114

if TkWinfo.depth(c) > 1

115

c.itemconfigure(id, 'fill'=>'SeaGreen1')

116

else

117

c.itemconfigure(id, 'fill'=>'black')

118

c.itemconfigure(id+1, 'fill'=>'white')

119

end

120

end

121

122

def scrollLeave(c)

123

id = c.find_withtag('current')[0].id

124

id -= 1 if c.gettags('current').include?('text')

125

c.itemconfigure(id, 'fill'=>$oldFill)

126

c.itemconfigure(id+1, 'fill'=>'black')

127

end

128

129

def scrollButton(c)

130

id = c.find_withtag('current')[0].id

131

id += 1 unless c.gettags('current').include?('text')

132

print "You buttoned at #{c.itemconfiginfo(id,'text')[4]}\n"

133

end

134

Older »