Changeset main,11 for main/flat-menu.lisp

Timestamp:

10/19/2007 05:50:23 PM (19 years ago)

Author:

David Owen <dsowen@…>

branch-nick:

tui

parents:

Rev	Tree	Chgset
10	@main,10	[main,10]
9.1.1	@main,9.1.1	[main,9.1.1]

revision id:

dsowen@tux-20071019175023-94xlapjzdtidub95

Message:

Sync to central.

File:

• main/flat-menu.lisp (modified) (1 diff)

main/flat-menu.lisp

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