Eskil

Check-in [1eed3e5dfb]
Login

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

Overview
Comment:Added a font fallback in psballon. [0ff6d72ab9]
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 1eed3e5dfb2f535515d0ebfa32235891b24cb887
User & Date: peter 2014-02-02 20:38:52.737
Context
2014-02-05
17:41
Cleaned up Pref array usage to be consistent in all code. check-in: 255f3d94ce user: peter tags: trunk
2014-02-02
20:38
Added a font fallback in psballon. [0ff6d72ab9] check-in: 1eed3e5dfb user: peter tags: trunk
2014-01-24
21:03
Bumped revision to 2.6.5 check-in: 49432bcb3a user: peter tags: trunk
Changes
Unified Diff Ignore Whitespace Patch
Changes to Changes. 



1
2
3
4
5
6
7




2014-01-24
 Bumped revision to 2.6.5

2014-01-24
 Include tclkit.ico and tclkit.inf in kit, to get info on Windows.
       
2014-01-11

>
>
>








1
2
3
4
5
6
7
8
9
10

2014-02-01
 Added a font fallback in psballon. [0ff6d72ab9]

2014-01-24
 Bumped revision to 2.6.5

2014-01-24
 Include tclkit.ico and tclkit.inf in kit, to get info on Windows.
       
2014-01-11
︙︙
Changes to eskil.vfs/lib/psballoon/psballoon.tcl.
︙︙
69
70
71
72
73
74
75




76
77
78
79
80
81
82


proc psballoon::createBalloon {w mx my} {
    variable balloon
    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]




        }
        set ww [winfo width $w]
        set ih [winfo height $w]
        set ix 0
        set iy 0
        set create 1
        set msg $balloon(msg,$w)








>
>
>
>








69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86


proc psballoon::createBalloon {w mx my} {
    variable balloon
    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]
        }
        # Fallback to something reasonable of font fails.
        if {$font eq ""} {
            set font TkDefaultFont
        }
        set ww [winfo width $w]
        set ih [winfo height $w]
        set ix 0
        set iy 0
        set create 1
        set msg $balloon(msg,$w)
︙︙