[PATCH] gitk: use user-configured background in view definition dialog

Have the text fields in the view definition dialog (View->New view...)
use the background color as configured through the preferences, instead
of hard-coded 'white'.

This was suggested by Paul Wise through http://bugs.debian.org/457124

Signed-off-by: Gerrit Pape <pape@smarden.org>
Signed-off-by: Paul Mackerras <paulus@samba.org>

diff --git a/gitk b/gitk
index 4a923afdf3198ef0086c30f1ae84fb6bdd606f5d..801a5a9d86d78b77811ef27b23cb37926c69f463 100755 (executable)
--- a/gitk
+++ b/gitk
@@ -1875,7 +1875,7 @@ proc editview {} {
 }
 
 proc vieweditor {top n title} {
 }
 
 proc vieweditor {top n title} {

-    global newviewname newviewperm viewfiles
+    global newviewname newviewperm viewfiles bgcolor

 
     toplevel $top
     wm title $top $title
 
     toplevel $top
     wm title $top $title


@@ -1889,12 +1889,12 @@ proc vieweditor {top n title} {
        -text [mc "Commits to include (arguments to git rev-list):"]
     grid $top.al - -sticky w -pady 5
     entry $top.args -width 50 -textvariable newviewargs($n) \
        -text [mc "Commits to include (arguments to git rev-list):"]
     grid $top.al - -sticky w -pady 5
     entry $top.args -width 50 -textvariable newviewargs($n) \

-       -background white
+       -background $bgcolor

     grid $top.args - -sticky ew -padx 5
     message $top.l -aspect 1000 \
        -text [mc "Enter files and directories to include, one per line:"]
     grid $top.l - -sticky w
     grid $top.args - -sticky ew -padx 5
     message $top.l -aspect 1000 \
        -text [mc "Enter files and directories to include, one per line:"]
     grid $top.l - -sticky w

-    text $top.t -width 40 -height 10 -background white -font uifont
+    text $top.t -width 40 -height 10 -background $bgcolor -font uifont

     if {[info exists viewfiles($n)]} {
        foreach f $viewfiles($n) {
            $top.t insert end $f
     if {[info exists viewfiles($n)]} {
        foreach f $viewfiles($n) {
            $top.t insert end $f