[PD-cvs] SF.net SVN: pure-data: [9944] branches/pd-extended/v0-40/pd/src/u_main.tk

[eighthave at users.sourceforge.net]

Revision: 9944
          http://pure-data.svn.sourceforge.net/pure-data/?rev=9944&view=rev
Author:   eighthave
Date:     2008-05-29 16:34:34 -0700 (Thu, 29 May 2008)

Log Message:
-----------
widened help browser a bit and turned of resizing, since it doesn't work anyway

Modified Paths:
--------------
    branches/pd-extended/v0-40/pd/src/u_main.tk

Modified: branches/pd-extended/v0-40/pd/src/u_main.tk
===================================================================
--- branches/pd-extended/v0-40/pd/src/u_main.tk	2008-05-29 23:22:26 UTC (rev 9943)
+++ branches/pd-extended/v0-40/pd/src/u_main.tk	2008-05-29 23:34:34 UTC (rev 9944)
@@ -641,7 +641,8 @@
         raise .help_browser
     } else {
         toplevel .help_browser -menu .mbar
-        wm title .help_browser "Pd Documentation Browser"
+        wm title .help_browser "Help Browser"
+        wm resizable .help_browser 0 0
         frame .help_browser.frame
         pack .help_browser.frame -side top -fill both
         pdtk_standardkeybindings .help_browser
@@ -664,7 +665,7 @@
     }
     # 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]
+                             [list "$b-scroll" set] -height 20 -width 22 -exportselection 0]
     pack $current_listbox [scrollbar "$b-scroll" -command [list $current_listbox yview]] \
         -side left -expand 1 -fill y -anchor w
     foreach item [concat [lsort -dictionary [glob -directory $dir -nocomplain -types {d} -- *]] \


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.