diff options
| author | Miller Puckette <millerpuckette@users.sourceforge.net> | 2007-08-02 00:33:50 +0000 |
|---|---|---|
| committer | Miller Puckette <millerpuckette@users.sourceforge.net> | 2007-08-02 00:33:50 +0000 |
| commit | d94dbe2eca3ace84a23bfff30c729662a4486a5a (patch) | |
| tree | 5868261a1706a36112b5927f2d013613fe4f5971 /pd/src/u_main.tk | |
| parent | 4e5ef76c3a0a96b04eaf605af434094896984319 (diff) | |
fix name clash in s_audio_jack.c (again) and applied some sourceforge patches
svn path=/trunk/; revision=8342
Diffstat (limited to 'pd/src/u_main.tk')
| -rw-r--r-- | pd/src/u_main.tk | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/pd/src/u_main.tk b/pd/src/u_main.tk index 8c43905b..b44aedab 100644 --- a/pd/src/u_main.tk +++ b/pd/src/u_main.tk @@ -434,16 +434,16 @@ proc menu_doc_browser {dir} { proc doc_make_listbox {base dir count} { # check for [file readable]? - if { [info tclversion] >= 8.5 } { + #if { [info tclversion] >= 8.5 } { # requires Tcl 8.5 but probably deals with special chars better # destroy {expand}[lrange [winfo children $base] [expr {2 * $count}] end] - } else { + #} else { if { [catch { eval destroy [lrange [winfo children $base] \ [expr { 2 * $count }] end] } \ errorMessage] } { puts stderr "doc_make_listbox: error listing $dir\n" } - } + #} # exportselection 0 looks good, but selection gets easily out-of-sync set current_listbox [listbox "[set b "$base.listbox$count"]-list" -yscrollcommand \ [list "$b-scroll" set] -height 20 -exportselection 0] |