svk/projman
svk/projman
1
0
Fork 0
Code Issues 1 Pull Requests Actions Packages Projects Releases Wiki Activity

Added option "constrainedwidth true" for ScrollableFrame

Browse Source
This commit is contained in:
Sergey Kalinin 2018-02-20 21:18:18 +03:00
parent 22c9a76f27
commit 2ce14eea80
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lib/settings.tcl
View File

@ -141,7 +141,7 @@ proc Settings {nBook} {
set scrwin [ScrolledWindow $main.scrwin -relief flat -bd 2 -bg $editor(bg)] set scrwin [ScrolledWindow $main.scrwin -relief flat -bd 2 -bg $editor(bg)]
#pack $scrwin -fill both -expand true #pack $scrwin -fill both -expand true
set scrfrm [ScrollableFrame $main.frm -bg $editor(bg)] set scrfrm [ScrollableFrame $main.frm -bg $editor(bg) -constrainedwidth true]
pack $scrwin -fill both -expand true pack $scrwin -fill both -expand true
pack $scrfrm -fill both -expand true pack $scrfrm -fill both -expand true
@ -280,7 +280,7 @@ proc Settings {nBook} {
set editFrm [$nb insert end editor -text "[::msgcat::mc "Editor"]"] set editFrm [$nb insert end editor -text "[::msgcat::mc "Editor"]"]
set scrwin [ScrolledWindow $editFrm.scrwin -relief flat -bd 2 -bg $editor(bg)] set scrwin [ScrolledWindow $editFrm.scrwin -relief flat -bd 2 -bg $editor(bg)]
set scrfrm [ScrollableFrame $editFrm.frm -bg $editor(bg)] set scrfrm [ScrollableFrame $editFrm.frm -bg $editor(bg) -constrainedwidth true]
pack $scrwin -fill both -expand true -fill both pack $scrwin -fill both -expand true -fill both
pack $scrfrm -fill both -expand true -fill both pack $scrfrm -fill both -expand true -fill both
$scrwin setwidget $scrfrm $scrwin setwidget $scrfrm
@ -896,3 +896,4 @@ proc SaveSettings {} {