Tcl/Tk 8.5 Programming Cookbook

Tcl/Tk 8.5 Programming Cookbook

Overview of this book

With Tcl/Tk, you can create full-featured cross-platform applications in a simple and easy-to-understand way without any expensive development package; the only tools required are a simple text editor and your imagination. This practical cookbook will help you to efficiently interact with editors, debuggers, and shell type interactive programs using Tcl/Tk 8. This cookbook will comprehensively guide you through practical implementation of Tcl/Tk 8.5 commands and tools. This book will take you through all the steps needed to become a productive programmer in Tcl/Tk 8. Right from guiding you through the basics to creating a stand-alone application, it provides complete explanation of all the steps along with handy tips and tricks. The book begins with an introduction to the Tcl shell, syntax, variables, and programming best practices in the language. It then explores procedures and the flow of events with control constructs followed by advanced error trapping and recovery. From Chapter 4, a detailed study of string expressions and handling enables you to handle various string functions and use lists to expand the string functionality. The book then discusses in-depth the Tcl Dictionary and how to utilize it to store and retrieve data. File operations and Tk GUI handling are covered extensively along with a developing a real-world address book application to practice the concepts learned.

Tcl/Tk 8.5 Programming Cookbook

Credits

About the Author

Acknowledgment

About the Reviewers

www.PacktPub.com

Preface

Free Chapter

The Tcl Shell

Introduction

The Tcl shell

Writing to the Tcl console

Mathematical expressions

Tcl expr operands

Mathematical functions

Computing mathematical expressions

Referencing files in Tcl

Variables

Command line arguments

Using the Building Blocks Control Constructs

Introduction

Controlling flow with the if statement

Looping with for

Looping with foreach

Looping with while

Continuing a procedure

Breaking out of a procedure

Nested looping

Error Handling

Introduction

Using the catch command

Using the eval command

Using the error command

Error handling procedure

Handling String Expressions

Introduction

Appending to a string

Formatting a string

Matching a regular expression within a string

Performing character substitution on a string

Parsing a string using conversion specifiers

Determining the length of a string

Comparing strings

Comparing a string of characters

Locating the first instance of a character

Locating the index of a character

Determining the class of a string

Locating the last instance of a string

Determining the size of a string

Replacing values within a string

Locating a pattern within a string

Returning a range of characters from a string

Creating a string of repeated characters

Replacing ranges of characters contained within a string

Creating a reverse string

Converting a string to lowercase

Converting a string to title

Converting a string to uppercase

Trimming a string

Trimming leading whitespace

Trimming trailing whitespace

Locating the word end

Locating the word start

Performing variable substitution

Expanding String Functionality Using Lists

Introduction

Creating a list

Joining two lists

Joining list elements

Appending list elements

Assigning list elements to variables

Retrieving an element from a list

Inserting elements into a list

Determining the number of elements

Getting a list element

Splitting a string into a list

The Tcl Dictionary

Introduction

Creating a dictionary

Appending to a dictionary

Determining if a key exists

Filtering a dictionary

Searching a dictionary

Getting a record

Incrementing a value

Getting the dictionary structure

Getting a list of keys

Appending to an existing record

Merging two dictionaries

Creating a blank dictionary structure

Updating variables from a dictionary

Determining the size of a dictionary

File Operations

Opening a command pipeline

Tk GUI Programming with Tcl/Tk

Introduction

Creating a widget

Writing to the console

Setting the attributes of the window through window manager

Creating an additional window

Configuring and Controlling Tk Widgets

Introduction

Creating a frame widget

Creating a label widget

Creating an entry widget

Creating a button widget

Creating a listbox widget

Creating an image

Creating a simple form

Geometry Management

Introduction

Controlling layout with the pack command

Controlling layout with the grid command

Combining pack and grid

Creating an address book interface

Using Tcl Built-in Dialog Windows

Introduction

Displaying a message box

Displaying a confirmation dialog

Displaying the color picker

Displaying the directory dialog

Displaying the file selection dialog

Selecting a directory and file

Creating and Managing Menus

