pd/src desire.tk,1.1.2.235,1.1.2.236 - Pd-cvs

13 Jun 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"}