| Ticket Hash: | 0ff6d72ab9f6f97f57e117a56e3e62ad11e30a53 | ||
| Title: | psballon generate Tcl error | ||
| Status: | Closed | Type: | Code_Defect |
| Severity: | Important | Priority: | Immediate |
| Subsystem: | Diff_Display | Resolution: | Fixed |
| Last Modified: |
2014-02-02 20:40:03 11.29 years ago |
Created: |
2014-01-24 20:44:06 11.31 years ago |
| Version Found In: | 2.6.4 | ||
| User Comments: | ||||
anonymous added on 2014-01-24 20:44:06:
On Windows, when I hover over the Rev label I get an Tcl error that
[font measure $font $msg]
failed because of $font being empty. And it true you can get an empty font if the default font ist used.
Here is my patch for this
--- psballoon.tcl 2014-01-11 21:19:28.000000000 +0100
+++ psballoon-x.tcl 2014-01-24 21:36:51.933322189 +0100
@@ -74,6 +74,9 @@
if {[catch {set font [$w cget -font]}]} {
set font [ttk::style lookup [winfo class $w] -font]
}
+ if { $font eq "" } {
+ set font TkDefaultFont
+ }
set ww [winfo width $w]
set ih [winfo height $w]
set ix 0
peter added on 2014-02-02 20:40:03: Fixed in code | ||||