1
0
Fork 0

- [GUI] increased size of tour management window.

This commit is contained in:
cage 2023-04-14 19:01:32 +02:00
parent 340f98b618
commit 6dbc83555f
1 changed files with 13 additions and 3 deletions

View File

@ -31,7 +31,12 @@
(treeview (make-instance 'gui:scrolled-treeview (treeview (make-instance 'gui:scrolled-treeview
:master object :master object
:pack '(:side :top :expand t :fill :both) :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) (setf tree treeview)
(gui:treeview-heading tree gui:+treeview-first-column-id+ :text (_ "Address")) (gui:treeview-heading tree gui:+treeview-first-column-id+ :text (_ "Address"))
(resync-rows object new-rows) (resync-rows object new-rows)
@ -74,7 +79,12 @@
:command (shuffle-tour-clsr table)))) :command (shuffle-tour-clsr table))))
(gui-goodies:attach-tooltips (delete-button (_ "delete selected links")) (gui-goodies:attach-tooltips (delete-button (_ "delete selected links"))
(shuffle-button (_ "shuffle links"))) (shuffle-button (_ "shuffle links")))
(gui:grid table 0 0 :sticky :nwe) (gui:set-geometry-wh toplevel
(gui:grid buttons-frame 1 0 :sticky :s) (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 delete-button 0 0 :sticky :s)
(gui:grid shuffle-button 0 1 :sticky :s)))) (gui:grid shuffle-button 0 1 :sticky :s))))