pod - a new kind of toplevel window.
package require Pod
Pod pathName ?options?
Pod adapt pathname ?options?
A Pod is an extended toplevel widget with a special look&feel.
The Pod command creates a new toplevel widget (given by the pathName argument). Additional options, described below, may be specified on the command line or in the option database to configure aspects of the Pod such as its background color.
Other than creating new Pods, the Pod command can also transform existing toplevel widgets.
All toplevel options are supported.
Options can be managed with the classic cget and configure commands.
Be careful that some standard options could be meaningless (or worst, dangerous) in a Pod context. Use them with care ..
All command working with a toplevel-window can be used.
$win configure .... $win cget ... wm .... $win ...
and so on
Pod-windows are created with class bindings that give them default behavior:
bind $w <Button-1> {;}If you want all (passive) widgets of a given class behave like an active widget, add a fake class-binding:
bind //ClassName// <Button-1> {;} ; # e.g. ClassName = Label
Create a new Pod named .myPod
package require Pod Pod .myPod -bg blue
or you can adapt an existing toplevel window
# .. create a toplevel ".myWin", add some internal widgets, # customize it .... Pod adapt .myWin # change the color and make it non-resizable .myWin configure -color orange -resizable false
In order to display its typical rounded borders, Pod creates some internal widgets. For each Pod $win, some labels named $win.pod_* are created (and automatically destroyed when the Pod is destroyed). You should not modify these internal components.
Also a lot of images are automatically created/destroyed. Although they are visible to programmers, they should not be directly altered.