Tcl 8.6

https://www.tcl-lang.org/man/tcl8.6/
Admin
Tcl 8.6 is a dynamic scripting language and toolkit for building cross-platform applications with...
Tokens:970,642
Snippets:9,424
Trust Score:9.6
Update:5 months ago
Show doc for...
Tokens:
Raw
### Show Console Example

Source: https://www.tcl-lang.org/man/tcl8.6/TkCmd/console.htm

This example demonstrates how to show the console window, using 'catch' to prevent errors if the console is already visible or not available.

```tcl
catch {console show}
```

--------------------------------

### Example Usage

Source: https://www.tcl-lang.org/man/tcl8.6/TclCmd/glob.htm

Illustrative examples demonstrating how to use the glob command with different options and patterns.

```APIDOC
## Examples

```tcl
# Find all .tcl files in the current directory
glob *.tcl

# Find all files starting with 'a' in the /tmp directory
glob -directory /tmp a*

# Find files with the same root name as a given path, but different extensions
set path "/path/to/myfile.txt"
glob -path [file rootname $path] .*

# List only directories
glob -types d *
```
```

--------------------------------

### label widget example

Source: https://www.tcl-lang.org/man/tcl8.6/TkCmd/label.htm

Example demonstrating the creation and layout of multiple label widgets with different configurations.

```APIDOC
## EXAMPLE
```tcl
# Make the widgets
label .t -text "This widget is at the top"    -bg red
label .b -text "This widget is at the bottom" -bg green
label .l -text "Left\nHand\nSide"
label .r -text "Right\nHand\nSide"
text .mid
	.mid insert end "This layout is like Java's BorderLayout"

# Lay them out
pack .t   -side top    -fill x
pack .b   -side bottom -fill x
pack .l   -side left   -fill y
pack .r   -side right  -fill y
pack .mid -expand 1    -fill both
```
```

--------------------------------

### Info Command Ensemble Example

Source: https://www.tcl-lang.org/man/tcl8.6/ItclCmd/ensemble.htm

This is an example of how the 'info' command uses an ensemble internally, with sub-ensembles and parts like 'info namespace all' and 'info namespace children'.

```tcl
info namespace children
```

--------------------------------

### Tk Packer Algorithm Example

Source: https://www.tcl-lang.org/man/tcl8.6/TkCmd/pack.htm

Demonstrates how to use the 'pack' command with various options to arrange widgets in a layout similar to Java's BorderLayout. This example shows widget creation and their subsequent packing with options like -side, -fill, and -expand.

```tcl
# Make the widgets
label .t -text "This widget is at the top"    -bg red
label .b -text "This widget is at the bottom" -bg green
label .l -text "Left\nHand\nSide"
label .r -text "Right\nHand\nSide"
text .mid
	.mid insert end "This layout is like Java's BorderLayout"
# Lay them out
pack .t   -side top    -fill x
pack .b   -side bottom -fill x
pack .l   -side left   -fill y
pack .r   -side right  -fill y
pack .mid -expand 1    -fill both
```

--------------------------------

### Example Tk Layout with Labels

Source: https://www.tcl-lang.org/man/tcl8.6/TkCmd/label.htm

This example demonstrates creating and arranging multiple label widgets within a Tk window using the pack geometry manager, mimicking a Java BorderLayout.

```Tcl
# Make the widgets
**label** .t -text "This widget is at the top"    -bg red
**label** .b -text "This widget is at the bottom" -bg green
**label** .l -text "Left\nHand\nSide"
**label** .r -text "Right\nHand\nSide"
text .mid
	.mid insert end "This layout is like Java's BorderLayout"
# Lay them out
pack .t   -side top    -fill x
pack .b   -side bottom -fill x
pack .l   -side left   -fill y
pack .r   -side right  -fill y
pack .mid -expand 1    -fill both

```

--------------------------------

### Tcltest Test with Setup and Cleanup

Source: https://www.tcl-lang.org/man/tcl8.6/TclCmd/tcltest.htm

Defines a test case that requires setup and cleanup actions, such as creating and removing a file.

```tcl
**test** example-1.1 {test file existence} -setup {
    set file [makeFile {} test]
} -body {
    file exists $file
} -cleanup {
    removeFile test
} -result 1
```

--------------------------------

### Example: Setting a grab to isolate a button

Source: https://www.tcl-lang.org/man/tcl8.6/TkCmd/grab.htm

This example demonstrates setting a local grab on a button (.b2) after creating three buttons. Clicking the button will destroy it, releasing the grab. This is useful for ensuring user interaction is focused on a specific element.

```tcl
pack [button .b1 -text "Click me! #1" -command {destroy .b1}]
pack [button .b2 -text "Click me! #2" -command {destroy .b2}]
pack [button .b3 -text "Click me! #3" -command {destroy .b3}]
grab .b2
```

--------------------------------

### Tk message Box Example

Source: https://www.tcl-lang.org/man/tcl8.6/TkCmd/messageBox.htm

