*** tknamazu	2004-05-05 16:15:51.000000000 +0900
--- work/usr/bin/tknamazu	2004-04-19 17:19:36.000000000 +0900
***************
*** 50,56 ****
  	set conf(LANG) {}
  	set conf(WIDGETFONT) {-misc-Fixed-Medium-R-Normal-*-*-120-*-*-*-*-*-*}
  	set conf(TEXTFONT) {-misc-Fixed-Medium-R-Normal-*-*-120-*-*-*-*-*-*}
! 	set conf(WIDGETCOLOR) {gray90}
  #	set conf(SELECTCOLOR) {blue60}
  #	set conf(TROUGHTCOLOR) {gray30}
  #	set conf(FONTCOLOR) {black}
--- 50,58 ----
  	set conf(LANG) {}
  	set conf(WIDGETFONT) {-misc-Fixed-Medium-R-Normal-*-*-120-*-*-*-*-*-*}
  	set conf(TEXTFONT) {-misc-Fixed-Medium-R-Normal-*-*-120-*-*-*-*-*-*}
! 	set conf(WIDGETCOLOR) {#c0c0c0}
! 	set conf(TROUGHCOLOR) {#a3a3a3}
! 	set conf(SCROLLBARWIDTH) {15}
  #	set conf(SELECTCOLOR) {blue60}
  #	set conf(TROUGHTCOLOR) {gray30}
  #	set conf(FONTCOLOR) {black}
***************
*** 59,67 ****
  #	set conf(REFERENCECOLOR) {green3}
  	set conf(OPTIONS) {}
  	set conf(NAMAZURC) {}
! 	set conf(INDEXES) {/usr/local/share/namazu/index}
  	set conf(MKNMZ) {/usr/bin/mknmz}
! 	set conf(INDEXOUTPUTDIR) {/usr/local/share/namazu/index}
  	set conf(TARGETDIR) {./}
  	set conf(MKOPTIONS) {}
  	set conf(SMARTBROWSE) {1}
--- 61,69 ----
  #	set conf(REFERENCECOLOR) {green3}
  	set conf(OPTIONS) {}
  	set conf(NAMAZURC) {}
! 	set conf(INDEXES) {/usr/var/namazu/index}
  	set conf(MKNMZ) {/usr/bin/mknmz}
! 	set conf(INDEXOUTPUTDIR) {/usr/var/namazu/index}
  	set conf(TARGETDIR) {./}
  	set conf(MKOPTIONS) {}
  	set conf(SMARTBROWSE) {1}
***************
*** 356,366 ****
          set gm [split [wm geometry .tknmz] x+]
          set conf(WIDTH) [lindex $gm 0]
          set conf(HIGTH) [lindex $gm 1]
!         set conf(commandline) "$conf(BROWSER) -dump -width=$conf(WIDTH) $url$conf(searchword)$conf(optionsurl)$conf(indexesurl)"
          if {![string compare $inside(lynxauth) ""]} {
!             set exec "$conf(BROWSER) -dump -width=$conf(WIDTH) $url$conf(searchword)$conf(optionsurl)$conf(indexesurl)"
          } else {
!             set exec "$conf(BROWSER) -dump -width=$conf(WIDTH) -auth=$inside(lynxauth) $url$conf(searchword)$conf(optionsurl)$conf(indexesurl)"
          }
      }
  
--- 358,368 ----
          set gm [split [wm geometry .tknmz] x+]
          set conf(WIDTH) [lindex $gm 0]
          set conf(HIGTH) [lindex $gm 1]
!         set conf(commandline) "$conf(BROWSER) -dump -cols $conf(WIDTH) $url$conf(searchword)$conf(optionsurl)$conf(indexesurl)"
          if {![string compare $inside(lynxauth) ""]} {
!             set exec "$conf(BROWSER) -dump -cols $conf(WIDTH) $url$conf(searchword)$conf(optionsurl)$conf(indexesurl)"
          } else {
!             set exec "$conf(BROWSER) -dump -cols $conf(WIDTH) -auth=$inside(lynxauth) $url$conf(searchword)$conf(optionsurl)$conf(indexesurl)"
          }
      }
  
***************
*** 517,527 ****
      set gm [split [wm geometry .tknmz] x+]
      set conf(WIDTH) [lindex $gm 0]
      set conf(HIGTH) [lindex $gm 1]
