Eskil

Check-in [2809cdf7cc]
Login

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

Overview
Comment:Put height on the canvas to allow window to be small.
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 2809cdf7cceadb2662498aefe234e119562578bc
User & Date: peter 2008-11-06 06:52:38.000
Context
2008-11-06
06:57
Added Capture for Windows. check-in: 992b86689a user: peter tags: trunk
06:52
Put height on the canvas to allow window to be small. check-in: 2809cdf7cc user: peter tags: trunk
2008-09-23
20:32
Corrected dependency check-in: 083132e5ee user: peter tags: trunk
Changes
Unified Diff Ignore Whitespace Patch
Changes to src/map.tcl.
︙︙
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42

    set w $top.c_map
    if {$Pref(wideMap)} {
        set width 20
    } else {
        set width 6
    }
    canvas $w -width $width -borderwidth 0 -selectborderwidth 0 \
            -highlightthickness 0
    set map [image create photo map$top]

    $w create image 0 0 -anchor nw -image $map
    bind $w <Destroy>   [list image delete $map]
    bind $w <Configure> [list drawMap $top %h]
    bind $w <Button-2>  [list ThumbMap $top %y]









|








28
29
30
31
32
33
34
35
36
37
38
39
40
41
42

    set w $top.c_map
    if {$Pref(wideMap)} {
        set width 20
    } else {
        set width 6
    }
    canvas $w -width $width -borderwidth 0 -selectborderwidth 0 \
            -highlightthickness 0 -height 10
    set map [image create photo map$top]

    $w create image 0 0 -anchor nw -image $map
    bind $w <Destroy>   [list image delete $map]
    bind $w <Configure> [list drawMap $top %h]
    bind $w <Button-2>  [list ThumbMap $top %y]
︙︙