Bwidget Source Code
Check-in [987852ad44]
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: configure option of a ::Button gave error in themed mode. Ticket [845613e5590ae7cf]. Report by Adrian.
Timelines: family | ancestors | descendants | both | bwidget
Files: files | file ages | folders
SHA1: 987852ad44f4bfc105ffa43d9ea4c7155335dbfb
User & Date: oehhar 2016-08-23 17:28:30
References
2016-08-23
17:30 Ticket [845613e559] unknown option -activebackground when invoking Button::configure with Ttk status still Open with 4 other changes artifact: 2cc0f54b92 user: oehhar
Context
2016-10-31
14:03
button.tcl: reverted last change to use ttk widget as base. This may clash with the option data base. See ticket [845613e5590ae7cf]. check-in: 0fc2861039 user: oehhar tags: bwidget
2016-08-23
17:28
configure option of a ::Button gave error in themed mode. Ticket [845613e5590ae7cf]. Report by Adrian. check-in: 987852ad44 user: oehhar tags: bwidget
2016-07-21
13:37
util.c: BWidget::place moved away from visible screens if the current window is on a virtual screen outside of the main screen (Windows multi-screen configuration) [5919a0ec2d] check-in: 85ca650f34 user: oehhar tags: bwidget
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to ChangeLog.





1
2
3
4
5
6
7



2016-07-21 Harald Oehlmann
	util.tcl: BWidget::place moved away from visible screens
	if the current window is on a virtual screen outside of
	the main screen (Windows multi-screen configuration).
	Ticket [5919a0ec2d]

2016-07-15 Adrian Madrano Calvo
>
>
>
>







1
2
3
4
5
6
7
8
9
10
11
2016-08-23 Harald Oehlmann
	button.tcl: configure option of a ::Button gave error in
	themed mode. Ticket [845613e5590ae7cf]. Report by Adrian.

2016-07-21 Harald Oehlmann
	util.tcl: BWidget::place moved away from visible screens
	if the current window is on a virtual screen outside of
	the main screen (Windows multi-screen configuration).
	Ticket [5919a0ec2d]

2016-07-15 Adrian Madrano Calvo

Changes to button.tcl.

16
17
18
19
20
21
22
23
24
25
26






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

42
43
44
45
46
47
48
#     - Button::_release
#     - Button::_repeat
# ----------------------------------------------------------------------------

namespace eval Button {
    Widget::define Button button DynamicHelp

    set remove [list -command -relief -text -textvariable -underline -state]
    if {[info tclversion] > 8.3} {
	lappend remove -repeatdelay -repeatinterval
    }






    Widget::tkinclude Button button :cmd remove $remove

    Widget::declare Button {
        {-name            String "" 0}
        {-text            String "" 0}
        {-textvariable    String "" 0}
        {-underline       Int    -1 0 "%d >= -1"}
        {-armcommand      String "" 0}
        {-disarmcommand   String "" 0}
        {-command         String "" 0}
        {-state           TkResource "" 0 button}
        {-repeatdelay     Int    0  0 "%d >= 0"}
        {-repeatinterval  Int    0  0 "%d >= 0"}
        {-relief          Enum   raised  0 {raised sunken flat ridge solid groove link}}
    }


    DynamicHelp::include Button balloon

    variable _current ""
    variable _pressed ""

    bind BwButton <Enter>           {Button::_enter %W}






|



>
>
>
>
>
>
|

|
|
|
|
|
|
|
|
|
|
|
|
<
>







16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46

47
48
49
50
51
52
53
54
#     - Button::_release
#     - Button::_repeat
# ----------------------------------------------------------------------------

namespace eval Button {
    Widget::define Button button DynamicHelp

    set remove [list -command -text -textvariable -underline -state]
    if {[info tclversion] > 8.3} {
	lappend remove -repeatdelay -repeatinterval
    }
    if {$::Widget::_theme} {
        set buttonwidget ::ttk::button
    } else {
        lappend remove -relief
        set buttonwidget button
    }
    Widget::tkinclude Button $buttonwidget :cmd remove $remove

    Widget::declare Button [list\
        {-name            String "" 0}\
        {-text            String "" 0}\
        {-textvariable    String "" 0}\
        {-underline       Int    -1 0 "%d >= -1"}\
        {-armcommand      String "" 0}\
        {-disarmcommand   String "" 0}\
        {-command         String "" 0}\
        [list -state           TkResource "" 0 $buttonwidget]\
        {-repeatdelay     Int    0  0 "%d >= 0"}\
        {-repeatinterval  Int    0  0 "%d >= 0"}\
        {-relief          Enum   raised  0 {raised sunken flat ridge solid groove link}}\

        ]

    DynamicHelp::include Button balloon

    variable _current ""
    variable _pressed ""

    bind BwButton <Enter>           {Button::_enter %W}