[ABU] 3-aug-2007 - Pod - A new kind of toplevel window. [ABU] 9-jan-2008 - Pod 1.2 released - updated links ---- **Introduction** '''Pod''' is a new kind of toplevel widget. The '''Pod''' command can create new windows or it can also transform existing toplevel-windows. **Anatomy of a Pod widget** [http://web.tiscali.it/irrational/tcl/Pod-1.2/doc/images/pod01.png] Here is a sample from a real application: [http://web.tiscali.it/irrational/tcl/Pod-1.2/doc/images/intro.png] Another picture showing how to adapt an existing application : [Kandinsky dance] [http://web.tiscali.it/irrational/tcl/Pod-1.2/doc/images/Kandinsky.png] **DOWNLOAD** * 1.0 Start page: [http://web.tiscali.it/irrational/tcl/pod-1.0/doc/index.html] * 1.0 Download [http://web.tiscali.it/irrational/tcl/archive/pod-1.0.zip] * 1.2 Start page: [http://web.tiscali.it/irrational/tcl/Pod-1.2/doc/index.html] * 1.2 Download [http://web.tiscali.it/irrational/tcl/archive/pod-1.2.zip] **HOW TO USE IT** Basically, in order to create a Pod-window you only need to add 2 lines: package require Pod Pod .myPod or, you can transform an existing toplevel in a Pod-window Pod adapt .topWin There are few other command you can use for customizing the Pod (read below). # change the look .myPod configure -background blue # disable the interactive resizability .myPod configure -resizable false For full details, read the "Pod Reference" [http://web.tiscali.it/irrational/tcl/Pod-1.2/doc/pod.html] within the doc directory. **PLATFORM COMPATIBILITY** '''Pod''' is pure-tcl code but it is based on some [wm] sub-commands ''unfortunately'' supported only on Windows and Mac. In particular, the following command are not ''well'' supported on Unix: * '''wm ovverrideredirect''' $win * '''wm attributes''' $win '''-transparentcolor''' $color (*New in TclTk 8.4.15*) * '''wm attributes''' $win '''-alpha''' $val [WJP] I just tried it on my Linux 2.6.3 system with Tcl/Tk 8.4.14 and it seems to work. [RLH] Neat! ---- [AMG]: What are the speckles visible in the lower-right corner of the screenshots? Are they resizing grab handles? [ABU]: Correct ! You can enable/disable these grab handles $w configure -resizable false Anyway, even if interactive-resizing is disabled, you can always resize the Pod by program: wm geometry $w 250x200 ---- **More about Platform Compatibility** '''Windows''' * '''100%''' - Note that the minimal required version is '''8.4.15''' (it is the first supporting the "wm attributes $w '''-transparentcolor''' $color" command). '''Mac''' * Version 1.2 is 99.9% identical to the Windows version. The only difference is an annoying flickering when large Pod-widgets are being resized. [http://web.tiscali.it/irrational/tcl/Pod-1.2/doc/images/podOnMac.png] '''Unix''' * Rounded corners are not drawn properly. Toplevel transparency is not supported. * About the '''wm overrideredirect ...''' command, there are some troubles ...similar to those found on Mac. ---- !!!!!! %| [Category Widget] |% !!!!!!