From 6dbc83555fda211061edb0f38f9ae0e99c8cd48a Mon Sep 17 00:00:00 2001 From: cage Date: Fri, 14 Apr 2023 19:01:32 +0200 Subject: [PATCH] - [GUI] increased size of tour management window. --- src/gui/client/tour-window.lisp | 16 +++++++++++++--- 1 file changed, 13 insertions(+), 3 deletions(-) diff --git a/src/gui/client/tour-window.lisp b/src/gui/client/tour-window.lisp index cf98867..149e242 100644 --- a/src/gui/client/tour-window.lisp +++ b/src/gui/client/tour-window.lisp @@ -31,7 +31,12 @@ (treeview (make-instance 'gui:scrolled-treeview :master object :pack '(:side :top :expand t :fill :both) - :columns (list (_ "Description"))))) + :columns (list (_ "Description")) + :columns-min-width + (make-list 2 + :initial-element + (/ (gui-goodies:quite-good-dialog-width nil) + 2))))) (setf tree treeview) (gui:treeview-heading tree gui:+treeview-first-column-id+ :text (_ "Address")) (resync-rows object new-rows) @@ -74,7 +79,12 @@ :command (shuffle-tour-clsr table)))) (gui-goodies:attach-tooltips (delete-button (_ "delete selected links")) (shuffle-button (_ "shuffle links"))) - (gui:grid table 0 0 :sticky :nwe) - (gui:grid buttons-frame 1 0 :sticky :s) + (gui:set-geometry-wh toplevel + (truncate (/ (gui:screen-width) 2)) + (truncate (/ (gui:screen-height) 2))) + (gui:place table 0 0 + :width (truncate (/ (gui:screen-width) 2)) + :height (truncate (* 3/8 (gui:screen-height)))) + (gui:place buttons-frame 0 (truncate (* 4/10 (gui:screen-height)))) (gui:grid delete-button 0 0 :sticky :s) (gui:grid shuffle-button 0 1 :sticky :s))))