[graphic-forms-cvs] r181 - trunk/src/uitoolkit/widgets

[junrue at common-lisp.net]

Author: junrue
Date: Fri Jul  7 02:35:23 2006
New Revision: 181

Modified:
   trunk/src/uitoolkit/widgets/edit.lisp
Log:
somehow missed a stray call to obsolete replace-edit-wordbreak-func

Modified: trunk/src/uitoolkit/widgets/edit.lisp
==============================================================================
--- trunk/src/uitoolkit/widgets/edit.lisp	(original)
+++ trunk/src/uitoolkit/widgets/edit.lisp	Fri Jul  7 02:35:23 2006
@@ -95,9 +95,7 @@
                                ex-style
                                (increment-widget-id (thread-context)))))
       (setf (slot-value self 'gfs:handle) hwnd)))
-  (init-control self)
-  (if (find :auto-hscroll (style-of self))
-    (replace-edit-wordbreak-func self)))
+  (init-control self))
 
 (defmethod line-count ((self edit))
   (if (gfs:disposed-p self)