* ../../examples/scrollutil/ScrollableFrm*.tcl: Updated and renamed to

	  BwScrollableFrm*.tcl.

Author: csaba

examples/scrollutil/ScrollableFrmContent.tcl renamed to examples/scrollutil/BwScrollableFrmContent.tcl

@@ -54,7 +54,8 @@ grid $_sa -row $row -rowspan 6 -column 0 -sticky w -padx {10 0} -pady {5 0}
 #
 set l [ttk::label $cf.l$row -text "Release:"]
 grid $l -row $row -column 1 -sticky w -padx {10 0} -pady {5 0}
-ttk::style map TCombobox -fieldbackground {readonly white}
+ttk::style map TCombobox -fieldbackground \
+    [list {readonly focus} lightYellow readonly white]
 set cb [ttk::combobox $cf.cb -state readonly -width 14]
 grid $cb -row $row -column 2 -sticky w -padx {5 10} -pady {5 0}
 
@@ -442,6 +443,11 @@ proc configTablelist {} {
 	    }
 	}
 
+	#
+	# Make the keyboard navigation more user-friendly
+	#
+	bind $w <<TraverseIn>> [list $sf see %W]
+
 	incr row
     }
 

examples/scrollutil/ScrollableFrmDemo1.tcl renamed to examples/scrollutil/BwScrollableFrmDemo1.tcl

@@ -66,8 +66,9 @@ foreach country $countryList capital $capitalList {
 
 set capitalList [lsort $capitalList]
 
-ttk::style map TCombobox -fieldbackground {readonly white}
-set btnStyle [expr {$::ttk::currentTheme eq "aqua" ? "TButton" : "Toolbutton"}]
+ttk::style map TCombobox -fieldbackground \
+    [list {readonly focus} lightYellow readonly white]
+set btnStyle [expr {$ttk::currentTheme eq "aqua" ? "TButton" : "Toolbutton"}]
 
 set row 0
 foreach country $countryList {
@@ -79,6 +80,11 @@ foreach country $countryList {
     bind $w <<ComboboxSelected>> [list checkCapital %W $country]
     grid $w -row $row -column 1 -sticky w -padx {5 0} -pady {4 0}
 
+    #
+    # Make the keyboard navigation more user-friendly
+    #
+    bind $w <<TraverseIn>> [list $sf see %W]
+
     #
     # Adapt the handling of the mouse wheel events for the ttk::combobox widget
     #
@@ -88,6 +94,11 @@ foreach country $countryList {
 	   -command [list setCapital $w $country]]
     grid $b -row $row -column 2 -sticky w -padx 5 -pady {4 0}
 
+    #
+    # Make the keyboard navigation more user-friendly
+    #
+    bind $b <<TraverseIn>> [list $sf see %W]
+
     incr row
 }
 

examples/scrollutil/ScrollableFrmDemo2.tcl renamed to examples/scrollutil/BwScrollableFrmDemo2.tcl

@@ -37,7 +37,18 @@ if {$ttk::currentTheme eq "aqua"} {
 # Get the content frame and populate it
 #
 set cf [$sf getframe]
-source ScrollableFrmContent.tcl
+source BwScrollableFrmContent.tcl
+
+#
+# Make the keyboard navigation more user-friendly
+#
+foreach w [list $cb $sb $e $me] {
+    bind $w <<TraverseIn>> [list $sf see %W]
+}
+foreach w [list $txt $lb $tbl $tv] {
+    bind $w <<TraverseIn>> [list seeParent $sf %W]
+}
+proc seeParent {sf w} { $sf see [winfo parent $w] }
 
 #
 # Additional stuff related to the mouse wheel events: