Changeset 1964 for trunk/tester/testview.tcl

Timestamp:

Nov 25, 2010 5:54:57 PM (13 years ago)

Author:

braffert

Message:

Developing regression tester

File:

• trunk/tester/testview.tcl (modified) (2 diffs)

trunk/tester/testview.tcl

@@ -17 +17 @@
     inherit itk::Widget
 
-    constructor {} { #defined later }
+    constructor {args} { #defined later }
 }
 
-itcl::body Rappture::Regression::TestView::constructor {} {
+itcl::body Rappture::Regression::TestView::constructor {args} {
     puts "Constructing TestView."
     itk_component add txt {
@@ -28 +28 @@
     $itk_component(txt) insert end "TestView text area..."
     $itk_component(txt) configure -state disabled
+
+    eval itk_initialize $args
 }