cage
/
tinmop
mirror of https://codeberg.org/cage/tinmop/
1
0
Fork 0
Code Issues

- fixed slot and reader name.

This commit is contained in:
cage 2022-03-04 19:36:56 +01:00
parent d1451610dd
commit 6cfdc0072b
1 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
src/open-message-link-window.lisp
View File

@ -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