From c7dbdf46a0ae76c15621fb4c4c320db1422b1e9b Mon Sep 17 00:00:00 2001 From: El-BG-1970 Date: Sat, 27 Aug 2022 16:46:30 +0200 Subject: redisplay title on goto only --- src/main.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/main.lisp') 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))))) -- cgit v1.2.3