Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | v1.3.4 |
|---|---|
| Downloads: | Tarball | ZIP archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA3-256: |
3c264747278ac37fba585dd58becfb0f |
| User & Date: | apl 2021-12-14 18:02:24.085 |
Context
|
2021-12-17
| ||
| 17:56 | v1.3.5 check-in: 010b291752 user: apl tags: trunk | |
|
2021-12-14
| ||
| 18:02 | v1.3.4 check-in: 3c26474727 user: apl tags: trunk | |
|
2021-12-12
| ||
| 12:11 | v1.3.4b2 check-in: 93d03f370a user: apl tags: trunk | |
Changes
Changes to baltip.tcl.
1 2 3 4 5 6 7 8 | ########################################################### # Name: baltip.tcl # Author: Alex Plotnikov (aplsimple@gmail.com) # Date: 12/01/2021 # Brief: Handles Tcl/Tk tip widget. # License: MIT. ########################################################### | | | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 |
###########################################################
# Name: baltip.tcl
# Author: Alex Plotnikov (aplsimple@gmail.com)
# Date: 12/01/2021
# Brief: Handles Tcl/Tk tip widget.
# License: MIT.
###########################################################
package provide baltip 1.3.4
package require Tk
# ________________________ Variables _________________________ #
namespace eval ::baltip {
|
| ︙ | ︙ | |||
754 755 756 757 758 759 760 |
catch {
after cancel [lindex [::baltip cget $optafter] 1]
}
set aftid [after $pause "::baltip::my::ShowNbkTip $w {$tip}"]
::baltip configure $optafter $aftid
}
} else {
| | | 754 755 756 757 758 759 760 761 762 763 764 765 766 767 768 |
catch {
after cancel [lindex [::baltip cget $optafter] 1]
}
set aftid [after $pause "::baltip::my::ShowNbkTip $w {$tip}"]
::baltip configure $optafter $aftid
}
} else {
NbkInfo $w $x $y -1
}
NbkInfo $w $x $y $tab
}
}
### ________________________ Listbox _________________________ ###
|
| ︙ | ︙ | |||
808 809 810 811 812 813 814 |
catch {
lassign [LbxCoord $w] x y idx inside
if {$inside} {
set tip [LbxTip $w $idx $whole]
::baltip configure $optid $idx
::baltip tip $w $tip -force yes
| < | 808 809 810 811 812 813 814 815 816 817 818 819 820 821 |
catch {
lassign [LbxCoord $w] x y idx inside
if {$inside} {
set tip [LbxTip $w $idx $whole]
::baltip configure $optid $idx
::baltip tip $w $tip -force yes
} else {
::baltip hide $w
::baltip configure $optid {}
}
}
}
#_______________________
|
| ︙ | ︙ | |||
910 911 912 913 914 915 916 |
catch {
lassign [TreCoord $w $whole] x y id c inside
if {$inside} {
set tip [TreTip $w $id $c $whole]
::baltip configure $optid [list $id $c]
::baltip tip $w $tip -force yes
| < | 909 910 911 912 913 914 915 916 917 918 919 920 921 922 |
catch {
lassign [TreCoord $w $whole] x y id c inside
if {$inside} {
set tip [TreTip $w $id $c $whole]
::baltip configure $optid [list $id $c]
::baltip tip $w $tip -force yes
} else {
::baltip hide $w
::baltip configure $optid {}
}
}
}
#_______________________
|
| ︙ | ︙ |
Changes to pkgIndex.tcl.
|
| | | 1 2 3 4 5 6 7 8 |
package ifneeded baltip 1.3.4 [list source [file join $dir baltip.tcl]]
namespace eval ::baltip {
variable _ruff_preamble {
It's a Tcl/Tk tip widget inspired by:
* [https://wiki.tcl-lang.org/page/Tklib+tooltip](https://wiki.tcl-lang.org/page/Tklib+tooltip)
|
| ︙ | ︙ |