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

- [GUI] chaged code to match the new nodgui API related to both modal and non-modal toplevel; 

- [GUI] fixed callback to make visible the next matched text in a gemtext search.
This commit is contained in:
cage 2023-05-03 16:12:23 +02:00
parent 1a886affa3
commit be04ddc99c
4 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/gui/client/certificates-window.lisp
View File

@ -114,7 +114,7 @@
cert-file
key-file)
(resync-rows certificate-frame (all-rows))
(gui:break-mainloop))
(gui:exit-from-toplevel (gui:master import-window)))
(error (e)
(client-main-window::notify-request-error e)))))))
@ -175,9 +175,10 @@
:command
(import-certificate-clsr object certificate-frame)))
(setf cancel-button (make-instance 'gui:button
:text (_ "Cancel")
:master buttons-frame
:command (lambda () (gui:break-mainloop))))
:text (_ "Cancel")
:master buttons-frame
:command
(lambda () (gui:exit-from-toplevel (gui:master object)))))
(gui:grid url-label 0 0)
(gui:grid url-entry 1 0)
(gui:grid cert-label 3 0)

2
src/gui/client/gui-goodies.lisp
View File

@ -112,7 +112,7 @@
:master toplevel
:command (lambda ()
(setf res (gui-mw:secret-string widget))
(gui:break-mainloop)))))
(gui:exit-from-modal-toplevel toplevel)))))
(gui:grid label 0 0 :sticky :news)
(gui:grid widget 1 0 :sticky :news)
(gui:grid ok-button 1 1 :sticky :news)))

2
src/gui/client/menu-command.lisp
View File

@ -46,7 +46,7 @@
(gui:wait-complete-redraw)))))
(defun quit ()
(gui:break-mainloop)
(gui:exit-nodgui)
(client-events:stop-events-loop)
(comm:close-server))

7
src/gui/client/search-frame.lisp
View File

@ -45,8 +45,8 @@
(gui:grid case-sensitive-checkbox 0 4 :sticky :nws :padx +minimum-padding+)
(gui:grid button-close 0 5 :sticky :ne)
(gui:grid-columnconfigure frame 5 :weight 1)
(gui-goodies:attach-tooltips ((button-next frame) (_ "next matched text"))
((button-previous frame) (_ "previous matched text"))
(gui-goodies:attach-tooltips ((button-next frame) (_ "make next match visible"))
((button-previous frame) (_ "make previous match visible"))
(button-close (_ "end searching")))
(gui:bind (entry frame)
#$<KeyPress-Return>$
@ -66,8 +66,7 @@
(lambda ()
(when (matches frame)
(setf (counter frame) (rem (1+ (counter frame)) (length (matches frame))))
(gui:see gemtext-widget `(:tag ,(gui:match-start (elt (matches frame) (counter frame)))
:first)))))
(gui:see gemtext-widget (gui:match-start (elt (matches frame) (counter frame)))))))
(setf (gui:command (button-previous frame))
(lambda ()
(when (matches frame)