summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tltcl
diff options
context:
space:
mode:
authorSiep Kroonenberg <siepo@cybercomm.nl>2018-11-24 20:46:16 +0000
committerSiep Kroonenberg <siepo@cybercomm.nl>2018-11-24 20:46:16 +0000
commit6698b740599d200209c0490272b9c796d3b13f68 (patch)
tree387f16913a394b89bd622e7cb542f29cf18de324 /Master/tlpkg/tltcl
parentaf48fda38e7aaa979a1f61468a1ee8ac4055cc74 (diff)
More resizing-related changes; revised collections dialog
git-svn-id: svn://tug.org/texlive/trunk@49240 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/tltcl')
-rw-r--r--Master/tlpkg/tltcl/tltcl.tcl42
1 files changed, 21 insertions, 21 deletions
diff --git a/Master/tlpkg/tltcl/tltcl.tcl b/Master/tlpkg/tltcl/tltcl.tcl
index e2fe958f459..e51896973f9 100644
--- a/Master/tlpkg/tltcl/tltcl.tcl
+++ b/Master/tlpkg/tltcl/tltcl.tcl
@@ -333,7 +333,6 @@ proc place_dlg {wnd {p "."}} {
if {$wy < 0} { set wy 0}
wm geometry $wnd [format "+%d+%d" $wx $wy]
update idletasks
- wm resizable $wnd 0 0 ; # can be overruled later
wm attributes $wnd -topmost
wm state $wnd normal
raise $wnd $p
@@ -402,12 +401,29 @@ if {$::tcl_platform(platform) eq "unix"} {
# wallpaper
pack [ttk::frame .browser.bg -padding 3] -fill both -expand 1
+
+ # ok and cancel buttons
+ pack [ttk::frame .browser.fr1] \
+ -in .browser.bg -side bottom -fill x
+ ppack [ttk::button .browser.ok -text [__ "Ok"]] \
+ -in .browser.fr1 -side right
+ ppack [ttk::button .browser.cancel -text [__ "Cancel"]] \
+ -in .browser.fr1 -side right
+ .browser.ok configure -command {
+ set ::dialog_ans [.browser.tree focus]
+ destroy .browser
+ }
+ .browser.cancel configure -command {
+ set ::dialog_ans ""
+ destroy .browser
+ }
+
## Create the tree and set it up
pack [ttk::frame .browser.fr0] -in .browser.bg -fill both -expand 1
set tree [ttk::treeview .browser.tree \
-columns {type} -displaycolumns {} -selectmode browse \
-yscroll ".browser.vsb set"]
- .browser.tree column 0 -minwidth 500 -stretch 0
+ .browser.tree column 0 -stretch 1
ttk::scrollbar .browser.vsb -orient vertical -command "$tree yview"
# hor. scrolling does not work, but toplevel and widget are resizable
$tree heading \#0 -text "/"
@@ -422,27 +438,11 @@ if {$::tcl_platform(platform) eq "unix"} {
}
## Arrange the tree and its scrollbar in the toplevel
- # horizontal scrolling does not work.
- # possible solution: very wide treeview in smaller paned window
- # (may as well use pack in the absence of a horizontal scrollbar)
- grid $tree .browser.vsb -sticky nsew -in .browser.fr0
+ # Horizontal scrolling does not work, but resizing does.
+ grid $tree -in .browser.fr0 -row 0 -column 0 -sticky nsew
+ grid .browser.vsb -in .browser.fr0 -row 0 -column 1 -sticky ns
grid columnconfigure .browser.fr0 0 -weight 1
grid rowconfigure .browser.fr0 0 -weight 1
-
- # ok and cancel buttons
- pack [ttk::frame .browser.fr1] -in .browser.bg -fill x -expand 1
- ppack [ttk::button .browser.ok -text [__ "Ok"]] \
- -in .browser.fr1 -side right
- ppack [ttk::button .browser.cancel -text [__ "Cancel"]] \
- -in .browser.fr1 -side right
- .browser.ok configure -command {
- set ::dialog_ans [.browser.tree focus]
- destroy .browser
- }
- .browser.cancel configure -command {
- set ::dialog_ans ""
- destroy .browser
- }
unset -nocomplain ::dialog_ans
# navigate tree to $initdir