All pastes #749527 Raw Edit

Something

public text v1 · immutable
#749527 ·published 2007-10-25 19:12 UTC
rendered paste body
==== 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