Eskil

Diff
Login

Differences From Artifact [3ea274676f]:

To Artifact [616b66ac38]:


1818
1819
1820
1821
1822
1823
1824


1825

1826
1827
1828
1829
1830


1831
1832




1833













1834
1835
1836
1837
1838
1839
1840
1818
1819
1820
1821
1822
1823
1824
1825
1826
1827
1828
1829
1830
1831
1832

1833
1834
1835
1836
1837
1838
1839
1840

1841
1842
1843
1844
1845
1846
1847
1848
1849
1850
1851
1852
1853
1854
1855
1856
1857
1858
1859
1860







+
+

+




-
+
+


+
+
+
+
-
+
+
+
+
+
+
+
+
+
+
+
+
+







    grid $w.ok $w.ca -padx 3 -pady 3
    grid columnconfigure $w $w.t -weight 1 -uniform a
    grid rowconfigure    $w $w.t -weight 1

    if {[llength $postcmd] > 1} {
        # TODO: Scrolled frame
        ttk::frame $w.f -padding 1
        grid $w.f - -sticky news -padx 3 -pady 3

        set t 0
        set maxW 0
        foreach fileName $postcmd {
            set ::eskil($top,commit,fileselect$t) 1
            ttk::checkbutton $w.f.cb$t -text $fileName \
                    -variable ::eskil($top,commit,fileselect$t)
            grid $w.f.cb$t -sticky "w" -padx 1 -pady 1
            set rw [winfo reqwidth $w.f.cb$t]
            set maxW [expr {max($maxW, $rw)}]
            incr t
        }
        # Figure out how many columns
        set rw [winfo reqwidth $w.t]
        set cols [expr {max($rw / $maxW, 2)}]
        set rows [expr {($t + $cols - 1) / $cols}]
        grid $w.f -sticky news -padx 3 -pady 3

        set t 0
        set row 0
        set col 0
        foreach fileName $postcmd {
            grid $w.f.cb$t -row $row -column $col -sticky "w" -padx 1 -pady 1
            incr t
            incr row
            if {$row >= $rows} {
                incr col
                set row 0
            }
        }
    }

    tkwait visibility $w
    focus -force $w.t
    tkwait window $w.dummy

    if {!$::eskil($top,logdialogok)} {