Bwidget Source Code
Check-in [b765b56d04]
Not logged in

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

Overview
Comment:8.4 compatibility was broken due to the use of min/max math functions. Ticket [0aef856302]
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | bwidget
Files: files | file ages | folders
SHA1: b765b56d04417a1e184b87391aa97cc9d51e7b13
User & Date: oehhar 2015-12-08 18:18:31.432
References
2015-12-08
18:31 Closed ticket [0aef856302]: Tcl 8.5 math functions prevent backward compatibility plus 8 other changes artifact: e09cc4b700 user: oehhar
Context
2016-01-15
07:54
Init tree cross and line colors not by black to be visible on black background color themes. Ticket [ed4c1dab46] check-in: 04ba914fce user: oehhar tags: bwidget
2016-01-07
18:01
Init tree cross and line colors not by black to be visible on black background color themes. Ticket [ed4c1dab46] check-in: 1b5b347448 user: oehhar tags: bug-ed4c1dab46
2015-12-08
18:18
8.4 compatibility was broken due to the use of min/max math functions. Ticket [0aef856302] check-in: b765b56d04 user: oehhar tags: bwidget
2015-11-04
09:51
Place the bubblehelp correctly within the virtual screen [b64e03e548]. check-in: 0371bea522 user: oehhar tags: bwidget
Changes
Unified Diff Ignore Whitespace Patch
Changes to ChangeLog.




1
2
3
4
5
6
7
8
9




2015-11-04 Harald Oehlmann <[email protected]>
	dynhelp.tcl: Drop the asumption that all windows
	screen are the same size (of fix dated 2009-06-26)
	and use the virtual screen information to place the bubble
	help. Ticket [b64e03e548].

2015-10-18 Harald Oehlmann <[email protected]>

	**** BWidget 1.9.9 tagged ****
>
>
>
>

|







1
2
3
4
5
6
7
8
9
10
11
12
13
2015-12-08 Harald Oehlmann <[email protected]>
	listbox.tcl: 8.4 compatibility was broken due to the use of
	min/max math functions. Ticket [0aef856302]

2015-11-04 Harald Oehlmann <[email protected]>
	dynhelp.tcl: Drop the assumption that all windows
	screen are the same size (of fix dated 2009-06-26)
	and use the virtual screen information to place the bubble
	help. Ticket [b64e03e548].

2015-10-18 Harald Oehlmann <[email protected]>

	**** BWidget 1.9.9 tagged ****
Changes to listbox.tcl.
1130
1131
1132
1133
1134
1135
1136
1137
1138
1139
1140
1141
1142
1143
1144
1145
1146
    }
    foreach item $data(selitems) {
        set bbox [$path.c bbox "n:$item"]
        if { [llength $bbox] } {
            set imgbox [$path.c bbox i:$item]
            lassign $bbox x0 y0 x1 y1;
            if {[string compare "" $imgbox]} {
                # image may exist and may be heigher than text!
                lassign $imgbox ix0 iy0 ix1 iy1;
                set bbox [list $x0 [expr {min($iy0,$y0)}] $x1 [expr {max($iy1,$y1)}]];
            } else {
                set bbox [list $x0 [lindex $bbox 1] $x1 [lindex $bbox 3]]
            }
	    if { $selfill && !$multi } {
		# With -selectfill, make box occupy full width of widget
		set bbox [list 0 [lindex $bbox 1] $width [lindex $bbox 3]]
	    }







|

|







1130
1131
1132
1133
1134
1135
1136
1137
1138
1139
1140
1141
1142
1143
1144
1145
1146
    }
    foreach item $data(selitems) {
        set bbox [$path.c bbox "n:$item"]
        if { [llength $bbox] } {
            set imgbox [$path.c bbox i:$item]
            lassign $bbox x0 y0 x1 y1;
            if {[string compare "" $imgbox]} {
                # image may exist and may be higher than text!
                lassign $imgbox ix0 iy0 ix1 iy1;
                set bbox [list $x0 [expr {$iy0<$y0?$iy0:$y0}] $x1 [expr {$iy1>$y1?$iy1:$y1}]];
            } else {
                set bbox [list $x0 [lindex $bbox 1] $x1 [lindex $bbox 3]]
            }
	    if { $selfill && !$multi } {
		# With -selectfill, make box occupy full width of widget
		set bbox [list 0 [lindex $bbox 1] $width [lindex $bbox 3]]
	    }