This example demonstrates how to use tk_messageBox to ask a user a question and then react to their response. It shows setting a message, icon, type, and detail, and uses a switch statement to handle different user choices.

```tcl
set answer [**tk_messageBox** -message "Really quit?" \
        -icon question -type yesno \
        -detail "Select \"Yes\" to make the application exit"]
switch -- $answer {
    yes exit
    no {**tk_messageBox** -message "I know you like this application!" \
            -type ok}
}
```

--------------------------------

### Get and Add Entry Widget Return Command

Source: https://www.tcl-lang.org/man/tcl8.6/TkCmd/option.htm

Demonstrates retrieving a custom return command for an entry widget using 'option get' and setting a default 'bell' command using 'option add' with 'widgetDefault' priority.

```tcl
entry .e
bind .e <Return> [**option get** .e returnCommand Command]
**option add** *.e.returnCommand bell widgetDefault
```

--------------------------------

### BitmapItem Structure Example

Source: https://www.tcl-lang.org/man/tcl8.6/TkLib/CrtItemType.htm

An example of a type-specific item record structure, starting with a Tk_Item header. Fields like _x_, _y_, _anchor_, _bitmap_, _fgColor_, _bgColor_, and _gc_ are specific to bitmap items.

```c
typedef struct BitmapItem {
    Tk_Item _header_;
    double _x_, _y_;
    Tk_Anchor _anchor_;
    Pixmap _bitmap_;
    XColor *_fgColor_;
    XColor *_bgColor_;
    GC _gc_;
} **BitmapItem**;
```

--------------------------------

### Example Usage

Source: https://www.tcl-lang.org/man/tcl8.6/TdbcpostgresCmd/tdbc_postgres.htm

Demonstrates how to establish a PostgreSQL connection using specific user, password, and database options.

```APIDOC
## Example
```
tdbc::postgres::connection -user joe -passwd sesame -db joes_database
```
```

--------------------------------

### string range example

Source: https://www.tcl-lang.org/man/tcl8.6/TclCmd/string.htm

Extracts a substring from a given string based on start and end indices. Handles out-of-bounds indices by clamping them to the string's limits and returns an empty string if the start index is greater than the end index.

```tcl
string range "abcdefg" 1 3
```

```tcl
string range "abcdefg" 0 end
```

```tcl
string range "abcdefg" -2 3
```

```tcl
string range "abcdefg" 3 1
```

--------------------------------

### Extract First Two Elements with lrange

Source: https://www.tcl-lang.org/man/tcl8.6/TclCmd/lrange.htm

Use 'lrange' to get a sublist from the beginning of a list. Specify 0 as the start index and 1 as the end index.

```tcl
% **lrange** {a b c d e} 0 1
a b
```

--------------------------------

### Configure Widget Option Example

Source: https://www.tcl-lang.org/man/tcl8.6/TkCmd/options.htm

Demonstrates how to set a widget option using the configure command.

```Tcl
.a.b.c configure -foreground black
```

--------------------------------

### string last example

Source: https://www.tcl-lang.org/man/tcl8.6/TclCmd/string.htm

Searches for the last occurrence of a substring within a string, optionally considering only a portion of the haystack. Returns the starting index of the match or -1 if not found.

```tcl
string last a 0a23456789abcdef 15
```

```tcl
string last a 0a23456789abcdef 9
```

--------------------------------

### llength Command Usage

Source: https://www.tcl-lang.org/man/tcl8.6/TclCmd/llength.htm

Demonstrates how to use the 'llength' command to get the number of elements in a Tcl list. Includes examples with simple lists, nested lists, and empty lists.

```APIDOC
## llength

### Description
Returns the number of elements in the list.

### Synopsis
**llength** _list_

### Parameters
*   **list**: The list whose elements are to be counted.

### Examples
```tcl
% **llength** {a b c d e}
5
% **llength** {a b c}
3
% **llength** {}
0
% **llength** {a b {c d} e}
4
% **llength** {a b { } c d e}
6
% set var { }; puts "[string length $var],[**llength** $var]"
1,0
```
```

--------------------------------

### Tk Fontchooser Demo Setup

Source: https://www.tcl-lang.org/man/tcl8.6/TkCmd/fontchooser.htm

Sets up the main window, configures the fontchooser, and creates text widgets with focus handlers. This snippet initializes the font chooser and prepares the environment for its use.

```tcl
proc fontchooserDemo {} {
    wm title . "Font Chooser Demo"
    **tk fontchooser** **configure** -parent .
    button .b -command fontchooserToggle -takefocus 0
    fontchooserVisibility .b
    bind . **<<TkFontchooserVisibility>>** \
            [list fontchooserVisibility .b]
    foreach w {.t1 .t2} {
        text $w -width 20 -height 4 -borderwidth 1 -relief solid
        bind $w <FocusIn> [list fontchooserFocus $w]
        $w insert end "Text Widget $w"
    }
    .t1 configure -font {Courier 14}
    .t2 configure -font {Times 16}
    pack .b .t1 .t2; focus .t1
}
fontchooserDemo
```

--------------------------------

