--- pib.tcl	Sat Oct 28 13:01:12 2000
+++ pib.tcl	Sat Apr 28 04:05:37 2001
@@ -172,7 +172,7 @@
     set sf $w.path;
     label $sf.l -text "Path : ";
     label $sf.p -textvariable Browser(cpath) -relief sunken -bd 2 -anchor w \
-	-background white;
+	-background chocolate6;
     button $sf.b -text "<-" -command "br_back" -padx 3 -pady 0;
     pack $sf.l -side left;
     pack $sf.p -side left -fill x -expand y;
@@ -223,14 +223,14 @@
     pack $sf.stat -side top -fill x;
     set ssf $sf.stat;
 
-    label $ssf.absent -text "absent" -foreground gray;
-    label $ssf.clean -text "clean" -foreground gray;
-    label $ssf.extract -text "extract" -foreground gray;
-    label $ssf.patch -text "patch" -foreground gray;
-    label $ssf.configure -text "configure" -foreground gray;
-    label $ssf.build -text "build" -foreground gray;
-    label $ssf.install -text "install" -foreground gray;
-    label $ssf.package -text "package" -foreground gray;
+    label $ssf.absent -text "absent" -foreground chocolate6;
+    label $ssf.clean -text "clean" -foreground chocolate6;
+    label $ssf.extract -text "extract" -foreground chocolate6;
+    label $ssf.patch -text "patch" -foreground chocolate6;
+    label $ssf.configure -text "configure" -foreground chocolate6;
+    label $ssf.build -text "build" -foreground chocolate6;
+    label $ssf.install -text "install" -foreground chocolate6;
+    label $ssf.package -text "package" -foreground chocolate6;
 
     pack $ssf.absent $ssf.clean $ssf.extract $ssf.configure $ssf.build \
 	$ssf.install $ssf.package -side left;
@@ -426,7 +415,7 @@
 	     "" \
 	     "  Options controlling the behaviour of the ports tree in general, and the " \
 	     "  browser in particular can be set here.  These values are read from the" \
-	     "  file ~/.pib at startup, and can be saved with the \[Save\] button." \
+	     "  file ~/.desk/pib at startup, and can be saved with the \[Save\] button." \
 	     "" \
 	     "  Port variable defaults" \
 	     "  ----------------------" \
@@ -761,7 +750,7 @@
 ################################################################################
 # op_init
 #
-# Read the ~/.pib file, set global options according to it and the
+# Read the ~/.desk/pib file, set global options according to it and the
 # environment.
 #
 proc op_init {} {
@@ -803,12 +792,12 @@
 
     set Options(do_deletions) 0;
 
-    # if the user has a ~/.pib file...
-    if {![catch {set fh [open "~/.pib" r]} ]} {
+    # if the user has a ~/.desk/pib file...
+    if {![catch {set fh [open "~/.desk/pib" r]} ]} {
 
 	gets $fh line;
 	if {$line != $Options(version_string)} {
-	    puts "Can't read ~/.pib file, incompatible format '$line'";
+	    puts "Can't read ~/.desk/pib file, incompatible format '$line'";
 	} else {
 
 	    while {[gets $fh line] >= 0} {		# read lines
@@ -821,7 +810,7 @@
 		if {$tag == "env"} {
 		    set value "";				# forget previous value
 		    if {[scan $line "env %s %s %s" name state value] < 2} {
-			puts "~/.pib: bad env spec '$line'";
+			puts "~/.desk/pib: bad env spec '$line'";
 			continue ;
 		    }
 		    set Envar($name:state) $state;
@@ -834,7 +823,7 @@
 		    set Options($tag) [lrange $line 1 end];
 		    continue ;
 		}
-		puts "~/.pib: bad line '$line'";
+		puts "~/.desk/pib: bad line '$line'";
 	    }
 	}
 	close $fh;
@@ -876,13 +865,13 @@
 ################################################################################
 # op_save
 #
-# Writes the ~/.pib file
+# Writes the ~/.desk/pib file
 #
 proc op_save {} {
 
     global Options Envar;
 
-    if {[catch {set fh [open "~/.pib" w]} msg]} {
+    if {[catch {set fh [open "~/.desk/pib" w]} msg]} {
 	tk_dialog .err "ERROR" $msg error 0 "Dismiss";
 	return ;
     }
@@ -1090,7 +1079,7 @@
     frame $w.for
     pack $w.for -side top -fill x;
     label $w.for.l -text "Seach for : ";
-    entry $w.for.e -textvariable Browser(search:term) -width 30;
+    entry $w.for.e -textvariable Browser(search:term) -width 30 -background chocolate6;
     pack $w.for.l -side left;
     pack $w.for.e -side left -fill x;
 
@@ -1342,9 +1331,9 @@
     # Set all controls
     foreach op [array names Browser stat:*] {
 	if {[lsearch -exact $on $op] != -1} {
-	    $Browser($op) configure -foreground "dark green";
+	    $Browser($op) configure -foreground green;
 	} else {
-	    $Browser($op) configure -foreground gray;
+	    $Browser($op) configure -foreground black;
 	}
     }
 }
@@ -1448,7 +1437,7 @@
     pack $w.thalf.cmd -side right -fill y;
     set sf $w.thalf.cmd;
 
-#    button $sf.remove    -text "Remove"    -anchor w -command mk_remove;
+#   button $sf.remove    -text "Remove"    -anchor w -command mk_remove;
     button $sf.clean     -text "Clean"     -anchor w -command "mk_do clean";
     button $sf.fetch     -text "Fetch"     -anchor w -command "mk_do fetch";
     button $sf.extract   -text "Extract"   -anchor w -command "mk_do extract";
@@ -1674,13 +1663,13 @@
     set sf $w.comm;
     checkbutton $sf.curr -text "Current" -variable DBrowser(mode:curr) \
 	-command df_update -onvalue "current" -offvalue "no" \
-	-activeforeground white -activebackground black;
+	-activeforeground chocolate5 -activebackground yellow;
     checkbutton $sf.stale -text "Stale" -variable DBrowser(mode:stale) \
-	-foreground darkgreen -command df_update -onvalue "stale" -offvalue "no" \
-	-activeforeground white -activebackground darkgreen;
+	-foreground green -command df_update -onvalue "stale" -offvalue "no" \
+	-activeforeground chocolate5 -activebackground green;
     checkbutton $sf.missing -text "Missing" -variable DBrowser(mode:missing) \
-	-foreground darkblue -command df_update -onvalue "missing" -offvalue "no" \
-	-activeforeground white -activebackground darkblue;
+	-foreground RoyalBlue1 -command df_update -onvalue "missing" -offvalue "no" \
+	-activeforeground chocolate5 -activebackground RoyalBlue1;
     checkbutton $sf.for -text "For selected port" -variable DBrowser(mode:for) \
 	-command df_update;
     button $sf.dump -text "Dump" -command "df_dump distfiles.dump" -width 10;
@@ -1702,8 +1691,8 @@
 
     text $sf.flist -width 40 -height 15 -yscrollcommand "$sf.scroll set" \
 	-state disabled -wrap none;
-    $sf.flist tag configure "stale" -foreground darkgreen;
-    $sf.flist tag configure "missing" -foreground darkblue;
+    $sf.flist tag configure "stale" -foreground green;
+    $sf.flist tag configure "missing" -foreground RoyalBlue1;
 
     text $sf.plist -width 50 -height 15 -yscrollcommand "$sf.scroll set" \
 	-state disabled -wrap none;