Introduction

Creating a menu

Adding menu buttons

Displaying a pop-up menu

Data entry application

Creating the Address Book Application

Introduction

Creating the Address Book application

Customer Reviews

5 star

4 star

3 star

2 star

1 star

Tcl expr operands

Tcl operands are treated as integers, where feasible. They may be specified as decimal, binary (first two characters must be 0b), hexadecimal (first two characters must be 0x), or octal (first two characters must be 0o). Care should be taken when passing integers with a leading 0, for example 08, as the interpreter would evaluate 08 as an illegal octal value. If no integer formats are included, the command will evaluate the operand as a floating-point numeric value. For scientific notations, the character e (or E) is inserted as appropriate. If no numeric interpretation is feasible, the value will be evaluated as a string. In this case, the value must be enclosed within double quotes or braces. Please note that not all operands are accepted by all operators. To avoid inadvertent variable substitution, it is always best to enclose the operands within braces. For example, take a look at the following:

expr 1+1*3 will return a value of 4.
expr (1+1)*3 will return a value of 6.

Operands may be presented in any of the following:

Operand	Explanation
Numeric	Integer and floating-point values may be passed directly to the command.
Boolean	All standard Boolean values (true, false, yes, no, 0, or 1) are supported.
Tcl variable	All referenced variables (in Tcl, a variable is referenced using the `$` notation, for example, `myVariable` is a named variable, whereas `$myVariable` is the referenced variable).
Strings (in double quotes)	Strings contained within double quotes may be passed with no need to include backslash, variable, or command substitution, as these are handled automatically (see the chapter on String Expressions and Handling for clarification on these terms and their usage).
Strings (in braces)	Strings contained within braces will be used with no substitution.
Tcl commands	Tcl commands must be enclosed within square braces. The command will be executed and the mathematical function is performed on the return value.
Named functions	Functions, such as sine, cosine, and so on.

Tcl supports a subset of the C programming language math operators and treats them in the same manner and precedence. If a named function (such as sine) is encountered, expr automatically makes a call to the mathfunc namespace to minimize the syntax required to obtain the value.

Tcl expr operators may be specified as noted in the following table, in the descending order of precedence:

Operator	Explanation
- + ~ !	Unary minus, unary plus, bitwise NOT and logical NOT. Cannot be applied to string operands. Bit-wise NOT may be applied to only integers.
**	Exponentiation Numeric operands only.
*/ %	Multiply, divide, and remainder. Numeric operands only.
+ -	Add and subtract. Numeric operands only.
<< >>	Left shift and right shift. Integer operands only. A right shift always propagates the sign bit.
< > <= >=	Boolean Less, Boolean Greater, Boolean Less Than or Equal To, Boolean Greater Than or Equal To (A value of 1 is returned if the condition is true, otherwise a 0 is returned). If utilized for strings, string comparison will be applied.
== !=	Boolean Equal and Boolean Not Equal (A value of 1 is returned if the condition is true, otherwise a 0 is returned).
`eq ne`	Boolean String Equal and Boolean String Not Equal (A value of 1 is returned if the condition is true, otherwise a 0 is returned). Any operand provided will be interpreted as a string.
`in ni`	List Containment and Negated List Containment (A value of 1 is returned if the condition is true, otherwise a 0 is returned). The first operand is treated as a string value, the second as a list.
&	Bitwise AND Integers only.
^	Bitwise Exclusive OR Integers only.
\|	Bitwise OR Integers only.
&&	Logical `AND` (a value of 1 is returned if both operands are 0, otherwise a 1 is returned). Boolean and numeric (integer and floating-point) operands only.
x?y:z	`If-then-else` (if `x` evaluates to non-zero, then the return is the value of `y`, otherwise the value of `z` is returned). The `x` operand must have a Boolean or a numeric value.

Tcl/Tk 8.5 Programming Cookbook

Tcl/Tk 8.5 Programming Cookbook

Overview of this book

Related Content you might be interested in

Current Title:

Tcl/Tk 8.5 Programming Cookbook

Tcl expr operands