### Fetch URL Content (GET Request)

Source: https://www.tcl-lang.org/man/tcl8.6/TclCmd/http.htm

Performs an HTTP GET request to retrieve content from a URL. The return value is a transaction token. Use ::http::data to get the content.

```tcl
set token [::http::geturl http://example.com/resource]
```

--------------------------------

### Example Filesystem Definition (C)

Source: https://www.tcl-lang.org/man/tcl8.6/TclLib/FileSystem.htm

This C code demonstrates how to define and initialize a Tcl_Filesystem structure for a virtual filesystem. Many operations are set to NULL, relying on Tcl's core fallback mechanisms.

```c
static Tcl_Filesystem vfsFilesystem = {
    "tclvfs",
    sizeof(Tcl_Filesystem),
    TCL_FILESYSTEM_VERSION_1,
    &VfsPathInFilesystem,
    &VfsDupInternalRep,
    &VfsFreeInternalRep,
    /* No internal to normalized, since we don't create
     * any pure 'internal' Tcl_Obj path representations */
    NULL,
    /* No create native rep function, since we don't use
     * it and don't choose to support uses of
     * Tcl_FSNewNativePath */
    NULL,
    /* Normalize path isn't needed - we assume paths only
     * have one representation */
    NULL,
    &VfsFilesystemPathType,
    &VfsFilesystemSeparator,
    &VfsStat,
    &VfsAccess,
    &VfsOpenFileChannel,
    &VfsMatchInDirectory,
    &VfsUtime,
    /* We choose not to support symbolic links inside our
     * VFS's */
    NULL,
    &VfsListVolumes,
    &VfsFileAttrStrings,
    &VfsFileAttrsGet,
    &VfsFileAttrsSet,
    &VfsCreateDirectory,
    &VfsRemoveDirectory,
    &VfsDeleteFile,
    /* No copy file; use the core fallback mechanism */
    NULL,
    /* No rename file; use the core fallback mechanism */
    NULL,
    /* No copy directory; use the core fallback mechanism */
    NULL,
    /* Core will use stat for lstat */
    NULL,
    /* No load; use the core fallback mechanism */
    NULL,
    /* We don't need a getcwd or chdir; the core's own
     * internal value is suitable */
    NULL,
    NULL
};
```

--------------------------------

### Basic ttk::notebook Example

Source: https://www.tcl-lang.org/man/tcl8.6/TkCmd/ttk_notebook.htm

Demonstrates the creation of a ttk::notebook widget, adding two tabs with frames as content, selecting a specific tab, and enabling keyboard traversal.

```Tcl
pack [**ttk::notebook** .nb]
	.nb add [frame .nb.f1] -text "First tab"
	.nb add [frame .nb.f2] -text "Second tab"
	.nb select .nb.f2
ttk::notebook::enableTraversal .nb
```

--------------------------------

### Create and Pack an OptionMenu

Source: https://www.tcl-lang.org/man/tcl8.6/TkCmd/optionMenu.htm

This example demonstrates how to create an option menu widget and pack it into the application window. The tk_optionMenu command takes the widget path, a variable name to store the selection, and the list of options as arguments.

```tcl
tk_optionMenu .foo myVar Foo Bar Boo Spong Wibble
pack .foo
```

--------------------------------

### Reading a file line by line with gets

Source: https://www.tcl-lang.org/man/tcl8.6/TclCmd/gets.htm

This snippet demonstrates how to read a file line by line using the 'gets' command within a while loop. It continues as long as 'gets' returns a non-negative value, indicating successful reading of a line.

```tcl
set chan [open "some.file.txt"]
set lineNumber 0
while {[gets $chan line] >= 0} {
    puts "[incr lineNumber]: $line"
}
close $chan
```

--------------------------------

### Accessing Package Configuration via pkgconfig command

Source: https://www.tcl-lang.org/man/tcl8.6/TclLib/RegConfig.htm

Demonstrates how to use the 'pkgconfig' command to list available configuration keys or retrieve a specific configuration value for a package.

```tcl
package ::myPackage
::myPackage::pkgconfig list
::myPackage::pkgconfig get someKey
```

--------------------------------

### Get Procedure Information

Source: https://www.tcl-lang.org/man/tcl8.6/TclCmd/info.htm

This procedure retrieves details about a given procedure, including its arguments and body. It uses 'info args' to get formal arguments and 'info default' to check for default values, then 'info body' to get the procedure's code.

```tcl
proc printProc {procName} {
    set result [list proc $procName]
    set formals {}
    foreach var [info args $procName] {
        if {[info default $procName $var def]} {
            lappend formals [list $var $def]
        } else {
            # Still need the list-quoting because variable
            # names may properly contain spaces.
            lappend formals [list $var]
        }
    }
    puts [lappend result $formals [info body $procName]]
}
```

--------------------------------

### Tcl Binary Format Example

Source: https://www.tcl-lang.org/man/tcl8.6/TclCmd/binary.htm

Demonstrates the basic usage of 'binary format' with numeric types and lists. It shows how counts in the format string affect argument consumption.

