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: |
0fc2861039f7f9cb95c799839770122a |
| 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
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}
|