Search icon CANCEL
Subscription
0
Cart icon
Your Cart (0 item)
Close icon
You have no products in your basket yet
Arrow left icon
Explore Products
Best Sellers
New Releases
Books
Videos
Audiobooks
Learning Hub
Conferences
Free Learning
Arrow right icon
Arrow up icon
GO TO TOP
Tcl/Tk 8.5 Programming Cookbook

You're reading from   Tcl/Tk 8.5 Programming Cookbook With over 100 recipes, this Cookbook is ideal for both beginners and advanced Tcl/Tk programmers. From the basics to creating applications, it‚Äôs full of indispensable tips and tricks to make the most of the language.

Arrow left icon
Product type Paperback
Published in Feb 2011
Publisher Packt
ISBN-13 9781849512985
Length 236 pages
Edition 1st Edition
Languages
Arrow right icon
Toc

Table of Contents (20) Chapters Close

Tcl/Tk 8.5 Programming Cookbook
Credits
About the Author
1. Acknowledgment
About the Reviewers
2. www.PacktPub.com
3. Preface
1. The Tcl Shell FREE CHAPTER 2. Using the Building Blocks Control Constructs 3. Error Handling 4. Handling String Expressions 5. Expanding String Functionality Using Lists 6. The Tcl Dictionary 7. File Operations 8. Tk GUI Programming with Tcl/Tk 9. Configuring and Controlling Tk Widgets 10. Geometry Management 11. Using Tcl Built-in Dialog Windows 12. Creating and Managing Menus 13. Creating the Address Book Application

Nested looping


Nesting of control constructs provides a valuable method for ensuring that you are acting on the values desired, as well as combining multiple actions, within the same portion of the code. In this section, we will be expanding on that premise to illustrate the nesting of different control constructs within the same script.

How to do it…

In the following recipe, we will create a Tcl script, that accepts two numeric arguments (x and y), where y is greater than x, evaluates the existence of the arguments, and prints out the values between x and y.

Create a text file named nest.tcl that contains the following commands:

if {$argc == 2} {
set x [lindex $argv 0]
set y [lindex $argv 1]
puts "Beginning the while loop"
for {set i $x} {$i <= $y} {incr i} {puts $i}
} else {
puts "Invalid number of arguments"
}

Now invoke the script using the following command line:

% tclsh85 nest.tcl 1
Invalid number of arguments

How it works…

As you can see by the output, the \if statement evaluated as...

lock icon The rest of the chapter is locked
Register for a free Packt account to unlock a world of extra content!
A free Packt account unlocks extra newsletters, articles, discounted offers, and much more. Start advancing your knowledge today.
Unlock this book and the full library FREE for 7 days
Get unlimited access to 7000+ expert-authored eBooks and videos courses covering every tech area you can think of
Renews at $19.99/month. Cancel anytime
Banner background image