diff options
| author | El-BG-1970 <elouan.gros.fr@gmail.com> | 2022-08-27 16:46:30 +0200 |
|---|---|---|
| committer | El-BG-1970 <elouan.gros.fr@gmail.com> | 2022-08-27 16:46:30 +0200 |
| commit | c7dbdf46a0ae76c15621fb4c4c320db1422b1e9b (patch) | |
| tree | 48e1c8a3f81c39995c3315a7d0c3bb26b4d4967a | |
| parent | b729d2f97a9002cd9810b07d5a8178c3f6dd83e9 (diff) | |
| download | transacc-c7dbdf46a0ae76c15621fb4c4c320db1422b1e9b.tar.gz | |
redisplay title on goto only
| -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))))) |