```tcl
binary format d3d {1.0 2.0 3.0 4.0} 0.1
```

--------------------------------

### Get All Dictionary Key-Value Pairs

Source: https://www.tcl-lang.org/man/tcl8.6/TclCmd/dict.htm

Returns a list of key-value pairs from the dictionary, similar to `array get`. If no keys are provided, it returns all pairs.

```tcl
dict get $myDict
```

--------------------------------

### Tcl linsert Command Example

Source: https://www.tcl-lang.org/man/tcl8.6/TclCmd/linsert.htm

Demonstrates inserting elements into a list at different positions. Shows how to insert at a specific index and at the end-1 position. Original lists remain unchanged.

```tcl
set oldList {the fox jumps over the dog}
set midList [**linsert** $oldList 1 quick]
set newList [**linsert** $midList end-1 lazy]
# The old lists still exist though...
set newerList [**linsert** [**linsert** $oldList end-1 quick] 1 lazy]
```

--------------------------------

### Tcl Seek: Resetting to Start of File

Source: https://www.tcl-lang.org/man/tcl8.6/TclCmd/seek.htm

Resets the file pointer to the beginning of the file after reading its entire content. This allows for re-reading the file from the start.

```tcl
set f [open file.txt]
set data1 [read $f]
**seek** $f 0
set data2 [read $f]
close $f
# $data1 eq $data2 if the file wasn't updated
```

--------------------------------

### Simplifying option parsing with prefix matching

Source: https://www.tcl-lang.org/man/tcl8.6/TclCmd/prefix.htm

This example demonstrates how to use 'prefix match' within a loop to parse arguments and assign values to an array, supporting abbreviated option names.

```Tcl
array set opts {-apa 1 -bepa "" -cepa 0}
foreach {arg val} $args {
    set opts([prefix match {-apa -bepa -cepa} $arg]) $val
}
```

--------------------------------

### Basic fcopy Example

Source: https://www.tcl-lang.org/man/tcl8.6/TclCmd/fcopy.htm

This snippet demonstrates the basic usage of the fcopy command to copy data from an input channel to an output channel. Ensure channels are configured for binary translation.

```tcl
fconfigure $in -translation binary
fconfigure $out -translation binary
**fcopy** $in $out
```

--------------------------------

### Tcl regexp: Find index with case-insensitivity

Source: https://www.tcl-lang.org/man/tcl8.6/TclCmd/regexp.htm

Find the starting index of a case-insensitive word match. The -indices option returns the start and end positions of the match.

```tcl
**regexp** -indices {(?i)\mbadger\M} $string location
```

--------------------------------

### Basic switch command usage

Source: https://www.tcl-lang.org/man/tcl8.6/TclCmd/switch.htm

Demonstrates the fundamental usage of the switch command with literal string matching.

```tcl
set foo "abc"
**switch** abc a - b {expr {1}} $foo {expr {2}} default {expr {3}}
```

--------------------------------

### Creating and Defining Methods for an Object

Source: https://www.tcl-lang.org/man/tcl8.6/TclCmd/object.htm

Demonstrates creating a new object, defining a method for it using oo::objdefine, and invoking that method. Also shows how to access instance variables and destroy the object.

```tcl
set obj [**oo::object** new]
$obj foo             _→ error "unknown method foo"_
oo::objdefine $obj method foo {} {
    my **variable** count
    puts "bar[incr count]"
}
$obj foo             _→ prints "bar1"_
$obj foo             _→ prints "bar2"_
$obj variable count  _→ error "unknown method variable"_
$obj **destroy**
$obj foo             _→ error "unknown command obj"_
```

--------------------------------

### Shift-JIS Encoding File Example

Source: https://www.tcl-lang.org/man/tcl8.6/TclLib/Encoding.htm

This is an example of a table-based encoding file, specifically for the Shift-JIS encoding used in Japanese computers. It shows the format of lines within such files.

