summaryrefslogtreecommitdiff
path: root/ext/tk/sample/tkmultilistbox.rb
diff options
context:
space:
mode:
Diffstat (limited to 'ext/tk/sample/tkmultilistbox.rb')
-rw-r--r--ext/tk/sample/tkmultilistbox.rb6
1 files changed, 3 insertions, 3 deletions
diff --git a/ext/tk/sample/tkmultilistbox.rb b/ext/tk/sample/tkmultilistbox.rb
index c8c8118ffe..29a2077fd0 100644
--- a/ext/tk/sample/tkmultilistbox.rb
+++ b/ext/tk/sample/tkmultilistbox.rb
@@ -21,7 +21,7 @@ class TkMultiListbox < TkListbox
@width_total = 0
title_info.each{|title, width| @width_total += width.to_f}
- # virtical scrollbar
+ # vertical scrollbar
@v_scroll = TkScrollbar.new(@frame, 'orient'=>'vertical')
# init arrays
@@ -42,7 +42,7 @@ class TkMultiListbox < TkListbox
'height'=>@v_scroll.cget('width') +
2 * @v_scroll.cget('borderwidth'))
- # dummy label to keep the hight of title space
+ # dummy label to keep the height of title space
TkLabel.new(@f_title, 'text'=>' ').pack
# create each listbox
@@ -104,7 +104,7 @@ class TkMultiListbox < TkListbox
tab.bind('B1-Motion', proc{|x, idx| resize(x, idx.to_i)}, "%X #{idx}")
}
- # set control procedure for virtical scroll
+ # set control procedure for vertical scroll
@lbox_list.each{|lbox|
lbox.yscrollcommand proc{|first, last|
@v_scroll.set first, last