Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv14214
Modified Files: Tag: desiredata desire.tk Log Message: no error handling in proc atomically ... it's buggy and there's no real reason for it.
Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.600.2.393 retrieving revision 1.1.2.600.2.394 diff -C2 -d -r1.1.2.600.2.393 -r1.1.2.600.2.394 *** desire.tk 17 Aug 2007 20:58:35 -0000 1.1.2.600.2.393 --- desire.tk 18 Aug 2007 00:56:24 -0000 1.1.2.600.2.394 *************** *** 154,169 **** }
- # will be a wrapper for [catch {}]. - # to be continued... - proc begin {code args} { - uplevel 1 $code - set i 0 - set n [llength $args] - while {$i<$n} { - switch -- [lindex $args $i] { - } - } - } - proc lmake {start end} {for {set i $start} {$i<=$end} {incr i} {lappend l $i}; return $l} #-----------------------------------------------------------------------------------# --- 154,157 ---- *************** *** 458,463 **** set ubackup @undo_stack; set @undo_stack {} set rbackup @redo_stack; set @redo_stack {} ! set err [catch {uplevel 2 $code}] ! if {[string length $err]} {set err $errorInfo; post "atomically: $errorInfo"} set atom $@undo_stack set @undo_stack $ubackup --- 446,450 ---- set ubackup @undo_stack; set @undo_stack {} set rbackup @redo_stack; set @redo_stack {} ! uplevel 2 $code set atom $@undo_stack set @undo_stack $ubackup *************** *** 465,469 **** lappend @undo_stack [list $what $atom [lrange [info level -3] 1 end]] $self changed - if {[string length $err]} {post %s $err; post "atomically: $err"} }
--- 452,455 ---- *************** *** 3734,3738 **** netsend [list .$self "push"] foreach mess [pd_mess_split [$::clipboard value]] { - puts "$in: $mess" set type [lindex $mess 1] if {$type == "restore"} {incr in -1} --- 3720,3723 ----