"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 15:00:36)

 T218 - Tcl/Tk - Geometry Managers

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

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
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 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).