Changeset 743 for trunk

Timestamp:

Dec 4, 2009 5:11:16 PM (13 years ago)

Author:

toby

Message:

# on 2003/11/05 22:18:43, toby did:
prepare for OSX -- catch puts

File:

• trunk/notebook.tcl (modified) (1 diff, 3 props)

trunk/notebook.tcl

@@ -210 +210 @@
   if {$Notebook($w,c$n,command) != {}} {
       if [catch {eval uplevel #0 {$Notebook($w,c$n,command)} } errmsg] {
-          puts "Notebook command error: $errmsg"
+          catch {puts "Notebook command error: $errmsg"}
       }
   }