[graphic-forms-cvs] r207 - in trunk/src: demos/textedit demos/unblocked uitoolkit/widgets

[junrue at common-lisp.net]

Author: junrue
Date: Thu Aug 10 22:28:29 2006
New Revision: 207

Modified:
   trunk/src/demos/textedit/textedit-window.lisp
   trunk/src/demos/unblocked/unblocked-window.lisp
   trunk/src/uitoolkit/widgets/widget.lisp
Log:
last of the tweaks for SBCL

Modified: trunk/src/demos/textedit/textedit-window.lisp
==============================================================================
--- trunk/src/demos/textedit/textedit-window.lisp	(original)
+++ trunk/src/demos/textedit/textedit-window.lisp	Thu Aug 10 22:28:29 2006
@@ -223,6 +223,8 @@
   (setf *textedit-startup-dir* (ext:cd))
 #+lispworks
   (setf *textedit-startup-dir* (hcl:get-working-directory))
+#+sbcl
+  (setf *textedit-startup-dir* *default-pathname-defaults*)
   (let ((menubar (gfw:defmenu ((:item "&File"                      :callback #'manage-textedit-file-menu
                                 :submenu ((:item "&New"            :callback #'textedit-file-new)
                                           (:item "&Open..."        :callback #'textedit-file-open)

Modified: trunk/src/demos/unblocked/unblocked-window.lisp
==============================================================================
--- trunk/src/demos/unblocked/unblocked-window.lisp	(original)
+++ trunk/src/demos/unblocked/unblocked-window.lisp	Thu Aug 10 22:28:29 2006
@@ -166,6 +166,8 @@
   (setf *unblocked-startup-dir* (ext:cd))
 #+lispworks
   (setf *unblocked-startup-dir* (hcl:get-working-directory))
+#+sbcl
+  (setf *unblocked-startup-dir* *default-pathname-defaults*)
   (let ((menubar (gfw:defmenu ((:item "&File"
                                 :submenu ((:item "&New" :callback #'new-unblocked)
                                           (:item "&Restart" :callback #'restart-unblocked)

Modified: trunk/src/uitoolkit/widgets/widget.lisp
==============================================================================
--- trunk/src/uitoolkit/widgets/widget.lisp	(original)
+++ trunk/src/uitoolkit/widgets/widget.lisp	Thu Aug 10 22:28:29 2006
@@ -307,7 +307,7 @@
 (defmethod redraw ((self widget))
   (let ((hwnd (gfs:handle self)))
     (unless (gfs:null-handle-p hwnd)
-      (gfs::invalidate-rect hwnd nil 1))))
+      (gfs::invalidate-rect hwnd (cffi:null-pointer) 1))))
 
 (defmethod resizable-p :before ((self widget))
   (if (gfs:disposed-p self)