Bwidget Source Code
Check-in [f64f8938dc]
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:*** bug fixed - related to ttk behaviour # without this function, an error occures # when operating under tile control proc Button::instate { path args } { return [expr { [$path cget -state] == "normal" ? 1 : 0}] }
Timelines: family | ancestors | descendants | both | trunk | tcllib-1-12
Files: files | file ages | folders
SHA1: f64f8938dc0681397b56e8eaaaffabde4ed14ed5
User & Date: oberdorfer 2009-11-01 20:46:50
Context
2010-05-12
08:22
* listbox.tcl(ListBox::_configureSelectmode) Drag modifies multiple selection [Bug 2995969] reported by Robert Karen. Bound events on ButtonRelease-1 instead Button-1 for multiple selections to avoid bug. * listbox.tcl(ListBox::_drag_and_drop) The default drag and drop routine only handled single drag and drop. It was extended to handle also drag and drop of multiple entries. check-in: 672bf13068 user: oehhar tags: trunk
2009-11-01
20:46
*** bug fixed - related to ttk behaviour # without this function, an error occures # when operating under tile control proc Button::instate { path args } { return [expr { [$path cget -state] == "normal" ? 1 : 0}] } check-in: f64f8938dc user: oberdorfer tags: trunk, tcllib-1-12
20:20
*** code consolidation + refracturing related to BWSlim.Toolbutton style, attempt to improve Button behavior when ttk is used (still not perfect thought) check-in: e3d15ada17 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
...
236
237
238
239
240
241
242







243
244
245
246
247
248
249
# ----------------------------------------------------------------------------
#  button.tcl
#  This file is part of Unifix BWidget Toolkit
#  $Id: button.tcl,v 1.15 2009/11/01 20:20:50 oberdorfer Exp $
# ----------------------------------------------------------------------------
#  Index of commands:
#   Public commands
#     - Button::create
#     - Button::configure
#     - Button::cget
#     - Button::invoke
................................................................................
        $path:cmd configure -text $text -underline $under -textvariable $var
    }
    DynamicHelp::sethelp $path $path

    set res
}









# ----------------------------------------------------------------------------
#  Command Button::cget
# ----------------------------------------------------------------------------
proc Button::cget { path option } {
    Widget::cget $path $option
}


|







 







>
>
>
>
>
>
>







1
2
3
4
5
6
7
8
9
10
11
...
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
# ----------------------------------------------------------------------------
#  button.tcl
#  This file is part of Unifix BWidget Toolkit
#  $Id: button.tcl,v 1.16 2009/11/01 20:46:50 oberdorfer Exp $
# ----------------------------------------------------------------------------
#  Index of commands:
#   Public commands
#     - Button::create
#     - Button::configure
#     - Button::cget
#     - Button::invoke
................................................................................
        $path:cmd configure -text $text -underline $under -textvariable $var
    }
    DynamicHelp::sethelp $path $path

    set res
}


# without this dummy function, an error occures
# when operating under tile control
proc Button::instate { path args } {
  return [expr { [$path cget -state] == "normal" ? 1 : 0}]
}


# ----------------------------------------------------------------------------
#  Command Button::cget
# ----------------------------------------------------------------------------
proc Button::cget { path option } {
    Widget::cget $path $option
}