Bwidget Source Code
Check-in [89e6f27a6a]
Not logged in
Bounty program for improvements to Tcl and certain Tcl packages.
Tcl 2019 Conference, Houston/TX, US, Nov 4-8
Send your abstracts to [email protected]
or submit via the online form by Sep 9.

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

Overview
Comment:scrollframe.tcl: Make -constrainedwidth 1 and -constrainedheight 1 work together. Patch by Simon Bachmann. Ticket [2fa44401d5]
Timelines: family | ancestors | descendants | both | bwidget
Files: files | file ages | folders
SHA1: 89e6f27a6ae38d24b15f5720a790444f7ea05cde
User & Date: oehhar 2013-12-12 18:20:53
References
2014-01-21
13:12 Ticket [2fa44401d5] ScrolledFrame incorrect sizes when both -constrainedwidth and -constrainedheight are true status still Closed with 5 other changes artifact: bea8f0842f user: oehhar
Context
2014-05-21
07:03
Don't invoke unqualified upvar in callers scope. Ticket [046fa04231] check-in: 3b0b4ecf4f user: oehhar tags: bwidget
2013-12-12
18:20
scrollframe.tcl: Make -constrainedwidth 1 and -constrainedheight 1 work together. Patch by Simon Bachmann. Ticket [2fa44401d5] check-in: 89e6f27a6a user: oehhar tags: bwidget
2013-10-17
12:55
Remove temporary widget[6cd041bcc1] check-in: 2ff16995c7 user: oehhar tags: bwidget
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to ChangeLog.







1
2
3
4
5
6
7
8





2013-10-17 Harald Oehlmann <[email protected]>
	widget.tcl: Remove temporary widget.
	By Wolfgang S. Kechel. Ticket [6cd041bcc1]

2013-10-15 Harald Oehlmann <[email protected]>
	combobox.tcl: Themed ComboBox color specifications
	are honored. By Wolfgang S. Kechel. Ticket [6c6704e40f]

>
>
>
>
>
>
|







1
2
3
4
5
6
7
8
9
10
11
12
13
14
2013-12-13 Harald Oehlmann <[email protected]>

	scrollframe.tcl: Make -constrainedwidth 1 and
	-constrainedheight 1 work together.
	Patch by Simon Bachmann. Ticket [2fa44401d5]

	2013-10-17 Harald Oehlmann <[email protected]>
	widget.tcl: Remove temporary widget.
	By Wolfgang S. Kechel. Ticket [6cd041bcc1]

2013-10-15 Harald Oehlmann <[email protected]>
	combobox.tcl: Themed ComboBox color specifications
	are honored. By Wolfgang S. Kechel. Ticket [6c6704e40f]

Changes to scrollframe.tcl.

112
113
114
115
116
117
118


119
120
121
122
123
124
125
126
127


128
129
130
131
132
133
134
135
136
137
138
139
proc ScrollableFrame::configure { path args } {
    set res [Widget::configure $path $args]
    set upd 0

    set modcw [Widget::hasChanged $path -constrainedwidth cw]
    set modw  [Widget::hasChanged $path -areawidth w]
    if { $modcw || (!$cw && $modw) } {


        if { $cw } {
            set w [winfo width $path]
        }
        set upd 1
    }

    set modch [Widget::hasChanged $path -constrainedheight ch]
    set modh  [Widget::hasChanged $path -areaheight h]
    if { $modch || (!$ch && $modh) } {


        if { $ch } {
            set h [winfo height $path]
        }
        set upd 1
    }

    if { $upd } {
        $path:cmd itemconfigure win -width $w -height $h
    }
    return $res
}







>
>
|
|
|
<
<




>
>
|
|
|
<
<







112
113
114
115
116
117
118
119
120
121
122
123


124
125
126
127
128
129
130
131
132


133
134
135
136
137
138
139
proc ScrollableFrame::configure { path args } {
    set res [Widget::configure $path $args]
    set upd 0

    set modcw [Widget::hasChanged $path -constrainedwidth cw]
    set modw  [Widget::hasChanged $path -areawidth w]
    if { $modcw || (!$cw && $modw) } {
        set upd 1
    }
    if { $cw } {
        set w [winfo width $path]
    }



    set modch [Widget::hasChanged $path -constrainedheight ch]
    set modh  [Widget::hasChanged $path -areaheight h]
    if { $modch || (!$ch && $modh) } {
        set upd 1
    }
    if { $ch } {
        set h [winfo height $path]
    }



    if { $upd } {
        $path:cmd itemconfigure win -width $w -height $h
    }
    return $res
}