Changeset tag,last-working,9.1.1 for tag/last-working

Timestamp:

10/19/2007 05:49:27 PM (19 years ago)

Author:

David Owen <dsowen@…>

branch-nick:

tui

revision id:

dsowen@tux-20071019174927-60gza59webrop0fz

Message:

Fix: Force screen refresh, instead of assuming getch will be called.

File:

• tag/last-working/flat-menu.lisp (modified) (1 diff)

tag/last-working/flat-menu.lisp

@@ -63 +63 @@
     (with-accessors ((selected selected)) menu
       (loop
+         (cdk::c-refresh-window window)
          (let ((ch (cdk::c-wgetch window)))
            (cond