Tk Library Source Code

Check-in [af1787933e]
Login
Bounty program for improvements to Tcl and certain Tcl packages.

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

Overview
Comment: * ../../examples/tablelist/*.tcl: Bumped the version number to 6.9; updated the copyright information; the scripts "dirViewer.tcl" and "dirViewer_tile.tcl" now also demonstrate how to use the variable "tablelist::scalingpct" for developing scaling-aware applications.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA3-256: af1787933e0b75e01e191c8350e88fea40b44700f8dcf0f3fce8ae7cb2197775
User & Date: csaba 2020-04-21 17:34:48
Context
2020-04-21
17:36
* ../../examples/tablelist/*.gif: Removed clsdFolder.gif, openFolder.gif, and file.gif; added (clsd|open)Folder100.gif, (clsd|open)Folder125.gif, ..., (clsd|open)Folder200.gif; added file100.gif, file125.gif, .., file200.gif. check-in: 8fbf7a73f0 user: csaba tags: trunk
17:34
* ../../examples/tablelist/*.tcl: Bumped the version number to 6.9; updated the copyright information; the scripts "dirViewer.tcl" and "dirViewer_tile.tcl" now also demonstrate how to use the variable "tablelist::scalingpct" for developing scaling-aware applications. check-in: af1787933e user: csaba tags: trunk
17:19
* doc/adwaita.png: Updated screenshots. * doc/arrowStyles.png: * doc/arrowStyles_vista.png: * doc/dirViewer.png: * doc/ubuntuMate.png: * doc/win10.png: check-in: 1359443902 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-2019  Csaba Nemethi (E-mail: [email protected])
#==============================================================================

package require tablelist 6.8

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-2020  Csaba Nemethi (E-mail: [email protected])
#==============================================================================

package require tablelist 6.9

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-2019  Csaba Nemethi (E-mail: [email protected])
#==============================================================================

package require Tk 8.3
package require tablelist 6.8

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-2020  Csaba Nemethi (E-mail: [email protected])
#==============================================================================

package require Tk 8.3
package require tablelist 6.9

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

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

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-2019  Csaba Nemethi (E-mail: [email protected])
#==============================================================================

package require tablelist_tile 6.8

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-2020  Csaba Nemethi (E-mail: [email protected])
#==============================================================================

package require tablelist_tile 6.9

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

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

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-2019  Csaba Nemethi (E-mail: [email protected])
#==============================================================================

package require tablelist_tile 6.8

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-2020  Csaba Nemethi (E-mail: [email protected])
#==============================================================================

package require tablelist_tile 6.9

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-2019  Csaba Nemethi (E-mail: [email protected])
#==============================================================================

package require Tk 8.4				;# because of "-compound"
package require tablelist 6.8
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-2020  Csaba Nemethi (E-mail: [email protected])
#==============================================================================

package require Tk 8.4				;# because of "-compound"
package require tablelist 6.9
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-2019  Csaba Nemethi (E-mail: [email protected])
#==============================================================================

package require tablelist_tile 6.8
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-2020  Csaba Nemethi (E-mail: [email protected])
#==============================================================================

package require tablelist_tile 6.9
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-2019  Csaba Nemethi (E-mail: [email protected])
#==============================================================================

package require tablelist 6.8

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 toplevel 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-2020  Csaba Nemethi (E-mail: [email protected])
#==============================================================================

package require tablelist 6.9

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 toplevel widget of the class DemoTop:
    #

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-2019  Csaba Nemethi (E-mail: [email protected])
#==============================================================================

package require tablelist_tile 6.8

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 toplevel 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-2020  Csaba Nemethi (E-mail: [email protected])
#==============================================================================

package require tablelist_tile 6.9

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 toplevel 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
19
20
21

22
23
24
25
26
27
28
29
30
31
..
50
51
52
53
54
55
56


















57
58
59
60
61
62
63
..
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96

97
98
99
100
101
102
103
104
#!/usr/bin/env wish

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

package require Tk 8.3
package require tablelist 6.8

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

#
# Create three images
#

image create photo clsdFolderImg -file [file join $dir clsdFolder.gif]
image create photo openFolderImg -file [file join $dir openFolder.gif]
image create photo fileImg       -file [file join $dir file.gif]

#------------------------------------------------------------------------------
# displayContents
#
# Displays the content of the directory dir in a tablelist widget.
#------------------------------------------------------------------------------
proc displayContents dir {
................................................................................
    }
    $tbl columnconfigure 0 -formatcommand formatString -sortmode dictionary
    $tbl columnconfigure 1 -formatcommand formatSize -sortmode integer
    $tbl columnconfigure 2 -formatcommand formatString
    scrollbar $vsb -orient vertical   -command [list $tbl yview]
    scrollbar $hsb -orient horizontal -command [list $tbl xview]



















    #
    # Create a pop-up menu with one command entry; bind the script
    # associated with its entry to the <Double-1> event, too
    #
    set menu .menu
    menu $menu -tearoff no
    $menu add command -label "Display Contents" \
................................................................................
    button $b2 -width 10 -text "Parent"
    button $b3 -width 10 -text "Close" -command exit

    #
    # Manage the widgets
    #
    grid $tbl -row 0 -rowspan 2 -column 0 -sticky news
    global winSys					;# see option.tcl
    if {[string compare $winSys "win32"] == 0} {
	grid $vsb -row 0 -rowspan 2 -column 1 -sticky ns
    } else {
	grid [$tbl cornerpath] -row 0 -column 1 -sticky ew
	grid $vsb	       -row 1 -column 1 -sticky ns
    }
    grid $hsb -row 2 -column 0 -sticky ew
    grid rowconfigure    $tf 1 -weight 1
    grid columnconfigure $tf 0 -weight 1

    pack $b1 $b2 $b3 -side left -expand yes -pady 10
    pack $bf -side bottom -fill x
    pack $tf -side top -expand yes -fill both

    #
    # Populate the tablelist with the content of the given directory
    #
    $tbl sortbycolumn 0





|



|








|

>
|
|
|







 







>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>







 







<









>
|







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
..
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
..
99
100
101
102
103
104
105

106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
#!/usr/bin/env wish

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

package require Tk 8.3
package require tablelist 6.9

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

#
# Create three images corresponding to the display's DPI scaling level
#
set pct $tablelist::scalingpct
image create photo clsdFolderImg -file [file join $dir clsdFolder$pct.gif]
image create photo openFolderImg -file [file join $dir openFolder$pct.gif]
image create photo fileImg       -file [file join $dir       file$pct.gif]

#------------------------------------------------------------------------------
# displayContents
#
# Displays the content of the directory dir in a tablelist widget.
#------------------------------------------------------------------------------
proc displayContents dir {
................................................................................
    }
    $tbl columnconfigure 0 -formatcommand formatString -sortmode dictionary
    $tbl columnconfigure 1 -formatcommand formatSize -sortmode integer
    $tbl columnconfigure 2 -formatcommand formatString
    scrollbar $vsb -orient vertical   -command [list $tbl yview]
    scrollbar $hsb -orient horizontal -command [list $tbl xview]

    #
    # On X11 configure the tablelist and the scrollbars
    # according to the display's DPI scaling level
    #
    global winSys					;# see option.tcl
    if {[string compare $winSys "x11"] == 0} {
	set pct $tablelist::scalingpct
	set arrowSizeList {7x4 9x5 11x6 13x7 15x8}
	set idx [expr {($pct - 100) / 25}]
	set arrowSize [lindex $arrowSizeList $idx]
	$tbl configure -arrowstyle flat$arrowSize -treestyle bicolor$pct

	set defaultSbWidth [lindex [$vsb configure -width] 3]
	set sbWidth [expr {$defaultSbWidth * $pct / 100}]
	$vsb configure -width $sbWidth
	$hsb configure -width $sbWidth
    }

    #
    # Create a pop-up menu with one command entry; bind the script
    # associated with its entry to the <Double-1> event, too
    #
    set menu .menu
    menu $menu -tearoff no
    $menu add command -label "Display Contents" \
................................................................................
    button $b2 -width 10 -text "Parent"
    button $b3 -width 10 -text "Close" -command exit

    #
    # Manage the widgets
    #
    grid $tbl -row 0 -rowspan 2 -column 0 -sticky news

    if {[string compare $winSys "win32"] == 0} {
	grid $vsb -row 0 -rowspan 2 -column 1 -sticky ns
    } else {
	grid [$tbl cornerpath] -row 0 -column 1 -sticky ew
	grid $vsb	       -row 1 -column 1 -sticky ns
    }
    grid $hsb -row 2 -column 0 -sticky ew
    grid rowconfigure    $tf 1 -weight 1
    grid columnconfigure $tf 0 -weight 1
    set padY [expr {10 * $tablelist::scalingpct / 100}]
    pack $b1 $b2 $b3 -side left -expand yes -pady $padY
    pack $bf -side bottom -fill x
    pack $tf -side top -expand yes -fill both

    #
    # Populate the tablelist with the content of the given directory
    #
    $tbl sortbycolumn 0

Changes to examples/tablelist/dirViewer_tile.tcl.

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
..
57
58
59
60
61
62
63


















64
65
66
67
68
69
70
..
96
97
98
99
100
101
102

103
104
105
106
107
108
109
110
#!/usr/bin/env wish

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

package require tablelist_tile 6.8

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

#
# Create three images
#

image create photo clsdFolderImg -file [file join $dir clsdFolder.gif]
image create photo openFolderImg -file [file join $dir openFolder.gif]
image create photo fileImg       -file [file join $dir file.gif]

#
# Work around the improper appearance of the tile scrollbars in the aqua theme
#
if {[tablelist::getCurrentTheme] eq "aqua" &&
    [package vcompare $::tk_patchLevel "8.6.10"] < 0} {
    interp alias {} ttk::scrollbar {} ::scrollbar
................................................................................
    }
    $tbl columnconfigure 0 -formatcommand formatString -sortmode dictionary
    $tbl columnconfigure 1 -formatcommand formatSize -sortmode integer
    $tbl columnconfigure 2 -formatcommand formatString
    ttk::scrollbar $vsb -orient vertical   -command [list $tbl yview]
    ttk::scrollbar $hsb -orient horizontal -command [list $tbl xview]



















    #
    # Create a pop-up menu with one command entry; bind the script
    # associated with its entry to the <Double-1> event, too
    #
    set menu .menu
    menu $menu -tearoff no
    $menu add command -label "Display Contents" \
................................................................................
    } else {
	grid [$tbl cornerpath] -row 0 -column 1 -sticky ew
	grid $vsb	       -row 1 -column 1 -sticky ns
    }
    grid $hsb -row 2 -column 0 -sticky ew
    grid rowconfigure    $tf 1 -weight 1
    grid columnconfigure $tf 0 -weight 1

    pack $b1 $b2 $b3 -side left -expand yes -pady 10
    pack $bf -side bottom -fill x
    pack $tf -side top -expand yes -fill both

    #
    # Populate the tablelist with the content of the given directory
    #
    $tbl sortbycolumn 0





|


|








|

>
|
|
|







 







>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>







 







>
|







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
..
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
...
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
#!/usr/bin/env wish

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

package require tablelist_tile 6.9

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

#
# Create three images corresponding to the display's DPI scaling level
#
set pct $tablelist::scalingpct
image create photo clsdFolderImg -file [file join $dir clsdFolder$pct.gif]
image create photo openFolderImg -file [file join $dir openFolder$pct.gif]
image create photo fileImg       -file [file join $dir       file$pct.gif]

#
# Work around the improper appearance of the tile scrollbars in the aqua theme
#
if {[tablelist::getCurrentTheme] eq "aqua" &&
    [package vcompare $::tk_patchLevel "8.6.10"] < 0} {
    interp alias {} ttk::scrollbar {} ::scrollbar
................................................................................
    }
    $tbl columnconfigure 0 -formatcommand formatString -sortmode dictionary
    $tbl columnconfigure 1 -formatcommand formatSize -sortmode integer
    $tbl columnconfigure 2 -formatcommand formatString
    ttk::scrollbar $vsb -orient vertical   -command [list $tbl yview]
    ttk::scrollbar $hsb -orient horizontal -command [list $tbl xview]

    #
    # On X11 configure the tablelist and the scrollbars
    # according to the display's DPI scaling level
    #
    if {[tk windowingsystem] eq "x11"} {
	set pct $tablelist::scalingpct
	set arrowSizeList {7x4 9x5 11x6 13x7 15x8}
	set idx [expr {($pct - 100) / 25}]
	set arrowSize [lindex $arrowSizeList $idx]
	$tbl configure -arrowstyle flat$arrowSize -treestyle bicolor$pct

	ttk::style theme settings default {
	    set defaultSbWidth [ttk::style lookup TScrollbar -width]
	}
	set sbWidth [expr {$defaultSbWidth * $pct / 100}]
	ttk::style configure TScrollbar -arrowsize $sbWidth -width $sbWidth
    }

    #
    # Create a pop-up menu with one command entry; bind the script
    # associated with its entry to the <Double-1> event, too
    #
    set menu .menu
    menu $menu -tearoff no
    $menu add command -label "Display Contents" \
................................................................................
    } else {
	grid [$tbl cornerpath] -row 0 -column 1 -sticky ew
	grid $vsb	       -row 1 -column 1 -sticky ns
    }
    grid $hsb -row 2 -column 0 -sticky ew
    grid rowconfigure    $tf 1 -weight 1
    grid columnconfigure $tf 0 -weight 1
    set padY [expr {10 * $tablelist::scalingpct / 100}]
    pack $b1 $b2 $b3 -side left -expand yes -pady $padY
    pack $bf -side bottom -fill x
    pack $tf -side top -expand yes -fill both

    #
    # Populate the tablelist with the content of the given directory
    #
    $tbl sortbycolumn 0

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-2019  Csaba Nemethi (E-mail: [email protected])
#==============================================================================

package require tablelist 6.8

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-2020  Csaba Nemethi (E-mail: [email protected])
#==============================================================================

package require tablelist 6.9

wm title . "Tk Library Scripts"

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

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-2019  Csaba Nemethi (E-mail: [email protected])
#==============================================================================

package require tablelist_tile 6.8

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-2020  Csaba Nemethi (E-mail: [email protected])
#==============================================================================

package require tablelist_tile 6.9

wm title . "Tile Library Scripts"

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

Changes to examples/tablelist/images.tcl.

1
2
3
4
5
6
7
8
9
10
11
#==============================================================================
# Creates some images.
#
# Copyright (c) 2011-2019  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-2020  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-2019  Csaba Nemethi (E-mail: [email protected])
#==============================================================================

package require Tk 8.4				;# because of "-compound"
package require tablelist 6.8
if {[catch {package require iwidgets} result1] != 0 &&
    [catch {package require Iwidgets} result2] != 0} {
    error "$result1; $result2"
}

wm title . "Serial Line Configuration"







|



|







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-2020  Csaba Nemethi (E-mail: [email protected])
#==============================================================================

package require Tk 8.4				;# because of "-compound"
package require tablelist 6.9
if {[catch {package require iwidgets} result1] != 0 &&
    [catch {package require Iwidgets} result2] != 0} {
    error "$result1; $result2"
}

wm title . "Serial Line Configuration"

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-2019  Csaba Nemethi (E-mail: [email protected])
#==============================================================================

package require tablelist_tile 6.8
if {[catch {package require iwidgets} result1] != 0 &&
    [catch {package require Iwidgets} result2] != 0} {
    error "$result1; $result2"
}

wm title . "Serial Line Configuration"







|


|







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-2020  Csaba Nemethi (E-mail: [email protected])
#==============================================================================

package require tablelist_tile 6.9
if {[catch {package require iwidgets} result1] != 0 &&
    [catch {package require Iwidgets} result2] != 0} {
    error "$result1; $result2"
}

wm title . "Serial Line Configuration"

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-2019  Csaba Nemethi (E-mail: [email protected])
#==============================================================================

package require Tk 8.4		;# because of "-compound" and the spinbox widget
package require tablelist 6.8
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-2020  Csaba Nemethi (E-mail: [email protected])
#==============================================================================

package require Tk 8.4		;# because of "-compound" and the spinbox widget
package require tablelist 6.9
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-2019  Csaba Nemethi (E-mail: [email protected])
#==============================================================================

package require tablelist_tile 6.8
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-2020  Csaba Nemethi (E-mail: [email protected])
#==============================================================================

package require tablelist_tile 6.9
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-2019  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-2020  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) {

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-2019  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-2020  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-2019  Csaba Nemethi (E-mail: [email protected])
#==============================================================================

package require tablelist 6.8

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-2020  Csaba Nemethi (E-mail: [email protected])
#==============================================================================

package require tablelist 6.9

wm title . "Tablelist Styles"

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

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-2019  Csaba Nemethi (E-mail: [email protected])
#==============================================================================

package require tablelist_tile 6.8

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-2020  Csaba Nemethi (E-mail: [email protected])
#==============================================================================

package require tablelist_tile 6.9

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.
#
# Copyright (c) 2005-2019  Csaba Nemethi (E-mail: [email protected])
#==============================================================================

package require tablelist_tile 6.8

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.
#
# Copyright (c) 2005-2020  Csaba Nemethi (E-mail: [email protected])
#==============================================================================

package require tablelist_tile 6.9

wm title . "Serial Line Configuration"

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