Bwidget Source Code
Check-in [0fc2861039]
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 tclconference@googlegroups.com
or submit via the online form by Sep 9.

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

Overview
Comment:button.tcl: reverted last change to use ttk widget as base. This may clash with the option data base. See ticket [845613e5590ae7cf].
Timelines: family | ancestors | descendants | both | bwidget
Files: files | file ages | folders
SHA1:0fc2861039f7f9cb95c799839770122a674a4190
User & Date: oehhar 2016-10-31 14:03:21
Context
2016-10-31
14:22
button.tcl: Reverted last change, Eric underlined to not use ttk widgets as a base due to the option data base. Did traditional fix to exclude all options known by button and not known by ttk::button. Ticket [845613e5590ae7cf] check-in: 702ef20c55 user: oehhar tags: bwidget
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
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to ChangeLog.






1
2
3
4
5
6
7





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
>
>
>
>
>







1
2
3
4
5
6
7
8
9
10
11
12
2016-10-31 Harald Oehlmann
	button.tcl: Reverted last change, Eric underlined to
	not use ttk widgets as a base due to the option
	data base. Traditional fix will follow

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

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
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}







|



<
<
<
<
<
<
|

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







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}