[PD-cvs] pd/src desire.tk,1.1.2.600.2.3,1.1.2.600.2.4

Mathieu Bouchard matju at users.sourceforge.net
Sun Dec 3 00:48:32 CET 2006


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

Modified Files:
      Tag: desiredata
	desire.tk 
Log Message:
made the new socket interface to load files given as commandline args.
also, disabled tclreadline in tclsh mode.


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.600.2.3
retrieving revision 1.1.2.600.2.4
diff -C2 -d -r1.1.2.600.2.3 -r1.1.2.600.2.4
*** desire.tk	2 Dec 2006 03:12:12 -0000	1.1.2.600.2.3
--- desire.tk	2 Dec 2006 23:48:28 -0000	1.1.2.600.2.4
***************
*** 725,731 ****
  		fconfigure $sock -blocking 0 -buffering line
  		poll_sock
- 		global files_to_open
  		pd pd init
! 		foreach f $files_to_open {
  			set ff [file split [file normalize $f]]
  			set ffl [llength $ff]
--- 725,730 ----
  		fconfigure $sock -blocking 0 -buffering line
  		poll_sock
  		pd pd init
! 		foreach f $::files_to_open {
  			set ff [file split [file normalize $f]]
  			set ffl [llength $ff]
***************
*** 776,779 ****
--- 775,785 ----
  	pd pd init
  	poll_sock
+ 	foreach f $::files_to_open {
+ 		set ff [file split [file normalize $f]]
+ 		set ffl [llength $ff]
+ 		set file [lindex $ff [expr $ffl-1]]
+ 		set dir [join [lrange $ff 0 [expr $ffl-2]] [file separator]]
+ 		pd pd open $file $dir
+ 	}
  }
  
***************
*** 1702,1706 ****
  
  def Canvas scroll {axis diff} {
- 	global crosshair
  	set c [$self widget]
  	$c [list $axis]view scroll $diff units
--- 1708,1711 ----
***************
*** 2474,2478 ****
  
  def Canvas motion {x y f target} {
! 	global font tooltip crosshair
  	set c [$self widget]
  	$self motion_checkhairtip $target $x $y
--- 2479,2483 ----
  
  def Canvas motion {x y f target} {
! 	global font
  	set c [$self widget]
  	$self motion_checkhairtip $target $x $y
***************
*** 2584,2588 ****
  
  def Canvas motion_checkhairtip {target x y} {
- 	global crosshair tooltip
  	if {[$self look hairstate] && $@editmode} {
  		$@crosshair data= $x $y $target
--- 2589,2592 ----
***************
*** 2592,2598 ****
  	}
  	if {[$self look tooltip]} {
! 		if {[expr [distance $tooltip(curpos) [list $x $y]] > 10]} {
! 			$self hide_tooltip
! 		}
  	}
  }
--- 2596,2600 ----
  	}
  	if {[$self look tooltip]} {
! 		if {[expr [distance $::tooltip(curpos) [list $x $y]] > 10]} {$self hide_tooltip}
  	}
  }
***************
*** 7133,7137 ****
  
  def ClientPrefsDialog init {} {
! 	global ddrc_options look key crosshair bar
  	$self read
  	super cancel apply ok
--- 7135,7139 ----
  
  def ClientPrefsDialog init {} {
! 	global ddrc_options look key bar
  	$self read
  	super cancel apply ok
***************
*** 7496,7508 ****
  } else {
  	set cmdline(console) 0
! #	package require tclreadline
! #	#::tclreadline::Loop
! #	proc ::tclreadline::prompt1 {} {return "desire> "}
! #	while {1} {
! #		puts "What?"
! #		if {[catch {puts [::tclreadline::readline read]}]} {
! #			puts $::errorInfo
! #		}
! #	}
! 	vwait foo
  }
--- 7498,7517 ----
  } else {
  	set cmdline(console) 0
! 	#foreach dir $auto_path {
! 	#	set file $dir/libtclreadline[info sharedlibextension]
! 	#	puts "trying $file"
! 	#	if {![catch {load $file}]} {puts "found tclreadline !"}
! 	#}
! 	#::tclreadline::Loop
! 	#proc ::tclreadline::prompt1 {} {return "desire> "}
! 	#while {1} {
! 	#	#set line [::tclreadline::readline read]
! 	#	puts -nonewline "desire> "
! 	#	flush stdout
! 	#	set line [gets stdin]
! 	#	if {[catch {puts [eval $line]}]} {
! 	#		puts "error: $::errorInfo"
! 	#	}
! 	#}
! 	#vwait foo
  }





More information about the Pd-cvs mailing list