Eskil

Differences From Artifact [0094473171]:

• File eskil.vfs/lib/psballoon/psballoon.tcl — part of check-in [62ba2f60a5] at 2020-01-07 10:06:56 on branch trunk — Handle multiple screens better for balloon help (user: peter size: 6868)

To Artifact [3f46e53b8f]:

• File eskil.vfs/lib/psballoon/psballoon.tcl — part of check-in [60dc0dc612] at 2020-02-15 23:44:13 on branch trunk — Syntax fix (user: peter size: 6870)

148
149
150
151
152
153
154
155
156
157
158
159
160
161
162

	lappend screens $sW $maxX
    }
    return $screens
}

proc psballoon::createBalloon {W mx my} {
    variable balloon
    if {![winfo exists $W]} {
        return
    }
    if {$balloon(created) == 0} {
        # Figure out widget's font
        if {[catch {set font [$W cget -font]}]} {
            set font [ttk::style lookup [winfo class $W] -font]
        }

|

148
149
150
151
152
153
154
155
156
157
158
159
160
161
162

	lappend screens $sW $maxX
    }
    return $screens
}

proc psballoon::createBalloon {W mx my} {
    variable balloon
    if { ! [winfo exists $W]} {
        return
    }
    if {$balloon(created) == 0} {
        # Figure out widget's font
        if {[catch {set font [$W cget -font]}]} {
            set font [ttk::style lookup [winfo class $W] -font]
        }