```text
# Shift-JIS encoding
#
# This is a multi-byte encoding where characters can be one or two bytes long.
# Certain bytes are lead bytes, indicating that another byte must follow.
M
0x8140-0x8193: 0x8140-0x8193
0x8195-0x81fc: 0x8195-0x81fc
0x824f-0x827e: 0x824f-0x827e
0x8280-0x82f1: 0x8280-0x82f1
0x8340-0x8396: 0x8340-0x8396
0x8398-0x83fc: 0x8398-0x83fc
0x8440-0x8461: 0x8440-0x8461
0x8463-0x8481: 0x8463-0x8481
0x8483-0x8491: 0x8483-0x8491
0x8493-0x84c1: 0x8493-0x84c1
0x84c3-0x84fc: 0x84c3-0x84fc
0x8540-0x8596: 0x8540-0x8596
0x8598-0x85fc: 0x8598-0x85fc
0x8640-0x867e: 0x8640-0x867e
0x8680-0x869c: 0x8680-0x869c
0x869e-0x86fc: 0x869e-0x86fc
0x8740-0x8781: 0x8740-0x8781
0x8783-0x8791: 0x8783-0x8791
0x8793-0x87c1: 0x8793-0x87c1
0x87c3-0x87fc: 0x87c3-0x87fc
0x8840-0x887e: 0x8840-0x887e
0x8880-0x889c: 0x8880-0x889c
0x889e-0x88fc: 0x889e-0x88fc
0x8940-0x897e: 0x8940-0x897e
0x8980-0x899c: 0x8980-0x899c
0x899e-0x89fc: 0x899e-0x89fc
0x8a40-0x8a7e: 0x8a40-0x8a7e
0x8a80-0x8a9c: 0x8a80-0x8a9c
0x8a9e-0x8afc: 0x8a9e-0x8afc
0x8b40-0x8b7e: 0x8b40-0x8b7e
0x8b80-0x8b9c: 0x8b80-0x8b9c
0x8b9e-0x8bfc: 0x8b9e-0x8bfc
0x8c40-0x8c7e: 0x8c40-0x8c7e
0x8c80-0x8c9c: 0x8c80-0x8c9c
0x8c9e-0x8cfc: 0x8c9e-0x8cfc
0x8d40-0x8d7e: 0x8d40-0x8d7e
0x8d80-0x8d9c: 0x8d80-0x8d9c
0x8d9e-0x8dfc: 0x8d9e-0x8dfc
0x8e40-0x8e7e: 0x8e40-0x8e7e
0x8e80-0x8e9c: 0x8e80-0x8e9c
0x8e9e-0x8efc: 0x8e9e-0x8efc
0x8f40-0x8f7e: 0x8f40-0x8f7e
0x8f80-0x8f9c: 0x8f80-0x8f9c
0x8f9e-0x8ffc: 0x8f9e-0x8ffc
0x9040-0x9093: 0x9040-0x9093
0x9095-0x90fc: 0x9095-0x90fc
0x9140-0x9193: 0x9140-0x9193
0x9195-0x91fc: 0x9195-0x91fc
0x9240-0x927e: 0x9240-0x927e
0x9280-0x92f1: 0x9280-0x92f1
0x9340-0x9396: 0x9340-0x9396
0x9398-0x93fc: 0x9398-0x93fc
0x9440-0x9461: 0x9440-0x9461
0x9463-0x947e: 0x9463-0x947e
0x9480-0x9491: 0x9480-0x9491
0x9493-0x94c1: 0x9493-0x94c1
0x94c3-0x94fc: 0x94c3-0x94fc
0x9540-0x9596: 0x9540-0x9596
0x9598-0x95fc: 0x9598-0x95fc
0x9640-0x967e: 0x9640-0x967e
0x9680-0x969c: 0x9680-0x969c
0x969e-0x96fc: 0x969e-0x96fc
0x9740-0x9781: 0x9740-0x9781
0x9783-0x9791: 0x9783-0x9791
0x9793-0x97c1: 0x9793-0x97c1
0x97c3-0x97fc: 0x97c3-0x97fc
0x9840-0x987e: 0x9840-0x987e
0x9880-0x989c: 0x9880-0x989c
0x989e-0x98fc: 0x989e-0x98fc
0x9940-0x997e: 0x9940-0x997e
0x9980-0x999c: 0x9980-0x999c
0x999e-0x99fc: 0x999e-0x99fc
0x9a40-0x9a7e: 0x9a40-0x9a7e
0x9a80-0x9a9c: 0x9a80-0x9a9c
0x9a9e-0x9afc: 0x9a9e-0x9afc
0x9b40-0x9b7e: 0x9b40-0x9b7e
0x9b80-0x9b9c: 0x9b80-0x9b9c
0x9b9e-0x9bfc: 0x9b9e-0x9bfc
0x9c40-0x9c7e: 0x9c40-0x9c7e
0x9c80-0x9c9c: 0x9c80-0x9c9c
0x9c9e-0x9cfc: 0x9c9e-0x9cfc
0x9d40-0x9d7e: 0x9d40-0x9d7e
0x9d80-0x9d9c: 0x9d80-0x9d9c
0x9d9e-0x9dfc: 0x9d9e-0x9dfc
0x9e40-0x9e7e: 0x9e40-0x9e7e
0x9e80-0x9e9c: 0x9e80-0x9e9c
0x9e9e-0x9efc: 0x9e9e-0x9efc
0x9f40-0x9f7e: 0x9f40-0x9f7e
0x9f80-0x9f9c: 0x9f80-0x9f9c
0x9f9e-0x9ffc: 0x9f9e-0x9ffc
0xe040-0xe093: 0xe040-0xe093
0xe095-0xe0fc: 0xe095-0xe0fc
0xe140-0xe193: 0xe140-0xe193
0xe195-0xe1fc: 0xe195-0xe1fc
0xe240-0xe27e: 0xe240-0xe27e
0xe280-0xe2f1: 0xe280-0xe2f1
0xe340-0xe396: 0xe340-0xe396
0xe398-0xe3fc: 0xe398-0xe3fc
0xe440-0xe461: 0xe440-0xe461
0xe463-0xe47e: 0xe463-0xe47e
0xe480-0xe491: 0xe480-0xe491
0xe493-0xe4c1: 0xe493-0xe4c1
0xe4c3-0xe4fc: 0xe4c3-0xe4fc
0xe540-0xe596: 0xe540-0xe596
0xe598-0xe5fc: 0xe598-0xe5fc
0xe640-0xe67e: 0xe640-0xe67e
0xe680-0xe69c: 0xe680-0xe69c
0xe69e-0xe6fc: 0xe69e-0xe6fc
0xe740-0xe781: 0xe740-0xe781
0xe783-0xe791: 0xe783-0xe791
0xe793-0xe7c1: 0xe793-0xe7c1
0xe7c3-0xe7fc: 0xe7c3-0xe7fc
0xe840-0xe87e: 0xe840-0xe87e
0xe880-0xe89c: 0xe880-0xe89c
0xe89e-0xe8fc: 0xe89e-0xe8fc
0xe940-0xe97e: 0xe940-0xe97e
0xe980-0xe99c: 0xe980-0xe99c
0xe99e-0xe9fc: 0xe99e-0xe9fc
0xea40-0xea7e: 0xea40-0xea7e
0xea80-0xea9c: 0xea80-0xea9c
0xea9e-0xeafc: 0xea9e-0xeafc
0xeb40-0xeb7e: 0xeb40-0xeb7e
0xeb80-0xeb9c: 0xeb80-0xeb9c
0xeb9e-0xebfc: 0xeb9e-0xebfc
0xec40-0xec7e: 0xec40-0xec7e
0xec80-0xec9c: 0xec80-0xec9c
0xec9e-0xecfc: 0xec9e-0xecfc
0xed40-0xed7e: 0xed40-0xed7e
0xed80-0xed9c: 0xed80-0xed9c
0xed9e-0xedfc: 0xed9e-0xedfc
0xee40-0xee7e: 0xee40-0xee7e
0xee80-0xee9c: 0xee80-0xee9c
0xee9e-0xeefc: 0xee9e-0xeefc
0xef40-0xef7e: 0xef40-0xef7e
0xef80-0xef9c: 0xef80-0xef9c
0xef9e-0xeffc: 0xef9e-0xeffc
0xf040-0xf093: 0xf040-0xf093
0xf095-0xf0fc: 0xf095-0xf0fc
0xf140-0xf193: 0xf140-0xf193
0xf195-0xf1fc: 0xf195-0xf1fc
0xf240-0xf27e: 0xf240-0xf27e
0xf280-0xf2f1: 0xf280-0xf2f1
0xf340-0xf396: 0xf340-0xf396
0xf398-0xf3fc: 0xf398-0xf3fc
0xf440-0xf461: 0xf440-0xf461
0xf463-0xf47e: 0xf463-0xf47e
0xf480-0xf491: 0xf480-0xf491
0xf493-0xf4c1: 0xf493-0xf4c1
0xf4c3-0xf4fc: 0xf4c3-0xf4fc
0xf540-0xf596: 0xf540-0xf596
0xf598-0xf5fc: 0xf598-0xf5fc
0xf640-0xf67e: 0xf640-0xf67e
0xf680-0xf69c: 0xf680-0xf69c
0xf69e-0xf6fc: 0xf69e-0xf6fc
0xf740-0xf781: 0xf740-0xf781
0xf783-0xf791: 0xf783-0xf791
0xf793-0xf7c1: 0xf793-0xf7c1
0xf7c3-0xf7fc: 0xf7c3-0xf7fc
0xf840-0xf87e: 0xf840-0xf87e
0xf880-0xf89c: 0xf880-0xf89c
0xf89e-0xf8fc: 0xf89e-0xf8fc
0xf940-0xf97e: 0xf940-0xf97e
0xf980-0xf99c: 0xf980-0xf99c
0xf99e-0xf9fc: 0xf99e-0xf9fc
0xfa40-0xfa7e: 0xfa40-0xfa7e
0xfa80-0xfa9c: 0xfa80-0xfa9c
0xfa9e-0xfafc: 0xfa9e-0xfafc
0xfb40-0xfb7e: 0xfb40-0xfb7e
0xfb80-0xfb9c: 0xfb80-0xfb9c
0xfb9e-0xfbfc: 0xfb9e-0xfbfc
0xfc40-0xfc7e: 0xfc40-0xfc7e
0xfc80-0xfc9c: 0xfc80-0xfc9c
0xfc9e-0xfcfc: 0xfc9e-0xfcfc
0xfd40-0xfd7e: 0xfd40-0xfd7e
0xfd80-0xfd9c: 0xfd80-0xfd9c
0xfd9e-0xfdfc: 0xfd9e-0xfdfc
0xfe40-0xfe7e: 0xfe40-0xfe7e
0xfe80-0xfe9c: 0xfe80-0xfe9c
0xfe9e-0xfeff: 0xfe9e-0xfeff
0xff01-0xff5e: 0xff01-0xff5e
0xff61-0xff9f: 0xff61-0xff9f
0xffa1-0xffc3: 0xffa1-0xffc3
0xffc6-0xfff0: 0xffc6-0xfff0
```

