Richard Suchenwirth - Overloading a widget means writing a new widget proc with the same name and (at least) same functionality, so when Tcl/Tk (e.g. pack) calls it internally, it reacts in the same way. This is the lightweight way of creating "mini-megawidgets" in pure Tcl without much hassle, e.g. something like this:
proc supertext {w args} {
eval text $w $args ;# create the "base" thing
rename $w _$w ;# keep the original widget command
# Here comes the overloaded widget proc:
proc $w {cmd args} {
set self [lindex [info level 0] 0] ;# get name I was called with
switch -- $cmd {
super {puts "super! $args" ;# added method}
default {uplevel 1 _$self $cmd $args}
}
}
return $w ;# like the original "text" command
}
supertext .t -foreground red
pack .t -fill both -expand 1
.t insert end "This is a.. (see stdout)"
.t super exampleThis way, a supertext "inherits" all the behavior of a text widget, but in addition has the (here very stupid) "super" method. You can also overload the configure/cget "methods", but make sure the original "instance variables" are still passed through to the original widget proc. Adding "method names" like above is the easiest.
See also ANSI color control for ansicolor::text, a text widget where the insert command is intercepted to process color control escape sequences.
DKF: you can do even better for yourself if you use interpreter command aliases (i.e. your code can be simpler, more robust and less heavily nested, all by taking advantage of the ability to add extra arguments to the command via the alias - RS: which in functional programming circles is called "currying" - see Custom curry.) Taking the example listed above:
proc supertext {w args} {
eval text $w $args ;# create the "base" thing
rename $w _$w ;# keep the original widget command
# Install the alias...
interp alias {} $w {} supertext_instanceCmd $w
return $w ;# like the original "text" command
}
proc supertext_instanceCmd {self cmd args} {
switch -- $cmd {
super {puts "super! $args" ;# added method}
default {return [uplevel 1 [list _$self $cmd] $args]}
}
}
supertext .t -foreground red
pack .t -fill both -expand 1
.t insert end "This is a.. (see stdout)"
.t super exampleThis comes even more into its own when combined with namespaces and multiple interpreters.