!     set conf(commandline) "$conf(BROWSER) -dump -width=$conf(WIDTH) $url"
      if {![string compare $inside(lynxauth) ""]} {
!         set urlviewer "$conf(BROWSER) -dump -width=$conf(WIDTH) $url"
      } else {
!         set urlviewer "$conf(BROWSER) -dump -width=$conf(WIDTH) -auth=$inside(lynxauth) $url"
      }
  
      if [catch {open "|$urlviewer"} input] {
--- 519,529 ----
      set gm [split [wm geometry .tknmz] x+]
      set conf(WIDTH) [lindex $gm 0]
      set conf(HIGTH) [lindex $gm 1]
!     set conf(commandline) "$conf(BROWSER) -dump -cols $conf(WIDTH) $url"
      if {![string compare $inside(lynxauth) ""]} {
!         set urlviewer "$conf(BROWSER) -dump -cols $conf(WIDTH) $url"
      } else {
!         set urlviewer "$conf(BROWSER) -dump -cols $conf(WIDTH) -auth=$inside(lynxauth) $url"
      }
  
      if [catch {open "|$urlviewer"} input] {
***************
*** 1026,1043 ****
          wm geom .openurl +$x+$y
      }
  
!     frame .openurl.entry
!     label .openurl.entry.ulabel -text {URL:}
      entry .openurl.entry.entry -textvariable urllocation -width 70 \
!         -font $conf(WIDGETFONT) 
      pack .openurl.entry.ulabel .openurl.entry.entry -side left
  
!     frame .openurl.buttons
      pack .openurl.entry .openurl.buttons -side top -fill x
      button .openurl.buttons.ok -text OK -command {set openurl(ok) 1} \
!         -underline 0
      button .openurl.buttons.cancel -text Cancel -command {set openurl(ok) 0} \
!         -underline 0
      pack .openurl.buttons.cancel .openurl.buttons.ok -side right
  
      bind .openurl <Alt-o> "focus .openurl.buttons.ok ; break"
--- 1028,1046 ----
          wm geom .openurl +$x+$y
      }
  
!     .openurl configure  -bd 1 -relief raised
!     frame .openurl.entry -bd 6
!     label .openurl.entry.ulabel -text {URL:} -font $conf(WIDGETFONT)
      entry .openurl.entry.entry -textvariable urllocation -width 70 \
!         -font $conf(WIDGETFONT) -font $conf(WIDGETFONT)
      pack .openurl.entry.ulabel .openurl.entry.entry -side left
  
!     frame .openurl.buttons -bd 6
      pack .openurl.entry .openurl.buttons -side top -fill x
      button .openurl.buttons.ok -text OK -command {set openurl(ok) 1} \
!         -underline 0 -font $conf(WIDGETFONT)
      button .openurl.buttons.cancel -text Cancel -command {set openurl(ok) 0} \
!         -underline 0 -font $conf(WIDGETFONT)
      pack .openurl.buttons.cancel .openurl.buttons.ok -side right
  
      bind .openurl <Alt-o> "focus .openurl.buttons.ok ; break"
***************
*** 1048,1053 ****
--- 1051,1057 ----
      bind .openurl <Button-3> {PopupMenu %X %Y}
  
      SetColor {.openurl}
+     .openurl.entry.entry configure -bg white
  
      while 1 {
          focus .openurl.entry.entry
***************
*** 1083,1089 ****
          if [regexp {^INDEXES([0-9]+)$|^DATABASES([0-9]+)$} $nmzidx ] {
              regexp {^([^ ]+) +(.*)$} $conf($nmzidx) match title value
              .tknmz.file.menu.selnmzidx add check -label $title \
!                 -font $conf(WIDGETFONT) -variable selnmzidx($nmzidx) -selectcolor blue
          }
      } 
      .tknmz.file.menu.selnmzidx add separator
--- 1087,1093 ----
          if [regexp {^INDEXES([0-9]+)$|^DATABASES([0-9]+)$} $nmzidx ] {
              regexp {^([^ ]+) +(.*)$} $conf($nmzidx) match title value
              .tknmz.file.menu.selnmzidx add check -label $title \
!                 -font $conf(WIDGETFONT) -variable selnmzidx($nmzidx)
          }
      } 
      .tknmz.file.menu.selnmzidx add separator
***************
*** 1120,1125 ****
--- 1124,1130 ----
          -font $conf(WIDGETFONT) -command {InportBookMark}
  
      SetColor {.tknmz.go.menu.selbookmark}
+     SetFont {.tknmz.go.menu.selbookmark}
  }
  
  proc MakeNamazuSiteSelector {} {
***************
*** 1199,1222 ****
          wm geom .auth +$x+$y
      }
  
!     frame .auth.login
!     label .auth.login.msg -borderwidth 10 -text {Login:} -width 10
      entry .auth.login.entry -textvariable login -width 17 \
          -font $conf(WIDGETFONT) 
      pack .auth.login.msg .auth.login.entry -side left -fill x
  
!     frame .auth.password
!     label .auth.password.msg -borderwidth 10 -text {Password:} -width 10
      entry .auth.password.entry -textvariable password -width 17 \
          -font $conf(WIDGETFONT) 
      pack .auth.password.msg .auth.password.entry -side left -fill x
  
!     frame .auth.buttons -bd 10
      pack .auth.login .auth.password .auth.buttons -side top -fill x
  
!     button .auth.buttons.ok -text OK -command {set auth(ok) 1} -underline 0
      button .auth.buttons.cancel -text Cancel -command {set auth(ok) 0} \
