Written by Brian Griffin.
Includes mtiwidgets::mdiframe widget.
What: mtiwidgets
Where: ftp://ftp.model.com/pub/tcl/mtiwidgets.tgz
Description: Collection of mega-widget additions and enhancements to
Iwidgets. Includes mtiwidgets::button, mtiwidgets:colbutton,
mtiwidgets::mtilabel, mtiwidgets:mapscrollbar, mtiwidgets::dockbar,
mtiwidgets::toolbar, mtiwidgets::mdiframe, and a demo of the
widgets.
Requires Tcl/Tk 8.3.4, Itcl/Itk 3.2, and Iwidgets 3.0.1, but has
been tested with Iwidgets 4.0.2.
Currently at version 0.1 .
Updated: 01/2003
Contact: I've updated this collection to include the mtipanemanager, demo'd at Tcl2004. However, this megawidget depends on several TIP's, #125 (wm toplevel) and #177 & #179 (panedwindow -stretch & -hide). There is also no demo or documentation yet. You can download the package at ftp://ftp.model.com/pub/tcl/mtiwidgets0.2.tgz
JH: You need the TIP patches [L1 ] [L2 ] and this fix in mtiwidgets0.2:
proc wm_toplevel {win {bool {}}} {
puts [info level 0]
if {[llength [info level 0]] == 2} {
return [expr {[winfo manager $win] eq "wm"}]
} else {
if {$bool} {
wm manage $win
} else {
wm forget $win
}
}
}and s/wm toplevel/wm_toplevel/ in all the code. With that, only mdiframe still fails for me.
See also incr tcl, incr tk, incr widgets, what is a megawidget.