Merge 9.0

Author: jan.nijtmans

library/bgerror.tcl

@@ -181,7 +181,7 @@ proc ::tk::dialog::error::bgerror {err {flag 1}} {
     pack $dlg.top -side top -fill both -expand 1
 
     set W [ttk::frame $dlg.top.info]
-    text $W.text -setgrid false -height 10 -wrap char \
+    text $W.text -setgrid 0 -height 10 -wrap char \
 	-yscrollcommand [list $W.scroll set]
     if {$windowingsystem ne "aqua"} {
 	$W.text configure -width 40

library/console.tcl

@@ -145,7 +145,7 @@ proc ::tk::ConsoleInit {} {
     }
     ::ttk::frame .consoleframe -style ConsoleFrame
 
-    set con [text .console -yscrollcommand [list .sb set] -setgrid true \
+    set con [text .console -yscrollcommand [list .sb set] -setgrid 1 \
 		 -borderwidth 0 -highlightthickness 0 -font TkConsoleFont]
     if {[tk windowingsystem] eq "aqua"} {
 	scrollbar .sb -command [list $con yview]

library/demos/bind.tcl

@@ -20,7 +20,7 @@ positionWindow $w
 set btns [addSeeDismiss $w.buttons $w]
 pack $btns -side bottom -fill x
 
-text $w.text -yscrollcommand "$w.scroll set" -setgrid true \
+text $w.text -yscrollcommand "$w.scroll set" -setgrid 1 \
 	-width 60 -height 24 -font $font -wrap word
 ttk::scrollbar $w.scroll -command "$w.text yview"
 pack $w.scroll -side right -fill y

library/demos/browse

@@ -15,7 +15,7 @@ package require tk
 scrollbar .scroll -command ".list yview"
 pack .scroll -side right -fill y
 listbox .list -yscroll ".scroll set" -relief sunken -width 20 -height 20 \
-	-setgrid yes
+	-setgrid 1
 pack .list -side left -fill both -expand yes
 wm minsize . 1 1
 

library/demos/rmt

@@ -42,7 +42,7 @@ menu .menu.file.apps  -postcommand fillAppsMenu
 
 # Create text window and scrollbar.
 
-text .t -yscrollcommand ".s set" -setgrid true
+text .t -yscrollcommand ".s set" -setgrid 1
 scrollbar .s -command ".t yview"
 grid .t .s -sticky nsew
 grid rowconfigure . 0 -weight 1

library/demos/search.tcl

@@ -108,7 +108,7 @@ pack $w.string.label $w.string.entry -side left
 pack $w.string.button -side left -pady 3p -padx 7.5p
 bind $w.string.entry <Return> "textSearch $w.text \$searchString search"
 
-text $w.text -yscrollcommand "$w.scroll set" -setgrid true
+text $w.text -yscrollcommand "$w.scroll set" -setgrid 1
 ttk::scrollbar $w.scroll -command "$w.text yview"
 pack $w.file $w.string -side top -fill x
 pack $w.scroll -side right -fill y

library/demos/style.tcl

@@ -24,7 +24,7 @@ pack $btns -side bottom -fill x
 
 set family Courier
 
-text $w.text -yscrollcommand "$w.scroll set" -setgrid true \
+text $w.text -yscrollcommand "$w.scroll set" -setgrid 1 \
 	-width 70 -height 32 -wrap word -font "$family 12"
 ttk::scrollbar $w.scroll -command "$w.text yview"
 pack $w.scroll -side right -fill y