--------------------------------

### Load platform-specific library

Source: https://www.tcl-lang.org/man/tcl8.6/TclCmd/platform.htm

This example demonstrates how to load a platform-specific shared library by constructing the library path using platform::identify. Ensure the 'platform' package is required before use.

```tcl
package require platform
# Assume that app script is .../theapp/bin/theapp.tcl
set binDir [file dirname [file normalize [info script]]]
set libDir [file join $binDir .. lib]
set platLibDir [file join $libDir [platform::identify]]
load [file join $platLibDir support[info sharedlibextension]]
```

--------------------------------

### HTTP Header Example

Source: https://www.tcl-lang.org/man/tcl8.6/TclCmd/http.htm

Example of how to add custom headers to an HTTP request using the -headers option. The key-value list is converted into standard HTTP header format.

```tcl
Pragma: no-cache
```

--------------------------------

### Tcl memory trace example output

Source: https://www.tcl-lang.org/man/tcl8.6/TclCmd/memory.htm

Example of the trace information generated by 'memory trace on' for a ckalloc call, showing the address, size, and source file/line number.

```text
ckalloc 40e478 98 tclProc.c 1406
```

--------------------------------

### Create New Safe Interpreter from Existing Configuration

Source: https://www.tcl-lang.org/man/tcl8.6/TclCmd/safe.htm

