[ruby-dev:21815] Re: lib/test/unit/ui/tk/testrunner.rb

永井@知能．九工大です．

From: Kazuhiro NISHIYAMA <[e-mail]>
Subject: [ruby-dev:21809] lib/test/unit/ui/tk/testrunner.rb
Date: Sat, 1 Nov 2003 22:56:29 +0900
Message-ID: <[e-mail]>
> lib/test/unit/ui/tk/testrunner.rbを作ってみました。
> 良ければ取り込んでください。

test は使ってないので良し悪しがわかりません．
どなたかよろしく．(^_^;

で，

> == 既知の問題点:

の内，

> : progressbarの場所に表示しているものがprogressbarではない。
>   TkCanvasで作ってみればいいかと思ったのですが、TkCanvasの使い方が
>   わからなかったのでTkLabelで色が緑と赤になるだけでごまかしています。

この程度の progress bar なら，わざわざ canvas widget を
持ち出す必要はなく，frame widget を place で配置するだけで十分です．

# progress bar 上の固定位置に文字列を出して，しかも透過するように
# しなければならないのであれば，canvas widget が必要です．
# label widget だと background が透過しないので，
# 文字列の途中まで progress bar が来ているときに困ります．

> : TkTextが折り返し表示をしているので横スクロールバーが無意味
>   TkTextがデフォルトで縦と横のスクロールバー付きでしかも折り返し
>   表示してくれているので、横スクロールバーに意味がないと思うのですが、
>   デフォルトの動作のようなのでそのままにしています。
>   (変更方法がわからなかったという理由もあります。)

wrap 属性を 'none' にすれば折り返ししなくなります．

--- testrunner.rb~	2003-11-02 03:42:01.000000000 +0900
+++ testrunner.rb	2003-11-02 05:09:31.000000000 +0900
@@ -94,7 +94,9 @@
           end
 
           def reset_ui(count) # :nodoc:
+            @test_total_count = count.to_f
             @test_progress_bar.configure('background'=>'green')
+            @test_progress_bar.place('relwidth'=>0/count)
             @red = false
 
             @test_count_label.value = 0
@@ -129,10 +131,11 @@
           end
 
           def result_changed(result) # :nodoc:
-            @test_count_label.value = result.run_count.to_s
-            @assertion_count_label.value = result.assertion_count.to_s
-            @failure_count_label.value = result.failure_count.to_s
-            @error_count_label.value = result.error_count.to_s
+            @test_count_label.value = result.run_count
+            @test_progress_bar.place('relwidth'=>result.run_count/@test_total_count)
+            @assertion_count_label.value = result.assertion_count
+            @failure_count_label.value = result.failure_count
+            @error_count_label.value = result.error_count
           end
 
           def started(result) # :nodoc:
@@ -166,9 +169,8 @@
             l = TkLabel.new(suite_frame, 'textvariable'=>@suite_name_entry, 'relief'=>'sunken')
             l.pack('side'=>'left', 'fill'=>'x', 'expand'=>true)
 
-            @test_progress_bar = TkLabel.new(nil, 'background'=>'green')
-            @test_progress_bar.pack('fill'=>'x')
-
+            f = TkFrame.new(nil, 'relief'=>'sunken', 'borderwidth'=>3, 'height'=>20).pack('fill'=>'x', 'padx'=>1)
+            @test_progress_bar = TkFrame.new(f, 'background'=>'green').place('anchor'=>'nw', 'relwidth'=>0.0, 'relheight'=>1.0)
 
             info_frame = TkFrame.new.pack('fill'=>'x', 'expand'=>true)
             @test_count_label = create_count_label(info_frame, 'Tests:')
@@ -189,7 +191,7 @@
             detail_scrollbar_y.pack('side'=>'right', 'fill'=>'y')
             detail_scrollbar_x = TkScrollbar.new(detail_frame)
             detail_scrollbar_x.pack('side'=>'bottom', 'fill'=>'x')
-            @detail_text = TkText.new(detail_frame, 'height'=>10) {
+            @detail_text = TkText.new(detail_frame, 'height'=>10, 'wrap'=>'none') {
               bindtags(bindtags - [TkText])
             }
             @detail_text.pack('fill'=>'both', 'expand'=>true)

-- 
                                         永井 秀利 （九工大 知能情報）
                                             [e-mail]