1
Author: IOhannes m zmölnig
2
Description: in the helpbrowser, sort directories before files to ease
4
Forward: https://sourceforge.net/tracker/?func=detail&atid=478072&aid=3296739&group_id=55736
5
--- puredata.orig/tcl/helpbrowser.tcl
6
+++ puredata/tcl/helpbrowser.tcl
8
-height 20 -width 23 -exportselection 0 -bd 0]
9
pack $current_listbox [scrollbar "$b-scroll" -command [list $current_listbox yview]] \
10
-side left -fill both -expand 1
11
- foreach item [concat [lsort [concat $libdirlist $helplist]]] {
12
- $current_listbox insert end $item
14
+ # first show the directories (for easier navigation)
15
+ foreach item [lsort $libdirlist] {
16
+ $current_listbox insert end $item
18
+ # then show the (potentially) long list of patches
19
+ foreach item [lsort $helplist] {
20
+ $current_listbox insert end $item
23
bind $current_listbox <Button-1> \
24
[list ::helpbrowser::root_navigate %W %x %y]
25
bind $current_listbox <Key-Return> \