Eskil

Check-in [cf1823be38]
Login

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

Overview
Comment:Adjust zoom popup for corner case. [0903a2b6b8]
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA3-256:cf1823be38a0d2a7aeb90452b2ea494d53710b5ae822e6025c95fef633518a17
User & Date: peter 2019-03-12 22:16:34
Context
2019-03-12
22:30
Auto open prefix group dialog. [2e08dd0200] Leaf check-in: f0aac8ede2 user: peter tags: trunk
22:16
Adjust zoom popup for corner case. [0903a2b6b8] check-in: cf1823be38 user: peter tags: trunk
2019-02-10
23:19
Polished print dialog check-in: d21f22ea65 user: peter tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to src/eskil.tcl.

2936
2937
2938
2939
2940
2941
2942

2943
2944
2945
2946
2947
2948
2949
2950
            if {$wx < 0} {set wx 0}
        }
    }

    # Does the balloon fit within the screen?
    if {$rWidth > [winfo screenwidth $top]} {
        # How many rows does it take?

        set rows [expr {ceil(double($rWidth) / [winfo screenwidth $top])}]
        # Add rows and fill screen width
        $top.balloon.t1 configure -height $rows
        $top.balloon.t2 configure -height $rows
        # Let geometry requests propagate
        update idletasks
        wm geometry $top.balloon \
                [winfo screenwidth $top]x[winfo reqheight $top.balloon]







>
|







2936
2937
2938
2939
2940
2941
2942
2943
2944
2945
2946
2947
2948
2949
2950
2951
            if {$wx < 0} {set wx 0}
        }
    }

    # Does the balloon fit within the screen?
    if {$rWidth > [winfo screenwidth $top]} {
        # How many rows does it take?
        # Adjust ScreenWidth a bit to accomodate for padding.
        set rows [expr {ceil(double($rWidth) / ([winfo screenwidth $top]-10))}]
        # Add rows and fill screen width
        $top.balloon.t1 configure -height $rows
        $top.balloon.t2 configure -height $rows
        # Let geometry requests propagate
        update idletasks
        wm geometry $top.balloon \
                [winfo screenwidth $top]x[winfo reqheight $top.balloon]