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

[junrue at common-lisp.net]

Author: junrue
Date: Thu Aug 10 18:06:32 2006
New Revision: 206

Modified:
   trunk/src/uitoolkit/widgets/window.lisp
Log:
fixed a regression for clisp caused by renaming the child window visitor callback

Modified: trunk/src/uitoolkit/widgets/window.lisp
==============================================================================
--- trunk/src/uitoolkit/widgets/window.lisp	(original)
+++ trunk/src/uitoolkit/widgets/window.lisp	Thu Aug 10 18:06:32 2006
@@ -224,7 +224,7 @@
                                  (cffi:pointer-address hwnd))
 #+clisp
         (gfs::enum-child-windows hwnd
-                                 #'child_window_visitor
+                                 #'child-window-visitor
                                  (cffi:pointer-address hwnd))
       (setf (child-visitor-func tc) nil))
     (let ((tmp (reverse (child-visitor-results tc))))