Home Accessibility Courses Twitter The Mouth Facebook Resources Site Map About Us Contact
 
For 2021 - online Python 3 training - see ((here)).

Our plans were to retire in summer 2020 and see the world, but Coronavirus has lead us into a lot of lockdown programming in Python 3 and PHP 7.
We can now offer tailored online training - small groups, real tutors - works really well for groups of 4 to 14 delegates. Anywhere in the world; course language English.

Please ask about private 'maintenance' training for Python 2, Tcl, Perl, PHP, Lua, etc.
Tcl/Tk (wish) Grid layout example

"You can acheive in 20 lines of Tcl/Tk something that would take twice that using another GUI system." That claim might be a bit aggressive, but here is a tiny Tcl/Tk example to lay out a numeric data entry pad, allow it to stretch, and also provide an example of upvar (always worth providing an example ... not an easy concept for newcomers!)




proc play val {
upvar $val current
set colours {red green yellow blue}
incr current
set current [expr $current % [llength $colours]]
return [lindex $colours $current]
}

set chess 0
label .res -text result -background [play chess]
grid .res - - -sticky news
set rowz {1 2 3 4 br 6 7 8 9 * 0 #}
set rn 0
foreach {a b c} $rowz {
incr rn
label .a$rn -text $a -background [play chess]
label .b$rn -text $b -background [play chess]
label .c$rn -text $c -background [play chess]
grid .a$rn .b$rn .c$rn -sticky news
}
grid rowconfigure . {0 1 2 3 4} -weight 1 -minsize 40
grid columnconfigure . {0 1 2} -weight 1 -minsize 40


Link - Procedures, upvar and variable scope
Link - Tk Window Manager Examples
(written 2005-02-12, updated 2006-06-05)

 
Associated topics are indexed as below, or enter http://melksh.am/nnnn for individual articles
T218 - Tcl/Tk - Geometry Managers
  [445] Sticky news - (2005-09-15)
  [787] Tk - laying out your GUI with frames, pack and grid - (2006-06-30)
  [1335] Expanding a grid - Tcl/Tk - (2007-09-07)
  [1340] Tk locks up - 100% c.p.u. on a simple program (Tcl, Perl, Python) - (2007-09-09)
  [1470] fill and expand on Tcl/Tk pack command - (2007-12-13)


Back to
Look after your staff and they'll look after you. AOL.
Previous and next
or
Horse's mouth home
Forward to
Off to Munich
Some other Articles
Cheap purchase - votes paid for with selfish promises
Open Source becomes mainstream
Futility of war?
Off to Munich
Tcl/Tk (wish) Grid layout example
Look after your staff and they'll look after you. AOL.
Joining lists in Tcl. Indirect variables in Tcl.
FAQ - Perl or PHP
Examples - Gadfly, NI Number, and Tcl to C interface
Canteen Dragon
4759 posts, page by page
Link to page ... 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96 at 50 posts per page


This is a page archived from The Horse's Mouth at http://www.wellho.net/horse/ - the diary and writings of Graham Ellis. Every attempt was made to provide current information at the time the page was written, but things do move forward in our business - new software releases, price changes, new techniques. Please check back via our main site for current courses, prices, versions, etc - any mention of a price in "The Horse's Mouth" cannot be taken as an offer to supply at that price.

Link to Ezine home page (for reading).
Link to Blogging home page (to add comments).

You can Add a comment or ranking to this page

© WELL HOUSE CONSULTANTS LTD., 2021: 48 Spa Road • Melksham, Wiltshire • United Kingdom • SN12 7NY
PH: 01144 1225 708225 • EMAIL: info@wellho.net • WEB: http://www.wellho.net • SKYPE: wellho

PAGE: http://www.wellho.net/mouth/212_Tcl- ... ample.html • PAGE BUILT: Sun Oct 11 16:07:41 2020 • BUILD SYSTEM: JelliaJamb