[PD-cvs] pd/src desire.tk,1.1.2.154,1.1.2.155

Mathieu Bouchard matju at users.sourceforge.net
Sun Apr 16 08:15:36 CEST 2006


Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv19571

Modified Files:
      Tag: devel_0_39
	desire.tk 
Log Message:
class names should be uppercased


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.154
retrieving revision 1.1.2.155
diff -C2 -d -r1.1.2.154 -r1.1.2.155
*** desire.tk	15 Apr 2006 22:34:24 -0000	1.1.2.154
--- desire.tk	16 Apr 2006 06:15:33 -0000	1.1.2.155
***************
*** 49,71 ****
  # attributes (maybe all) have changed.
  
! class_new observable {}
! def observable init {} {
  	set @subscribers {}
  }
! def observable subscribe {observer} {
  	set i [lsearch $@subscribers $observer]
  	if {$i<0} {lappend @subscribers $observer}
  }
! def observable unsubscribe {observer} {
  	set i [lsearch $@subscribers $observer]
  	if {$i>=0} {set @subscribers [lreplace $@subscribers $i $i]}
  }
! def observable changed {args} {
  	foreach x $@subscribers {eval [concat [list $x notice $self] $args]}
  }
! def observable child_changed {origin args} {
  	foreach x $@subscribers {eval [concat [list $x notice $origin] $args]}
  }
! def observable subscribers {} {return $@subscribers}
  
  #-----------------------------------------------------------------------------------#
--- 49,71 ----
  # attributes (maybe all) have changed.
  
! class_new Observable {}
! def Observable init {} {
  	set @subscribers {}
  }
! def Observable subscribe {observer} {
  	set i [lsearch $@subscribers $observer]
  	if {$i<0} {lappend @subscribers $observer}
  }
! def Observable unsubscribe {observer} {
  	set i [lsearch $@subscribers $observer]
  	if {$i>=0} {set @subscribers [lreplace $@subscribers $i $i]}
  }
! def Observable changed {args} {
  	foreach x $@subscribers {eval [concat [list $x notice $self] $args]}
  }
! def Observable child_changed {origin args} {
  	foreach x $@subscribers {eval [concat [list $x notice $origin] $args]}
  }
! def Observable subscribers {} {return $@subscribers}
  
  #-----------------------------------------------------------------------------------#
***************
*** 73,84 ****
  array unset poolset foo
  
! class_new manager {thing}
  
! def* manager init {} {
  	set @q [list]
  	$self call
  }
  
! def manager call {} {
  	global poolset
  	if {[llength $@q]} {post "client queue %d" [llength $@q]}
--- 73,84 ----
  array unset poolset foo
  
! class_new Manager {thing}
  
! def* Manager init {} {
  	set @q [list]
  	$self call
  }
  
! def Manager call {} {
  	global poolset
  	if {[llength $@q]} {post "client queue %d" [llength $@q]}
***************
*** 93,100 ****
  }
  
! def* manager notice {origin args} {
  	global poolset
  	if {[info exists poolset($origin)]} {
! 		post %s "def manager notice: double dirty"
  		# nothing for now
  	} {
--- 93,100 ----
  }
  
! def* Manager notice {origin args} {
  	global poolset
  	if {[info exists poolset($origin)]} {
! 		post %s "def Manager notice: double dirty"
  		# nothing for now
  	} {
***************
*** 102,106 ****
  		lappend @q $origin
  	}
! 	post "manager notice: queue length is now %d" [llength $@q]
  }
  
--- 102,106 ----
  		lappend @q $origin
  	}
! 	post "Manager notice: queue length is now %d" [llength $@q]
  }
  
***************
*** 477,481 ****
  ################ utility functions #########################
  
! proc pdtk_post {s} {post $s}
  
  proc enquote {x} {
--- 477,481 ----
  ################ utility functions #########################
  
! proc pdtk_post {s} {regsub -- "\n$" $s "" s; post %s $s}
  
  proc enquote {x} {
***************
*** 757,761 ****
  
  #-----------------------------------------------------------------------------------#
! class_new view {observable thing}
  
  # normally ninlets/noutlets should be in class "box", but server-side isn't smart enough
--- 757,761 ----
  
  #-----------------------------------------------------------------------------------#
! class_new view {Observable thing}
  
  # normally ninlets/noutlets should be in class "box", but server-side isn't smart enough
***************
*** 2994,2998 ****
  		set oldpos [lindex [.log.2 get] 1]
  		.log.1 insert end $x
! 		regsub "\n$" $x "" y
  		set n [expr [string length $x]-[string length $y]]
  		set console_lines [expr $console_lines+$n]
--- 2994,2998 ----
  		set oldpos [lindex [.log.2 get] 1]
  		.log.1 insert end $x
! 		regsub -all "\n" $x "" y
  		set n [expr [string length $x]-[string length $y]]
  		set console_lines [expr $console_lines+$n]
***************
*** 3640,3644 ****
  #c lsort proably does what u want (has an integer flag too)
  
! set manager [manager_new]
  
  proc post_hierarchy {self {i 0}} {
--- 3640,3644 ----
  #c lsort proably does what u want (has an integer flag too)
  
! set manager [Manager_new]
  
  proc post_hierarchy {self {i 0}} {





More information about the Pd-cvs mailing list