3 files changed, 11 insertions, 11 deletions
diff --git a/library/ttk/combobox.tcl b/library/ttk/combobox.tcl
index 649cbd0..d593eb1 100644
--- a/library/ttk/combobox.tcl
+++ b/library/ttk/combobox.tcl
@@ -57,10 +57,10 @@ bind TCombobox <Shift-MouseWheel> {
     # Ignore the event
 }
 bind TCombobox <TouchpadScroll> {
-    lassign [tk::PreciseScrollDeltas %D] tk::Priv::deltaX tk::Priv::deltaY
+    lassign [tk::PreciseScrollDeltas %D] tk::Priv(deltaX) tk::Priv(deltaY)
     # TouchpadScroll events fire about 60 times per second.
-    if {$tk::Priv::deltaY != 0 && %# %% 15 == 0} {
-	ttk::combobox::Scroll %W [expr {$tk::Priv::deltaY > 0 ? -1 : 1}]
+    if {$tk::Priv(deltaY) != 0 && %# %% 15 == 0} {
+	ttk::combobox::Scroll %W [expr {$tk::Priv(deltaY) > 0 ? -1 : 1}]
     }
 }
 bind TCombobox <<TraverseIn>> 		{ ttk::combobox::TraverseIn %W }
diff --git a/library/ttk/spinbox.tcl b/library/ttk/spinbox.tcl
index c865795..56629bb 100644
--- a/library/ttk/spinbox.tcl
+++ b/library/ttk/spinbox.tcl
@@ -28,10 +28,10 @@ bind TSpinbox <Shift-MouseWheel> {
     # Ignore the event
 }
 bind TSpinbox <TouchpadScroll> {
-    lassign [tk::PreciseScrollDeltas %D] tk::Priv::deltaX tk::Priv::deltaY
+    lassign [tk::PreciseScrollDeltas %D] tk::Priv(deltaX) tk::Priv(deltaY)
     # TouchpadScroll events fire about 60 times per second.
-    if {$tk::Priv::deltaY != 0 && %# %% 12 == 0} {
-	ttk::spinbox::Spin %W [expr {$tk::Priv::deltaY > 0 ? -1 : 1}]
+    if {$tk::Priv(deltaY) != 0 && %# %% 12 == 0} {
+	ttk::spinbox::Spin %W [expr {$tk::Priv(deltaY) > 0 ? -1 : 1}]
     }
 }
 
diff --git a/library/ttk/utils.tcl b/library/ttk/utils.tcl
index 4b49ae0..ea0082f 100644
--- a/library/ttk/utils.tcl
+++ b/library/ttk/utils.tcl
@@ -307,12 +307,12 @@ bind TtkScrollable <TouchpadScroll> {
     if {%# %% 5 != 0} {
         return
     }
-    lassign [tk::PreciseScrollDeltas %D] tk::Priv::deltaX tk::Priv::deltaY
-    if {$tk::Priv::deltaX != 0} {
- 	%W xview scroll [expr {-$tk::Priv::deltaX}] units
+    lassign [tk::PreciseScrollDeltas %D] tk::Priv(deltaX) tk::Priv(deltaY)
+    if {$tk::Priv(deltaX) != 0} {
+ 	%W xview scroll [expr {-$tk::Priv(deltaX)}] units
     }
-    if {$tk::Priv::deltaY != 0} {
-	%W yview scroll [expr {-$tk::Priv::deltaY}] units
+    if {$tk::Priv(deltaY) != 0} {
+	%W yview scroll [expr {-$tk::Priv(deltaY)}] units
     }
 }
 #*EOF*