This example demonstrates how to create a new safe interpreter ('i1') with the exact same configuration as an existing one ('i0'). It retrieves the configuration of 'i0' using 'safe::interpConfigure' and applies it to the creation of 'i1' using 'safe::interpCreate'.

```tcl
# Create new interp with the same configuration as "$i0":
set i1 [safe::interpCreate {*}[safe::interpConfigure $i0]]

# Get the current deleteHook
set dh [safe::interpConfigure $i0  -del]

```

--------------------------------

### Get Tcl Array Statistics

Source: https://www.tcl-lang.org/man/tcl8.6/TclCmd/array.htm

Use 'array statistics' to get information about the internal structure of an array, including the number of entries and bucket distribution. This can be useful for performance analysis.

```tcl
**array statistics** colorcount
```

--------------------------------

### Tcl list Command Example

Source: https://www.tcl-lang.org/man/tcl8.6/TclCmd/list.htm

Demonstrates how the 'list' command creates a Tcl list, preserving spaces and nested structures within quoted arguments.

```tcl
**list** a b "c d e  " "  f {g h}"
```

--------------------------------

### Start a File Using Native Format on Windows

Source: https://www.tcl-lang.org/man/tcl8.6/TclCmd/file.htm

On Windows, this command starts a file, which is equivalent to double-clicking it in Explorer. The filename must be in the native format expected by the operating system.

```tcl
exec {*}[auto_execok start] {} [file nativename ~/example.txt]
```

--------------------------------

### Configure ITcl Widget Options

Source: https://www.tcl-lang.org/man/tcl8.6/ItclCmd/itclwidget.htm

Manages public configuration options for an ITcl widget. Can be used to get all options, get a specific option's details, or set new values.

```itcl
.foo.bar configure
```

```itcl
.foo.bar configure -background
```

```itcl
.foo.bar configure -background "#eeeeee" -relief raised
```

--------------------------------

### Tcl eval: Dynamic Logging Example

Source: https://www.tcl-lang.org/man/tcl8.6/TclCmd/eval.htm

This example demonstrates how to use eval to execute a script that logs messages. It includes a mechanism to switch the logging variable mid-execution using 'after' and 'update'.

```tcl
set script {
    puts "logging now"
    lappend $myCurrentLogVar
}
set myCurrentLogVar log1
# Set up a switch of logging variable part way through!
after 20000 set myCurrentLogVar log2

for {set i 0} {$i<10} {incr i} {
    # Introduce a random delay
    after [expr {int(5000 * rand())}]
    update    ;# Check for the asynch log switch
    **eval** $script $i [clock clicks]
}
```

--------------------------------

### Handle Button Accelerators with Bindings

Source: https://www.tcl-lang.org/man/tcl8.6/TkCmd/button.htm

Demonstrates how to associate keyboard shortcuts with button actions. Pressing 'h' will flash and invoke the first button, while 'w' will do the same for the second button.

```tcl
button .b1 -text Hello -underline 0
button .b2 -text World -underline 0
bind . <Key-h> {.b1 flash; .b1 invoke}
bind . <Key-w> {.b2 flash; .b2 invoke}
pack .b1 .b2
```

--------------------------------

### Create and Tile Photo Images

Source: https://www.tcl-lang.org/man/tcl8.6/TkCmd/photo.htm

Demonstrates creating a photo image from a file and then tiling it to fill a widget. This is useful for background images or repeating patterns.

