--- tkabber.orig/userinfo.tcl	2006-09-22 10:10:37.000000000 +0400
+++ tkabber/userinfo.tcl	2006-09-22 11:16:09.000000000 +0400
@@ -2,8 +2,16 @@
 
 
 namespace eval userinfo {
+    variable options
+
     custom::defvar show_info_list {} [::msgcat::mc "List of users for userinfo."] \
 	    -group Hidden
+    custom::defvar options(userinfo_style) flat \
+    	    [::msgcat::mc "Userinfo style."] \
+	    -group IFace \
+	    -type radio \
+	    -layout vertical \
+	    -values { flat New ridge Old }
 }
 
 proc userinfo::show_info_dialog {} {
@@ -87,6 +95,7 @@
 
 proc userinfo::pack_entry {jid g row name text} {
     global font
+    variable options
 
     set w [w_from_jid $jid]
 
@@ -101,9 +110,9 @@
 #        set bgcolor [lindex [$g.$name configure -background] 4]
         set bgcolor [option get $g background Notebook]
 	if {[info tclversion] >= 8.4} {
-    	    $g.$name configure -state readonly -relief flat -highlightcolor $bgcolor -takefocus 0
+    	    $g.$name configure -state readonly -relief $options(userinfo_style) -highlightcolor $bgcolor -takefocus 0
 	} else {
-	    $g.$name configure -state disabled -relief flat -background $bgcolor
+	    $g.$name configure -state disabled -relief $options(userinfo_style) -background $bgcolor
 	}
     }
 
@@ -117,11 +126,12 @@
 proc userinfo::pack_text_entry {jid g row name text} {
     global font
     variable userinfo
+    variable options
 
     set w [w_from_jid $jid]
 
     label $g.l$name -text $text
-    text $g.$name -height 1 -state disabled -relief flat -background [option get $g background Notebook]
+    text $g.$name -height 1 -state disabled -relief $options(userinfo_style) -background [option get $g background Notebook]
     $g.$name tag configure emphasized -elide 1
     $g.$name tag configure nonemphasized -elide 0
     fill_user_description $g.$name userinfo($name,$jid) 0