cage/tinmop
1
0
Fork 0
mirror of https://codeberg.org/cage/tinmop/ synced 2025-01-30 04:14:47 +01:00
Code Issues

- fixed slot and reader name.

Browse Source
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) (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)) (defmethod refresh-config :after ((object open-message-link-window))
(open-attach-window:refresh-view-links-window-config object (open-attach-window:refresh-view-links-window-config object
swconf:+key-open-message-link-window+ 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 (defmethod resync-rows-db ((object open-message-link-window) &key
(redraw t) (redraw t)
@ -104,11 +109,7 @@
title-window title-window
border-window border-window
open-links-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)) (defmethod refresh-config :after ((object open-gemini-document-link-window))
(open-attach-window:refresh-view-links-window-config object (open-attach-window:refresh-view-links-window-config object