Bwidget Source Code
Check-in [c66dab3edb]
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:minor theme related code change
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: c66dab3edb229bbfa71bb4ac8b1794b94d2927f9
User & Date: oberdorfer 2009-09-07 20:11:39
Context
2009-09-08
19:55
ttk style related code change check-in: 3193692912 user: oberdorfer tags: trunk
2009-09-07
20:11
minor theme related code change check-in: c66dab3edb user: oberdorfer tags: trunk
2009-09-06
21:49
theme related mod's done check-in: 8ca4af4990 user: oberdorfer tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to button.tcl.

1
2
3
4
5
6
7
8
9
10
11
..
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
# ----------------------------------------------------------------------------
#  button.tcl
#  This file is part of Unifix BWidget Toolkit
#  $Id: button.tcl,v 1.11 2009/09/06 21:03:27 oberdorfer Exp $
# ----------------------------------------------------------------------------
#  Index of commands:
#   Public commands
#     - Button::create
#     - Button::configure
#     - Button::cget
#     - Button::invoke
................................................................................

    Widget::define Button button DynamicHelp

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

    if { [BWidget::using ttk] } {
        lappend remove -anchor
    }

    Widget::tkinclude Button button :cmd remove $remove

    Widget::declare Button {
        {-name            String "" 0}
        {-text            String "" 0}
        {-textvariable    String "" 0}


|







 







<
|
<
<







1
2
3
4
5
6
7
8
9
10
11
..
22
23
24
25
26
27
28

29


30
31
32
33
34
35
36
# ----------------------------------------------------------------------------
#  button.tcl
#  This file is part of Unifix BWidget Toolkit
#  $Id: button.tcl,v 1.12 2009/09/07 20:11:39 oberdorfer Exp $
# ----------------------------------------------------------------------------
#  Index of commands:
#   Public commands
#     - Button::create
#     - Button::configure
#     - Button::cget
#     - Button::invoke
................................................................................

    Widget::define Button button DynamicHelp

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

    # if { [BWidget::using ttk] } { lappend remove -borderwidth }



    Widget::tkinclude Button button :cmd remove $remove

    Widget::declare Button {
        {-name            String "" 0}
        {-text            String "" 0}
        {-textvariable    String "" 0}