Changeset 11235

Timestamp:

Oct 27, 2008, 1:22:30 AM (12 years ago)

Author:

gb

Message:

Finally solve the Big Mystery of why this doesn't work when running
under SLIME.

File:

• trunk/source/examples/mswin.lisp (modified) (1 diff)

trunk/source/examples/mswin.lisp

@@ -148 +148 @@
         (when (%null-ptr-p hwnd)
           (error "CreateWindow failed: ~a" (ccl::%windows-error-string (#_GetLastError))))
+        ;; Depending on how the lisp process was created, the first call
+        ;; to #_ShowWindow in that process might ignore its argument
+        ;; (and instead use an argument specified in the STARTUPINFO
+        ;; structure passed to #_CreateProcess.)  SLIME under FSF Emacs
+        ;; runs the lisp with this flag set, and it's possible to waste
+        ;; a week or two trying to track this down.  (Trust me.)
+        (#_ShowWindow hwnd #$SW_SHOW)
+        ;; In case the parent process said to ignore #_ShowWindow's argument
+        ;; the first time it's called, call #_ShowWindow again.  This seems
+        ;; to be harmless, if a little strange ...
         (#_ShowWindow hwnd #$SW_SHOW)
         (#_UpdateWindow hwnd)