Check-in [af77f7c19a]
Not logged in

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

Overview
Comment:add selected tcllib/tklib changes
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: af77f7c19a7dd44f3a2076b9409e34658c6f0ede
User & Date: chw 2019-09-02 15:25:54
Context
2019-09-03
06:46
add tcl upstream changes check-in: 26903ebe4b user: chw tags: trunk
2019-09-02
15:25
add selected tcllib/tklib changes check-in: af77f7c19a user: chw tags: trunk
11:57
add selected tcl upstream changes check-in: 9bdbb7617c user: chw tags: trunk
Changes

Changes to assets/tcllib1.19/debug/heartbeat.tcl.

20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
    variable duration $delta
    variable timer

    if {$duration > 0} {
	# stop a previous heartbeat before starting the next
	catch { after cancel $timer }
	on heartbeat
	every $duration {
	    debug.heartbeat {[debug::pulse]}
	}
    } else {
	catch { after cancel $timer }
	off heartbeat
    }
}







|







20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
    variable duration $delta
    variable timer

    if {$duration > 0} {
	# stop a previous heartbeat before starting the next
	catch { after cancel $timer }
	on heartbeat
	debug::every $duration {
	    debug.heartbeat {[debug::pulse]}
	}
    } else {
	catch { after cancel $timer }
	off heartbeat
    }
}

Changes to assets/tklib0.6/widgetl/listentry.tcl.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
....
1187
1188
1189
1190
1191
1192
1193
1194
1195
## -*- tcl -*-
# # ## ### ##### ######## ############# #####################
##

#	Panel for managing a list of values.
#
# Copyright (c) 2012 ActiveState Software Inc. Rewrite of original.
#
# RCS: @(#) $Id: listentry.tcl,v 1.3 2012/10/22 18:03:52 andreas_kupries Exp $

# XXX TODO: Define a style for the whole megawidget (WidgetOrderedList)
# XXX TODO: Ensure automatic definition of the style in all themes, on
#           theme changes.
# XXX TODO: Ensure that pre-existing definitions of the style('s
#           options) are not touched.

................................................................................
    ::widget::listentry .l -listvariable ::L -validate V
    pack .l -fill both -expand 1
    trace add variable ::L write P
}

# # ## ### ##### ######## ############# #####################
## Ready
package provide widget::listentry 0.1.1
return



<



<
<







 







|

1
2
3

4
5
6


7
8
9
10
11
12
13
....
1184
1185
1186
1187
1188
1189
1190
1191
1192
## -*- tcl -*-
# # ## ### ##### ######## ############# #####################
##

#	Panel for managing a list of values.
#
# Copyright (c) 2012 ActiveState Software Inc. Rewrite of original.



# XXX TODO: Define a style for the whole megawidget (WidgetOrderedList)
# XXX TODO: Ensure automatic definition of the style in all themes, on
#           theme changes.
# XXX TODO: Ensure that pre-existing definitions of the style('s
#           options) are not touched.

................................................................................
    ::widget::listentry .l -listvariable ::L -validate V
    pack .l -fill both -expand 1
    trace add variable ::L write P
}

# # ## ### ##### ######## ############# #####################
## Ready
package provide widget::listentry 0.1.2
return

Changes to assets/tklib0.6/widgetl/listsimple.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
...
671
672
673
674
675
676
677
678
679
## -*- tcl -*-
# # ## ### ##### ######## ############# #####################
##

#	Panel for managing an unordered list of values.
#	A simpler form of 'widget::listentry'. Removed features
#	- state normal/disabled --> always normal
#	- height                --> Fixed at 20
#	- ordered               --> always unordered
#	- allow-duplicates      --> no duplicates allowed
#	- transform             --> no transformation from entry
#				    field to list
#	- browse                --> no browsing
#
# Copyright (c) 2012 ActiveState Software Inc. Rewrite of original.
#
# RCS: @(#) $Id: listsimple.tcl,v 1.3 2012/10/22 18:03:52 andreas_kupries Exp $

# XXX TODO: Define a style for the whole megawidget (WidgetListEntry)
# XXX TODO: Ensure automatic definition of the style in all themes, on
#           theme changes.
# XXX TODO: Ensure that pre-existing definitions of the style('s
#           options) are not touched.

................................................................................
    ::widget::listsimple .l -listvariable ::L -values V
    pack .l -fill both -expand 1
    trace add variable ::L write P
}

# # ## ### ##### ######## ############# #####################
## Ready
package provide widget::listsimple 0.1.1
return



<











<
<







 







|

1
2
3

4
5
6
7
8
9
10
11
12
13
14


15
16
17
18
19
20
21
...
668
669
670
671
672
673
674
675
676
## -*- tcl -*-
# # ## ### ##### ######## ############# #####################
##

#	Panel for managing an unordered list of values.
#	A simpler form of 'widget::listentry'. Removed features
#	- state normal/disabled --> always normal
#	- height                --> Fixed at 20
#	- ordered               --> always unordered
#	- allow-duplicates      --> no duplicates allowed
#	- transform             --> no transformation from entry
#				    field to list
#	- browse                --> no browsing
#
# Copyright (c) 2012 ActiveState Software Inc. Rewrite of original.



# XXX TODO: Define a style for the whole megawidget (WidgetListEntry)
# XXX TODO: Ensure automatic definition of the style in all themes, on
#           theme changes.
# XXX TODO: Ensure that pre-existing definitions of the style('s
#           options) are not touched.

................................................................................
    ::widget::listsimple .l -listvariable ::L -values V
    pack .l -fill both -expand 1
    trace add variable ::L write P
}

# # ## ### ##### ######## ############# #####################
## Ready
package provide widget::listsimple 0.1.2
return

Changes to assets/tklib0.6/widgetl/pkgIndex.tcl.

1
2
3
if {![package vsatisfies [package provide Tcl] 8.5]} {return}
package ifneeded widget::listsimple 0.1.1 [list source [file join $dir listsimple.tcl]]
package ifneeded widget::listentry  0.1.1 [list source [file join $dir listentry.tcl]]

|
|
1
2
3
if {![package vsatisfies [package provide Tcl] 8.5]} {return}
package ifneeded widget::listsimple 0.1.2 [list source [file join $dir listsimple.tcl]]
package ifneeded widget::listentry  0.1.2 [list source [file join $dir listentry.tcl]]