--- deliantra/Deliantra-Client/DC/Util.pm	2006/04/07 17:37:11	1.6
+++ deliantra/Deliantra-Client/DC/Util.pm	2006/04/07 18:16:51	1.7
@@ -1,6 +1,21 @@
 package Client::Util;
+use strict;
+use base 'Exporter';
+our @EXPORT = qw(find_rcfile);
+
 use Gtk2;
 
+sub find_rcfile($) {
+   my $path;
+
+   for (@INC) {
+      $path = "$_/Crossfire/Client/$_[0]";
+      return $path if -r $path;
+   }
+
+   die "FATAL: can't find required file $_[0]\n";
+}
+
 sub read_cfg {
    my ($file) = @_;
 
@@ -34,7 +49,10 @@
    my $i = $cfg->{_i}++;
    $tbl->attach_defaults (my $lbl = Gtk2::Label->new ($klbl), 0, 1, $i, $i + 1);
    $tbl->attach_defaults (my $ent = Gtk2::Entry->new,         1, 2, $i, $i + 1);
-#      if ($key eq 'password') { $ent->set_invisible_char ("*") }
+      if ($key eq 'password') {
+         $ent->set_invisible_char ("*");
+         $ent->set (visibility => 0)
+      }
       $ent->set_text ($value);
       $ent->signal_connect (changed => sub {
          my ($ent) = @_;