==== Menubar-1.1 Menubar construction FAILED ==== Contents of test case: iwidgets::Menubar .mb -menubuttons { menubutton file -text File -menu { options -tearoff no command ok -label "Ok" command quit -label "Quit" } } pack .mb update .mb add menubutton .other -text Other -menu { radiobutton r1 -label "Radio One" radiobutton r2 -label "Radio Two" } update .mb add menubutton view -text View -menu { command uno -label Uno command dos -label Dos } update .mb add cascade .view.more -label More -menu { command one -label One command two -label Two cascade extra -label Extra -menu { radiobutton rad1 -label "Choice One" radiobutton rad2 -label "Choice Two" cascade somemore -label "Some More" -helpstr "Yet some more" -menu { command triangle -label "Triangle" -command {puts TRIANGLE} command square -label "Square" -command {puts SQUARE} command octagon -label "Octagon" -command {puts OCTAGON} } } } update ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: cannot inherit from "itk::Widget" (class "itk::Widget" not found in context "::iwidgets") while executing "inherit itk::Widget" (class "iwidgets::Menubar" body line 2) invoked from within "itcl::class iwidgets::Menubar { inherit itk::Widget constructor { args } {} itk_option define -foreground foreground Foreground Black ..." (file "/usr/slackports/distfiles/iwidgets/iwidgets-4.0.1/generic/menubar.itk" line 76) invoked from within "source /usr/slackports/distfiles/iwidgets/iwidgets-4.0.1/generic/menubar.itk" (in namespace eval "::" script line 1) invoked from within "namespace eval :: $auto_index($name)" (procedure "auto_load" line 35) invoked from within "auto_load $name [uplevel 1 {::namespace current}]" (autoloading "iwidgets::Menubar") invoked from within "iwidgets::Menubar .mb -menubuttons { menubutton file -text File -menu { options -tearoff no command ok -label "Ok" command quit -label "Qui..." ("uplevel" body line 2) invoked from within "uplevel 1 $script" ---- errorCode: NONE ==== Menubar-1.1 FAILED