!         -underline 0
      pack .auth.buttons.cancel .auth.buttons.ok -side right
  
      bind .auth <Alt-o> "focus .auth.buttons.ok ; break"
--- 1204,1231 ----
          wm geom .auth +$x+$y
      }
  
!     .auth configure -bd 1 -relief raised
!     frame .auth.login -bd 6
!     label .auth.login.msg -borderwidth 4 -text {Login:} -width 10 \
! 	 -font $conf(WIDGETFONT)
      entry .auth.login.entry -textvariable login -width 17 \
          -font $conf(WIDGETFONT) 
      pack .auth.login.msg .auth.login.entry -side left -fill x
  
!     frame .auth.password -bd 6
!     label .auth.password.msg -borderwidth 4 -text {Password:} -width 10 \
! 	 -font $conf(WIDGETFONT)
      entry .auth.password.entry -textvariable password -width 17 \
          -font $conf(WIDGETFONT) 
      pack .auth.password.msg .auth.password.entry -side left -fill x
  
!     frame .auth.buttons -bd 6
      pack .auth.login .auth.password .auth.buttons -side top -fill x
  
!     button .auth.buttons.ok -text OK -command {set auth(ok) 1} -underline 0 \
! 	 -font $conf(WIDGETFONT)
      button .auth.buttons.cancel -text Cancel -command {set auth(ok) 0} \
!         -underline 0 -font $conf(WIDGETFONT)
      pack .auth.buttons.cancel .auth.buttons.ok -side right
  
      bind .auth <Alt-o> "focus .auth.buttons.ok ; break"
***************
*** 1227,1232 ****
--- 1236,1243 ----
      bind .auth <Button-3> {PopupMenu %X %Y}
  
      SetColor {.auth}
+     .auth.login.entry configure -background white
+     .auth.password.entry configure -background white
  
      while 1 {
          focus .auth.login.entry
***************
*** 1270,1307 ****
      }
      set prompt(aspect) 1
      
!     label .prompt.msg -borderwidth 10 -text {Please input pattern.}
  
!     frame .prompt.entry
      entry .prompt.entry.entry -textvariable findword -width 32 \
          -font $conf(WIDGETFONT) 
      button .prompt.entry.clear -text Clear -command {set findword {}} \
!         -underline 1
      pack .prompt.entry.entry .prompt.entry.clear -side left -fill x
  
!     frame .prompt.buttons -bd 10
      button .prompt.buttons.ok -text OK -command {set prompt(ok) 1} \
!         -underline 0
      button .prompt.buttons.cancel -text Cancel -command {set prompt(ok) 0} \
!         -underline 0
      pack .prompt.buttons.cancel .prompt.buttons.ok -side right
!     button .prompt.buttons.thoughtful -text toRegexp -underline 0 \
          -command {set findword [RegexpKeywords $findword]; set prompt(regexp) 1} \
  
      pack .prompt.buttons.thoughtful -side left
  
!     frame .prompt.options
      checkbutton .prompt.options.nocase -text nocase -variable prompt(nocase) \
!         -font $conf(WIDGETFONT) -selectcolor blue -underline 0
  
      checkbutton .prompt.options.regexp -text regexp -variable prompt(regexp) \
!         -font $conf(WIDGETFONT) -selectcolor blue -underline 0
  
      radiobutton .prompt.options.forward -text forward -variable prompt(aspect) \
!         -font $conf(WIDGETFONT) -selectcolor blue -underline 0 -value 1
  
      radiobutton .prompt.options.backward -text backward -variable prompt(aspect) \
!         -font $conf(WIDGETFONT) -selectcolor blue -underline 0 -value 0
  
      pack .prompt.options.nocase .prompt.options.regexp \
          .prompt.options.forward .prompt.options.backward -side left
--- 1281,1319 ----
      }
      set prompt(aspect) 1
      
!     label .prompt.msg -borderwidth 10 -text {Please input pattern.} -font $conf(WIDGETFONT)
  
!     .prompt configure -bd 1 -relief raised
!     frame .prompt.entry -bd 6
      entry .prompt.entry.entry -textvariable findword -width 32 \
          -font $conf(WIDGETFONT) 
      button .prompt.entry.clear -text Clear -command {set findword {}} \
!         -underline 1 -font $conf(WIDGETFONT)
      pack .prompt.entry.entry .prompt.entry.clear -side left -fill x
  
!     frame .prompt.buttons -bd 6
      button .prompt.buttons.ok -text OK -command {set prompt(ok) 1} \
!         -underline 0 -font $conf(WIDGETFONT)
      button .prompt.buttons.cancel -text Cancel -command {set prompt(ok) 0} \
!         -underline 0 -font $conf(WIDGETFONT)
      pack .prompt.buttons.cancel .prompt.buttons.ok -side right
!     button .prompt.buttons.thoughtful -text toRegexp -underline 0  -font $conf(WIDGETFONT) \
          -command {set findword [RegexpKeywords $findword]; set prompt(regexp) 1} \
  
      pack .prompt.buttons.thoughtful -side left
  