```tcl
# These lines should be called once
**image create photo** untiled -file "theFile.ppm"
**image create photo** tiled

# These lines should be called whenever .someWidget changes
# size; a <Configure> binding is useful here
set width  [winfo width .someWidget]
set height [winfo height .someWidget]
tiled **copy** untiled -to 0 0 $width $height -shrink
```

--------------------------------

### Search from a Specific Index with lsearch in Tcl

Source: https://www.tcl-lang.org/man/tcl8.6/TclCmd/lsearch.htm

Searches for the element 'c' in the list {a b c a b c} starting from index 3. Returns the index of the first occurrence found after the starting point.

```tcl
**lsearch** -start 3 {a b c a b c} c
      _→ 5_
```

--------------------------------

### Get Mouse Pointer Coordinates and Containing Window

Source: https://www.tcl-lang.org/man/tcl8.6/TkCmd/winfo.htm

Use 'winfo pointerxy' to get the current mouse coordinates relative to the root window. Then, use 'winfo containing' with these coordinates to determine which window the mouse is currently over.

```tcl
lassign [winfo pointerxy .] x y
puts -nonewline "Mouse pointer at ($x,$y) which is "
set win [winfo containing $x $y]
if {$win eq ""} {
    puts "over no window"
} else {
    puts "over $win"
}
```

--------------------------------

### Tcltest -setup Option

Source: https://www.tcl-lang.org/man/tcl8.6/TclCmd/tcltest.htm

Details the -setup option for specifying a script to be executed before the main test body, ensuring a controlled testing environment.

```tcl
**-setup** _script_

```

--------------------------------

### lreplace command

Source: https://www.tcl-lang.org/man/tcl8.6/TclCmd/lreplace.htm

The lreplace command is used to replace a range of elements in a list with new elements. It takes the list, the start and end indices of the range to replace, and optionally, the new elements to insert. If no new elements are provided, the specified range is deleted. Indices can be negative or greater than the list length, and if the end index is less than the start index, elements are inserted before the start index without deletion.

```APIDOC
## lreplace list first last ?element element ...?

### Description
Replaces elements in a list within the specified range [first, last] with the provided new elements. If no new elements are given, the elements in the range are deleted. Indices can be specified using negative numbers or 'end'. If 'last' is less than 'first', elements are inserted before 'first' without deletion.

### Parameters
- **list**: The list to modify.
- **first**: The starting index of the range to replace (inclusive).
- **last**: The ending index of the range to replace (inclusive).
- **element ...?**: Zero or more new elements to insert in place of the deleted elements.

### Examples
```tcl
# Replace element at index 1 with 'foo'
% lreplace {a b c d e} 1 1 foo
a foo c d e

# Replace elements at indices 1 and 2 with 'three more elements'
% lreplace {a b c d e} 1 2 three more elements
a three more elements d e

# Delete the last element
% set var {a b c d e}
a b c d e
% set var [lreplace $var end end]
a b c d

# Append elements to the list
% set var {a b c d e}
a b c d e
% set var [lreplace $var 12345 end+2 f g h i]
a b c d e f g h i
```
```

--------------------------------

### Tcl Command Substitution Example

Source: https://www.tcl-lang.org/man/tcl8.6/TclCmd/Tcl.htm

Demonstrates the order of operations in Tcl command substitution, showing how sequential commands within a substitution are evaluated.

```tcl
set y [set x 0][incr x][incr x]
```

--------------------------------

### Create and Bind a Popup Menu

Source: https://www.tcl-lang.org/man/tcl8.6/TkCmd/popup.htm

This snippet demonstrates how to create a simple menu with two commands and bind it to a label widget so it appears when the label is clicked. The %X and %Y substitutions provide the mouse coordinates.

```tcl
# Create a menu
set m [menu .popupMenu]
$m add command -label "Example 1" -command bell
$m add command -label "Example 2" -command bell

# Create something to attach it to
pack [label .l -text "Click me!"]

# Arrange for the menu to pop up when the label is clicked
bind .l <1> {**tk_popup** .popupMenu %X %Y}
```

--------------------------------

### Instantiate an Object and Call a Method

Source: https://www.tcl-lang.org/man/tcl8.6/ItclCmd/class.htm

Creates an object 'objName' of class 'className' and calls a method on it.

```itcl
className objName arg arg ...
objName method arg arg ...
```

--------------------------------

### Tk_Display

Source: https://www.tcl-lang.org/man/tcl8.6/TkLib/contents.htm

Gets the display associated with a window.

```APIDOC
## Tk_Display

### Description
Gets the display associated with a window.

### Method
(Not specified, likely a C function)

### Parameters
(Not specified in source)

### Request Example
(Not specified in source)

### Response
(Not specified in source)
```

--------------------------------

### Tk_Depth

Source: https://www.tcl-lang.org/man/tcl8.6/TkLib/contents.htm

Gets the color depth of the display.

```APIDOC
## Tk_Depth

### Description
Gets the color depth of the display.

### Method
(Not specified, likely a C function)

### Parameters
(Not specified in source)

### Request Example
(Not specified in source)

### Response
(Not specified in source)
```
Tokens:
Raw