cage/tinmop
1
0
Fork 0
mirror of https://codeberg.org/cage/tinmop/ synced 2025-06-05 01:09:17 +02:00
Code Issues Activity

- [GUI] improved visuals of bookmark managing window;

Browse Source 
- [GUI] fixed italian translation;

- [GUI] added document edit icon.
This commit is contained in:
cage
2023-04-10 11:21:48 +02:00
parent 89dea0995e
commit cf7fe38829
4 changed files with 15 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

BIN
data/icons/fmw_document-edit.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 1.4 KiB

4
po/it.po
View File

@@ -9,7 +9,7 @@ msgstr ""
"Project-Id-Version: tinmop 0.0.1\n"
"Report-Msgid-Bugs-To: https://notabug.org/cage/tinmop/\n"
"POT-Creation-Date: 2023-04-09 13:49+0200\n"
"PO-Revision-Date: 2023-04-09 13:57+0200\n"
"PO-Revision-Date: 2023-04-10 10:51+0200\n"
"Last-Translator: cage <cage@invalid.org>\n"
"Language-Team: Italian\n"
"Language: it\n"
@@ -428,7 +428,7 @@ msgstr[1] "~a elementi cancellati"
#: src/gui/client/bookmark-window.lisp:74 src/gui/client/main-window.lisp:200
msgid "Bookmarks"
msgstr "I miei segnalibri"
msgstr "Segnalibri"
#: src/gui/client/bookmark-window.lisp:84
msgid "Filter:"

21
src/gui/client/bookmark-window.lisp
View File

@@ -42,13 +42,13 @@
section-entry
description-entry))))
(gui-goodies:attach-tooltips (add-button (_ "add address bookmarks page")))
(gui:grid iri-label 0 0 :sticky :nwes)
(gui:grid iri-entry 1 0 :sticky :nwes)
(gui:grid section-label 2 0 :sticky :nwes)
(gui:grid section-entry 3 0 :sticky :nwes)
(gui:grid description-label 4 0 :sticky :nwes)
(gui:grid description-entry 5 0 :sticky :nwes)
(gui:grid buttons-frame 6 0 :sticky :s)
(gui:grid iri-label 0 0 :sticky :nwes :padx +minimum-padding+)
(gui:grid iri-entry 1 0 :sticky :nwes :padx +minimum-padding+)
(gui:grid section-label 2 0 :sticky :nwes :padx +minimum-padding+)
(gui:grid section-entry 3 0 :sticky :nwes :padx +minimum-padding+)
(gui:grid description-label 4 0 :sticky :nwes :padx +minimum-padding+)
(gui:grid description-entry 5 0 :sticky :nwes :padx +minimum-padding+)
(gui:grid buttons-frame 6 0 :sticky :s :padx +minimum-padding+)
(gui:grid add-button 0 0 :sticky :s))))
(defun init-window (master iri)
@@ -117,7 +117,10 @@
:command (update-bookmark-clsr toplevel
searchbox
bookmarks))))
(gui:grid searchbox 0 0)
(let ((searchbox-width (truncate (min (/ (gui:screen-width) 2
(gui:font-measure gui:+tk-text-font+ "0"))))))
(gui:configure (gui:listbox searchbox) :width searchbox-width))
(gui:grid searchbox 0 0 :padx (* 2 +minimum-padding+) :pady (* 2 +minimum-padding+))
(gui:grid delete-button 0 0 :sticky :s)
(gui:grid edit-button 0 1 :sticky :s)
(gui:grid buttons-frame 1 0 :sticky :s))))
(gui:grid buttons-frame 1 0 :sticky :s :padx (* 10 +minimum-padding+)))))

2
src/gui/client/icons.lisp
View File

@@ -20,7 +20,7 @@
(a:define-constant +document-accept+ "fmw_document-accept" :test #'string=)
(a:define-constant +document-edit+ "fmw_document-accept" :test #'string=)
(a:define-constant +document-edit+ "fmw_document-edit" :test #'string=)
(a:define-constant +folder+ "fmw_folder" :test #'string=)