diff options
Diffstat (limited to 'ext/tk/sample/demos-jp/text.rb')
| -rw-r--r-- | ext/tk/sample/demos-jp/text.rb | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/ext/tk/sample/demos-jp/text.rb b/ext/tk/sample/demos-jp/text.rb index 25e0e64e9a..0ae480eb00 100644 --- a/ext/tk/sample/demos-jp/text.rb +++ b/ext/tk/sample/demos-jp/text.rb @@ -16,6 +16,8 @@ $text_demo = TkToplevel.new {|w| positionWindow(w) } +base_frame = TkFrame.new($text_demo).pack(:fill=>:both, :expand=>true) + # version check if ((Tk::TK_VERSION.split('.').collect{|n| n.to_i} <=> [8,4]) < 0) undo_support = false @@ -24,7 +26,7 @@ else end # frame 生成 -TkFrame.new($text_demo) {|frame| +TkFrame.new(base_frame) {|frame| TkButton.new(frame) { #text '了解' text '閉じる' @@ -42,13 +44,13 @@ TkFrame.new($text_demo) {|frame| }.pack('side'=>'bottom', 'fill'=>'x', 'pady'=>'2m') # text 生成 -TkText.new($text_demo){|t| +TkText.new(base_frame){|t| # 生成 relief 'sunken' bd 2 setgrid 1 height 30 - TkScrollbar.new($text_demo) {|s| + TkScrollbar.new(base_frame) {|s| pack('side'=>'right', 'fill'=>'y') command proc{|*args| t.yview(*args)} t.yscrollcommand proc{|first,last| s.set first,last} |