Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Tsw: Improvements in the bindings and the demo script EditingOpts.tcl. |
|---|---|
| Downloads: | Tarball | ZIP archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA3-256: |
f05c4c76e53caf159b1099fb153cb0cb |
| User & Date: | csaba 2025-03-11 20:02:19.770 |
Context
|
2025-03-17
| ||
| 13:54 | Tsw: Added the "-offvalue", "-onvalue", and "-variable" toggleswitch widget options. check-in: 6f53fcb652 user: csaba tags: trunk | |
|
2025-03-11
| ||
| 20:02 | Tsw: Improvements in the bindings and the demo script EditingOpts.tcl. check-in: f05c4c76e5 user: csaba tags: trunk | |
|
2025-03-10
| ||
| 19:40 | Tsw: Minor corrections in the documentation. check-in: b9b8f38616 user: csaba tags: trunk | |
Changes
Changes to examples/tsw/EditingOpts.tcl.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 | #! /usr/bin/env tclsh #============================================================================== # Demonstrates the interactive tablelist cell editing with the aid of Ttk # widgets and the configuration of boolean editing options using toggleswitch # widgets. # # Copyright (c) 2005-2025 Csaba Nemethi (E-mail: [email protected]) #============================================================================== package require Tk package require tsw package require tablelist_tile wm title . "Serial Line Configuration" # # Add some entries to the Tk option database # set dir [file dirname [info script]] | > > > > > > > > > | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 | #! /usr/bin/env tclsh #============================================================================== # Demonstrates the interactive tablelist cell editing with the aid of Ttk # widgets and the configuration of boolean editing options using toggleswitch # widgets. # # Copyright (c) 2005-2025 Csaba Nemethi (E-mail: [email protected]) #============================================================================== package require Tk package require tsw package require tablelist_tile if {[tk windowingsystem] eq "x11" && ($tk_version < 8.7 || [package vcompare $::tk_patchLevel "8.7a5"] <= 0)} { # # Patch the default theme's styles TCheckbutton and TRadiobutton # package require themepatch themepatch::patch default } wm title . "Serial Line Configuration" # # Add some entries to the Tk option database # set dir [file dirname [info script]] |
| ︙ | ︙ |
Changes to modules/tsw/scripts/toggleswitch.tcl.
| ︙ | ︙ | |||
515 516 517 518 519 520 521 |
set data(moved) 0
}
#------------------------------------------------------------------------------
# tsw::onB1Motion
#------------------------------------------------------------------------------
proc tsw::onB1Motion {w x y} {
| | | 515 516 517 518 519 520 521 522 523 524 525 526 527 528 529 |
set data(moved) 0
}
#------------------------------------------------------------------------------
# tsw::onB1Motion
#------------------------------------------------------------------------------
proc tsw::onB1Motion {w x y} {
if {[$w instate disabled] || [$w instate !pressed]} {
return ""
}
variable theme
variable stateArr
if {$theme eq "aqua"} {
|
| ︙ | ︙ | |||
560 561 562 563 564 565 566 |
}
}
#------------------------------------------------------------------------------
# tsw::onButtonRel1
#------------------------------------------------------------------------------
proc tsw::onButtonRel1 w {
| | | 560 561 562 563 564 565 566 567 568 569 570 571 572 573 574 |
}
}
#------------------------------------------------------------------------------
# tsw::onButtonRel1
#------------------------------------------------------------------------------
proc tsw::onButtonRel1 w {
if {[$w instate disabled] || [$w instate !pressed]} {
return ""
}
variable stateArr
set win [winfo parent $w]
if {$stateArr(dragging)} {
|
| ︙ | ︙ |