!     frame .prompt.options -bd 4
      checkbutton .prompt.options.nocase -text nocase -variable prompt(nocase) \
!         -font $conf(WIDGETFONT) -underline 0
  
      checkbutton .prompt.options.regexp -text regexp -variable prompt(regexp) \
!         -font $conf(WIDGETFONT) -underline 0
  
      radiobutton .prompt.options.forward -text forward -variable prompt(aspect) \
!         -font $conf(WIDGETFONT) -underline 0 -value 1
  
      radiobutton .prompt.options.backward -text backward -variable prompt(aspect) \
!         -font $conf(WIDGETFONT) -underline 0 -value 0
  
      pack .prompt.options.nocase .prompt.options.regexp \
          .prompt.options.forward .prompt.options.backward -side left
***************
*** 1343,1348 ****
--- 1355,1361 ----
      bind .prompt <Button-3> {PopupMenu %X %Y}
  
      SetColor {.prompt}
+     .prompt.entry.entry configure -background white
  
      set cur 1.0
      while 1 {
***************
*** 1593,1605 ****
      global conf
  
      catch {$w config -background $conf(WIDGETCOLOR)}
!     catch {$w config -troughcolor $conf(WIDGETCOLOR)}
      catch {$w config -highlightbackground $conf(WIDGETCOLOR)}
      foreach child [winfo children $w] {
          SetColor $child
      }
  }
  
  proc MessageBox { icon type title message } {
      tk_messageBox -icon $icon -type $type -title $title -message $message
  }
--- 1606,1627 ----
      global conf
  
      catch {$w config -background $conf(WIDGETCOLOR)}
!     catch {$w config -activebackground $conf(WIDGETCOLOR)}
      catch {$w config -highlightbackground $conf(WIDGETCOLOR)}
      foreach child [winfo children $w] {
          SetColor $child
      }
  }
  
+ proc SetFont { w } {
+     global conf
+ 
+     catch {$w config -font $conf(WIDGETFONT)}
+     foreach child [winfo children $w] {
+         SetFont $child
+     }
+ }
+ 
  proc MessageBox { icon type title message } {
      tk_messageBox -icon $icon -type $type -title $title -message $message
  }
***************
*** 1816,1821 ****
--- 1838,1844 ----
      } 
  
      SetColor {.popupmenu2}
+     SetFont {.popupmenu2}
  
      update
      tk_popup .popupmenu2 $x $y
***************
*** 1838,1843 ****
--- 1861,1867 ----
  	    after 100 {grab .quit}
      }
  
+     .quit configure -bd 1 -relief raised
      label .quit.msg -borderwidth 10 -text {Really? ;-(}
  
      frame .quit.buttons -bd 10
***************
*** 1918,1951 ****
      }
  
  
!     frame .about.msg1 -relief flat -borderwidth 2 -bg white
      image create photo tknmzlogo -file "$conf(tknmzhome)/tknamazu_logo.ppm"
!     pack .about.msg1 -fill both
!     label .about.msg1.title1 -text {Tcl/Tk Namazu client} \
!         -font $conf(WIDGETFONT) -background white
!     label .about.msg1.title2 -text "version $version" \
!         -font $conf(WIDGETFONT) -background white
!     button .about.msg1.title3 -image tknmzlogo -background white \
!         -highlightbackground white -command {HelpView ; Jump {0}}
!     label .about.msg1.title4 -text {- GPL2 software -} \
!         -font $conf(WIDGETFONT) -background white
!     label .about.msg1.title5 -text {Copyright (C) 1998} \
!         -font $conf(WIDGETFONT) -background white
!     label .about.msg1.title6 -text {Ken-ichi Hirose.} \
!         -font $conf(WIDGETFONT) -background white
!     label .about.msg1.title7 -text {All rights reserved.} \
!         -font $conf(WIDGETFONT) -background white
! 
!     pack .about.msg1.title1 .about.msg1.title2
!     pack .about.msg1.title3
!     pack .about.msg1.title4 .about.msg1.title5 .about.msg1.title6 .about.msg1.title7
  
!     frame .about.info -bg white
      pack .about.info -fill both
      set m1 {.about.info.list1}
      set m2 {.about.info.list2}
  
!     listbox $m1 -bg white -height 7 -width 12 -font $conf(WIDGETFONT) -borderwidth 0
      $m1 insert end "TKNMZPATH"
      $m1 insert end "HOME"
      $m1 insert end "Tcl/Tk"
--- 1942,1981 ----
      }
  
  
!     .about configure -bd 1 -relief raised
!     frame .about.rel -relief flat -borderwidth 10
!     frame .about.rel.rel2 -relief sunken -borderwidth 1
!     frame .about.rel.rel2.msg1 -relief flat -borderwidth 10
      image create photo tknmzlogo -file "$conf(tknmzhome)/tknamazu_logo.ppm"
