I'm trying to run a program that creates a notebook with tabs and can't get past an error that says "Bad screen distance #AEAEB2B2C3C3" I don't understand what it means.
The error comes at "switch -- $tag" can anyone help?

proc Rnotebook:create {w args} {
    global Rnotebook tcl_platform

    frame $w -borderwidth 0 -relief flat
    
    set Rnotebook($w,ntab) 1
    set Rnotebook($w,tabs) {1}
    set Rnotebook($w,current) 0
    set Rnotebook($w,theight) 30
    set Rnotebook($w,padx) 0
    set Rnotebook($w,bwidth) 2
    set Rnotebook($w,background) [$w cget -background]
    set Rnotebook($w,foreground) black

        foreach {tag value} $args {
        switch -- $tag {
         -borderwidth {
             set Rnotebook($w,bwidth) $value

        }
        -height {
             set Rnotebook($w,theight) $value
        }
        -tabs {
             set Rnotebook($w,tabs) $value
             set Rnotebook($w,nbtab) [llength $value]
        }
        -nbtab {
             set Rnotebook($w,nbtab) $value
        }
        -padx {
             set Rnotebook($w,padx) $value
        }
        -background {
             set Rnotebook($w,background) $value
        }
        -foreground {
             set Rnotebook($w,foreground) $value
        }
    }
}

Hm. There would seem to be something going on beyond what you've presented here. The only obvious problem I see with the code you posted is that there is a missing close brace (}). If this is simply a typo in your posting, then the problem is unlikely to be in this code block. On the other hand, if your actual code is missing the close brace, that might cause some problems.

By the way, do you realize that the tabbed notebook megawidget is one of the most commonly implemented megawidgets in Tcl extensions? Off the top of my head, I know of 4 extensions implementing one: Blt, Bwidgets, [incr Widgets], and Tix. At this point, there's hardly any need to implement your own except for the programming practice. To learn more about these extensions, visit the Tcl'ers Wiki at http://wiki.tcl.tk, and search on the various package names.

- Ken Jones, President
  Avia Training and Consulting
  www.avia-training.com
  866-TCL-HELP (866-825-4357) US Toll free
  415-643-8692 Voice
  415-643-8697 Fax