Tk Library Source Code

Check-in [d863e00674]
Login
Core Home Blog Docs Downloads Tickets Timeline Branches Tags Wiki

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment: * *.tcl: Bumped the version number to 5.17. * COPYRIGHT.txt: * README.txt: * ../../examples/*.tcl:
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: d863e006743ba7b40994d6e41bab2ca8d861ca65
User & Date: csaba 2017-03-22 13:15:21
Context
2017-03-30
18:00
Correct a small bug in the configuration of the plaintext annotations (reported by Nick Matthews) check-in: 63dbc64d55 user: markus tags: trunk
2017-03-22
13:15
* *.tcl: Bumped the version number to 5.17. * COPYRIGHT.txt: * README.txt: * ../../examples/*.tcl: check-in: d863e00674 user: csaba tags: trunk
13:08
* doc/*.png: Updated screenshots. check-in: 09b4205155 user: csaba tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to examples/tablelist/browse.tcl. 

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

#==============================================================================
# Demonstrates how to use a tablelist widget for displaying information about
# the children of an arbitrary widget.
#
# Copyright (c) 2000-2016  Csaba Nemethi (E-mail: [email protected])
#==============================================================================

package require tablelist 5.16

namespace eval demo {
    variable dir [file dirname [info script]]

    #
    # Create two images, needed in the procedure putChildren
    #





|


|








1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

#==============================================================================
# Demonstrates how to use a tablelist widget for displaying information about
# the children of an arbitrary widget.
#
# Copyright (c) 2000-2017  Csaba Nemethi (E-mail: [email protected])
#==============================================================================

package require tablelist 5.17

namespace eval demo {
    variable dir [file dirname [info script]]

    #
    # Create two images, needed in the procedure putChildren
    #
︙︙

Changes to examples/tablelist/browseTree.tcl. 

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

#==============================================================================
# Demonstrates how to use a tablelist widget for displaying information about
# the children of an arbitrary widget.
#
# Copyright (c) 2010-2016  Csaba Nemethi (E-mail: [email protected])
#==============================================================================

package require Tk 8.3
package require tablelist 5.16

namespace eval demo {
    variable dir [file dirname [info script]]

    #
    # Create two images, needed in the procedure putChildren
    #





|



|








1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

#==============================================================================
# Demonstrates how to use a tablelist widget for displaying information about
# the children of an arbitrary widget.
#
# Copyright (c) 2010-2017  Csaba Nemethi (E-mail: [email protected])
#==============================================================================

package require Tk 8.3
package require tablelist 5.17

namespace eval demo {
    variable dir [file dirname [info script]]

    #
    # Create two images, needed in the procedure putChildren
    #
︙︙
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65

    # columns and interactive sort capability within the top-level
    #
    set tf $top.tf
    frame $tf
    set tbl $tf.tbl
    set vsb $tf.vsb
    tablelist::tablelist $tbl \
	-columns {0 "Path Name"	left
		  0 "Class"	left
		  0 "X"		right
		  0 "Y"		right
		  0 "Width"	right
		  0 "Height"	right
		  0 "Mapped"	center
		  0 "Viewable"	center








|








51
52
53
54
55
56
57
58
59
60
61
62
63
64
65

    # columns and interactive sort capability within the top-level
    #
    set tf $top.tf
    frame $tf
    set tbl $tf.tbl
    set vsb $tf.vsb
    tablelist::tablelist $tbl \
	-columns {0 "Name"	left
		  0 "Class"	left
		  0 "X"		right
		  0 "Y"		right
		  0 "Width"	right
		  0 "Height"	right
		  0 "Mapped"	center
		  0 "Viewable"	center
︙︙
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434

# array specified by the last argument.
#------------------------------------------------------------------------------
proc demo::restoreExpandedStates {tbl nodeIdx expandedWidgetsName} {
    upvar $expandedWidgetsName expandedWidgets

    foreach key [$tbl childkeys $nodeIdx] {
	set pathName [$tbl rowattrib $key pathName]
	if {[info exists expandedWidgets($pathName)]} {
	    $tbl expand $key -partly
	    restoreExpandedStates $tbl $key expandedWidgets
	}
    }
}

#------------------------------------------------------------------------------








|








420
421
422
423
424
425
426
427
428
429
430
431
432
433
434

# array specified by the last argument.
#------------------------------------------------------------------------------
proc demo::restoreExpandedStates {tbl nodeIdx expandedWidgetsName} {
    upvar $expandedWidgetsName expandedWidgets

    foreach key [$tbl childkeys $nodeIdx] {
	set pathName [$tbl rowattrib $key pathName]
	if {[info exists expandedWidgets($)]} {
	    $tbl expand $key -partly
	    restoreExpandedStates $tbl $key expandedWidgets
	}
    }
}

#------------------------------------------------------------------------------
︙︙

Changes to examples/tablelist/browseTree_tile.tcl. 

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

#==============================================================================
# Demonstrates how to use a tablelist widget for displaying information about
# the children of an arbitrary widget.
#
# Copyright (c) 2010-2016  Csaba Nemethi (E-mail: [email protected])
#==============================================================================

package require tablelist_tile 5.16

namespace eval demo {
    variable dir [file dirname [info script]]

    #
    # Create two images, needed in the procedure putChildren
    #





|


|








1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

#==============================================================================
# Demonstrates how to use a tablelist widget for displaying information about
# the children of an arbitrary widget.
#
# Copyright (c) 2010-2017  Csaba Nemethi (E-mail: [email protected])
#==============================================================================

package require tablelist_tile 5.17

namespace eval demo {
    variable dir [file dirname [info script]]

    #
    # Create two images, needed in the procedure putChildren
    #
︙︙
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71

    # columns and interactive sort capability within the top-level
    #
    set tf $top.tf
    ttk::frame $tf
    set tbl $tf.tbl
    set vsb $tf.vsb
    tablelist::tablelist $tbl \
	-columns {0 "Path Name"	left
		  0 "Class"	left
		  0 "X"		right
		  0 "Y"		right
		  0 "Width"	right
		  0 "Height"	right
		  0 "Mapped"	center
		  0 "Viewable"	center








|








57
58
59
60
61
62
63
64
65
66
67
68
69
70
71

    # columns and interactive sort capability within the top-level
    #
    set tf $top.tf
    ttk::frame $tf
    set tbl $tf.tbl
    set vsb $tf.vsb
    tablelist::tablelist $tbl \
	-columns {0 "Name"	left
		  0 "Class"	left
		  0 "X"		right
		  0 "Y"		right
		  0 "Width"	right
		  0 "Height"	right
		  0 "Mapped"	center
		  0 "Viewable"	center
︙︙

Changes to examples/tablelist/browse_tile.tcl. 

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

#==============================================================================
# Demonstrates how to use a tablelist widget for displaying information about
# children of an arbitrary widget.
#
# Copyright (c) 2000-2016  Csaba Nemethi (E-mail: [email protected])
#==============================================================================

package require tablelist_tile 5.16

namespace eval demo {
    variable dir [file dirname [info script]]

    #
    # Create two images, needed in the procedure putChildren
    #





|


|








1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

#==============================================================================
# Demonstrates how to use a tablelist widget for displaying information about
# children of an arbitrary widget.
#
# Copyright (c) 2000-2017  Csaba Nemethi (E-mail: [email protected])
#==============================================================================

package require tablelist_tile 5.17

namespace eval demo {
    variable dir [file dirname [info script]]

    #
    # Create two images, needed in the procedure putChildren
    #
︙︙

Changes to examples/tablelist/bwidget.tcl. 

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

#!/usr/bin/env wish

#==============================================================================
# Demonstrates the interactive tablelist cell editing with the aid of some
# widgets from the BWidget package and of the Tk core checkbutton and
# menubutton widgets.
#
# Copyright (c) 2004-2016  Csaba Nemethi (E-mail: [email protected])
#==============================================================================

package require Tk 8.4				;# because of "-compound"
package require tablelist 5.16
package require BWidget

wm title . "Serial Line Configuration"

#
# Add some entries to the Tk option database
#








|



|








1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

#!/usr/bin/env wish

#==============================================================================
# Demonstrates the interactive tablelist cell editing with the aid of some
# widgets from the BWidget package and of the Tk core checkbutton and
# menubutton widgets.
#
# Copyright (c) 2004-2017  Csaba Nemethi (E-mail: [email protected])
#==============================================================================

package require Tk 8.4				;# because of "-compound"
package require tablelist 5.17
package require BWidget

wm title . "Serial Line Configuration"

#
# Add some entries to the Tk option database
#
︙︙

Changes to examples/tablelist/bwidget_tile.tcl. 

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

#!/usr/bin/env wish

#==============================================================================
# Demonstrates the interactive tablelist cell editing with the aid of some
# widgets from the BWidget package and of the Tk core checkbutton and
# menubutton widgets.
#
# Copyright (c) 2004-2016  Csaba Nemethi (E-mail: [email protected])
#==============================================================================

package require tablelist_tile 5.16
package require BWidget

wm title . "Serial Line Configuration"

#
# Add some entries to the Tk option database
#








|


|








1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

#!/usr/bin/env wish

#==============================================================================
# Demonstrates the interactive tablelist cell editing with the aid of some
# widgets from the BWidget package and of the Tk core checkbutton and
# menubutton widgets.
#
# Copyright (c) 2004-2017  Csaba Nemethi (E-mail: [email protected])
#==============================================================================

package require tablelist_tile 5.17
package require BWidget

wm title . "Serial Line Configuration"

#
# Add some entries to the Tk option database
#
︙︙

Changes to examples/tablelist/config.tcl. 

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

#==============================================================================
# Demonstrates how to use a tablelist widget for displaying and editing the
# configuration options of an arbitrary widget.
#
# Copyright (c) 2000-2016  Csaba Nemethi (E-mail: [email protected])
#==============================================================================

package require tablelist 5.16

namespace eval demo {
    #
    # Get the current windowing system ("x11", "win32", "classic", or "aqua")
    # and add some entries to the Tk option database for the following
    # widget hierarchy within a top-level widget of the class DemoTop:
    #





|


|








1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

#==============================================================================
# Demonstrates how to use a tablelist widget for displaying and editing the
# configuration options of an arbitrary widget.
#
# Copyright (c) 2000-2017  Csaba Nemethi (E-mail: [email protected])
#==============================================================================

package require tablelist 5.17

namespace eval demo {
    #
    # Get the current windowing system ("x11", "win32", "classic", or "aqua")
    # and add some entries to the Tk option database for the following
    # widget hierarchy within a top-level widget of the class DemoTop:
    #
︙︙
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46

    if {[string compare $winSys "x11"] == 0} {
	#
	# Create the font TkDefaultFont if not yet present
	#
	catch {font create TkDefaultFont -family Helvetica -size -12}

	option add *DemoTop*Font			TkDefaultFont
	option add *DemoTop*selectBackground		#678db2
	option add *DemoTop*selectForeground		white
    } else {
	option add *DemoTop.tf.borderWidth		1
	option add *DemoTop.tf.relief			sunken
	option add *DemoTop.tf.tbl.borderWidth		0
	option add *DemoTop.tf.tbl.highlightThickness	0
    }








|








32
33
34
35
36
37
38
39
40
41
42
43
44
45
46

    if {[string compare $winSys "x11"] == 0} {
	#
	# Create the font TkDefaultFont if not yet present
	#
	catch {font create TkDefaultFont -family Helvetica -size -12}

	option add *DemoTop*Font			TkDefaultFont
	option add *DemoTop*selectBackground		#5294e2
	option add *DemoTop*selectForeground		white
    } else {
	option add *DemoTop.tf.borderWidth		1
	option add *DemoTop.tf.relief			sunken
	option add *DemoTop.tf.tbl.borderWidth		0
	option add *DemoTop.tf.tbl.highlightThickness	0
    }
︙︙

Changes to examples/tablelist/config_tile.tcl. 

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

#==============================================================================
# Demonstrates how to use a tablelist widget for displaying and editing the
# configuration options of an arbitrary widget.
#
# Copyright (c) 2000-2016  Csaba Nemethi (E-mail: [email protected])
#==============================================================================

package require tablelist_tile 5.16

namespace eval demo {
    #
    # Get the current windowing system ("x11", "win32", or "aqua")
    # and add some entries to the Tk option database for the following
    # widget hierarchy within a top-level widget of the class DemoTop:
    #





|


|








1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

#==============================================================================
# Demonstrates how to use a tablelist widget for displaying and editing the
# configuration options of an arbitrary widget.
#
# Copyright (c) 2000-2017  Csaba Nemethi (E-mail: [email protected])
#==============================================================================

package require tablelist_tile 5.17

namespace eval demo {
    #
    # Get the current windowing system ("x11", "win32", or "aqua")
    # and add some entries to the Tk option database for the following
    # widget hierarchy within a top-level widget of the class DemoTop:
    #
︙︙

Changes to examples/tablelist/dirViewer.tcl. 

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

#!/usr/bin/env wish

#==============================================================================
# Demonstrates how to use a tablelist widget for displaying the contents of a
# directory.
#
# Copyright (c) 2010-2016  Csaba Nemethi (E-mail: [email protected])
#==============================================================================

package require Tk 8.3
package require tablelist 5.16

#
# Add some entries to the Tk option database
#
set dir [file dirname [info script]]
source [file join $dir option.tcl]








|



|








1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

#!/usr/bin/env wish

#==============================================================================
# Demonstrates how to use a tablelist widget for displaying the contents of a
# directory.
#
# Copyright (c) 2010-2017  Csaba Nemethi (E-mail: [email protected])
#==============================================================================

package require Tk 8.3
package require tablelist 5.17

#
# Add some entries to the Tk option database
#
set dir [file dirname [info script]]
source [file join $dir option.tcl]
︙︙

Changes to examples/tablelist/dirViewer_tile.tcl. 

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

#!/usr/bin/env wish

#==============================================================================
# Demonstrates how to use a tablelist widget for displaying the contents of a
# directory.
#
# Copyright (c) 2010-2016  Csaba Nemethi (E-mail: [email protected])
#==============================================================================

package require tablelist_tile 5.16

#
# Add some entries to the Tk option database
#
set dir [file dirname [info script]]
source [file join $dir option_tile.tcl]








|


|








1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

#!/usr/bin/env wish

#==============================================================================
# Demonstrates how to use a tablelist widget for displaying the contents of a
# directory.
#
# Copyright (c) 2010-2017  Csaba Nemethi (E-mail: [email protected])
#==============================================================================

package require tablelist_tile 5.17

#
# Add some entries to the Tk option database
#
set dir [file dirname [info script]]
source [file join $dir option_tile.tcl]
︙︙

Changes to examples/tablelist/embeddedWindows.tcl. 

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

#!/usr/bin/env wish

#==============================================================================
# Demonstrates the use of embedded windows in tablelist widgets.
#
# Copyright (c) 2004-2016  Csaba Nemethi (E-mail: [email protected])
#==============================================================================

package require tablelist 5.16

wm title . "Tk Library Scripts"

#
# Add some entries to the Tk option database
#
set dir [file dirname [info script]]






|


|








1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

#!/usr/bin/env wish

#==============================================================================
# Demonstrates the use of embedded windows in tablelist widgets.
#
# Copyright (c) 2004-2017  Csaba Nemethi (E-mail: [email protected])
#==============================================================================

package require tablelist 5.17

wm title . "Tk Library Scripts"

#
# Add some entries to the Tk option database
#
set dir [file dirname [info script]]
︙︙
48
49
50
51
52
53
54








55
56
57
58
59
60
61
62

$tbl columnconfigure 1 -formatcommand emptyStr -sortmode integer
$tbl columnconfigure 2 -name fileSize -sortmode integer
$tbl columnconfigure 4 -name seen
scrollbar $vsb -orient vertical -command [list $tbl yview]

proc emptyStr val { return "" }









eval font create BoldFont [font actual [$tbl cget -font]] -weight bold

#
# Populate the tablelist widget
#
cd $tk_library
set maxFileSize 0
foreach fileName [lsort [glob *.tcl]] {








>
>
>
>
>
>
>
>
|








48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70

$tbl columnconfigure 1 -formatcommand emptyStr -sortmode integer
$tbl columnconfigure 2 -name fileSize -sortmode integer
$tbl columnconfigure 4 -name seen
scrollbar $vsb -orient vertical -command [list $tbl yview]

proc emptyStr val { return "" }

#
# Create a bold font
#
set tblFont [$tbl cget -font]
set size [font actual $tblFont -size]
if {$size == 0} {					;# e.g., on Ubuntu
    set size -12
}
eval font create BoldFont [font actual $tblFont] -size $size -weight bold

#
# Populate the tablelist widget
#
cd $tk_library
set maxFileSize 0
foreach fileName [lsort [glob *.tcl]] {
︙︙

Changes to examples/tablelist/embeddedWindows_tile.tcl. 

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

#!/usr/bin/env wish

#==============================================================================
# Demonstrates the use of embedded windows in tablelist widgets.
#
# Copyright (c) 2004-2016  Csaba Nemethi (E-mail: [email protected])
#==============================================================================

package require tablelist_tile 5.16

wm title . "Tile Library Scripts"

#
# Add some entries to the Tk option database
#
set dir [file dirname [info script]]






|


|








1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

#!/usr/bin/env wish

#==============================================================================
# Demonstrates the use of embedded windows in tablelist widgets.
#
# Copyright (c) 2004-2017  Csaba Nemethi (E-mail: [email protected])
#==============================================================================

package require tablelist_tile 5.17

wm title . "Tile Library Scripts"

#
# Add some entries to the Tk option database
#
set dir [file dirname [info script]]
︙︙
73
74
75
76
77
78
79








80
81
82
83
84
85
86
87

$tbl columnconfigure 1 -formatcommand emptyStr -sortmode integer
$tbl columnconfigure 2 -name fileSize -sortmode integer
$tbl columnconfigure 4 -name seen
ttk::scrollbar $vsb -orient vertical -command [list $tbl yview]

proc emptyStr val { return "" }









eval font create BoldFont [font actual [$tbl cget -font]] -weight bold

#
# Populate the tablelist widget
#
if {[info exists ttk::library]} {
    cd $ttk::library
} else {








>
>
>
>
>
>
>
>
|








73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95

$tbl columnconfigure 1 -formatcommand emptyStr -sortmode integer
$tbl columnconfigure 2 -name fileSize -sortmode integer
$tbl columnconfigure 4 -name seen
ttk::scrollbar $vsb -orient vertical -command [list $tbl yview]

proc emptyStr val { return "" }

#
# Create a bold font
#
set tblFont [$tbl cget -font]
set size [font actual $tblFont -size]
if {$size == 0} {					;# e.g., on Ubuntu
    set size -12
}
eval font create BoldFont [font actual $tblFont] -size $size -weight bold

#
# Populate the tablelist widget
#
if {[info exists ttk::library]} {
    cd $ttk::library
} else {
︙︙

Changes to examples/tablelist/images.tcl. 

1
2
3
4
5
6
7
8
9
10
11

#==============================================================================
# Creates some images.
#
# Copyright (c) 2011-2016  Csaba Nemethi (E-mail: [email protected])
#==============================================================================

#
# Create two images, to be displayed in tablelist cells with boolean values
#
image create photo checkedImg   -file [file join $dir checked.gif]
image create photo uncheckedImg -file [file join $dir unchecked.gif]




|








1
2
3
4
5
6
7
8
9
10
11

#==============================================================================
# Creates some images.
#
# Copyright (c) 2011-2017  Csaba Nemethi (E-mail: [email protected])
#==============================================================================

#
# Create two images, to be displayed in tablelist cells with boolean values
#
image create photo checkedImg   -file [file join $dir checked.gif]
image create photo uncheckedImg -file [file join $dir unchecked.gif]
︙︙

Changes to examples/tablelist/iwidgets.tcl. 

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

#!/usr/bin/env wish

#==============================================================================
# Demonstrates the interactive tablelist cell editing with the aid of some
# widgets from the Iwidgets package and of the Tk core checkbutton and
# menubutton widgets.
#
# Copyright (c) 2004-2016  Csaba Nemethi (E-mail: [email protected])
#==============================================================================

package require Tk 8.4				;# because of "-compound"
package require tablelist 5.16
package require Iwidgets

wm title . "Serial Line Configuration"

#
# Add some entries to the Tk option database
#








|



|








1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

#!/usr/bin/env wish

#==============================================================================
# Demonstrates the interactive tablelist cell editing with the aid of some
# widgets from the Iwidgets package and of the Tk core checkbutton and
# menubutton widgets.
#
# Copyright (c) 2004-2017  Csaba Nemethi (E-mail: [email protected])
#==============================================================================

package require Tk 8.4				;# because of "-compound"
package require tablelist 5.17
package require Iwidgets

wm title . "Serial Line Configuration"

#
# Add some entries to the Tk option database
#
︙︙

Changes to examples/tablelist/iwidgets_tile.tcl. 

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

#!/usr/bin/env wish

#==============================================================================
# Demonstrates the interactive tablelist cell editing with the aid of some
# widgets from the Iwidgets package and of the Tk core checkbutton and
# menubutton widgets.
#
# Copyright (c) 2004-2016  Csaba Nemethi (E-mail: [email protected])
#==============================================================================

package require tablelist_tile 5.16
package require Iwidgets

wm title . "Serial Line Configuration"

#
# Add some entries to the Tk option database
#








|


|








1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

#!/usr/bin/env wish

#==============================================================================
# Demonstrates the interactive tablelist cell editing with the aid of some
# widgets from the Iwidgets package and of the Tk core checkbutton and
# menubutton widgets.
#
# Copyright (c) 2004-2017  Csaba Nemethi (E-mail: [email protected])
#==============================================================================

package require tablelist_tile 5.17
package require Iwidgets

wm title . "Serial Line Configuration"

#
# Add some entries to the Tk option database
#
︙︙

Changes to examples/tablelist/miscWidgets.tcl. 

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

#!/usr/bin/env wish

#==============================================================================
# Demonstrates the interactive tablelist cell editing with the aid of Bryan
# Oakley's combobox, the mentry widgets of type "Date" and "Time", and of the
# Tk core entry, spinbox, checkbutton, and menubutton widgets.
#
# Copyright (c) 2004-2016  Csaba Nemethi (E-mail: [email protected])
#==============================================================================

package require Tk 8.4		;# because of "-compound" and the spinbox widget
package require tablelist 5.16
package require combobox
package require mentry

wm title . "Serial Line Configuration"

#
# Add some entries to the Tk option database








|



|








1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

#!/usr/bin/env wish

#==============================================================================
# Demonstrates the interactive tablelist cell editing with the aid of Bryan
# Oakley's combobox, the mentry widgets of type "Date" and "Time", and of the
# Tk core entry, spinbox, checkbutton, and menubutton widgets.
#
# Copyright (c) 2004-2017  Csaba Nemethi (E-mail: [email protected])
#==============================================================================

package require Tk 8.4		;# because of "-compound" and the spinbox widget
package require tablelist 5.17
package require combobox
package require mentry

wm title . "Serial Line Configuration"

#
# Add some entries to the Tk option database
︙︙

Changes to examples/tablelist/miscWidgets_tile.tcl. 

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

#!/usr/bin/env wish

#==============================================================================
# Demonstrates the interactive tablelist cell editing with the aid of Bryan
# Oakley's combobox, the mentry widgets of type "Date" and "Time", and of the
# Tk core entry, spinbox, checkbutton, and menubutton widgets.
#
# Copyright (c) 2004-2016  Csaba Nemethi (E-mail: [email protected])
#==============================================================================

package require tablelist_tile 5.16
package require combobox
package require mentry

wm title . "Serial Line Configuration"

#
# Add some entries to the Tk option database








|


|








1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

#!/usr/bin/env wish

#==============================================================================
# Demonstrates the interactive tablelist cell editing with the aid of Bryan
# Oakley's combobox, the mentry widgets of type "Date" and "Time", and of the
# Tk core entry, spinbox, checkbutton, and menubutton widgets.
#
# Copyright (c) 2004-2017  Csaba Nemethi (E-mail: [email protected])
#==============================================================================

package require tablelist_tile 5.17
package require combobox
package require mentry

wm title . "Serial Line Configuration"

#
# Add some entries to the Tk option database
︙︙

Changes to examples/tablelist/option.tcl. 

1
2
3
4
5
6
7
8
9
10
11

#==============================================================================
# Contains some Tk option database settings.
#
# Copyright (c) 2004-2016  Csaba Nemethi (E-mail: [email protected])
#==============================================================================

#
# Get the current windowing system ("x11", "win32", "classic", or "aqua")
#
if {[catch {tk windowingsystem} winSys] != 0} {
    switch $::tcl_platform(platform) {




|








1
2
3
4
5
6
7
8
9
10
11

#==============================================================================
# Contains some Tk option database settings.
#
# Copyright (c) 2004-2017  Csaba Nemethi (E-mail: [email protected])
#==============================================================================

#
# Get the current windowing system ("x11", "win32", "classic", or "aqua")
#
if {[catch {tk windowingsystem} winSys] != 0} {
    switch $::tcl_platform(platform) {
︙︙
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35

if {[string compare $winSys "x11"] == 0} {
    #
    # Create the font TkDefaultFont if not yet present
    #
    catch {font create TkDefaultFont -family Helvetica -size -12}

    option add *Font			TkDefaultFont
    option add *selectBackground	#678db2
    option add *selectForeground	white
} else {
    option add *ScrollArea.borderWidth			1
    option add *ScrollArea.relief			sunken
    option add *ScrollArea.Tablelist.borderWidth	0
    option add *ScrollArea.Tablelist.highlightThickness	0
    option add *ScrollArea.Text.borderWidth		0








|








21
22
23
24
25
26
27
28
29
30
31
32
33
34
35

if {[string compare $winSys "x11"] == 0} {
    #
    # Create the font TkDefaultFont if not yet present
    #
    catch {font create TkDefaultFont -family Helvetica -size -12}

    option add *Font			TkDefaultFont
    option add *selectBackground	#5294e2
    option add *selectForeground	white
} else {
    option add *ScrollArea.borderWidth			1
    option add *ScrollArea.relief			sunken
    option add *ScrollArea.Tablelist.borderWidth	0
    option add *ScrollArea.Tablelist.highlightThickness	0
    option add *ScrollArea.Text.borderWidth		0
︙︙

Changes to examples/tablelist/option_tile.tcl. 

1
2
3
4
5
6
7
8
9
10
11

#==============================================================================
# Contains some Tk option database settings.
#
# Copyright (c) 2004-2016  Csaba Nemethi (E-mail: [email protected])
#==============================================================================

#
# Get the current windowing system ("x11", "win32", or
# "aqua") and add some entries to the Tk option database
#
if {[tk windowingsystem] eq "x11"} {




|








1
2
3
4
5
6
7
8
9
10
11

#==============================================================================
# Contains some Tk option database settings.
#
# Copyright (c) 2004-2017  Csaba Nemethi (E-mail: [email protected])
#==============================================================================

#
# Get the current windowing system ("x11", "win32", or
# "aqua") and add some entries to the Tk option database
#
if {[tk windowingsystem] eq "x11"} {
︙︙

Changes to examples/tablelist/styles.tcl. 

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

#!/usr/bin/env wish

#==============================================================================
# Demonstrates some ways of improving the look & feel of a tablelist widget.
#
# Copyright (c) 2002-2016  Csaba Nemethi (E-mail: [email protected])
#==============================================================================

package require tablelist 5.16

wm title . "Tablelist Styles"

#
# Get the current windowing system ("x11", "win32", "classic",
# or "aqua") and add some entries to the Tk option database
#






|


|








1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

#!/usr/bin/env wish

#==============================================================================
# Demonstrates some ways of improving the look & feel of a tablelist widget.
#
# Copyright (c) 2002-2017  Csaba Nemethi (E-mail: [email protected])
#==============================================================================

package require tablelist 5.17

wm title . "Tablelist Styles"

#
# Get the current windowing system ("x11", "win32", "classic",
# or "aqua") and add some entries to the Tk option database
#
︙︙
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38

if {[string compare $winSys "x11"] == 0} {
    #
    # Create the font TkDefaultFont if not yet present
    #
    catch {font create TkDefaultFont -family Helvetica -size -12}

    option add *Font			TkDefaultFont
    option add *selectBackground	#678db2
    option add *selectForeground	white
}

#
# Create, configure, and populate 8 tablelist widgets
#
frame .f








|








24
25
26
27
28
29
30
31
32
33
34
35
36
37
38

if {[string compare $winSys "x11"] == 0} {
    #
    # Create the font TkDefaultFont if not yet present
    #
    catch {font create TkDefaultFont -family Helvetica -size -12}

    option add *Font			TkDefaultFont
    option add *selectBackground	#5294e2
    option add *selectForeground	white
}

#
# Create, configure, and populate 8 tablelist widgets
#
frame .f
︙︙

Changes to examples/tablelist/styles_tile.tcl. 

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

#!/usr/bin/env wish

#==============================================================================
# Demonstrates some ways of improving the look & feel of a tablelist widget.
#
# Copyright (c) 2002-2016  Csaba Nemethi (E-mail: [email protected])
#==============================================================================

package require tablelist_tile 5.16

wm title . "Tablelist Styles"

#
# Improve the window's appearance by using a tile
# frame as a container for the other widgets
#






|


|








1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

#!/usr/bin/env wish

#==============================================================================
# Demonstrates some ways of improving the look & feel of a tablelist widget.
#
# Copyright (c) 2002-2017  Csaba Nemethi (E-mail: [email protected])
#==============================================================================

package require tablelist_tile 5.17

wm title . "Tablelist Styles"

#
# Improve the window's appearance by using a tile
# frame as a container for the other widgets
#
︙︙

Changes to examples/tablelist/tileWidgets.tcl. 

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

#!/usr/bin/env wish

#==============================================================================
# Demonstrates the interactive tablelist cell editing with the aid of some
# widgets from the tile package and of the Tk core spinbox widget.
#
# Copyright (c) 2005-2016  Csaba Nemethi (E-mail: [email protected])
#==============================================================================

package require tablelist_tile 5.16

wm title . "Serial Line Configuration"

#
# Add some entries to the Tk option database
#
set dir [file dirname [info script]]







|


|








1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

#!/usr/bin/env wish

#==============================================================================
# Demonstrates the interactive tablelist cell editing with the aid of some
# widgets from the tile package and of the Tk core spinbox widget.
#
# Copyright (c) 2005-2017  Csaba Nemethi (E-mail: [email protected])
#==============================================================================

package require tablelist_tile 5.17

wm title . "Serial Line Configuration"

#
# Add some entries to the Tk option database
#
set dir [file dirname [info script]]
︙︙

This page was generated in about 0.027s by Fossil 2.24 [f4ffefe708] 2024-04-17 14:02:19