Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Bugfix to widgetPlus - adapt to stricter error checking in lreplace; bump version to 1.0b2 |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA3-256: |
7bbd844ae712803485c83e9177b09f80 |
| User & Date: | kjnash 2018-09-21 12:28:19 |
Context
|
2018-10-08
| ||
| 11:28 | * *.tcl: Bumped the version number to 3.6; adapted to some changes in future Tcl and Tk releases (TIP 278, independent Tcl and Tk versions); updated the copyright information. * COPYRIGHT.txt: Bumped the version number to 3.6. * README.txt: * CHANGES.txt: Updated to reflect the changes. * doc/*.html: * doc/*.png: Updated the screenshots. * scripts/*.tcl: Adapted to TIP 278; updated the copyright information. * scripts/tclIndex: Newly generated. * ../../examples/wcb/*.tcl: Various updates. check-in: f19578d90f user: csaba tags: trunk | |
|
2018-09-21
| ||
| 12:28 | Bugfix to widgetPlus - adapt to stricter error checking in lreplace; bump version to 1.0b2 check-in: 7bbd844ae7 user: kjnash tags: trunk | |
|
2018-09-19
| ||
| 16:42 | * scripts/tablelistConfig.tcl: Fixed a bug related to the "rowconfigure" * scripts/tablelistWidget.tcl: subcommand, introduced in Tablelist 6.0. check-in: e09adbba00 user: csaba tags: trunk | |
Changes
Changes to modules/widgetPlus/pkgIndex.tcl.
|
| | | 1 | package ifneeded widgetPlus 1.0b2 [list source [file join $dir widgetPlus.tcl]] |
Changes to modules/widgetPlus/widgetPlus.tcl.
| ︙ | ︙ | |||
1499 1500 1501 1502 1503 1504 1505 |
# Method Push
# ------------------------------------------------------------------------------
# Command to push a new value onto the Undo stack, and remove the Redo stack.
# ------------------------------------------------------------------------------
method Push {new} {
incr My(,pointer)
| > | > > | 1499 1500 1501 1502 1503 1504 1505 1506 1507 1508 1509 1510 1511 1512 1513 1514 1515 1516 |
# Method Push
# ------------------------------------------------------------------------------
# Command to push a new value onto the Undo stack, and remove the Redo stack.
# ------------------------------------------------------------------------------
method Push {new} {
incr My(,pointer)
if {$My(,pointer) < [llength $My(,list)]} {
set My(,list) [lreplace $My(,list) $My(,pointer) end]
}
lappend My(,list) $new
$self ResizeStack
return
}
# ------------------------------------------------------------------------------
|
| ︙ | ︙ | |||
1666 1667 1668 1669 1670 1671 1672 |
return $res
}
#indent+4
}
| | | 1669 1670 1671 1672 1673 1674 1675 1676 |
return $res
}
#indent+4
}
package provide widgetPlus 1.0b2
|