catch {
.people.id.e configure -font \
	-*-lucidatypewriter-medium-r-normal-sans-10-100-*
.people.alias.e configure -font \
	-*-lucidatypewriter-medium-r-normal-sans-10-100-*
.people.email.e configure -font \
	-*-lucidatypewriter-medium-r-normal-sans-10-100-*
.people.first.e configure -font \
	-*-lucida-bold-r-normal-sans-12-120-*
.people.last.e configure -font \
	-*-lucida-bold-r-normal-sans-12-120-*
.people.phone.e configure -font \
	-*-lucida-medium-r-normal-sans-10-100-*
.people.address.e configure -font \
	-*-lucida-medium-r-normal-sans-10-100-*
.people.birthdate.e configure -font \
	-*-lucida-medium-r-normal-sans-10-100-*
.people.comment.e configure -font \
	-*-lucida-medium-i-normal-sans-10-100-*

### .people.finger.t configure -font \
### 	-*-lucidatypewriter-medium-r-normal-sans-8-*-*-*-*-*-*-*
}

######################################################################
# window icon:

update idletasks

global env
set iconbitmap "$env(HOME)/xbm/xperson.32.xbm"
if [file isfile $iconbitmap] {
  wm iconbitmap .people "@$iconbitmap"
}
