diff options
Diffstat (limited to 'src/main.lisp')
| -rw-r--r-- | src/main.lisp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/main.lisp b/src/main.lisp index 12c1483..5713a65 100644 --- a/src/main.lisp +++ b/src/main.lisp @@ -14,7 +14,7 @@ ;; application-frame. This application has only one pane. (:panes (title :title-pane - :display-time :command-loop + :display-time t :display-function 'display-title) (zone-price :application :display-time :command-loop @@ -118,7 +118,7 @@ (if (game:change-zone g dest) (progn (setf (cur-zone frame) (zone:name (game:get-cur-zone g))) - (format out "~a~%" (cur-zone frame)) + (setf (clim:pane-needs-redisplay (clim:get-frame-pane frame 'title)) t) (format out "Arrived in ~a" (zone:name (game:get-cur-zone g)))) (format out "Zone ~a does not exist!" dest))))) |