!     pack .about.rel.rel2.msg1 -fill both
!     label .about.rel.rel2.msg1.title1 -text {Tcl/Tk Namazu client} \
!         -font $conf(WIDGETFONT)
!     label .about.rel.rel2.msg1.title2 -text "version $version" \
!         -font $conf(WIDGETFONT)
!     button .about.rel.rel2.msg1.title3 -image tknmzlogo -background white \
!         -bd 1 -command {HelpView ; Jump {0}}
!     label .about.rel.rel2.msg1.title4 -text {- GPL2 software -} \
!         -font $conf(WIDGETFONT)
!     label .about.rel.rel2.msg1.title5 -text {Copyright (C) 1998} \
!         -font $conf(WIDGETFONT)
!     label .about.rel.rel2.msg1.title6 -text {Ken-ichi Hirose.} \
!         -font $conf(WIDGETFONT)
!     label .about.rel.rel2.msg1.title7 -text {All rights reserved.} \
!         -font $conf(WIDGETFONT)
! 
!     pack .about.rel.rel2.msg1.title1 .about.rel.rel2.msg1.title2
!     pack .about.rel.rel2.msg1.title3
!     pack .about.rel.rel2.msg1.title4 .about.rel.rel2.msg1.title5 .about.rel.rel2.msg1.title6 .about.rel.rel2.msg1.title7
!     pack .about.rel.rel2.msg1
!     pack .about.rel.rel2
!     pack .about.rel
  
!     frame .about.info -bd 6
      pack .about.info -fill both
      set m1 {.about.info.list1}
      set m2 {.about.info.list2}
  
!     listbox $m1 -highlightthickness 0 -bg white -height 7 -width 12 -font $conf(WIDGETFONT) -borderwidth 0
      $m1 insert end "TKNMZPATH"
      $m1 insert end "HOME"
      $m1 insert end "Tcl/Tk"
***************
*** 1954,1960 ****
      $m1 insert end "Machine"
      $m1 insert end "Platform"
  
!     listbox $m2 -bg white -height 7 -width 28 -font $conf(WIDGETFONT) -borderwidth 0
      $m2 insert end $conf(tknmzhome)
      $m2 insert end $conf(userhome)
      $m2 insert end "$conf(tclversion) / $conf(tkversion)"
--- 1984,1990 ----
      $m1 insert end "Machine"
      $m1 insert end "Platform"
  
!     listbox $m2 -highlightthickness 0 -bg white -height 7 -width 28 -font $conf(WIDGETFONT) -borderwidth 0
      $m2 insert end $conf(tknmzhome)
      $m2 insert end $conf(userhome)
      $m2 insert end "$conf(tclversion) / $conf(tkversion)"
***************
*** 1965,1977 ****
  
      pack $m1 $m2 -side left -expand yes -fill both
  
!     frame .about.ok -bg white
      pack .about.ok -fill both
  
!     button .about.ok.b -text { OK } -font $conf(WIDGETFONT) -background gray \
!         -highlightbackground gray -command { grab release .about ; destroy .about }
      pack .about.ok.b -expand yes
  
      focus .about.ok.b
  }
  
--- 1995,2017 ----
  
      pack $m1 $m2 -side left -expand yes -fill both
  
!     frame .about.ok -bd 6
      pack .about.ok -fill both
  
!     button .about.ok.b -text { OK } -font $conf(WIDGETFONT) \
!         -command { grab release .about ; destroy .about }
      pack .about.ok.b -expand yes
  
+     SetColor {.about}
+     .about.rel.rel2.msg1 configure -bg #e7e7e7
+     .about.rel.rel2.msg1.title7 configure -bg #e7e7e7
+     .about.rel.rel2.msg1.title6 configure -bg #e7e7e7
+     .about.rel.rel2.msg1.title5 configure -bg #e7e7e7
+     .about.rel.rel2.msg1.title4 configure -bg #e7e7e7
+     .about.rel.rel2.msg1.title3 configure -bg #e7e7e7
+     .about.rel.rel2.msg1.title2 configure -bg #e7e7e7
+     .about.rel.rel2.msg1.title1 configure -bg #e7e7e7
+ 
      focus .about.ok.b
  }
  
***************
*** 2136,2152 ****
          wm iconname .tkmknmz "tknamazu"
      }
  
!     frame .tkmknmz.input -borderwidth 1
      pack .tkmknmz.input -side top -fill x
      label .tkmknmz.input.l -text {Location:} -padx 0 -font $conf(WIDGETFONT)
      entry .tkmknmz.input.location -width 20 -font $conf(WIDGETFONT) \
          -relief sunken -textvariable conf(TARGETDIR)
      pack .tkmknmz.input.l -side left
      pack .tkmknmz.input.location -side left -fill x -expand true
!     set mkbut [button .tkmknmz.input.execute -text {Execute} -font $conf(WIDGETFONT) \
          -underline 1 -command {ExecMknmz}]
      button .tkmknmz.input.browse -text {Browse} -font $conf(WIDGETFONT) \
