From: Steven <ste...@ya...> - 2011-10-28 08:36:44
|
Joost wrote: > Actually, I checked the current development version of Scid and > noticed that the database sorting stuff is entirely gone. To my > unpleasant surprise, I must admit. It was probably an oversight of commiter to use the same proc name for the new procedure. At the risk of stating the b***ing obvious, It needs renaming to something unique. --- tcl/windows/gamelist.tcl.orig 2011-10-28 18:37:49.000000000 +1000 +++ tcl/windows/gamelist.tcl 2011-10-28 18:38:47.000000000 +1000 @@ -270,7 +270,7 @@ ttk::frame $w.b.space -width 0.25c ttk::frame $w.b.space2 -width 0.25c - ttk::button $w.b.sortbutton -textvar ::tr(GsortSort) -style Pad0.Small.TButton -command { makeSortWin } + ttk::button $w.b.sortbutton -textvar ::tr(GsortSort) -style Pad0.Small.TButton -command { glistSortWin } ttk::button $w.b.export -textvar ::tr(Save...) -style Pad0.Small.TButton -command openExportGList ttk::button $w.b.help -textvar ::tr(Help) -style Pad0.Small.TButton -command { helpWindow GameList } ttk::button $w.b.close -textvar ::tr(Close) -style Pad0.Small.TButton -command { focus .; destroy .glistWin } @@ -831,7 +831,7 @@ return } -proc makeSortWin {} { +proc glistSortWin {} { global sortCriteria critList set w .glSortWin if {[winfo exists $w]} { |