*** tkFont.c	Thu Feb  3 15:27:26 2000
--- /home/ccox/tk8.3.2/generic/tkFont.c	Sat Feb 17 22:47:23 2001
***************
*** 3465,3477 ****
      double d;
  
      if (size < 0) {
! 	return -size;
      }
  
      d = size * 25.4 / 72.0;
      d *= WidthOfScreen(Tk_Screen(tkwin));
      d /= WidthMMOfScreen(Tk_Screen(tkwin));
      return (int) (d + 0.5);
  }
  
  /*
--- 3465,3489 ----
      double d;
  
      if (size < 0) {
! 		return -size;
! 	} else {
! 		return size;
      }
  
+ /* Controverial... apparently... but I really don't like this code.
+    If you have access to a newsgroup archive.... you can read my
+    posts as to why this can never work.... and why you shouldn't
+    even try to compensate because of the font flexibility in Unix.
+    You can't win this one!
+ 		- Chris (ImPress)
+ */
+ #if 0
      d = size * 25.4 / 72.0;
      d *= WidthOfScreen(Tk_Screen(tkwin));
      d /= WidthMMOfScreen(Tk_Screen(tkwin));
      return (int) (d + 0.5);
+ #endif
+ 
  }
  
  /*
***************
*** 3499,3506 ****
      double d;
  
      if (size >= 0) {
! 	return size;
!     }
  
      d = -size * 72.0 / 25.4;
      d *= WidthMMOfScreen(Tk_Screen(tkwin));
--- 3511,3520 ----
      double d;
  
      if (size >= 0) {
! 		return size;
!     } else {
! 		return -size;
! 	}
  
      d = -size * 72.0 / 25.4;
      d *= WidthMMOfScreen(Tk_Screen(tkwin));