From 6cfdc0072b2ff1097c7401447a0ceaf742d30a59 Mon Sep 17 00:00:00 2001 From: cage Date: Fri, 4 Mar 2022 19:36:56 +0100 Subject: [PATCH] - fixed slot and reader name. --- src/open-message-link-window.lisp | 15 ++++++++------- 1 file changed, 8 insertions(+), 7 deletions(-) diff --git a/src/open-message-link-window.lisp b/src/open-message-link-window.lisp index 49590d0..0296d7c 100644 --- a/src/open-message-link-window.lisp +++ b/src/open-message-link-window.lisp @@ -16,12 +16,17 @@ (in-package :open-message-link-window) -(defclass open-message-link-window (open-attach-window:open-attach-window) ()) +(defclass open-message-link-window (open-attach-window:open-attach-window) + ((center-position + :initform nil + :initarg :center-position + :reader center-position-p + :writer (setf center-position)))) (defmethod refresh-config :after ((object open-message-link-window)) (open-attach-window:refresh-view-links-window-config object swconf:+key-open-message-link-window+ - :center-position (center-position object))) + :center-position (center-position-p object))) (defmethod resync-rows-db ((object open-message-link-window) &key (redraw t) @@ -104,11 +109,7 @@ title-window border-window open-links-window) - ((center-position - :initform nil - :initarg :center-position - :reader center-position-p - :writer (setf center-position)))) + ()) (defmethod refresh-config :after ((object open-gemini-document-link-window)) (open-attach-window:refresh-view-links-window-config object