Diff of /tcl/pdtk_canvas.tcl [1bbc14] .. [730cfa]  Maximize  Restore

  Switch to side-by-side view

--- a/tcl/pdtk_canvas.tcl
+++ b/tcl/pdtk_canvas.tcl
@@ -331,7 +331,9 @@
     set ::windowname($mytoplevel) $name ;# TODO add path to this
     if {$::windowingsystem eq "aqua"} {
         if {[file exists "$path/$name"]} {
-            wm attributes $mytoplevel -modified $dirty -titlepath "$path/$name"
+            # for some reason -titlepath can still fail so just catch it 
+            catch {wm attributes $mytoplevel -modified $dirty \
+                -titlepath "$path/$name"}
         }
         wm title $mytoplevel "$name$arguments"
     } else {

Get latest updates about Open Source Projects, Conferences and News.

Sign up for the SourceForge newsletter:





No, thanks