[mcclim-cvs] CVS mcclim/Drei

[thenriksen]

Update of /project/mcclim/cvsroot/mcclim/Drei
In directory clnet:/tmp/cvs-serv31329/Drei

Modified Files:
	drei.lisp 
Log Message:
Band-aid fix for the tab-width issue in Drei views. Really, views have
no way of having a reasonable idea of how wide a tab or space
character should be.


--- /project/mcclim/cvsroot/mcclim/Drei/drei.lisp	2007/11/19 22:16:47	1.18
+++ /project/mcclim/cvsroot/mcclim/Drei/drei.lisp	2007/11/19 22:37:41	1.19
@@ -136,7 +136,9 @@
   1)
 
 (defmethod tab-space-count ((tabify tabify-mixin))
-  (round (tab-width tabify) (space-width tabify)))
+  (if (and (tab-width tabify) (space-width tabify))
+      (round (tab-width tabify) (space-width tabify))
+      8))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;;