!         -underline 0 -command {DirectoryExplorer}
      pack .tkmknmz.input.browse .tkmknmz.input.execute -side right
  
      bind .tkmknmz.input.location <Return> {ExecMknmz}
--- 2176,2192 ----
          wm iconname .tkmknmz "tknamazu"
      }
  
!     frame .tkmknmz.input -borderwidth 1 -relief raised
      pack .tkmknmz.input -side top -fill x
      label .tkmknmz.input.l -text {Location:} -padx 0 -font $conf(WIDGETFONT)
      entry .tkmknmz.input.location -width 20 -font $conf(WIDGETFONT) \
          -relief sunken -textvariable conf(TARGETDIR)
      pack .tkmknmz.input.l -side left
      pack .tkmknmz.input.location -side left -fill x -expand true
!     set mkbut [button .tkmknmz.input.execute -bd 1 -text {Execute} -font $conf(WIDGETFONT) \
          -underline 1 -command {ExecMknmz}]
      button .tkmknmz.input.browse -text {Browse} -font $conf(WIDGETFONT) \
!         -underline 0 -command {DirectoryExplorer} -bd 1
      pack .tkmknmz.input.browse .tkmknmz.input.execute -side right
  
      bind .tkmknmz.input.location <Return> {ExecMknmz}
***************
*** 2155,2173 ****
      bind .tkmknmz <Alt-b> {focus .tkmknmz.input.browse ; break}
      bind .tkmknmz <Button-3> {PopupMenu %X %Y}
  
!     frame .tkmknmz.result
      pack .tkmknmz.result -side top -fill both -expand true
      set mklog [text .tkmknmz.result.log \
!         -width $conf(WIDTH) -height [expr $conf(HEIGHT) / 2] -font $conf(WIDGETFONT) \
!         -borderwidth 2 -relief sunken -setgrid true -state normal \
          -yscrollcommand {.tkmknmz.result.scroll set}]
