Bwidget Source Code
Check-in [987852ad44]
Not logged in
Core Home Timeline Branches Tags Tickets Wiki Login

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.
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | bwidget
Files: files | file ages | folders
SHA1: 987852ad44f4bfc105ffa43d9ea4c7155335dbfb
User & Date: oehhar 2016-08-23 17:28:30.945
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
Side-by-Side Diff Ignore Whitespace Patch
Changes to ChangeLog. 




1
2
3
4
5
6
7

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

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 -relief -text -textvariable -underline -state]
    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 button :cmd remove $remove
    Widget::tkinclude Button $buttonwidget :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}}
    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}




︙