Ignore:
Timestamp:
Oct 27, 2008, 1:22:30 AM (11 years ago)
Author:
gb
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/examples/mswin.lisp

    r11232 r11235  
    148148        (when (%null-ptr-p hwnd)
    149149          (error "CreateWindow failed: ~a" (ccl::%windows-error-string (#_GetLastError))))
     150        ;; Depending on how the lisp process was created, the first call
     151        ;; to #_ShowWindow in that process might ignore its argument
     152        ;; (and instead use an argument specified in the STARTUPINFO
     153        ;; structure passed to #_CreateProcess.)  SLIME under FSF Emacs
     154        ;; runs the lisp with this flag set, and it's possible to waste
     155        ;; a week or two trying to track this down.  (Trust me.)
     156        (#_ShowWindow hwnd #$SW_SHOW)
     157        ;; In case the parent process said to ignore #_ShowWindow's argument
     158        ;; the first time it's called, call #_ShowWindow again.  This seems
     159        ;; to be harmless, if a little strange ...
    150160        (#_ShowWindow hwnd #$SW_SHOW)
    151161        (#_UpdateWindow hwnd)
Note: See TracChangeset for help on using the changeset viewer.