[PD-cvs] pd/src desire.tk,1.1.2.235,1.1.2.236
Mathieu Bouchard
matju at users.sourceforge.net
Tue Jun 13 09:31:28 CEST 2006
Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv27540
Modified Files:
Tag: devel_0_39
desire.tk
Log Message:
.
Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.235
retrieving revision 1.1.2.236
diff -C2 -d -r1.1.2.235 -r1.1.2.236
*** desire.tk 13 Jun 2006 06:26:00 -0000 1.1.2.235
--- desire.tk 13 Jun 2006 07:31:25 -0000 1.1.2.236
***************
*** 85,99 ****
}
! # finds the current length of the callstack, minus one.
! # uplevel [thislevel] {...} gives access to the global context.
! proc lastlevel {} {
! set m 0; set n 1
! while {![catch {uplevel $n {}}]} {set m $n; incr n $n}
! # from now on, m <= lastlevel < n
! while {$n-$m>1} {
! set p [expr ($m+$n)/2]
! if {[catch {uplevel $p {}}]} {set n $p} {set m $p}
}
- return [expr $m-1]
}
--- 85,97 ----
}
! # to be continued...
! proc begin {code args} {
! uplevel 1 $code
! set i 0
! set n [llength $args]
! while {$i<$n} {
! switch -- [lindex $args $i] {
! }
}
}
***************
*** 184,189 ****
set @undo $@redo
set @redo {}
! set err [catch { $self perform [lindex $backup end]}]
! puts "err --> $err"
if {$err} {set err $errorInfo}
set @redo $@undo
--- 182,186 ----
set @undo $@redo
set @redo {}
! set err [catch {$self perform [lindex $backup end]}]
if {$err} {set err $errorInfo}
set @redo $@undo
***************
*** 227,237 ****
}
- #class UndoableArray < AutoArray
- # include UndoFeature
- ## def initialize(n=0,v=nil); super; end
- # def put(i,v) @undo_queue.add Message.new(self,:put,i,get(i)); super end
- # def put_seq(i,n,v) @undo_queue.add Message.new(self,:put_seq,i,v.length,get_seq(i,n)); super end
- #end
-
set history [History new]
--- 224,227 ----
***************
*** 1561,1571 ****
def ObjectBox init {args} {
super
- global font look
set @valid 0
set @ninlets 0
set @noutlets 0
- #set @canvas "deadbeef"
set @pdclass ""
- #set @text $args
set @edit 0
}
--- 1551,1558 ----
***************
*** 2907,2917 ****
def* MessageBox click {x y b f} {
- global _
$self bang 1
$@canvas focus= $self
! foreach wire $@wires {
! pd .$_($wire:obj2) $@text
! }
! after 100 $self bang 0
}
--- 2894,2901 ----
def* MessageBox click {x y b f} {
$self bang 1
$@canvas focus= $self
! pd .$self bang
! after 150 $self bang 0
}
***************
*** 3630,3634 ****
}
! proc tcl_eval {self l} {post %s "tcl: $l"; post %s "returns: [uplevel [lastlevel] $l]"}
proc pd_eval {self l} {post %s "pd: $l"; pd $l}
proc gdb_eval {self l} {post %s "gdb: $l"; global gdb; puts $gdb "$l"}
--- 3614,3618 ----
}
! proc tcl_eval {self l} {post %s "tcl: $l"; post %s "returns: [uplevel [info level] $l]"}
proc pd_eval {self l} {post %s "pd: $l"; pd $l}
proc gdb_eval {self l} {post %s "gdb: $l"; global gdb; puts $gdb "$l"}
More information about the Pd-cvs
mailing list