Work at SourceForge, help us to make it a better place! We have an immediate need for a Support Technician in our San Francisco or Denver office.

Close

Diff of /tcl/pd_menucommands.tcl [aeb0fd] .. [873c89] Maximize Restore

  Switch to side-by-side view

--- a/tcl/pd_menucommands.tcl
+++ b/tcl/pd_menucommands.tcl
@@ -127,12 +127,7 @@
         } elseif {$message eq "selectall"} {
             .pdwindow.text tag add sel 1.0 end
         } elseif {$message eq "menusaveas"} {
-            set contents [.pdwindow.text get -displaychars -- 1.0 end]
-            set filename [tk_getSaveFile -initialfile "pdwindow.txt" -defaultextension .txt]
-            if {$filename eq ""} return; # they clicked cancel
-            set f [open $filename w]
-            puts $f $contents
-            close $f
+            ::pdwindow::save_logbuffer_to_file
         }
     }
 }