mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-06 02:30:42 -08:00
Code Issues Projects Releases Wiki Activity

Use text areas for events

Browse source
This commit is contained in:
David Botton 2022-02-28 10:12:27 -05:00
parent 89c923b8f8
commit 312400d0d6
4 changed files with 31 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

16
source/clog-dbi.lisp
View file

@ -357,7 +357,12 @@ the displayed option."
;; Implementation - clog-db-table
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defclass clog-db-table (clog-one-row clog-table)()
(defclass clog-db-table (clog-one-row clog-table)
((on-header
:accessor on-header
:initform nil
:documentation "on-header event, called after get-row and
before outputing rows. (private)"))
(:documentation "CLOG Database Table View Object"));
;;;;;;;;;;;;;;;;;;;;;
@ -395,6 +400,8 @@ the displayed option."
;; loop through fetches
(setf (rowid obj) nil)
(setf (inner-html obj) "")
(when (on-header obj)
(funcall (on-header obj) obj))
(loop
(let ((row (dbi:fetch (queryid obj))))
(unless row
@ -414,3 +421,10 @@ the displayed option."
(defmethod clear-row ((obj clog-db-table) panel)
(setf (inner-html obj) "")
(call-next-method))
(defgeneric set-on-header (clog-db-table on-header-handler)
(:documentation "Set the ON-HEADER-HANDLER for CLOG-DB-TABLE. If ON-HEADER-HANDLER
is nil unbind the event. The on-header event is called before the first row is output
after the table is cleared to all adding a header information to the table."))
(defmethod set-on-header ((obj clog-db-table) on-header-handler)
(setf (on-header obj) on-header-handler))