Description: |
From: Adrián Medraño Calvo <[email protected]>
The implementation maps options in the class-specific ${class}::sync variable,
but it is not accessed at all by any other code. Probably superseded by some
other mechanism.
---
bwidget-1.9.7/button.tcl | 2 --
bwidget-1.9.7/combobox.tcl | 2 --
bwidget-1.9.7/label.tcl | 2 --
bwidget-1.9.7/labelentry.tcl | 3 ---
bwidget-1.9.7/labelframe.tcl | 2 --
bwidget-1.9.7/widget.tcl | 15 ---------------
6 files changed, 26 deletions(-)
diff --git a/bwidget-1.9.7/button.tcl b/bwidget-1.9.7/button.tcl
index 5b8fc23..3d21d4a 100644
--- a/bwidget-1.9.7/button.tcl
+++ b/bwidget-1.9.7/button.tcl
@@ -42,8 +42,6 @@ namespace eval Button {
DynamicHelp::include Button balloon
- Widget::syncoptions Button "" :cmd {-text {} -underline {}}
-
variable _current ""
variable _pressed ""
diff --git a/bwidget-1.9.7/combobox.tcl b/bwidget-1.9.7/combobox.tcl
index 8b2cfbc..d754e06 100755
--- a/bwidget-1.9.7/combobox.tcl
+++ b/bwidget-1.9.7/combobox.tcl
@@ -61,8 +61,6 @@ namespace eval ComboBox {
}
}
- Widget::syncoptions ComboBox Entry .e {-text {}}
-
::bind BwComboBox <FocusIn> [list after idle {BWidget::refocus %W %W.e}]
::bind BwComboBox <Destroy> [list ComboBox::_destroy %W]
diff --git a/bwidget-1.9.7/label.tcl b/bwidget-1.9.7/label.tcl
index b73db1b..cf5fc0c 100644
--- a/bwidget-1.9.7/label.tcl
+++ b/bwidget-1.9.7/label.tcl
@@ -48,8 +48,6 @@ namespace eval Label {
COLOR {move {}}
}
- Widget::syncoptions Label "" .l {-text {} -underline {}}
-
bind BwLabel <FocusIn> [list Label::setfocus %W]
bind BwLabel <Destroy> [list Label::_destroy %W]
}
diff --git a/bwidget-1.9.7/labelentry.tcl b/bwidget-1.9.7/labelentry.tcl
index f0893a4..f63599c 100644
--- a/bwidget-1.9.7/labelentry.tcl
+++ b/bwidget-1.9.7/labelentry.tcl
@@ -24,9 +24,6 @@ namespace eval LabelEntry {
Widget::addmap LabelEntry "" :cmd {-background {}}
- Widget::syncoptions LabelEntry Entry .e {-text {}}
- Widget::syncoptions LabelEntry LabelFrame .labf {-label -text -underline {}}
-
::bind BwLabelEntry <FocusIn> [list focus %W.labf]
::bind BwLabelEntry <Destroy> [list LabelEntry::_destroy %W]
}
diff --git a/bwidget-1.9.7/labelframe.tcl b/bwidget-1.9.7/labelframe.tcl
index 6f51930..3c81623 100644
--- a/bwidget-1.9.7/labelframe.tcl
+++ b/bwidget-1.9.7/labelframe.tcl
@@ -33,8 +33,6 @@ namespace eval LabelFrame {
Widget::addmap LabelFrame "" :cmd {-background {}}
Widget::addmap LabelFrame "" .f {-background {} -relief {} -borderwidth {}}
- Widget::syncoptions LabelFrame Label .l {-text {} -underline {}}
-
bind BwLabelFrame <FocusIn> [list Label::setfocus %W.l]
bind BwLabelFrame <Destroy> [list LabelFrame::_destroy %W]
}
diff --git a/bwidget-1.9.7/widget.tcl b/bwidget-1.9.7/widget.tcl
index 348c5f9..2aee154 100755
--- a/bwidget-1.9.7/widget.tcl
+++ b/bwidget-1.9.7/widget.tcl
@@ -458,21 +458,6 @@ proc Widget::addmap { class subclass subpath options } {
# ----------------------------------------------------------------------------
-# Command Widget::syncoptions
-# ----------------------------------------------------------------------------
-proc Widget::syncoptions { class subclass subpath options } {
- upvar 0 ${class}::sync classync
-
- foreach {option realopt} $options {
- if { ![string length $realopt] } {
- set realopt $option
- }
- set classync($option) [list $subpath $subclass $realopt]
- }
-}
-
-
-# ----------------------------------------------------------------------------
# Command Widget::init
# ----------------------------------------------------------------------------
proc Widget::init { class path options } {
--
1.9.2
|