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

[eighthave at users.sourceforge.net]

Revision: 10081
          http://pure-data.svn.sourceforge.net/pure-data/?rev=10081&view=rev
Author:   eighthave
Date:     2008-06-24 08:07:52 -0700 (Tue, 24 Jun 2008)

Log Message:
-----------
added key binding for closing text windows, like the About Pd window

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-06-24 13:31:33 UTC (rev 10080)
+++ branches/pd-extended/v0-40/pd/src/u_main.tk	2008-06-24 15:07:52 UTC (rev 10081)
@@ -563,6 +563,7 @@
     global doc_number
     global pd_guidir
     global pd_myversion
+	global ctrl_key
     set name [format ".help%d" $doc_number]
     toplevel $name
     text $name.text -relief raised -bd 2 -font text_font \
@@ -570,6 +571,7 @@
     scrollbar $name.scroll -command "$name.text yview"
     pack $name.scroll -side right -fill y
     pack $name.text -side left -fill both -expand 1
+    bind $name <$ctrl_key-Key-w> [concat destroy $name]
     
     set f [open $filename]
     while {![eof $f]} {


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