!     scrollbar .tkmknmz.result.scroll -command {.tkmknmz.result.log yview}
      pack .tkmknmz.result.scroll -side right -fill y
      pack .tkmknmz.result.log -side left -fill both -expand true
  
      focus .tkmknmz.input.location
  
      SetColor {.tkmknmz}
  }
  
  proc ExecMknmz {} {
--- 2195,2216 ----
      bind .tkmknmz <Alt-b> {focus .tkmknmz.input.browse ; break}
      bind .tkmknmz <Button-3> {PopupMenu %X %Y}
  
!     frame .tkmknmz.result -borderwidth 0
      pack .tkmknmz.result -side top -fill both -expand true
      set mklog [text .tkmknmz.result.log \
!         -width $conf(WIDTH) -height [expr $conf(HEIGHT) / 2] -font $conf(TEXTFONT) \
!         -relief sunken -setgrid true -state normal \
! 	-borderwidth 0 -highlightthickness 0 \
          -yscrollcommand {.tkmknmz.result.scroll set}]
!     scrollbar .tkmknmz.result.scroll -highlightthickness 0 -command {.tkmknmz.result.log yview} -troughcolor $conf(TROUGHCOLOR) -width $conf(SCROLLBARWIDTH)
      pack .tkmknmz.result.scroll -side right -fill y
      pack .tkmknmz.result.log -side left -fill both -expand true
  
      focus .tkmknmz.input.location
  
      SetColor {.tkmknmz}
+     .tkmknmz.input.location configure -background white
+     .tkmknmz.result.log configure -background white
  }
  
  proc ExecMknmz {} {
***************
*** 2219,2225 ****
  wm iconname .tknmz "tknamazu"
  wm protocol .tknmz WM_DELETE_WINDOW {exit}
  
! frame .tknmz.menubar
  pack .tknmz.menubar -side top -fill x
      menubutton .tknmz.file -text {File} -menu .tknmz.file.menu -underline 0 \
          -font $conf(WIDGETFONT)
--- 2262,2268 ----
  wm iconname .tknmz "tknamazu"
  wm protocol .tknmz WM_DELETE_WINDOW {exit}
  
! frame .tknmz.menubar -bd 1 -relief raised
  pack .tknmz.menubar -side top -fill x
      menubutton .tknmz.file -text {File} -menu .tknmz.file.menu -underline 0 \
          -font $conf(WIDGETFONT)
***************
*** 2316,2322 ****
  
      pack .tknmz.help -side right -in .tknmz.menubar
  
! frame .tknmz.input
  pack .tknmz.input -side top -fill x
      label .tknmz.input.l -text {Keyword:} -padx 0 -font $conf(WIDGETFONT) -underline 0
      entry .tknmz.keyword -width 20 -relief sunken -font $conf(WIDGETFONT) -textvariable inside(keyword)
--- 2359,2365 ----
  
      pack .tknmz.help -side right -in .tknmz.menubar
  
! frame .tknmz.input -bd 1 -relief raised
  pack .tknmz.input -side top -fill x
      label .tknmz.input.l -text {Keyword:} -padx 0 -font $conf(WIDGETFONT) -underline 0
      entry .tknmz.keyword -width 20 -relief sunken -font $conf(WIDGETFONT) -textvariable inside(keyword)
***************
*** 2324,2341 ****
      pack .tknmz.input.l -side left
      pack .tknmz.keyword -side left -fill x -expand true -in .tknmz.input
  
!     set but [button .tknmz.input.search -text {Search} -font $conf(WIDGETFONT) \
           -underline 0 -command {Exec $inside(keyword)}]
!     button .tknmz.input.quit -text {Quit} -font $conf(WIDGETFONT) \
           -underline 0 -command {Quit}
  
      pack .tknmz.input.quit .tknmz.input.search -side right
  
! frame .tknmz.optionbar
  pack .tknmz.optionbar -side top -fill x
  
      image create photo tknmzicon -file "$conf(tknmzhome)/tknamazu_icon.ppm"
!     button .tknmz.optionbar.icon -image tknmzicon -command {AboutTknamazu}
  
      pack .tknmz.optionbar.icon -side right
  
--- 2367,2384 ----
      pack .tknmz.input.l -side left
      pack .tknmz.keyword -side left -fill x -expand true -in .tknmz.input
  
!     set but [button .tknmz.input.search -bd 1 -text {Search} -font $conf(WIDGETFONT) \
           -underline 0 -command {Exec $inside(keyword)}]
!     button .tknmz.input.quit -bd 1 -text {Quit} -font $conf(WIDGETFONT) \
           -underline 0 -command {Quit}
  
      pack .tknmz.input.quit .tknmz.input.search -side right
  
! frame .tknmz.optionbar -bd 1 -relief raised
  pack .tknmz.optionbar -side top -fill x
  
      image create photo tknmzicon -file "$conf(tknmzhome)/tknamazu_icon.ppm"
!     button .tknmz.optionbar.icon -bd 1 -image tknmzicon -command {AboutTknamazu}
  
      pack .tknmz.optionbar.icon -side right
  
***************
*** 2347,2353 ****
  frame .tknmz.optionbar.options.opt1
  pack .tknmz.optionbar.options.opt1 -side top -fill x
      label .tknmz.optionbar.options.opt1.displaylabel -text {DisplayCount:} \
!      -font $conf(WIDGETFONT) -underline 7
      tk_optionMenu .tknmz.optionbar.options.opt1.display opt(n) 9 10 20 30 50 100 ALL
      .tknmz.optionbar.options.opt1.display configure -width 3
  
--- 2390,2396 ----
  frame .tknmz.optionbar.options.opt1
  pack .tknmz.optionbar.options.opt1 -side top -fill x
      label .tknmz.optionbar.options.opt1.displaylabel -text {DisplayCount:} \
!      -underline 7
      tk_optionMenu .tknmz.optionbar.options.opt1.display opt(n) 9 10 20 30 50 100 ALL
      .tknmz.optionbar.options.opt1.display configure -width 3
  
***************
*** 2355,2368 ****
       -side left -fill x
  
      label .tknmz.optionbar.options.opt1.summarylabel -text {Summary:} \
!      -font $conf(WIDGETFONT) -underline 1
      tk_optionMenu .tknmz.optionbar.options.opt1.summary opt(s) ON OFF
      .tknmz.optionbar.options.opt1.summary configure -width 3
  
      pack .tknmz.optionbar.options.opt1.summarylabel .tknmz.optionbar.options.opt1.summary \
       -side left -fill x
  
!     label .tknmz.optionbar.options.opt1.sortlabel -text {Sort:} -font $conf(WIDGETFONT) -underline 1
      tk_optionMenu .tknmz.optionbar.options.opt1.sort opt(l) score \
       late early subject:ascending subject:descending from:ascending from:descending \
       size:ascending size:descending uri:ascending uri:descending
--- 2398,2411 ----
       -side left -fill x
  
      label .tknmz.optionbar.options.opt1.summarylabel -text {Summary:} \
!      -underline 1
      tk_optionMenu .tknmz.optionbar.options.opt1.summary opt(s) ON OFF
      .tknmz.optionbar.options.opt1.summary configure -width 3
  
      pack .tknmz.optionbar.options.opt1.summarylabel .tknmz.optionbar.options.opt1.summary \
       -side left -fill x
  
!     label .tknmz.optionbar.options.opt1.sortlabel -text {Sort:} -underline 1
      tk_optionMenu .tknmz.optionbar.options.opt1.sort opt(l) score \
       late early subject:ascending subject:descending from:ascending from:descending \
       size:ascending size:descending uri:ascending uri:descending
***************
*** 2373,2393 ****
  
  frame .tknmz.optionbar.options.opt2
  pack .tknmz.optionbar.options.opt2 -side bottom -fill x
! #    button .tknmz.optionbar.options.opt2.backward -text {<} -font $conf(WIDGETFONT) -command {BackHistory}
  
! #    button .tknmz.optionbar.options.opt2.forward -text {>} -font $conf(WIDGETFONT) -command {ForwardHistory}
  
  #    pack .tknmz.optionbar.options.opt2.backward .tknmz.optionbar.options.opt2.forward -side left -fill x
  
      label .tknmz.optionbar.options.opt2.smartbrowselabel -text {SmartBrowse:} \
!      -font $conf(WIDGETFONT) -underline 1
      tk_optionMenu .tknmz.optionbar.options.opt2.smartbrowse conf(SMARTBROWSE) 0 1 2
  
      pack .tknmz.optionbar.options.opt2.smartbrowselabel .tknmz.optionbar.options.opt2.smartbrowse \
       -side left -fill x
  
      label .tknmz.optionbar.options.opt2.headerwarplabel -text {HeaderWipe:} \
!      -font $conf(WIDGETFONT) -underline 6
      tk_optionMenu .tknmz.optionbar.options.opt2.headerwarp conf(HEADERWIPE) ON OFF
      .tknmz.optionbar.options.opt2.headerwarp configure -width 3
  
--- 2416,2436 ----
  
  frame .tknmz.optionbar.options.opt2
  pack .tknmz.optionbar.options.opt2 -side bottom -fill x
! #    button .tknmz.optionbar.options.opt2.backward -text {<} -command {BackHistory}
  
! #    button .tknmz.optionbar.options.opt2.forward -text {>} -command {ForwardHistory}
  
  #    pack .tknmz.optionbar.options.opt2.backward .tknmz.optionbar.options.opt2.forward -side left -fill x
  
      label .tknmz.optionbar.options.opt2.smartbrowselabel -text {SmartBrowse:} \
!      -underline 1
      tk_optionMenu .tknmz.optionbar.options.opt2.smartbrowse conf(SMARTBROWSE) 0 1 2
  
      pack .tknmz.optionbar.options.opt2.smartbrowselabel .tknmz.optionbar.options.opt2.smartbrowse \
       -side left -fill x
  
      label .tknmz.optionbar.options.opt2.headerwarplabel -text {HeaderWipe:} \
!      -underline 6
      tk_optionMenu .tknmz.optionbar.options.opt2.headerwarp conf(HEADERWIPE) ON OFF
      .tknmz.optionbar.options.opt2.headerwarp configure -width 3
  
***************
*** 2395,2412 ****
       -side left -fill x
  
      label .tknmz.optionbar.options.opt2.siteselectorlabel -text {Site:} \
!      -font $conf(WIDGETFONT) -underline 1
      MakeNamazuSiteSelector
  
      pack .tknmz.optionbar.options.opt2.siteselectorlabel .tknmz.optionbar.options.opt2.siteselector \
       -side left -fill x
  
! frame .tknmz.result
  pack .tknmz.result -side top -fill both -expand true
      set log [text .tknmz.result.log -width $conf(WIDTH) -height $conf(HEIGHT) \
!         -borderwidth 1 -relief raised -setgrid true -font $conf(TEXTFONT) \
          -state disabled -yscrollcommand {.tknmz.result.scroll set}]
!     scrollbar .tknmz.result.scroll -command {.tknmz.result.log yview} 
  
      pack .tknmz.result.scroll -side right -fill y
      pack .tknmz.result.log -side left -fill both -expand true
--- 2438,2458 ----
       -side left -fill x
  
      label .tknmz.optionbar.options.opt2.siteselectorlabel -text {Site:} \
!      -underline 1
      MakeNamazuSiteSelector
  
      pack .tknmz.optionbar.options.opt2.siteselectorlabel .tknmz.optionbar.options.opt2.siteselector \
       -side left -fill x
  
!     SetFont {.tknmz.optionbar}
! 
! frame .tknmz.result -borderwidth 0
  pack .tknmz.result -side top -fill both -expand true
      set log [text .tknmz.result.log -width $conf(WIDTH) -height $conf(HEIGHT) \
! 	-borderwidth 0 -highlightthickness 0 \
!         -relief raised -setgrid true -font $conf(TEXTFONT) \
          -state disabled -yscrollcommand {.tknmz.result.scroll set}]
!     scrollbar .tknmz.result.scroll -highlightthickness 0 -command {.tknmz.result.log yview} 
  
      pack .tknmz.result.scroll -side right -fill y
      pack .tknmz.result.log -side left -fill both -expand true
***************
*** 2466,2471 ****
--- 2512,2520 ----
  MainWidget
  MainKeyBind
  SetColor {.tknmz}
+ .tknmz.keyword configure -background white
+ .tknmz.result.log configure -background white
+ .tknmz.result.scroll configure -troughcolor $conf(TROUGHCOLOR) -width $conf(SCROLLBARWIDTH)
  
  if {$argc > 0} {
  	Browse [lindex $argv 0]
