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.